Windev21 Aulas,Estudos e Desenvolvimento: DICAS 2519 WINDEV WEBDEV MOBILE ACBR 180 MDFe ObterXml

Boa noite

Doaçao Amarildo Matos - https://streamelements.com/amyteste/tip

DICAS 2519 WINDEV WEBDEV MOBILE ACBR 180 MDFe ObterXml

https://youtu.be/okUEPLi-Qhs

https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2519-windev-webdev-mobile-acbr.html

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

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 01 12 2019.

Dica 2519. Método para retornar o xml do MDFe.

DICAS 2519 - WINDEV WEBDEV MOBILE - ACBR 180 - MDFe_ObterXml

Compartilhe Canal Youtube Amarildo Matos

Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando

sonhos em realidades.

===========================
// btn Mdfe obter xml
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar")
IF bRETORNO=True THEN
EDT_RESPOSTA=ACBR_CARREGARINI("ACBrMDFe32.dll","MDFE_CarregarINI",EDT_INI)
IF EDT_RESPOSTA=0 THEN // carregou com sucesso

EDT_RESPOSTA=ACBR_OBTERXML("ACBrMDFe32.dll","MDFE_ObterXml","MDFE_UltimoRetorno",0)

ELSE
EDT_RESPOSTA+=CR+"ERRO CARREGAR INI"
END
ELSE
EDT_RESPOSTA="erro inicializar"
END
ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar")
===========================
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="ObterXml-Erro Retorno ["+gnretorno_acbr+"]"+CR
IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada"+CR
IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao executar a função." +CR
IF gnretorno_acbr=-13 THEN texto+=" Indica que o índice passado não se encontra no intervalo"+CR
texto+="Dll:"+sRecebe_nome_dll+CR
texto+="recebe_nome_metodo:"+sRecebe_nome_metodo+CR
texto+="recebe_nome_ultimo_Retorno:"+sRecebe_nome_ultimo_Retorno+CR
texto+="posicao_lista:"+nPosicao+CR
texto+=ACBR_ULTIMO_RETORNO("ACBrNFe32.DLL","NFE_UltimoRetorno")
RESULT texto
END

===========================
PROCEDURE VER_RETORNO_MAIOR_256(RECEBE_NOME_DLL,RECEBE_METODO,RECEBE_GNTAMANHO,RECEBE_GSRESPOSTA)
gsResposta_maior_256 is string=""
IF RECEBE_GNTAMANHO>256 THEN
gsResposta_maior_256=RepeatString(" ",RECEBE_GNTAMANHO)
gnretorno_acbr=API(RECEBE_NOME_DLL,RECEBE_METODO,&gsResposta_maior_256,&RECEBE_GNTAMANHO)
RESULT UTF8ToString(gsResposta_maior_256)
ELSE
RESULT UTF8ToString(RECEBE_GSRESPOSTA)
END
//"NFE_UltimoRetorno"

===========================
PROCEDURE ACBR_ULTIMO_RETORNO(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="")

gnTamanho is system int=256
gsResposta is string on 256
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,&gsResposta,&gnTamanho)
sTEXTO_R is string="Retorno["+gnretorno_acbr+"]"+CR
sTEXTO_R+=VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_metodo,gnTamanho,gsResposta)
RESULT sTEXTO_R
===========================

Páginas

domingo, 1 de dezembro de 2019

DICAS 2519 WINDEV WEBDEV MOBILE ACBR 180 MDFe ObterXml

Nenhum comentário:

Postar um comentário