Jump to content

Amarildo de Matos

Moderadores
  • Content Count

    1,689
  • Joined

  • Last visited

  • Days Won

    18

Amarildo de Matos last won the day on December 23 2018

Amarildo de Matos had the most liked content!

Community Reputation

951 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,456 profile views
  1. 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
  2. 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
  3. 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
  4. 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
  5. 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
  6. 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") ================
  7. bom dia ======================== ======================== // btn NFE ASSINAR VALIDAR XML MDFE bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CARREGARINI("ACBrMDFe32.dll","MDFE_CarregarINI",EDT_INI) IF EDT_RESPOSTA=0 THEN // carregou com sucesso 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+=CR+"ASSINADO E VALIDADO COM SUCESSO" ELSE Info("ERRO AO VALIDAR MDFE"+CR+EDT_RESPOSTA) END ELSE Info("ERRO AO ASSINAR"+EDT_RESPOSTA) END ELSE EDT_RESPOSTA+=CR+"ERRO CARREGAR INI" END ELSE EDT_RESPOSTA="erro inicializar" END ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar") =============== PROCEDURE ACBR_Validar(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ... recebe_ultimo_Retorno is string="") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo) //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Validar") IF gnretorno_acbr=0 THEN // 0 = VALIDOU COM SUCESSO RESULT("0") 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=-10 THEN texto+=" Indica que houve erro ao Validar" texto+=CR+ACBR_ULTIMO_RETORNO(sRecebe_nome_dll,recebe_ultimo_Retorno) RESULT texto END //https://acbr.sourceforge.io/ACBrLib/NFE_Validar.html // NFE_Validar; //texto+=CR+ACBR_ULTIMO_RETORNO("ACBrNFe32.DLL","NFE_UltimoRetorno") ================ 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 ================== https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2524-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_Assinar.html Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 03 12 2019. Dica 2524. Método usado para validar os mdfe assinados através do componente ACBrMDFe. DICAS 2524 - WINDEV WEBDEV MOBILE - ACBR 182 - MDFE_Validar
  8. bom dia ====================== // btn MDFE ASSINAR VALIDAR XML bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CARREGARINI("ACBrMDFe32.dll","MDFE_CarregarINI",EDT_INI) IF EDT_RESPOSTA=0 THEN // carregou com sucesso EDT_RESPOSTA=ACBR_Assinar("ACBrMDFe32.dll","MDFE_Assinar","MDFE_UltimoRetorno") IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA+=CR+"ASSINADO COM SUCESSO" END ELSE EDT_RESPOSTA+=CR+"ERRO CARREGAR INI" END ELSE EDT_RESPOSTA="erro inicializar" END ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar") ================================= PROCEDURE ACBR_Assinar(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ... recebe_ultimo_Retorno is string="") //gnretorno_acbr=api("ACBrNFe32.DLL","NFE_Assinar") //EDT_RESPOSTA=ACBR_Assinar("ACBrCTe32.dll","CTE_Assinar") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo) IF gnretorno_acbr=0 THEN //assinou com sucesso=0 RESULT("0") 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=-10 THEN texto+=" Indica que houve erro ao Assinar" // aula 19 11 2019 texto+=ACBR_ULTIMO_RETORNO(sRecebe_nome_dll,recebe_ultimo_Retorno) //"CTE_UltimoRetorno") RESULT texto END ==================================== https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2522-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_Assinar.html 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 02 12 2019. Dica 2522. Método usado para assinar os Mdfe carregados no componente ACBrMDFe. DICAS 2522 - WINDEV WEBDEV MOBILE - ACBR 181 - MDFE_Assinar Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades.
  9. boa noite https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2519-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_ObterXml.html Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 01 12 2019. Dica 2519. Método para retornar o xml do MDFe. DICAS 2519 - WINDEV WEBDEV MOBILE - ACBR 180 - MDFe_ObterXml Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. =========================== // btn Mdfe obter xml bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CARREGARINI("ACBrMDFe32.dll","MDFE_CarregarINI",EDT_INI) IF EDT_RESPOSTA=0 THEN // carregou com sucesso EDT_RESPOSTA=ACBR_OBTERXML("ACBrMDFe32.dll","MDFE_ObterXml","MDFE_UltimoRetorno",0) ELSE EDT_RESPOSTA+=CR+"ERRO CARREGAR INI" END ELSE EDT_RESPOSTA="erro inicializar" END ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar") =========================== PROCEDURE ACBR_OBTERXML(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ... sRecebe_nome_ultimo_Retorno is string="",nPosicao is int=0) gsResposta is string on 256 sGsResposta_maior_256 is string="" gnTamanho is system int=256 //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ObterXml",nPosicao_nfe,&gsResposta,&gnTamanho) gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,nPosicao,&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN RESULT(VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_ultimo_Retorno,gnTamanho,gsResposta)) ELSE texto is string="ObterXml-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 executar a função." +CR IF gnretorno_acbr=-13 THEN texto+=" Indica que o índice passado não se encontra no intervalo"+CR texto+="Dll:"+sRecebe_nome_dll+CR texto+="recebe_nome_metodo:"+sRecebe_nome_metodo+CR texto+="recebe_nome_ultimo_Retorno:"+sRecebe_nome_ultimo_Retorno+CR texto+="posicao_lista:"+nPosicao+CR texto+=ACBR_ULTIMO_RETORNO("ACBrNFe32.DLL","NFE_UltimoRetorno") 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 ===========================
  10. bom dia =========================== // BTN MDFE CARREGAR XML bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CARREGARXML("ACBrMDFe32.dll","MDFE_CarregarXML",EDT_XML) //Comando: MDFE_CarregarXML( eArquivoOuXML ); IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA="XML CARREGADO COM SUCESSO" ELSE EDT_RESPOSTA="ERRO CARREGAR XML" END // IMPORTANTE SALIENTAR SE NAO FOR INFORMADO NOME DO XML E DIRETORIO, ELE MESMO CRIA SOZINHO END ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar") =========================== PROCEDURE ACBR_CARREGARXML(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ... sRecebe_arquivo_ou_xml is string="") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(sRecebe_arquivo_ou_xml)) IF gnretorno_acbr=0 THEN // 0 = Carregou Xml com Sucesso RESULT "0" 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=-10 THEN texto+=" Indica que houve erro ao ler o arquivo XML" RESULT texto END =========================== https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2515-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_CarregarXML.html Doaçao Amarildo Matos - https://streamelements.com/amyteste/tip Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 30 11 2019. Dica 2515. Método usado para ler o arquivo XML para o componente ACBrMDFe. DICAS 2515 - WINDEV WEBDEV MOBILE - ACBR 179 - MDFE_CarregarXML Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades.
  11. bom dia ======================== // btn MDFE carregar ini bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar") // 1 IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CARREGARINI("ACBrMDFe32.dll","MDFE_CarregarINI",EDT_INI) IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA+=CR+"Ini Mdfe Carregando com Sucesso" END ELSE EDT_RESPOSTA="erro inicializar" END ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar") ======================== PROCEDURE ACBR_CARREGARINI(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ... sRECEBER_ARQUIVO_OU_INI is string="") //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_CarregarINI",StringToUTF8(sRECEBER_ARQUIVO_OU_INI)) gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(sRECEBER_ARQUIVO_OU_INI)) IF gnretorno_acbr=0 THEN// 0 Carregou com Sucesso RESULT "0" 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=-10 THEN texto+=" Indica que houve erro ao Carregar o arquivo INI" RESULT texto END ================================ Doaçao Amarildo Matos - https://streamelements.com/amyteste/tip Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 29 11 2019. Dica 2511. Método usado para ler o arquivo INI para o componente ACBrMDFe. https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2511-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_CarregarINI.html Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades.
  12. bom dia ============= // BTN MDFE INICIALIZAR E FINALIZAR bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA="Inicializou" ELSE EDT_RESPOSTA="erro inicializar" END ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar") EDT_RESPOSTA+=CR+"Finalizou" =============== PROCEDURE ACBR_INICIALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Inicializar",StringToUTF8(gsarquivo_ini),"") 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 =============== 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 ============= Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 28 11 2019. Dica 2508. Método usado para inicializar e Finalizar Mdfe acbr lib. DICAS 2508 - WINDEV WEBDEV MOBILE - ACBR 177 - MDFe_Inicializar e Finalizar https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2508-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFe_Inicializar.html https://acbr.sourceforge.io/ACBrLib/MDFe_Finalizar.html
  13. bom dia Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 26 11 2019. Dica 2505. Método usado para gerar o PDF do DACTE de um CTe carregado. DICAS 2505 - WINDEV WEBDEV MOBILE - ACBR 176 - CTE_ImprimirPDF https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2505-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/CTE_ImprimirPDF.html
  14. bom dia ======================== PROCEDURE ACBR_ImprimirPDF(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("Imprimiu com Sucesso") ELSE texto is string=sRecebe_nome_dll+" "+sRecebe_nome_metodo+"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 gerar o PDF do DANFe."+CR RESULT texto END //// acbr_nfe_imprimirPdf //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ImprimirPDF") ======================= // BTN IMPRIMIR_DACTE bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.dll","CTE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA+=CR+ACBR_CARREGARXML("ACBrCTe32.dll","CTE_CarregarXML",EDT_XML) EDT_RESPOSTA+=CR+ACBR_ImprimirPDF("ACBrCTe32.dll","CTE_ImprimirPDF") ShellExecute("C:\ERPMATOS\xml_acbr\PDF\"+EDT_CHAVE_CTE+"-CTE.PDF") ELSE EDT_RESPOSTA="erro inicializar" END ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar") ======================== https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2499-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/CTE_ImprimirPDF.html Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 24 11 2019. Dica 2499. Método usado para gerar o PDF do DACTE de um CTe carregado.
  15. boa noite ======================== 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" ======================== Boa Noite, 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 https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2497-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/CTE_Cancelar.html
×
×
  • Create New...