Jump to content

Embarcadero Conference 2019

22/10 - Visite o Stand do ACBr
Saiba mais

Nova Loja Oficial
loja.projetoacbr.com.br
Ajude o projeto a crescer, com estilo

Comprar

Balança SM100 performance surpreendente

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

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

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

Saiba mais

Amarildo de Matos

AcbrLib - Integrando com Windev

Recommended Posts

Bom dia

//

GLOBAL
    
    gnretorno_acbr is int
    gsarquivo_ini is string="" // acbrlib.ini

//

PROCEDURE ACBR_INICIALIZAR()

gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Inicializar",StringToUTF8(gsarquivo_ini),"")
IF gnretorno_acbr=0 THEN
    RESULT True
ELSE
    Info("erro retorno"+CR+gnretorno_acbr)    
END
 

,

 

  • Like 2

Share this post


Link to post
Share on other sites

bom dia.. Finalizar Metodo

//PROCEDURE ACBR_FINALIZAR()

//https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html
gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Finalizar")
IF gnretorno_acbr=0 THEN
    RESULT True
ELSE
    Info("erro retorno"+CR+gnretorno_acbr)    
END

https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2367-windev-webdev-mobile-acbr.html
https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html

 

 

  • Like 1

Share this post


Link to post
Share on other sites

bom dia

=======================
https://acbr.sourceforge.io/ACBrLib/NFE_Inicializar.html
https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html
https://acbr.sourceforge.io/ACBrLib/NFE_StatusServico.html
=======================
GLOBAL
    gnretorno_acbr is int
    gsarquivo_ini is string="C:\My_Projects\_Curso_erpAmarildo_v24\componente_acbr_dll\Exe\acbrlib.ini" // acbrlib.ini
    gsResposta is string on 256
    gsResposta_maior_256 is string=""
    gnTamanho is system int = 256
=======================
// btn Status Servico
bRETORNO is boolean=ACBR_INICIALIZAR()
IF bRETORNO=True THEN
    EDT_RESPOSTA=ACBR_STATUS_SERVICO()
END
ACBR_FINALIZAR()
========================
PROCEDURE ACBR_STATUS_SERVICO()
gnretorno_acbr=API("ACBrNFe32.DLL","NFE_StatusServico",&gsResposta,&gnTamanho)
IF gnretorno_acbr=0 THEN
    RESULT UTF8ToString(gsResposta)
ELSE
    RESULT "Erro Retorno:"+gnretorno_acbr    
END
// gsResposta_maior_256 =>
=======================


https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2370-windev-webdev-mobile-acbr.html

 

 

  • Like 1

Share this post


Link to post
Share on other sites

bom dia

https://acbr.sourceforge.io/ACBrLib/NFE_Inicializar.html
https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html
https://acbr.sourceforge.io/ACBrLib/NFE_StatusServico.html
https://acbr.sourceforge.io/ACBrLib/NFE_UltimoRetorno.html

PROCEDURE ACBR_STATUS_SERVICO()

gnretorno_acbr=API("ACBrNFe32.DLL","NFE_StatusServico",&gsResposta,&gnTamanho)
IF gnretorno_acbr=0 THEN
    IF gnTamanho>256 THEN
        gsResposta_maior_256=RepeatString(" ",gnTamanho)
        gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&gsResposta_maior_256,&gnTamanho)
        RESULT UTF8ToString(gsResposta_maior_256)
    ELSE
        RESULT UTF8ToString(gsResposta)
    END
ELSE
    RESULT "Erro Retorno:"+gnretorno_acbr    
END
 

https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2371-windev-webdev-mobile-acbr.html

 

 

 

Share this post


Link to post
Share on other sites

bom dia

PROCEDURE ACBR_NOME_VERSAO_NFE()

gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Nome",&gsResposta,&gnTamanho)
sNOME is string=gsResposta
gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Versao",&gsResposta,&gnTamanho)
sVERSAO is string=gsResposta

