jelias

Lucimauro grato pela contribuição. Fiz o teste, mesmo resultado conforme abaixo. 26/01/26 09:44:59:701 - TLibNFeConfig.AplicarConfiguracoes: F:\sistema\ACBrNFeLIB.ini 26/01/26 09:44:59:702 - Travar 26/01/26 09:44:59:731 - TLibNFeConfig.AplicarConfiguracoes - Feito 26/01/26 09:44:59:757 - Destravar 26/01/26 09:44:59:782 - TLibNFeConfig.Ler - Feito 26/01/26 09:44:59:809 - Destravar 26/01/26 09:44:59:835 - TACBrLibNFe.Inicializar - Feito 26/01/26 09:44:59:909 - LIB_Inicializar( F:\sistema\ACBrNFeLIB.ini, *** ) 26/01/26 09:44:59:936 - ACBrLibNFE - 1.5.0.431 - Windows/x86 - ST cdecl 26/01/26 09:44:59:993 - LIB_UltimoRetorno 26/01/26 09:45:00:029 - MoverStringParaPChar. StrLen:0, BufLen:256 26/01/26 09:45:00:056 - Codigo:0, Mensagem: [169][SOH] 26/01/26 09:45:00:091 - NFE_StatusServico 26/01/26 09:45:00:117 - Travar 26/01/26 09:45:00:643 - MoverStringParaPChar. StrLen:111, BufLen:256 26/01/26 09:45:00:644 - SetRetorno(0, [Status] CStat=0 CUF=0 DhRecbto= DhRetorno= Msg= TMed=0 VerAplic= Versao= XMotivo= XObs= tpAmb=1 ) 26/01/26 09:45:00:673 - Destravar 26/01/26 09:45:00:711 - LIB_UltimoRetorno 26/01/26 09:45:00:743 - MoverStringParaPChar. StrLen:111, BufLen:256 26/01/26 09:45:00:773 - Codigo:0, Mensagem:[Status][CR][LF]CStat=0[CR][LF]CUF=0[CR][LF]DhRecbto=[CR][LF]DhRetorno=[CR][LF]Msg=[CR][LF][CR][LF]TMed=0[CR][LF]VerAplic=[CR][LF]Versao=[CR][LF]XMotivo=[CR][LF]XObs=[CR][LF]tpAmb=1[CR][LF] 26/01/26 09:45:02:791 - TACBrLib.Destroy 26/01/26 09:45:02:791 - Finalizar

Segue as informações das dll complementares que tenho na pasta: libxml2.dll libcrypto-1_1.dll libssl-1_1.dll

Olá amigos, Fiz um teste com a classe que está postada nos demos conforme o link https://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/ e também não deu certo. Talvez seja algum parâmetro que esteja errado. Segue abaixo o log. 26/01/26 08:14:25:110 - Destravar 26/01/26 08:14:25:133 - TACBrLibNFe.Inicializar - Feito 26/01/26 08:14:25:156 - LIB_Inicializar( F:\sistema\ACBrNFeLIB.ini, *** ) 26/01/26 08:14:25:183 - ACBrLibNFE - 1.5.0.431 - Windows/x86 - ST STDCALL 26/01/26 08:14:25:209 - LIB_UltimoRetorno 26/01/26 08:14:25:236 - MoverStringParaPChar. StrLen:0, BufLen:256 26/01/26 08:14:25:262 - Codigo:0, Mensagem: [133]6 26/01/26 08:14:25:308 - NFE_StatusServico 26/01/26 08:14:25:335 - Travar 26/01/26 08:14:25:591 - MoverStringParaPChar. StrLen:111, BufLen:256 26/01/26 08:14:25:591 - SetRetorno(0, [Status] CStat=0 CUF=0 DhRecbto= DhRetorno= Msg= TMed=0 VerAplic= Versao= XMotivo= XObs= tpAmb=1 ) 26/01/26 08:14:25:621 - Destravar 26/01/26 08:14:25:650 - LIB_UltimoRetorno 26/01/26 08:14:25:680 - MoverStringParaPChar. StrLen:111, BufLen:256 26/01/26 08:14:25:710 - Codigo:0, Mensagem:[Status][CR][LF]CStat=0[CR][LF]CUF=0[CR][LF]DhRecbto=[CR][LF]DhRetorno=[CR][LF]Msg=[CR][LF][CR][LF]TMed=0[CR][LF]VerAplic=[CR][LF]Versao=[CR][LF]XMotivo=[CR][LF]XObs=[CR][LF]tpAmb=1[CR][LF] 26/01/26 08:14:28:510 - TACBrLib.Destroy 26/01/26 08:14:28:511 - Finalizar Notem que o arquivo de retorno XML está correto quanto aos campos. <?xml version="1.0" encoding="UTF-8"?> -<retConsStatServ versao="4.00" xmlns="http://www.portalfiscal.inf.br/nfe"> <tpAmb>2</tpAmb> <verAplic>W-3.3.36</verAplic> <cStat>107</cStat> <xMotivo>Servico em operacao</xMotivo> <cUF>31</cUF> <dhRecbto>2026-01-26T08:14:28-03:00</dhRecbto> <dhRetorno>2026-01-26T08:14:28-03:00</dhRetorno> </retConsStatServ> O que percebo é que o método não está puxando as informações do XML para formar a variável que irá ser passada no retorno conforme o LOG. Talvez esteja faltando alguma .dll? Saudações, Júlio

