Ir para conteúdo
  • Cadastre-se

dev botao

Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

* AcbrLib - Integrando Mdfe com Windev

Amarildo de Matos

Por Amarildo de Matos
em ACBrLIB

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

Recommended Posts

Amarildo de Matos Experienced

Amarildo de Matos

Postado
Postado

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

 

 

 

 

  • Curtir 4
Amarildo de Matos Experienced

Amarildo de Matos

Postado
  • Autor
Postado

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.
 

 

  • Curtir 3
Amarildo de Matos Experienced

Amarildo de Matos

Postado
  • Autor
Postado

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.

 

 

  • Curtir 1
Amarildo de Matos Experienced

Amarildo de Matos

Postado
  • Autor
Postado

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

 

  • Curtir 1
Amarildo de Matos Experienced

Amarildo de Matos

Postado
  • Autor
Postado

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.

 

 

  • Curtir 3
Amarildo de Matos Experienced

Amarildo de Matos

Postado
  • Autor
Postado

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

 

 

 

 

  • Curtir 2
Amarildo de Matos Experienced

Amarildo de Matos

Postado
  • Autor
Postado

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

 

 

 

  • Curtir 3
Amarildo de Matos Experienced

Amarildo de Matos

Postado
  • Autor
Postado

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

 

 

  • Curtir 2
Amarildo de Matos Experienced

Amarildo de Matos

Postado
  • Autor
Postado

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

 

 

 

  • Curtir 2
Amarildo de Matos Experienced

Amarildo de Matos

Postado
  • Autor
Postado

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

 

 

 

 

  • Curtir 1
Amarildo de Matos Experienced

Amarildo de Matos

Postado
  • Autor
Postado

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

 

 

  • Curtir 2
Amarildo de Matos Experienced

Amarildo de Matos

Postado
  • Autor
Postado

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


 

 

  • Curtir 3
Amarildo de Matos Experienced

Amarildo de Matos

Postado
  • Autor
Postado

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
 

 

 

  • Curtir 1
Amarildo de Matos Experienced

Amarildo de Matos

Postado
  • Autor
Postado

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

  • Curtir 3
  • 9 meses depois ...
  • Este tópico foi criado há 1521 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
 Compartilhar
Ir para a lista de tópicos
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.