segunda-feira, 25 de novembro de 2019

DICAS 2499 WINDEV WEBDEV MOBILE ACBR 175 ACBR LIB CTE ImprimirPDF


















Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 24 11 2019.
Dica 2499. Método usado para gerar o PDF do DACTE de um CTe carregado.

DICAS 2499 - WINDEV WEBDEV MOBILE - ACBR 175 - ACBR LIB - CTE_ImprimirPDF




========================
PROCEDURE ACBR_ImprimirPDF(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="")

gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo)
IF gnretorno_acbr=0 THEN
RESULT("Imprimiu com Sucesso")
ELSE
texto is string=sRecebe_nome_dll+" "+sRecebe_nome_metodo+"Erro Retorno - "+gnretorno_acbr+CR
IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada"+CR
IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao gerar o PDF do DANFe."+CR
RESULT texto
END
//// acbr_nfe_imprimirPdf
//gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ImprimirPDF")
=======================
// BTN IMPRIMIR_DACTE

bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.dll","CTE_Inicializar")
IF bRETORNO=True THEN
EDT_RESPOSTA+=CR+ACBR_CARREGARXML("ACBrCTe32.dll","CTE_CarregarXML",EDT_XML)

EDT_RESPOSTA+=CR+ACBR_ImprimirPDF("ACBrCTe32.dll","CTE_ImprimirPDF")

ShellExecute("C:\ERPMATOS\xml_acbr\PDF\"+EDT_CHAVE_CTE+"-CTE.PDF")
ELSE
EDT_RESPOSTA="erro inicializar"
END
ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar")


========================
















============================








Nenhum comentário:

Postar um comentário

Teste

Teste
teste