...
Programa fonte:
AutoNfeBusiness.prw
Observação: deverá ter o artefato do printer na pasta do appserver.
Links importantes para download:
RDMAKES Padrões: https://suporte.totvs.com/portal/p/10098/download#detail/950596
Printer:
Windows 64:
https://suporte.totvs.com/portal/p/10098/download?e=693168
Windows 32:
https://suporte.totvs.com/portal/p/10098/download?e=693163
Linux 64:
https://suporte.totvs.com/portal/p/10098/download?e=711950
https://suporte.totvs.com/portal/p/10098/download?e=693160
Linux 32:
https://suporte.totvs.com/portal/p/10098/download?e=711949
https://suporte.totvs.com/portal/p/10098/download?e=693159
MAC:
https://suporte.totvs.com/portal/p/10098/download?e=693162
Links importantes para consulta:
Classe FWMSPrinter: FWMsPrinter
Documentação do Printer: TOTVS Printer
Função SetMvValue: https://tdn.totvs.com/display/public/PROT/SetMVValue
Sintaxe:
SPDNFDANF - Monitoramento da NF-e ( [ cNota ], [ cSerie ], [ cChave ] ) --> cXML
...
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 cIdEnt := ParamIXB[4]
local cClieFor := ParamIXB[5]
local cLoja := ParamIXB[6]
ConOut(" Nota : " + cNota)
ConOut(" Serie : " + cSerie)
ConOut(" Chave : " + cChaveNfe)
ConOut(" Entidade do TSS : " + cIdEnt)
ConOut(" Cliente/Fornec : " + cClieFor)
ConOut(" Loja : " + cLoja)
// Carregar os parâmetros do pergunte "NFSIGW" com as informações necessárias da nota (SetMVValue)
// Instanciar a classe FWMSPrinter
// Executar a função principal dos RDMAKES padrões, por exemplo: U_PrtNfeSef(cIdEnt,,,oDanfe) funcão do DANFEII e U_DANFE_P1(cIdEnt,,,oDanfe) função do DANFEIII, onde a variavel cIdEnt é a entidade do TSS e o objeto oDanfe é da classe FWMSPrinter.
return nil
|
...