sábado, 7 de dezembro de 2019

Ao vivo 2538 - 07/12/2019 09:0 - Amarildo Desenvolvimento Diversos e Ret...



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T

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

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












sexta-feira, 6 de dezembro de 2019

Ao vivo 2536 - 06/12/2019 15:00 - Amarildo Desenvolvimento Diversos



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T

Ao vivo 2535 - 06/12/2019 09:00 - Amarildo Desenvolvimento Diversos



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T

DICAS 2534 WINDEV WEBDEV MOBILE ACBR 185 MDFE Enviar






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 06 12 2019.
Dica 2534.Método usado para enviar um lote de MDFe para SEFAZ.

DICAS 2534 - WINDEV WEBDEV MOBILE - ACBR 185 - MDFE_Enviar

Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.



===================================================
PROCEDURE ACBR_MDFE_enviar(nRecebe_lote is int=0,bRecebe_imprimir is boolean=True,bRecebe_sincrono is boolean=True)
gsResposta is string on 256
gnTamanho is system int=256

gnretorno_acbr=API("ACBrMDFe32.DLL","MDFE_Enviar",nRecebe_lote, bRecebe_imprimir,bRecebe_sincrono,&gsResposta,&gnTamanho)

IF gnretorno_acbr=0 THEN

RESULT(VER_RETORNO_MAIOR_256("ACBrMDFe32.DLL","MDFE_UltimoRetorno",gnTamanho,gsResposta))

ELSE
texto is string="MDFE_Enviar-Erro Retorno ["+gnretorno_acbr+"]"+CR
IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada"+CR
IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP"+CR
IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao Enviar Cte"+CR

texto+=ACBR_ULTIMO_RETORNO("ACBrMDFe32.DLL","MDFE_UltimoRetorno")

texto+=CR+"----------------"
texto+=CR+"nome dll[ACBrMDFe32.DLL]"
texto+=CR+"nome metodo[MDFE_Enviar]"
texto+=CR+"nome Ultimo Retorno[MDFE_UltimoRetorno]"
texto+=CR+"----------------"

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
============================================
//BTN ASSINAR VALIDAR XML TRANSMITIR MDFE
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar")
IF bRETORNO=True THEN
EDT_RESPOSTA=ACBR_LIMPA_LISTA("ACBrMDFe32.dll","MDFE_LimparLista")
EDT_RESPOSTA=ACBR_CARREGARINI("ACBrMDFe32.dll","MDFE_CarregarINI",EDT_INI)
IF EDT_RESPOSTA=0 THEN
EDT_RESPOSTA=ACBR_Assinar("ACBrMDFe32.dll","MDFE_Assinar","MDFE_UltimoRetorno")
IF EDT_RESPOSTA=0 THEN
EDT_RESPOSTA=ACBR_Validar("ACBrMDFe32.dll","MDFE_Validar","MDFE_UltimoRetorno")
IF EDT_RESPOSTA=0 THEN

EDT_RESPOSTA=ACBR_MDFE_enviar(EDT_MDFE_Enviar_LOTE,INT_MDFE_Enviar_imprimir,INT_MDFE_Enviar_Sincrono)
Info("Enviou"+CR+EDT_RESPOSTA)
ELSE
EDT_RESPOSTA+=CR+"ERRO VALIDAR"
END
ELSE
EDT_RESPOSTA+=CR+"ERRO ASSINAR"
END
ELSE
EDT_RESPOSTA+=CR+"ERRO CARREGAR INI"
END
ELSE
EDT_RESPOSTA="erro inicializar"
END
ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar")
======================================



































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

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












Teste

Teste
teste