RESULT "NOME:"+sNOME+" VERSAO:"+sVERSAO
 

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


// btn nome versao

bRetorno is boolean=ACBR_INICIALIZAR()
IF bRetorno=True THEN
    
    EDT_RESPOSTA=ACBR_NOME_VERSAO_NFE()
        
END
ACBR_FINALIZAR()
 

 

bom dia

https://acbr.sourceforge.io/ACBrLib/NFE_ConfigLerValor.html

PROCEDURE ACBR_CONFIG_LER_VALOR(RECEBE_SESSAO,RECEBE_CHAVE)

gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ConfigLerValor",RECEBE_SESSAO,RECEBE_CHAVE,&gsResposta,&gnTamanho)
IF gnretorno_acbr=0 THEN
    IF gnTamanho>256 THEN
        gsResposta_maior_256=RepeatString(" ",gnTamanho)
        gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&gsResposta_maior_256,&gnTamanho)
        RESULT UTF8ToString(gsResposta_maior_256)
    ELSE
        RESULT UTF8ToString(gsResposta)
    END
ELSE
    RESULT "Erro Retorno:"+gnretorno_acbr    
END
 

https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2376-windev-webdev-mobile-acbr.html

 

 

fonte_windev_Global_Acbr fonte_windev_ACBR_CONFIG_LER_VALOR fonte_windev_Lista_Chave fonte_windev_Lista_sessao

  • Like 1

Share this post


Link to post
Share on other sites

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 14 10 2019.
Dica 2378. Vou Alterar a maneira de fazer a leitura do ini (Graças Cassiano)

Em vez de fazer tudo manual, foi feito em cima do proprio arquivo ini.

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

GLOBAL
    gnretorno_acbr is int
    gsarquivo_ini is string="C:\My_Projects\_Curso_erpAmarildo_v24\componente_acbr_dll\Exe\acbrlib.ini" // acbrlib.ini
    gs_nome_sessao is string=""
    ST_chaves is Structure
        sChave is string
        sValue is string
    END
    ST_ini is Structure
        sEssao is string
        arrChaves is array of ST_chaves
    END
    arrIni is array of ST_ini
=================

PROCEDURE ATUALIZA_LIST_BOX_SESSAO()
LIST_SESSAO.DeleteAll() // ListDeleteAll(LIST_SESSAO)
sTexto is ANSI string=fLoadText(EDT_ARQUIVO_ACBR_LIB,foAnsi)
EDT_RESPOSTA=sTexto
arrSplitgeral is array of strings= StringSplit(sTexto,CR)
nPos is int=0
FOR EACH sLinha OF arrSplitgeral
    IF sLinha[1]="[" THEN
        sEssao is string=NoCharacter(sLinha,"[]")
        //listadd(LIST_SESSAO,sEssao)
        LIST_SESSAO.Add(sEssao)
        nPos = Add(arrIni)
        arrIni[nPos].sEssao=sEssao
    ELSE
        IF nPos>0 THEN
            schave is string=ExtractString(sLinha,1,"=")
            sValue is string=ExtractString(sLinha,2,"=")
            IF schave<>"" THEN
                nPoschave is int=Add(arrIni[nPos].arrChaves)
                arrIni[nPos].arrChaves[nPoschave].sChave=schave
                arrIni[nPos].arrChaves[nPoschave].sValue=sValue
            END            
        END
    END
END
========================

PROCEDURE ATUALIZA_LIST_CHAVE()

LIST_CHAVE.DeleteAll() //DeleteAll(LIST_CHAVE)
FOR EACH stCHAVE OF arrIni[LIST_SESSAO].arrChaves
    //ListAdd(LIST_CHAVE,stCHAVE.sChave)
    LIST_CHAVE.Add(stCHAVE.sChave)
END
==============

https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2378-windev-webdev-mobile-acbr.html

 

 

 

 

