Jump to content

Promoção 25 Anos de Delphi
25% de desconto em todas as versões

Saiba mais

Ganhe o curso Tributação NF-e para Desenvolvedores

Assinando o SAC Anual este mês
botao.png

 

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Amarildo de Matos

Moderadores
  • Content Count

    1,698
  • Joined

  • Last visited

  • Days Won

    19

Amarildo de Matos last won the day on December 15 2019

Amarildo de Matos had the most liked content!

Community Reputation

975 Excellent

About Amarildo de Matos

  • Rank
    Membro Intermediário
  • Birthday 08/24/1962

Contact Methods

  • Website URL
    http://www.amarildomatos.com.br
  • Skype
    amarildo.matos.informatica

Profile Information

  • Sexo
    Masculino
  • Localização
    Novo Hamburgo
  • Interesses
    MonitorAcbrPlus,Nfe,nfc-e,cte,cte-os,mdfe,sped,manifestação notas

Recent Profile Visitors

2,647 profile views
  1. bom dia.. Acredito que de consumo indevido , por voce esta a toda hora consultando a nota fiscal.. Vou lhe dar uma dica, de como é feito no nosso Sistema ErpMatos . O que voce faz, nao precisamos fazer, pois fizems a manifestacao das notas. no caso damos ciencia, fizemos o donwload da nota, e ai coloco ele no banco de dados, das notas e contas a pagar. se caso voce queira que o fornecedor nao cancele a nota, e´so dar confimacao da operacao.
  2. bom dia.. Tenho cliente em sao Paulo, e nao foi me reportado que deu proplema.. a principio tudo ok. olhando a disponibilidade de SP esta tudo ok http://www.nfe.fazenda.gov.br/portal/disponibilidade.aspx?versao=0.00&tipoConteudo=Skeuqr8PQBY=
  3. bom dia.. Utilize o comando NFe.ConsultarNFe("path_XML") passando como parâmetro o path do XML a ser atualizado. https://acbr.sourceforge.io/ACBrMonitor/NFEConsultarNFe.html
  4. bom dia.. verifique a hora do computador para ver se esta com alguma diferenca. valeu
  5. boa tarde.. voce esta usando o acbrmonitorplus?
  6. Boa Noite https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2558-windev-webdev-mobile-acbr.html Nesse link acima do meu blog, tem os codigos fontes documentados. Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip Seja bem vindos a mais uma video Aula. Essa aula estara disponivel as 15:00 do dia 15/12/2019. Dica 2558. Método usado para Enviar um Evento para SEFAZ, no caso Encerramento do Mdfe. DICAS 2558 - WINDEV WEBDEV MOBILE - ACBR LIB 192 - MDFE_EncerrarMDFe Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://acbr.sourceforge.io/ACBrLib/MDFE_EncerrarMDFe.html codigo_fonte.txt
  7. boa tarde Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip Seja bem vindos a mais uma video Aula. Essa aula estara disponivel as 18:00 do dia 14/12/2019. Dica 2556. Método usado para Enviar um Evento para SEFAZ, No Caso Consulta Mdfe Nao Encerrado. DICAS 2556 - WINDEV WEBDEV MOBILE - ACBR LIB 191 - MDFE_ConsultaMDFeNaoEnc Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2556-windev-webdev-mobile-acbr.html ( Observacao: Nesse link acima do blog , tem os fontes disponiveis. ) https://acbr.sourceforge.io/ACBrLib/MDFE_ConsultaMDFeNaoEnc.html
  8. boa noite ============================ PROCEDURE acbr_MAIL_Clear() gnretorno_acbr=API("ACBrMail32.dll","MAIL_Clear") IF gnretorno_acbr=0 THEN RESULT("0") ELSE texto is string="MAIL_Clear-Erro Retorno ["+gnretorno_acbr+"]"+CR IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada "+CR IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao limpar o ACBrMail"+CR texto+=CR+"----------" texto+=CR+"Nome Dll["+"ACBrMail32.dll"+"]" texto+=CR+"Nome Metodo ["+"MAIL_Clear"+"]" texto+=CR+"----------" RESULT texto END //Comando: MAIL_Clear(); //Método usado para limpar o componente ACBrMail ============================ // BTN MAIL_Clear bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMail32.dll","MAIL_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=acbr_MAIL_Clear() IF EDT_RESPOSTA=0 THEN Info("limpou com sucesso") ELSE Info(EDT_RESPOSTA) END ELSE EDT_RESPOSTA="erro inicializar dll email" END ACBR_FINALIZAR("ACBrMail32.dll","MAIL_Finalizar") EDT_RESPOSTA+=CR+"Finalizou" ================================= Bom Dia Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip Bom dia, Seja bem vindos a mais uma video Aula. Essa aula estara disponivel as 08:00 do dia 11/12/2019. Dica 2547. Método usado para limpar o componente ACBrMail DICAS 2547 - WINDEV WEBDEV MOBILE - ACBR 190 - MAIL_Clear Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades.
  9. bom dia ============================== // BTN_MAIL_INICIALIZAR_fINALIZAR bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMail32.dll","MAIL_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA="Inicializou com sucesso Dll Email" ELSE EDT_RESPOSTA="erro inicializar dll email" END ACBR_FINALIZAR("ACBrMail32.dll","MAIL_Finalizar") EDT_RESPOSTA+=CR+"Finalizou" ============================== PROCEDURE ACBR_INICIALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(gsarquivo_ini),StringToUTF8(sChaveCrypt)) IF gnretorno_acbr=0 THEN RESULT True ELSE texto is string="Erro Retorno"+" - "+gnretorno_acbr IF gnretorno_acbr=-1 THEN texto+=" Indica que houve falhas na finalização da biblioteca " IF gnretorno_acbr=-5 THEN texto+=" Indica que não foi possível localizar o arquivo INI informado " IF gnretorno_acbr=-6 THEN texto+=" Indica que não foi possível encontrar o diretório do arquivo INI " RESULT texto END //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Inicializar",StringToUTF8(gsarquivo_ini),"") ============================== PROCEDURE ACBR_FINALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo) IF gnretorno_acbr=0 THEN RESULT True ELSE texto is string="Erro Retorno"+" - "+gnretorno_acbr IF gnretorno_acbr=-2 THEN texto+=" Indica que houve falhas na finalização da biblioteca" Info("ERRO FINALIZAR DLL"+texto) RESULT texto END //https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Finalizar") ============================== Bom Dia Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 10 12 2019. Dica 2544. Método usado para inicializar e Finalizar EMAIL na dll ACBrLibMail. DICAS 2544 - WINDEV WEBDEV MOBILE - ACBR 189 - MAIL_Inicializar_E_Finalizar Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2544-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MAIL_Inicializar.html https://acbr.sourceforge.io/ACBrLib/MAIL_Finalizar.html
  10. bom dia // BTN IMPRIMIR DADMFE 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+=CR+"Carregar Xml["+ACBR_CARREGARXML("ACBrMDFe32.dll","MDFE_CarregarXML",EDT_XML)+"]" gnretorno_acbr=API("ACBrMDFe32.dll","MDFE_Imprimir","",1,EDT_PROTOCOLO_MDFE,"true") EDT_RESPOSTA+=CR+"Mdfe Imprimir["+gnretorno_acbr+"]" // Comando: MDFE_Imprimir( [cImpressora], [nNumCopias], [cProtocolo], [bMostrarPreview] ); ELSE EDT_RESPOSTA="erro inicializar" END ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar") ================================ Bom Dia Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 09 12 2019. Dica 2541. Método usado para imprimir o DADMFe dos Manifestos carregados. DICAS 2541 - WINDEV WEBDEV MOBILE - ACBR 189 - MDFE_Imprimir Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2541-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_Imprimir.html
  11. bom dia ================= // btn MDFE CONSULTAR bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar") IF bRETORNO=True THEN CONSULTA_XML is string="" IF EDT_CONSULTA_eChave="" THEN CONSULTA_XML=EDT_consulta_Arquivo_xml ELSE CONSULTA_XML=EDT_CONSULTA_eChave END EDT_RESPOSTA=ACBR_CONSULTAR("ACBrMDFe32.DLL","MDFE_Consultar","MDFE_UltimoRetorno",CONSULTA_XML) END ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar") ======================== PROCEDURE ACBR_CONSULTAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="",sRecebe_nome_retorno is string="", ... sRECEBE_XML_OU_CHAVE is string="") //sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="",sRecebe_nome_retorno is string="",sRECEBE_XML_OU_CHAVE IS STRING="") gsResposta is string on 256 gnTamanho is system int=256 gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,sRECEBE_XML_OU_CHAVE,&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=-5 THEN texto+=" Indica que o arquivo passado não existe." IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP." IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao consultar." IF gnretorno_acbr=-12 THEN texto+=" Indica falha na validação da chave passada." texto+=ACBR_ULTIMO_RETORNO(sRecebe_nome_dll,sRecebe_nome_retorno) RESULT texto END ======================================= Bom Dia Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 08 12 2019. Dica 2539. Método usado para consultar um MDFe na SEFAZ DICAS 2539 - WINDEV WEBDEV MOBILE - ACBR 187 - MDFE_Consultar Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2539-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_Consultar.html
  12. bom dia ================================== // 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 ====================================================== Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 07 12 2019. Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip Dica 2537. Método usado para Cancelar um MDFe na SEFAZ. DICAS 2537 - WINDEV WEBDEV MOBILE - ACBR 186 - MDFE_Cancelar Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2537-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_Cancelar.html
  13. bom dia =================================================== 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") ====================================== Doaçao Amarildo Matos - Link da doação: 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. https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2534-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_Enviar.html
  14. bom dia ===================================== PROCEDURE acbr_LimparListaEventos(recebe_nome_dll is string="",recebe_nome_metodo is string="") gnretorno_acbr=API(recebe_nome_dll,recebe_nome_metodo) IF gnretorno_acbr=0 THEN // 0 = Limpou a lista com sucesso Info("LIMPOU CORRETAMENTE") RESULT "0" ELSE texto is string="Limpa Lista Eventos-Erro Retorno ["+gnretorno_acbr+"]"+CR IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada "+CR IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao limpar a lista Eventos."+CR texto+="Dll->"+recebe_nome_dll+CR texto+="Metodo->"+recebe_nome_metodo+CR Info("ERRO RETORNO LIMPA LISTA") RESULT texto END ======================================== // BTN_CARTA_ACBR_NFE_ENVIARVENTO //https://acbr.sourceforge.io/ACBrMonitor/ManifestacaodoDestinatarioCienci.html bRETORNO is boolean=ACBR_INICIALIZAR("ACBrNFe32.DLL","NFE_Inicializar") IF bRETORNO=True THEN EDT_carTA_RESPOSTA=acbr_LimparListaEventos("ACBrNFe32.dll","NFE_LimparListaEventos") EDT_carTA_RESPOSTA=ACBR_NFE_CarregarEventoINI(EDT_CARTA_CONTEUDO_INI) EDT_carTA_RESPOSTA+=CR+"ENVIAR EVENTO=>"+CR+ACBR_NFE_EnviarEvento(0) END ACBR_FINALIZAR("ACBrNFe32.DLL","NFE_Finalizar") ========================================= Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 05 12 2019. Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip Dica 2531.Método usado para limpar a lista de eventos no componente ACBrMDFe. DICAS 2531 - WINDEV WEBDEV MOBILE - ACBR 184 - MDFE_LimparListaEventos Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2531-windev-webdev-mobile-acbr_5.html https://acbr.sourceforge.io/ACBrLib/MDFE_LimparListaEventos.html
  15. bom dia Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2527-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_LimparLista.html Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 04 12 2019. Dica 2527. Método usado para limpar a lista de mdfe no componente ACBrMDFe. DICAS 2527 - WINDEV WEBDEV MOBILE - ACBR 183 - MDFE_LimparLista ================ PROCEDURE ACBR_LIMPA_LISTA(recebe_nome_dll is string="",recebe_nome_metodo is string="") gnretorno_acbr=API(recebe_nome_dll,recebe_nome_metodo) IF gnretorno_acbr=0 THEN // 0 = Limpou a lista com sucesso RESULT "0" ELSE texto is string="Limpa Lista-Erro Retorno ["+gnretorno_acbr+"]"+CR IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada "+CR IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao limpar a lista."+CR texto+="Dll->"+recebe_nome_dll+CR texto+="Metodo->"+recebe_nome_metodo+CR Info("ERRO RETORNO LIMPA LISTA") RESULT texto END ================== // btn NFE TRANSMITIR XML bRETORNO is boolean=ACBR_INICIALIZAR("ACBrNFe32.DLL","NFE_Inicializar") IF bRETORNO=True THEN EDT_TRANMISSAO_RESPOSTA=ACBR_LIMPA_LISTA("ACBrNFe32.DLL","NFE_LimparLista") EDT_TRANMISSAO_RESPOSTA=ACBR_CARREGARINI("ACBrNFe32.DLL","NFE_CarregarINI",EDT_INI) IF EDT_TRANMISSAO_RESPOSTA=0 THEN EDT_TRANMISSAO_RESPOSTA=ACBR_Assinar("ACBrNFe32.DLL","NFE_Assinar","NFE_UltimoRetorno") IF EDT_TRANMISSAO_RESPOSTA=0 THEN EDT_TRANMISSAO_RESPOSTA=ACBR_Validar("ACBrNFe32.DLL","NFE_Validar","NFE_UltimoRetorno") IF EDT_TRANMISSAO_RESPOSTA=0 THEN EDT_TRANMISSAO_RESPOSTA=ACBR_NFE_Enviar(EDT_NFE_Enviar_LOTE, ... INT_NFE_Enviar_imprimir,INT_NFE_Enviar_Sincrono,INT_NFE_Enviar_Zipado) Info(EDT_TRANMISSAO_RESPOSTA) ELSE EDT_TRANMISSAO_RESPOSTA+=CR+"erro VALIDAR" END ELSE EDT_TRANMISSAO_RESPOSTA+=CR+"erro aSSINAR" END ELSE EDT_TRANMISSAO_RESPOSTA+=CR+"erro carregar ini" END END ACBR_FINALIZAR("ACBrNFe32.DLL","NFE_Finalizar") ================
×
×
  • Create New...