03 Set 2020 14:46
#define DC_CALL_STD 0x0020 // __stdcall
#define DLL_OSAPI DC_CALL_STD
#define STR_LEN 256
#define ACBrLIB "ACBrNFe32.dll"
Function main
// Se mandar .f. - imprime o xml
// Se mandar .t. - gera o pdf
ImprimirPDFNfe( 'C:\ARQXML.XML', .F. )
Return nil
FUNCTION ImprimirPDFNfe(cArq, lPdf)
Local cTexto := ''
Local cBufferlen
Local hLib
hLib := DllLoad(ACBrLIB)
iRet := DllCall(hLib, DLL_OSAPI, "NFE_Inicializar", "", "")
bufferLen:= STR_LEN
cTexto := Space(bufferLen)
iRet := DllCall(hLib, DLL_OSAPI, "NFE_CarregarXML", hb_StrToUTF8(cArq))
If lPdf
iRet := DllCall(hLib, DLL_OSAPI, "NFE_ImprimirPDF")
Else
iRet := DllCall(hLib, DLL_OSAPI,"NFE_Imprimir", hb_StrToUTF8(""), 1, hb_StrToUTF8(""), hb_StrToUTF8(""), hb_StrToUTF8(""), hb_StrToUTF8(''), hb_StrToUTF8(""))
EndIf
iRet := DllCall( hLib, DLL_OSAPI,"NFE_Finalizar")
hLib := NIL
RETURN nil
05 Set 2020 16:34
06 Set 2020 05:10
rubens escreveu:é muito jóia essa opção da dll. Para imprimir um danfe tinha que ter o acbrmonitor instalado... agora basta mandar a dll junto...
06 Set 2020 05:22
07 Jun 2023 08:45
07 Jun 2023 14:05
RCINF escreveu:Quintas Bom dia
Essa SefazClas que vc usa, porventura já tem funções para manipulação do PIX ?
09 Jun 2023 09:22
09 Jun 2023 10:44
09 Jun 2023 11:36
09 Jun 2023 16:25
RCINF escreveu:Bom dia Fernando.
Teremos então que contratar uma API para prosseguir na luta, vou fazer umas pesquisas e obtendo retorno, coloco aqui o resultado...
Obrigado.