fonte_windev_Lista_Chave fonte_windev_Lista_sessao fonte_windev_Global_Acbr fonte_windev_ACBR_CONFIG_LER_VALOR

  • Like 2

Share this post


Link to post
Share on other sites

Bom dia

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

PROCEDURE ACBR_CONFIG_GRAVA_VALOR(RECEBE_SESSAO,RECEBE_CHAVE,RECEBE_VALOR)
//NFE_ ConfigGravarValor(eSessao, eChave, sValor);
gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ConfigGravarValor",RECEBE_SESSAO,RECEBE_CHAVE,RECEBE_VALOR)
IF gnretorno_acbr=0 THEN
    RESULT "ALTERADO COM SUCESSO"
ELSE
    RESULT "ERRO RETORNO DA GRAVACAO:"+gnretorno_acbr    
END

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

// btn NFE CONFIG Grava Valor
bRETORNO is boolean=ACBR_INICIALIZAR()
IF bRETORNO=True THEN
     EDT_sessao_resposta=ACBR_CONFIG_GRAVA_VALOR(EDT_SESSAO,EDT_CHAVE,EDT_sessao_resposta)
END
ACBR_FINALIZAR()

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

https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2381-windev-webdev-mobile-acbr.html

 

Share this post


Link to post
Share on other sites

Bom dia

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

PROCEDURE ACBR_CONFIG_GRAVA_VALOR(RECEBE_SESSAO,RECEBE_CHAVE,RECEBE_VALOR)
//NFE_ ConfigGravarValor(eSessao, eChave, sValor);
gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ConfigGravarValor",RECEBE_SESSAO,RECEBE_CHAVE,RECEBE_VALOR)
IF gnretorno_acbr=0 THEN
    RESULT "ALTERADO COM SUCESSO"
ELSE
    RESULT "ERRO RETORNO DA GRAVACAO:"+gnretorno_acbr    
END

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

// btn NFE CONFIG Grava Valor
bRETORNO is boolean=ACBR_INICIALIZAR()
IF bRETORNO=True THEN
     EDT_sessao_resposta=ACBR_CONFIG_GRAVA_VALOR(EDT_SESSAO,EDT_CHAVE,EDT_sessao_resposta)
END
ACBR_FINALIZAR()

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

https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2381-windev-webdev-mobile-acbr.html

 

bom dia

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

PROCEDURE ACBR_NFE_CARREGARXML(sRecebe_arquivo_ou_xml)
// NFE_ CarregarXML( eArquivoOuXML );

gnretorno_acbr=API("ACBrNFe32.DLL","NFE_CarregarXML",StringToUTF8(sRecebe_arquivo_ou_xml))
IF gnretorno_acbr=0 THEN
    RESULT "Carregou Xml com Sucesso"
ELSE
    RESULT "Erro Retorno :"+gnretorno_acbr    
END

====================
// btn NFE carregar xml

bRETORNO is boolean=ACBR_INICIALIZAR()
IF bRETORNO=True THEN
    EDT_RESPOSTA=ACBR_NFE_CARREGARXML(EDT_XML)
    
END
ACBR_FINALIZAR()

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

https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2385-windev-webdev-mobile-acbr.html

 

 

  • Like 1

Share this post


Link to post
Share on other sites

bom dia

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

PROCEDURE ACBR_NFE_CARREGARXML(sRecebe_arquivo_ou_xml)
// NFE_ CarregarXML( eArquivoOuXML );

gnretorno_acbr=API("ACBrNFe32.DLL","NFE_CarregarXML",StringToUTF8(sRecebe_arquivo_ou_xml))
IF gnretorno_acbr=0 THEN
    RESULT "Carregou Xml com Sucesso"
ELSE
    RESULT "Erro Retorno :"+gnretorno_acbr    
END

====================
// btn NFE carregar xml

