domingo, 17 de novembro de 2019

DICAS 2479 WINDEV WEBDEV MOBILE ACBR 168 ACBR LIB CTE ObterXml














Dica 2479. Método para retornar o xml do CTe com Dll acbr Lib.

DICAS 2479 - WINDEV WEBDEV MOBILE - ACBR 168 - ACBR LIB - CTE_ObterXml

https://acbr.sourceforge.io/ACBrLib/CTE_ObterXml.html







========================
PROCEDURE ACBR_OBTERXML(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ...
                        sRecebe_nome_ultimo_Retorno is string="",nPosicao is int=0)
gsResposta is string on 256
sGsResposta_maior_256 is string=""
gnTamanho is system int=256
//gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ObterXml",nPosicao_nfe,&gsResposta,&gnTamanho)
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,nPosicao,&gsResposta,&gnTamanho)
IF gnretorno_acbr=0 THEN
RESULT(VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_ultimo_Retorno,gnTamanho,gsResposta))
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=-5 THEN texto+=" Indica que o arquivo passado não existe."
IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP."
IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao consultar."
IF gnretorno_acbr=-12 THEN texto+=" Indica falha na validação da chave passada."
texto+=ACBR_ULTIMO_RETORNO(sRecebe_nome_dll,sRecebe_nome_ultimo_Retorno)
RESULT texto
END
// Método para retornar o xml da NFe.
// https://acbr.sourceforge.io/ACBrLib/NFE_ObterXml.html
// NFE_ObterXml( AIndex, sResposta, esTamanho  );
// AiNDEX = Posição da NFe na lista, À lista inicia em 0.


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

// btn cte obter xml
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 // carregou com sucesso
EDT_RESPOSTA=ACBR_OBTERXML("ACBrCTe32.DLL","CTE_ObterXml","CTE_UltimoRetorno",0)
ELSE
EDT_RESPOSTA+=CR+"ERRO CARREGAR INI"
END
ELSE
EDT_RESPOSTA="erro inicializar"
END
ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar")


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














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



























Nenhum comentário:

Postar um comentário

Teste

Teste
teste