Grato por responder Daniel Simões. Sim amigo, todo aprendizado partiu dos demos existentes. A única diferença é que como não sou muito bom com as classes fiz minha próprias funções.

Olá amigos, desejo e espero encontra-los bem! Estou desenvolvendo algumas rotinas para o uso do ACBrNF32.dll afim de agilizar a emissão de notas fiscais no meu sistema que é feito em xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 9421) / Borland C++ 5.5.1 (32 bit) Já no início estou tendo um problema na rotina do método "NFE_StatusServico". O retorno está sem conteúdo das informações, entretanto noto que o xml que retorna está com o conteúdo certinho da SEFAZ. Abaixo segue minha rotina: Antes da rotina é executado o comando LoadLibrary("AcbrNFe32.DLL") //------------------------------------------------------------------------------------------------------------------------------- // Método usado para consultar o STATUS da disponibilidade dos serviços do PORTAL DA SEFAZ // FUNCTION ACBrDLL_StatusServico(lLog) LOCAL oRetorno:=SPAC(256), nTamanho:=256 IF lLog; ACBrDll_GeraLog(1); ENDIF IF DLLCALL( "ACBrNFe32.dll", 32, "NFE_Inicializar", "ACBrNFeLIB.Ini", "" ) #0 MENSAGEM("Erro ao inicializar a ACBrLib, verifique! ") retu oRetorno ENDIF IF DLLCALL( "ACBrNFe32.dll", 32, "NFE_StatusServico", @oRetorno, @nTamanho ) #0 MENSAGEM("Erro ao executar o método NFE_Status",3) ENDIF IF lLog; ACBrDll_GeraLog(2); ENDIF RETURN oRetorno Arquivo de log onde pode-se ver que não retorna as informações na variável oRetorno. Deixei em negrito o conteúdo da variável para não repetir informação. 23/01/26 14:42:37:535 - TLibNFeConfig.AplicarConfiguracoes: F:\sistema\ACBrNFeLIB.Ini 23/01/26 14:42:37:536 - Travar 23/01/26 14:42:37:590 - TLibNFeConfig.AplicarConfiguracoes - Feito 23/01/26 14:42:37:615 - Destravar 23/01/26 14:42:37:641 - TLibNFeConfig.Ler - Feito 23/01/26 14:42:37:668 - Destravar 23/01/26 14:42:37:694 - TACBrLibNFe.Inicializar - Feito 23/01/26 14:42:37:720 - LIB_Inicializar( ACBrNFeLIB.Ini, ) 23/01/26 14:42:37:784 - ACBrLibNFE - 0.4.6.277 23/01/26 14:42:37:811 - NFE_StatusServico 23/01/26 14:42:37:837 - Travar 23/01/26 14:42:38:118 - MoverStringParaPChar. StrLen:111, BufLen:256 23/01/26 14:42:38:118 - SetRetorno(0,[b] [Status] CStat=0 CUF=0 DhRecbto= DhRetorno= Msg= TMed=0 VerAplic= Versao= XMotivo= XObs= tpAmb=1[/b] ) 23/01/26 14:42:38:165 - Destravar 23/01/26 14:42:38:197 - TLibNFeConfig.AplicarConfiguracoes: F:\sistema\ACBrNFeLIB.Ini 23/01/26 14:42:38:219 - Travar 23/01/26 14:42:38:248 - TLibNFeConfig.AplicarConfiguracoes - Feito 23/01/26 14:42:38:274 - Destravar 23/01/26 14:42:38:301 - TLibNFeConfig.Ler - Feito 23/01/26 14:42:38:330 - Destravar 23/01/26 14:42:38:359 - TACBrLibNFe.Inicializar - Feito 23/01/26 14:42:38:388 - LIB_Inicializar( ACBrNFeLIB.Ini, ) 23/01/26 14:42:38:416 - ACBrLibNFE - 0.4.6.277 23/01/26 14:42:38:446 - TACBrLibNFe.PrecisaCriptografar(Principal,LogNivel) 23/01/26 14:42:38:512 - TACBrLibNFe.PrecisaCriptografar - Feito Result: False 23/01/26 14:42:38:542 - LIB_ConfigGravarValor(Principal, LogNivel, 0) 23/01/26 14:42:38:576 - TACBrLibNFe.PrecisaCriptografar(Principal,LogNivel) 23/01/26 14:42:38:604 - TACBrLibNFe.PrecisaCriptografar - Feito Result: False 23/01/26 14:42:38:639 - TLibNFeConfig.AjustarValor(tfGravar,Principal,LogNivel,0) 23/01/26 14:42:38:667 - TLibNFeConfig.AjustarValor - Feito 23/01/26 14:42:38:696 - TLibNFeConfig.AplicarConfiguracoes: F:\sistema\ACBrNFeLIB.Ini 23/01/26 14:42:38:726 - Travar Caso alguém possa ajudar agradeço antecipadamente! Saudações, Júlio.