bRETORNO is boolean=ACBR_INICIALIZAR()
IF bRETORNO=True THEN
    EDT_RESPOSTA=ACBR_NFE_CARREGARXML(EDT_XML)
    
END
ACBR_FINALIZAR()

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

https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2385-windev-webdev-mobile-acbr.html

 

 

bom dia

https://acbr.sourceforge.io/ACBrLib/NFE_ImprimirPDF.html


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

PROCEDURE ACBR_NFE_ImprimirPDF()

// https://acbr.sourceforge.io/ACBrLib/NFE_ImprimirPDF.html
// NFE_ ImprimirPDF

gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ImprimirPDF")
IF gnretorno_acbr=0 THEN
    RESULT("Imprimiu com Sucesso")
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 gerar o PDF do DANFe."
    
    RESULT texto
    
END

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

// btn NFE imprimir pdf

bRetorno is boolean=ACBR_INICIALIZAR()
IF bRetorno=True THEN
    EDT_RESPOSTA=ACBR_NFE_CARREGARXML(EDT_XML)
    EDT_RESPOSTA+=CR+ACBR_NFE_ImprimirPDF()
    ShellExecute("C:\ERPMATOS\xml_acbr\PDF\"+EDT_CHAVE_NFE+"-NFE.PDF")
END
ACBR_FINALIZAR()


=================================
https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2390-windev-webdev-mobile-acbr_17.html

 

  • Like 1

Share this post


Link to post
Share on other sites

bom dia


PROCEDURE ACBR_ULTIMO_RETORNO()

gnTamanho is system int=256
gsResposta is string=""

gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&gsResposta,&gnTamanho)
TEXTO is string="Retorno:"+gnretorno_acbr+"-"+gsResposta

RESULT TEXTO

https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2394-windev-webdev-mobile-acbr.html
https://acbr.sourceforge.io/ACBrLib/NFE_UltimoRetorno.html

 

 

  • Like 1

Share this post


Link to post
Share on other sites

bom dia


PROCEDURE ACBR_NFE_CONSULTACADASTRO(sRECEBE_UF is string="", ... 
                                    sRECEBE_CNPJ_CPF is string="", ...
                                    bRECEBE_INS_EST_P is boolean=False)
GsResposta is string on 256
GsResposta_maior_256 is string=""
gnTamanho is system int=256
gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ConsultaCadastro",StringToUTF8(sRECEBE_UF), ...
                             StringToUTF8(sRECEBE_CNPJ_CPF),bRECEBE_INS_EST_P, ...
                             &GsResposta,&gnTamanho)
IF gnretorno_acbr=0 THEN
    IF gnTamanho>256 THEN
        GsResposta_maior_256=RepeatString(" ",gnTamanho)
        gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&GsResposta_maior_256,&gnTamanho)
        RESULT UTF8ToString(GsResposta_maior_256)
    ELSE
        RESULT UTF8ToString(GsResposta)
    END
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 consultar." 
    texto+=CR+ACBR_ULTIMO_RETORNO()
    RESULT texto
END
//https://acbr.sourceforge.io/ACBrLib/NFE_ConsultaCadastro.html
//:NFE_ConsultaCadastro(  cUF, nDocumento, nIE, sResposta, esTamanho );
//NIE=TRUE

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


// btn NFE CONSULTA CADASTRO

bRetorno is boolean=ACBR_INICIALIZAR()
IF bRetorno=True THEN
    
    EDT_RESPOSTA_CADASTRO=ACBR_NFE_CONSULTACADASTRO(EDT_CADASTRO_cUF,EDT_CADASTRO_nDocumento,INT_nIE)
    
END
ACBR_FINALIZAR()


=================================
https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2398-windev-webdev-mobile-acbr.html

 

 

  • Like 1

Share this post


Link to post
Share on other sites

bom dia

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

