...
SPDNFDANF - Monitoramento da NF-e ( [ cNota ], [ cSerie ], [ cChave ] ) --> cXML
Parâmetros:
Nome | Tipo | Descrição | Default | Observação |
---|---|---|---|---|
cNota | Caracter | Numeração da Nota | PARAMIXB[1] | |
cSerie | Caracter | Série da Nota | PARAMIXB[2] | |
cChave | Caracter | Chave da Nota | PARAMIXB[3] | |
cIdEnt | Caracter | Entidade do TSS | PARAMIXB[4] | |
cClieFor | Caracter | Código do Cliente/Fornecedor | PARAMIXB[5] | |
cLoja | Caracter | Loja do Cliente/Fornecedor | PARAMIXB[6] |
Retorno:
Nulo
Exemplo:
Bloco de código | ||||
---|---|---|---|---|
| ||||
#include 'protheus.ch' #include 'RPTDEF.ch' /*/{Protheus.doc} SPDNFDANF Ponto foi criado para atender a necessidade de impressão da DANFE automático após monitoramento e caso a NFe esteja autorizada. @since 26/08/2020 /*/ user function SPDNFDANF() local cNota := ParamIXB[1] local cSerie := ParamIXB[2] local cChaveNfe := ParamIXB[3] local cErrorcIdEnt := "" local cIdEntParamIXB[4] local cClieFor := ParamIXB[5] local cLoja := ""ParamIXB[6] ConOut(" Nota : " + cNota) ConOut(" Serie : " + cSerie) ConOut(" Chave : " + cChaveNfe) ConOut(" Entidade do TSS : " + cIdEnt) cIdEnt := getCfgEntidade(@cError) if !empty(cIdEnt) ConOut(" Cliente/Fornec : " + cClieFor) ConOut(" Loja : " + cLoja) // Carregar os parâmetros do pergunte "NFSIGW" com as informações necessárias da nota // Instanciar a classe FWMSPrinter // Executar a função principal dos RDMAKES, exemplo U_PrtNfeSef(cIdEnt,,,oDanfe), o objeto oDanfe é da classe FWMSPrinter endif return nil |