aco que faltava comprtilhar no DROPBOX
https://www.dropbox.com/s/wm43d680brjfz ... e.bmp?dl=0
Moderador: Moderadores
METHOD NFeLoteEnvia( cXml, cLote, cUF, cCertificado, cAmbiente, cIndSinc ) CLASS SefazClass
hb_Default( @cIndSinc, ::cIndSinc )
::Setup( cUF, cCertificado, cAmbiente, WS_NFE_AUTORIZACAO )
IF Empty( cLote )
cLote := "1"
ENDIF
IF cXml != NIL
::cXmlDocumento := cXml
ENDIF
IF ::AssinaXml() != "OK"
RETURN ::cXmlRetorno
ENDIF
IF ::cNFCe == "S"
::GeraQrCode()
ENDIF
oSefaz := SefazClass():New()
oSefaz:cCertificado := "XX"
oSefaz:cUF := "AC"
// estes três se for NFCe
oSefaz:cNFE := "S"
oSefaz:cCSC
oSefaz:cIdToken
oSefaz:NfeLoteEnvia( cXml )
#define WS_BPE 100
#define WS_BPE_CONSULTAPROTOCOLO WS_BPE + 1
#define WS_BPE_RECEPCAO WS_BPE + 2
#define WS_BPE_RECEPCAOEVENTO WS_BPE + 3
#define WS_BPE_STATUSSERVICO WS_BPE + 4
#define WS_BPE_QRCODE WS_BPE + 5
#define WS_CTE 200
#define WS_CTE_CONSULTACADASTRO WS_CTE + 1
#define WS_CTE_CONSULTAPROTOCOLO WS_CTE + 2
...
#define WS_LIST { ;
{ WS_BPE, WS_PROJETO_BPE }, ;
{ WS_CTE, WS_PROJETO_CTE }, ;
{ WS_MFE, WS_PROJETO_MDFE }, ;
{ WS_NFE, WS_PROJETO_NFE } }
FOR EACH oElement IN WS_LIST DESCEND
IF nWsServico < oElement[ 1 ] + 100
::cProjeto := oElement[ 2 ]
EXIT
ENDIF
NEXT
Retornar para Legislação Fiscal e Tributária
Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes