Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 15 11 2019.
Dica 2476. Método usado para ler o arquivo INI para o componente ACBrCTe.
DICAS 2476 - WINDEV WEBDEV MOBILE - ACBR 166 - ACBR LIB - CTE_CarregarINI
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_CARREGARINI(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ...
sRECEBER_ARQUIVO_OU_INI is string="")
//gnretorno_acbr=API("ACBrNFe32.DLL","NFE_CarregarINI",StringToUTF8(sRECEBER_ARQUIVO_OU_INI))
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(sRECEBER_ARQUIVO_OU_INI))
IF gnretorno_acbr=0 THEN
// 0 Carregou 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 Carregar o arquivo INI"
RESULT texto
END
//https://acbr.sourceforge.io/ACBrLib/NFE_CarregarINI.html
//Comando: NFE_ CarregarINI( eArquivoOuINI );
========================
// btn cte carregar ini
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.dll","CTE_Inicializar")
IF bRETORNO=True THEN
EDT_RESPOSTA=ACBR_CARREGARINI("ACBrCTe32.dll","CTE_CarregarINI",EDT_INI)
IF EDT_RESPOSTA=0 THEN
EDT_RESPOSTA+=CR+"Ini Cte Carregando com Sucesso"
END
ELSE
EDT_RESPOSTA="erro inicializar"
END
ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar")
========================
============================