PROCEDURE ACBR_NFE_INUTILIZAR(sRECEBE_CNPJ is string="", sRECEBE_JUSTIFICATIVA is string="", ... 
                              nRECEBE_ANO is int=0,nRECEBE_MODELO is int=0,nRECEBE_SERIE int=0, ...
                              nRECEBE_NUMERO_INICIAL is int=0, nRECEBE_NUMERO_FINAL is int=0)
GsResposta is string on 256
gsResposta_maior_256 is string=""
gnTamanho is system int=256
gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Inutilizar",StringToUTF8(sRECEBE_CNPJ), ... 
                                   StringToUTF8(sRECEBE_JUSTIFICATIVA), ...
                                   nRECEBE_ANO,nRECEBE_MODELO,nRECEBE_SERIE, ...
                                   nRECEBE_NUMERO_INICIAL,nRECEBE_NUMERO_FINAL, ...
                                   &GsResposta,&gnTamanho)
IF gnretorno_acbr=0 THEN
    IF gnTamanho>256 THEN
        gsResposta_maior_256=RepeatString(" ",gnTamanho)
        gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&gsResposta_maior_256,&gnTamanho)
        RESULT UTF8ToString(gsResposta_maior_256)        
    ELSE
        RESULT UTF8ToString(GsResposta)
    END
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 inutilizar" 
    texto+=CR+ACBR_ULTIMO_RETORNO()
    RESULT texto
END
//https://acbr.sourceforge.io/ACBrLib/NFE_Inutilizar.html
//Comando:NFE_ Inutilizar( ACNPJ, AJustificativa, Ano, Modelo, Serie, NumeroInicial, NumeroFinal,
// sResposta, esTamanho );


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


// btn NFE Inutilizar

bRETORNO is boolean=ACBR_INICIALIZAR()
IF bRETORNO=True THEN
    
   EDT_INUTILIZA_RESPOSTA=ACBR_NFE_INUTILIZAR(EDT_INUTILIZA_CNPJ,EDT_INUTILIZA_JUSTIFICATIVA, ... 
                                 EDT_INUTILIZA_ANO,EDT_INUTILIZA_MODELO,EDT_INUTILIZA_SERIE, ...
                                 EDT_INUTILIZA_NUMERO_INICIAL,EDT_INUTILIZA_NUMERO_FINAL)
END
ACBR_FINALIZAR()

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

 

  • Like 1

Share this post


Link to post
Share on other sites

bom dia

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

//PROCEDURE ACBR_NFE_CANCELAR(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("ACBrNFe32.DLL","NFE_Cancelar",StringToUTF8(sRECEBER_eChave), ...
                             StringToUTF8(sRECEBER_eJustificativa),
                             StringToUTF8(sRECEBER_eCNPJ),nRECEBER_ALote,
                             &GsResposta,&gnTamanho)
IF gnretorno_acbr=0 THEN
    IF gnTamanho>256 THEN
        GsResposta_maior_256=RepeatString(" ",gnTamanho)
        gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&GsResposta_maior_256,&gnTamanho)
        RESULT UTF8ToString(GsResposta_maior_256)
    ELSE
        RESULT UTF8ToString(GsResposta)    
    END
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()
    RESULT texto
END
                                    
//https://acbr.sourceforge.io/ACBrLib/NFE_Cancelar.html
//Comando:NFE_ Cancelar( eChave, eJustificativa, eCNPJ, ALote, sResposta, esTamanho );

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

// BTN_NFE_CANCELAR NOTA

bRetorno is boolean=ACBR_INICIALIZAR()
IF bRetorno=True THEN
    EDT_CANCELAMENTO_RESPOSTA=ACBR_NFE_CANCELAR(EDT_cancelar_eChave,EDT_cancelar_Justificativa, ... 
                             EDT_cancelar_cnpj_emitente,EDT_cancelar_numero_lote)
    
END
ACBR_FINALIZAR()

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

https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2403-windev-webdev-mobile-acbr.html

 

 

  • Like 2

Share this post


Link to post
Share on other sites

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