Retorno ACBrNFe32.dll

[jelias]

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.

Editado 23 Janeiro por jelias
Esqueci uma informação importante

[Daniel Simoes]

Olá.. verificou os Demos existentes ?

https://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/

[jelias]

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.

 

 

Editado 23 Janeiro por jelias

[jelias]

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

 

[jelias]

Segue as informações das dll complementares que tenho na pasta:

 

libxml2.dll

libcrypto-1_1.dll

libssl-1_1.dll

[lucimauro]

Ola, aqui usando Harbour 3.2 funciona muito bem com as classes disponibilizadas

-  Aqui ai invés de STDCAL usando CdECl  então tentou com essa outra ?

 STDCALL por CDECL

[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