sábado, 23 de novembro de 2019

DICAS 2497 WINDEV WEBDEV MOBILE ACBR 174 ACBR LIB CTE Cancelar

















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"

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
















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





























Ao vivo 2496 - 23/11/2019 14:30 - Amarildo Mostrando Aulas Antigas



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T

Ao vivo 2496 - 23/11/2019 14:30 - Amarildo Mostrando Aulas Antigas



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T

Ao vivo 2495 - 23/11/2019 09:00 - Amarildo Desenvolvimento Diversos



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T

Teste

Teste
teste