Resolvido a mensagem de erro com a sua sugestão Lucimauro. nLoad=hb_libLoad("ACBrBoleto32.dll") Entretanto, ao enviar o comando abaixo: nResult:=DLLCALL(nLoad, DLL_OSAPI, "Boleto_Versao", @buffer, @bufferLen) ? nResult ? buffer ? bufferlen Está retornando da seguinte maneira, ou seja, não retornou a versão. NILL para variáveil nResult Espaço em branco para variável buffer 256 para variável bufferlen Saudações, Júlio.

Aqui estou usando Cdecl 32bits também.

Olá amigos! Desejo e espero encontra-los bem! Estou fazendo os primeiros testes com a ACBrBoleto32.dll. Sou programador xHarbour (xBase) e a partir dos exemplos para Harbour fiz o seguinte código abaixo: // Teste ACBrLIB buffer:=spac(256) bufferlen:=256 nLoad=DLLLOAD("ACBrBoleto32.dll") ? nLoad if EMPTY(nLoad) ? "Erro ao carregar lib" inkey(0) end nResult:=DLLCALL(nLoad, DLL_OSAPI, "Boleto_Inicializar", "", "") ? nResult inkey(0) nResult:=DLLCALL(nLoad, DLL_OSAPI, "Boleto_UltimoRetorno", @buffer, @bufferLen) ? nResult ? buffer ? bufferlen inkey(0) Ao executar retorna a seguinte mensagem de erro: Dllcall parameter error! Unknown Parameter Type! O erro ocorre durante a execução desta linha de código: nResult:=DLLCALL(nLoad, DLL_OSAPI, "Boleto_UltimoRetorno", @buffer, @bufferLen) Desde já agradeço a todos! Saudações, Júlio

