sexta-feira, 22 de novembro de 2019

DICAS 2493 WINDEV WEBDEV MOBILE ACBR 173 ACBR LIB CTE Consultar







ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html







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")


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













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
























Postado por às
Marcadores: ,

Nenhum comentário:

Postar um comentário

Assinar: Postar comentários (Atom)

Teste

Teste
teste