sábado, 16 de novembro de 2019

DICAS 2477 WINDEV WEBDEV MOBILE ACBR 167 ACBR LIB CTE CarregarXML


















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















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



























Nenhum comentário:

Postar um comentário

Teste

Teste
teste