- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Exemplo de Função para Visualizar N.F. Entrada Mata103 - alguém tem ?
×
Linguagem de Programação ADVPL
Perguntas Exemplo de Função para Visualizar N.F. Entrada Mata103 - alguém tem ?
- rcaps
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 69
- Obrigados Recebidos: 0
11 anos 1 mês atrás #17462
por rcaps
Boas !
Alguma alma caridosa teria um exemplo de função para mostrar notas fiscais de entrada já classificada
para fornecer ? Tentei com a função A103NFiscal mas não funcionou, conforme abaixo :
If ! TMP->(Eof())
If Aviso("Atenção","N.Fiscal nº "+TMP->D1_DOC+" Serie -"+TMP->D1_SERIE+CHR(10)+CHR(13)+"Fornec.:-"+TMP->F1_FORNECE+"-"+alltrim(TMP->A2_NOME)+CHR(10)+CHR(13)+alltrim(tmp->d1_cod)+"-"+Alltrim(tmp->b1_desc),{"Sim","Não"},1,"Deseja Ver a NF ?") == 1
DbSelectArea("SF1")
SF1->(DbGoto(TMP->REC))
A103NFiscal("SF1",TMP->REC,2)
Endif
RestArea(aRea)
Else
MsgAlert(" Lote não encontrado","Atenção !")
Endif
Return
Agradeço desde já.
Raul
Alguma alma caridosa teria um exemplo de função para mostrar notas fiscais de entrada já classificada
para fornecer ? Tentei com a função A103NFiscal mas não funcionou, conforme abaixo :
If ! TMP->(Eof())
If Aviso("Atenção","N.Fiscal nº "+TMP->D1_DOC+" Serie -"+TMP->D1_SERIE+CHR(10)+CHR(13)+"Fornec.:-"+TMP->F1_FORNECE+"-"+alltrim(TMP->A2_NOME)+CHR(10)+CHR(13)+alltrim(tmp->d1_cod)+"-"+Alltrim(tmp->b1_desc),{"Sim","Não"},1,"Deseja Ver a NF ?") == 1
DbSelectArea("SF1")
SF1->(DbGoto(TMP->REC))
A103NFiscal("SF1",TMP->REC,2)
Endif
RestArea(aRea)
Else
MsgAlert(" Lote não encontrado","Atenção !")
Endif
Return
Agradeço desde já.
Raul
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 1 mês atrás #17469
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Exemplo de Função para Visualizar N.F. Entrada Mata103 - alguém tem ?
Raul veja se funciona com esta alteração.
If ! TMP->(Eof())
If Aviso("Atenção","N.Fiscal nº "+TMP->D1_DOC+" Serie -"+TMP->D1_SERIE+CHR(10)+CHR(13)+"Fornec.:-"+TMP->F1_FORNECE+"-"+alltrim(TMP->A2_NOME)+CHR(10)+CHR(13)+alltrim(tmp->d1_cod)+"-"+Alltrim(tmp->b1_desc),{"Sim","Não"},1,"Deseja Ver a NF ?") == 1
DbSelectArea("SF1")
SF1->(DbGoto(TMP->REC))
A103NFiscal("SF1",SF1->(Recno()),2)
Endif
RestArea(aRea)
Else
MsgAlert(" Lote não encontrado","Atenção !")
Endif
Return
If ! TMP->(Eof())
If Aviso("Atenção","N.Fiscal nº "+TMP->D1_DOC+" Serie -"+TMP->D1_SERIE+CHR(10)+CHR(13)+"Fornec.:-"+TMP->F1_FORNECE+"-"+alltrim(TMP->A2_NOME)+CHR(10)+CHR(13)+alltrim(tmp->d1_cod)+"-"+Alltrim(tmp->b1_desc),{"Sim","Não"},1,"Deseja Ver a NF ?") == 1
DbSelectArea("SF1")
SF1->(DbGoto(TMP->REC))
A103NFiscal("SF1",SF1->(Recno()),2)
Endif
RestArea(aRea)
Else
MsgAlert(" Lote não encontrado","Atenção !")
Endif
Return
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- rcaps
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 69
- Obrigados Recebidos: 0
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Exemplo de Função para Visualizar N.F. Entrada Mata103 - alguém tem ?
Tempo para a criação da página:0.088 segundos