Grato pela resposta Juliomar. Lamento não ter sido claro na pergunta. Gero o arquivo através do cobrebemx e informo o padrão FEBRABAN240 conforme o arquivo em anexo no post anterior. Eu gerei no padrão CNAB240 através ACBrBoleto e ficou diferente, logo imaginei que talvez possa haver outro padrão visto que não encontrei FEBRABAN240 no manual do ACBrBoleto. Como já está homologado neste padrão, gerar no mesmo padrão pouparia tempo. Saudações, Júlio.

Olá amigos, Tenho uma rotina antiga que usa a dll cobrebemx. Estou migrando para o ACBrBoleto. Eu gerava o envio para o Banco do Brasil no formato FEBRABAN240 conforme modelo em anexo e há muitos anos sempre fiz o envio neste padrão. Pelo que pude ver no manual temos o CNAB240 e CNAB400. Como no Bradesco utilizo CNAB240 deu certinho, entretanto estou preocupado com o envio para o Banco do Brasil. Alguma sugestão por gentileza para atender o que já esta em produção? Amanhã estou pensando em fazer um teste com o Banco do Brasil caso seja possível atender o padrão.CB020201.REM Saudações, Júlio.

Olá amigos! Usando o ACBrBoleto para gerar boletos do banco do brasil me deparei com a seguinte mensagem. ERRO: Banco do Brasil requer que o Convênio do Cedente seja informado. Pelo que entendi este campo foi informado conforme pode-se ver no arquivo em anexo. Se puderem me ajudar agradeço antecipadamente. Saudações, Júlio. LOG.TXT

Amigo, tenho duas questões que preciso esclarecer. 1) Não entendi a questão do parâmetro [Memory], por gentileza, pode me ajudar com um exemplo? Outro detalhe seria, usando o parâmetro [Memory] devo usar o mesmo comando da lib abaixo? acbrlib:CarregarINI(cTexto) 2) Eu irei fazer uso da ACBrLib somente para emissão de NF-e, sendo assim, devo manter todos os parâmetros existentes na acbrlib.txt ou somente manter os parâmetros que envolvem as configurações da NF-e? Saudações, Júlio.

Rafael, Conforme mencionado acima, é possível não manter o arquivo "acbrlib.txt" em disco. Confesso que estava aguardando algo assim, pois entendo ser melhor para o meu caso. Todavia, por gentileza, veja se entendi é o que realmente você quer dizer acima. Sou programador xHarbour e estou usando as classes fornecidas nos exemplos. Eu quero pegar todo o conteúdo o arquivo "acbrlib.txt" e colocar em uma variável, seguindo exatamente e formato do arquivo e depois passar isso para biblioteca ACBr toda vez que for necessário, sem necessidade de salvar no arquivo "acbrlib.ini" Exemplo: cTexto := "" cTexto += "[Principal]"+chr(13)+chr(10) cTexto += "CodificacaoResposta=0"+chr(13)+chr(10) cTexto += "LogNivel=4"+chr(13)+chr(10) cTexto += "LogPath=F:\acbrnfe\log"+chr(13)+chr(10) ..... Todo o restante do conteúdo original do arquivo. Feito isso irei informar ao acbrlib somente a variável que é exatamente o conteúdo do arquivo "acbrlib.txt" sempre que necessário. acbrlib := ACBrNFe():new() cRetorno := acbrlib:CarregarINI(cTexto) // cTexto é o conteúdo da variável. Desde já agradeço, Saudações, Júlio.

Pode me passar o link que você consultou por gentileza?

