Boa tarde, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 16 11 2019.
Dica 2477. Método usado para ler o arquivo XML para o componente ACBrCTe.
DICAS 2477 - WINDEV WEBDEV MOBILE - ACBR 167 - ACBR LIB - CTE_CarregarXML
Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.
* AcbrLib - Integrando com Windev
* AcbrLib - Integrando Boleto com Windev
* AcbrLib - Integrando Cte com Windev
========================
PROCEDURE ACBR_CARREGARXML(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ...
sRecebe_arquivo_ou_xml is string="")
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(sRecebe_arquivo_ou_xml))
IF gnretorno_acbr=0 THEN
// 0 = Carregou Xml com Sucesso
RESULT "0"
ELSE
texto is string="Erro Retorno - "+gnretorno_acbr+" ="
IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada"
IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao ler o arquivo XML"
RESULT texto
END
// NFE_ CarregarXML( eArquivoOuXML );
// gnretorno_acbr=api("ACBrNFe32.DLL","NFE_CarregarXML",StringToUTF8(sRecebe_arquivo_ou_xml))
========================
// BTN CTE CARREGAR XML
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.DLL","CTE_Inicializar")
IF bRETORNO=True THEN
EDT_RESPOSTA=ACBR_CARREGARXML("ACBrCTe32.DLL","CTE_CarregarXML",EDT_XML)
IF EDT_RESPOSTA=0 THEN
EDT_RESPOSTA="XML CARREGADO COM SUCESSO"
ELSE
EDT_RESPOSTA="ERRO CARREGAR XML"
END
// IMPORTANTE SALIENTAR SE NAO FOR INFORMADO NOME DO XML E DIRETORIO, ELE MESMO CRIA SOZINHO
END
ACBR_FINALIZAR("ACBrCTe32.DLL","CTE_Finalizar")
========================
Help do Acbr
DICAS 2477 WINDEV WEBDEV MOBILE ACBR 167 ACBR LIB CTE CarregarXML
DICAS 2479 WINDEV WEBDEV MOBILE ACBR 168 ACBR LIB CTE ObterXml
DICAS 2479 WINDEV WEBDEV MOBILE ACBR 168 ACBR LIB CTE ObterXml
============================
