sábado, 7 de dezembro de 2019

DICAS 2537 WINDEV WEBDEV MOBILE ACBR 186 MDFE Cancelar






Doação Para Amarildo matos - https://streamelements.com/amarildo_matos/tip














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
======================================================

























DICAS 2477 WINDEV WEBDEV MOBILE ACBR 167 ACBR LIB CTE CarregarXML
DICAS 2479 WINDEV WEBDEV MOBILE ACBR 168 ACBR LIB CTE ObterXml
DICAS 2482 WINDEV WEBDEV MOBILE ACBR 169 ACBR LIB CTE Assinar
DICAS 2486 WINDEV WEBDEV MOBILE ACBR 170 ACBR LIB Fazendo Modificacoes R..
DICAS 2488 WINDEV WEBDEV MOBILE ACBR 171 ACBR LIB CTE Validar
DICAS 2490 WINDEV WEBDEV MOBILE ACBR 172 ACBR LIB CTE Enviar
DICAS 2493 WINDEV WEBDEV MOBILE ACBR 173 ACBR LIB CTE Consultar
DICAS 2497 WINDEV WEBDEV MOBILE ACBR 174 ACBR LIB CTE Cancelar
DICAS 2499 WINDEV WEBDEV MOBILE ACBR 175 ACBR LIB CTE ImprimirPDF
DICAS 2505 WINDEV WEBDEV MOBILE ACBR 176 CTE ImprimirPDF 2a parte
DICAS 2508 WINDEV WEBDEV MOBILE ACBR 177 MDFe Inicializar E Finalizar
DICAS 2511 WINDEV WEBDEV MOBILE ACBR 178 MDFE CarregarINI
DICAS 2515 WINDEV WEBDEV MOBILE ACBR 179 MDFE CarregarXML
DICAS 2519 WINDEV WEBDEV MOBILE ACBR 180 MDFe ObterXml
DICAS 2522 WINDEV WEBDEV MOBILE ACBR 181 MDFE Assinar
DICAS 2524 WINDEV WEBDEV MOBILE ACBR 182 MDFE Validar
DICAS 2527 WINDEV WEBDEV MOBILE ACBR 183 MDFE LimparLista
DICAS 2531 WINDEV WEBDEV MOBILE ACBR 184 MDFE LimparListaEveventosentos
DICAS 2534 WINDEV WEBDEV MOBILE ACBR 185 MDFE Enviar
DICAS 2537 WINDEV WEBDEV MOBILE ACBR 186 MDFE Cancelar
DICAS 2539 WINDEV WEBDEV MOBILE ACBR 187 MDFE Consultar

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












Nenhum comentário:

Postar um comentário

Teste

Teste
teste