Olá amigos. Desejo e espero encontra-los bem. Estou com problemas para gerar NF-e em contingência. Sempre utilizei para emissão na versão 3.10 e agora após migrar para a versão 4.0, após configurar para contingência recebo a seguinte mensagem: Rejeição: 114 - SVC desabilitado pela SEFAZ-Origem MG 10/07/2018 08:55:23 - NFE.CriarEnviarNFE(" [infNFe] versao=4.00 [Identificacao] dEmi=10/07/2018 08:49:47 dSaiEnt=10/07/2018 08:49:47 NaturezaOperacao=VENDA DE MERC ST ADQUIRIDA OU Modelo=55 Serie=1 Codigo=006240 Numero=006240 Emissao=10/07/2018 Saida=10/07/2018 TpNF=1 finNFe=1 idDest=1 indPres=9 procEmi=09 indFinal=1 tpImp=1 tpemis=6 dhCont=10/07/2018 08:55:23 xJust=Ambiente Normal esta em manutencao [Emitente] CNPJ= IE= Razao=PD SERVICOS E PECAS LTDA Fantasia=PD SERVICOS E PECAS LTDA Fone= CEP=37260000 Logradouro=RODOVIA FERNAO DIAS BR 381 KM 667 Numero=285 Complemento= Bairro=TREVO DE PERDOES CidadeCod=3149903 Cidade=PERDOES UF=MG CRT=1 [Destinatario] indIEDest=9 CNPJ= NomeRazao=37644-THIAGO PINHEIRO OLHER RIBEIRO Fone=35991258722 CEP=37270000 Logradouro=RUA ARNALDOS CASA 16 Numero=822 Complemento= Bairro=ARNALDOS CidadeCod=3111200 Cidade=CAMPO BELO UF=MG [Produto001] CFOP=5.405 Codigo=QA-1956 Descricao=REPARO SERVO VOLVO 95MM NCM=87089300 Unidade=PC Quantidade=1.00 ValorUnitario=178.15 ValorTotal=178.15 ValorDesconto=8.15 vFrete=0.00 vOutro=0.00 vTotTrib=69.67 [ICMS001] CSOSN=500 vBC=0.00 pICMS=0.00 vICMS=0.00 vBCFCP=0.00 pFCP=0.00 vFCP=0.00 vBCFCPST=0.00 pFCPST=0.00 vFCPST=0.00 [Total] BaseICMS=0.00 ValorICMS=0.00 vFCP=0.00 ValorProduto=178.15 BaseICMSSubstituicao=0.00 ValorICMSSubstituicao=0.00 vFCPST=0.00 ValorFrete=0.00 ValorOutrasDespesas=0.00 ValorDesconto=8.15 ValorNota=170.00 vTotTrib=69.67 [Transportador] ModFrete=9 [Volume001] quantidade=0 Especie= Marca= Numeracao= PesoLiquido=0.00 PesoBruto=0.00 [Pag001] tpag=0 vPag=170.00 [DadosAdicionais] Complemento=VEICULO: SCANIA 113 PLACA: GKL-0792 KM ANO:;SERVO;ICMS PAGO ANTECIPADAMENTE P/ST DEC. 437801/2003;DOC. EMITIDO POR ME OPTANTE PELO SIMPLES NACIONAL;"TUDO PARA SEU TACOGRAFO!";AFERICAO REPARACAO SELAGEM ENSAIOS METROLOGICOS;INMETRO;Condicoes Pagto:01/ / / / / / / / / / /;Valor Aproximado dos Impostos: R$ 69,67 (40.98%) Fonte: IBPT ",1,1,,,,,1) 10/07/2018 08:55:30 - OK: SVC desabilitado pela SEFAZ-Origem MG [ENVIO] Versao=SVCAN.NFeAut4_1.0.1 TpAmb=1 VerAplic=SVCAN.NFeAut4_1.0.1 CStat=114 XMotivo=SVC desabilitado pela SEFAZ-Origem MG CUF=31 NRec= DhRecbto=10/07/2018 08:53:27 TMed=0 Msg=SVC desabilitado pela SEFAZ-Origem MG Rejeicao: Falha no Esquema XML [RETORNO] Versao=SVCAN.RetAut4_1.0.0 TpAmb=1 VerAplic=SVCAN.RetAut4_1.0.0 NRec=000000000000000 CStat=215 XMotivo=Rejeicao: Falha no Esquema XML CUF=0 Saudações, Júlio.