Páginas

▼

sábado, 23 de novembro de 2019

DICAS 2497 WINDEV WEBDEV MOBILE ACBR 174 ACBR LIB CTE Cancelar







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 23 11 2019.
Dica 2497. Método usado para Cancelar um CTe na SEFAZ.

DICAS 2497 - WINDEV WEBDEV MOBILE - ACBR 174 - ACBR LIB - CTE_Cancelar




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

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


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

// BTN_CTE_CANCELAR NOTA

bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.DLL","CTE_Inicializar")
IF bRETORNO=True THEN
EDT_RESPOSTA=ACBR_CANCELAR("ACBrCTe32.DLL","CTE_Cancelar","CTE_UltimoRetorno", ...
EDT_cancelar_eChave,EDT_cancelar_Justificativa, ...
EDT_cancelar_cnpj_emitente,EDT_cancelar_numero_lote)

END
ACBR_FINALIZAR("ACBrCTe32.DLL","CTE_Finalizar")
========================
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"

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














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
























às

Nenhum comentário:

Postar um comentário