Páginas

▼

segunda-feira, 25 de novembro de 2019

Ao vivo 2501 - 25/11/2019 20:30 - Amarildo Diversos Assuntos



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T
às Nenhum comentário:

Ao vivo 2498 - 24/11/2019 19:00 - Amarildo No Computador - Diversos Assu...



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T
às Nenhum comentário:

DICAS 2499 WINDEV WEBDEV MOBILE ACBR 175 ACBR LIB CTE ImprimirPDF







ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html







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")


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














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






às Nenhum comentário:

Ao vivo 2500 - 25/11/2019 07:30 - Amarildo Desenvolvimento Diversos



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T
às Nenhum comentário: