[AcbrLib - Integrando com Windev]

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

 

 

[AcbrLib - Integrando com Windev]

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

 

[AcbrLib - Integrando com Windev]

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

[AcbrLib - Integrando com Windev]

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

[AcbrLib - Integrando com Windev]

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

 

 

 

[AcbrLib - Integrando com Windev]

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

 

 

[AcbrLib - Integrando com Windev]

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

 

 

[AcbrLib - Integrando com Windev]

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
 

,

 

[AcbrLib - Integrando com Windev]

Hangout , iniciando Acbrlib integrando com Windev

 

[676-Rejeição: NF-e informada com diferença de chave de acesso]

bom dia..

voce usa componente ou usa acbrmonitorPlus?

 

[Cancelar NFE sem chave de acesso]

bom dia

http://www.nfe.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=

Acesse esse link , e pode consultar com o numero da chave.

Quero deixar uma coisa que nos ja desenvolvemos aqui, e voce poderiam fazer ai tambem.

Quando fizerem a nota, ja gravar o xml dentro do banco de dados..

 

 

 

 

[SEFAZ SP NFe - 12002 TimeOut de Requisição]

bom dia..

verifique se nao teve nenhuma atualizacao no windows

 

[manuais]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

[Encerrar Mdfe somente com chafe e protocolo]

boa noite..

fiz uma live ao vivo com rafael explicando como funcionava mdfe com acbr e como pegar encerramento.

 

[Encerrar Mdfe somente com chafe e protocolo]

opa..nao entendi.. sua resposta..?..

vou dizer como eu fiz..

eu tenho um botao, que o cliente, quando quer ver o que nao foi encerrado entao ele clica nesse notao.

ent__naoencer.txt

[Encerrar Mdfe somente com chafe e protocolo]

bom dia..

voce pode usar essa rotina

https://acbr.sourceforge.io/ACBrMonitor/MDFeConsultaMDFeNaoEnc.html

 

 

[Troco na NFCe]

bom dia

tem uma tag agora vTroco

//    [PAGXXX]
//    tpag=
//    vPag=
//    indPag=
//    tpIntegra=
//    CNPJ=
//    tBand=
//    cAut=
//    vTroco

 

[Nosso número]

Bom dia..

veja esse link.

https://acbr.sourceforge.io/ACBrMonitor/BOLETOMontarNossoNumero.html

 

[ajuda pra preencher Informações de Seguro da Carga]

boa tarde .. nesse caso faça sem o seguro.. blz..

[Não obtenho mensagem de erro em paralisação programada OpenSSL MG]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

[Rejeição 610: Total de NF difere do somatorio dos valores que compoem o valor total da NF]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

[Porque depois que atualizei esta semana o acbr fica sempre gerando outros xml a cada tentativa de transmissão?]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

[Erro ao transmitir e perda do xml]

bom dia

tentou aumentar o time-out?

[Numero do Documento de Importação DI - Conteudo invalido]

boa tarde..

tem como anexar o xml completo ? para analise?

[Duvidas calculos impostos NFE]

bom dia.. 

acho que nessa hora, voce tera de ter dois parceiros para isso. um seria o seu proprio cliente e outro o Contador do seu cliente.. e assim.. eles vao dizer realmente o que vai precisar fazer de impostos e como calcular.. 

aqui , sempre que temos duvidas de impostos , nos sococrremos aos contadores..

tem muito material na internet sobre isso tambem.. se precisar de algumas dicas, posso dar.. me procure que posso explicar como nos fizemos aqui no nosso sistema.