sexta-feira, 22 de novembro de 2019

DICAS 2493 WINDEV WEBDEV MOBILE ACBR 173 ACBR LIB CTE Consultar


















Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 22 11 2019.
Dica 2493. Método usado para consultar um CTe na SEFAZ

DICAS 2493 - WINDEV WEBDEV MOBILE - ACBR 173 - ACBR LIB - CTE_Consultar




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

PROCEDURE ACBR_CONSULTAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="",sRecebe_nome_retorno is string="", ...
                         sRECEBE_XML_OU_CHAVE is string="")

//sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="",sRecebe_nome_retorno is string="",sRECEBE_XML_OU_CHAVE IS STRING="")
gsResposta is string on 256
gnTamanho is system int=256
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,sRECEBE_XML_OU_CHAVE,&gsResposta,&gnTamanho)
IF gnretorno_acbr=0 THEN
RESULT(VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_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_retorno)
RESULT texto
END

========================
// btn CTE  CONSULTAR

bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.DLL","CTE_Inicializar")
IF bRETORNO=True THEN

sConsulta_xml is string=""
IF EDT_CONSULTA_eChave="" THEN
sConsulta_xml=EDT_consulta_Arquivo_xml
ELSE
sConsulta_xml=EDT_CONSULTA_eChave
END

EDT_CONSULTA_RESPOSTA=ACBR_CONSULTAR("ACBrCTe32.DLL","CTE_Consultar","CTE_UltimoRetorno",sConsulta_xml)


END
ACBR_FINALIZAR("ACBrCTe32.DLL","CTE_Finalizar")


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















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





























Nenhum comentário:

Postar um comentário

Teste

Teste
teste