Windev21 Aulas,Estudos e Desenvolvimento: DICAS 2537 WINDEV WEBDEV MOBILE ACBR 186 MDFE Cancelar

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 07 12 2019.
Dica 2537. Método usado para Cancelar um MDFe na SEFAZ.

DICAS 2537 - WINDEV WEBDEV MOBILE - ACBR 186 - MDFE_Cancelar

==================================
// btn_Mdfe_cancelar_cancelar
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar")
IF bRETORNO=True THEN

EDT_RESPOSTA=ACBR_CANCELAR("ACBrMDFe32.DLL","MDFE_Cancelar","MDFE_UltimoRetorno", ...
EDT_mdfe_cancelar_eChave,EDT_mdfe_cancelar_Justificativa, ...
EDT_mdfe_cancelar_cnpj_emitente,EDT_mdfe_cancelar_numero_lote)

ELSE
EDT_RESPOSTA="erro inicializar"
END
ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar")
==================================
PROCEDURE ACBR_CANCELAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="",sRecebe_nome_retorno is string="", ...
sRECEBER_eChave is string="",sRECEBER_eJustificativa is string="", ...
sRECEBER_eCNPJ is string="",nRECEBER_ALote is int=0)
GsResposta is string on 256
GsResposta_maior_256 is string=""
gnTamanho is system int=256
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(sRECEBER_eChave), ...
StringToUTF8(sRECEBER_eJustificativa),
StringToUTF8(sRECEBER_eCNPJ),nRECEBER_ALote,
&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=-7 THEN texto+=" Indica erro na comunicação HTTP"
IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao NFE Cancelar"
// texto+=CR+ACBR_ULTIMO_RETORNO("ACBrNFe32.DLL","NFE_UltimoRetorno")
RESULT texto
END
//gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Cancelar",StringToUTF8(sRECEBER_eChave), ...
// RESULT(VER_RETORNO_MAIOR_256("ACBrNFe32.DLL","NFE_UltimoRetorno",gnTamanho,GsResposta))

//https://acbr.sourceforge.io/ACBrLib/NFE_Cancelar.html
//Comando:NFE_ Cancelar( eChave, eJustificativa, eCNPJ, ALote, sResposta, esTamanho );
========================================
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

sábado, 7 de dezembro de 2019

DICAS 2537 WINDEV WEBDEV MOBILE ACBR 186 MDFE Cancelar

https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2537-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_Cancelar.html

Nenhum comentário:

Postar um comentário

Teste

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

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