Jump to content

dev botao

* AcbrLib - Integrando Mdfe com Windev


Amarildo de Matos
  • Este tópico foi criado há 1338 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

 

 

 

 

  • Like 4
Link to comment
Share on other sites

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.
 

 

  • Like 3
Link to comment
Share on other sites

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.

 

 

  • Like 1
Link to comment
Share on other sites

boa noite

 

 
 
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
===========================
 

 

  • Like 1
Link to comment
Share on other sites

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.

 

 

  • Like 3
Link to comment
Share on other sites

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

 

 

 

 

  • Like 2
Link to comment
Share on other sites

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")
================
 

 

 

 

  • Like 3
Link to comment
Share on other sites

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

 

 

  • Like 2
Link to comment
Share on other sites

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

 

 

 

  • Like 2
Link to comment
Share on other sites

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

 

 

 

 

  • Like 1
Link to comment
Share on other sites

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

 

 

  • Like 2
Link to comment
Share on other sites

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


 

 

  • Like 3
Link to comment
Share on other sites

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
 

 

 

  • Like 1
Link to comment
Share on other sites

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

  • Like 3
Link to comment
Share on other sites

  • 9 months later...
  • Este tópico foi criado há 1338 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.