Problemas ao consultar CTe.DistribuicaoDFePorUltNSU() quando conecto com o banco de dados, para de funcionar.

[Marcelo Programador]

Boa tarde a todos...

Estou a uma semana desesperadamente tentando utilizar CTe.DistribuicaoDFePorUltNSU(), sempre retorna:

ERRO Nº: -16 

WebService Distribuição de DFe:
- Inativo ou Inoperante tente novamente.
Erro ao ler informações do Certificado.
Provavelmente a senha está errada
  MotivoRetornadoDoWebService: ""

Tentamos de tudo, verificar .INI, baixar nova verção das DLL tudo tudo, durante a semana fomos isolando o código de tudo quanto foi forma até que descobrimos que quando feita uma conexão com o banco de dados segue abaixo a linha de código, começa a dar o erro.

Dim cnn As New ADODB.Connection
cnn.CursorLocation = adUseClient
    
cnn.Open "DRIVER={PostgreSQL Unicode};Server=127.0.0.1;Port=5432;Database=FabricaJubileuDB;Uid=postgres;Pwd=123456"

Uma vez que percebemos isso no nosso código, fizemos o teste utilizando o DEMO em vb6 que baixamos do site do Projeto ACBr. E conseguimos reproduzir o BUG no DEMO em VB6.

Porem não faço ideia do que possa ser ou estar acontecendo e mesmo como resolver isso.

Fiz um video para demosntrar o problema acontecendo na prática, vou colocar o link abaixo para se possível alguem possa me ajudar por favor. Já não sei mais o que fazer ou testar.

 

Video demonstrando o problema acontecendo no DEMO

 

PS: Utilizo a lib para emitir notas e tudo funciona perfeitamente

 

[Alexandre de Paula]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

Boa tarde Marcelo,

Qual versão da OpenSSL vc está usando? Se estiver usando a 3 tente usar a 1.1...

https://svn.code.sf.net/p/acbr/code/trunk2/DLLs/OpenSSL/1.1.1.10/

[Marcelo Programador]

15 minutos atrás, Alexandre de Paula disse:

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

Boa tarde Marcelo,

Qual versão da OpenSSL vc está usando? Se estiver usando a 3 tente usar a 1.1...

https://svn.code.sf.net/p/acbr/code/trunk2/DLLs/OpenSSL/1.1.1.10/

 

Ola Boa Tarde

Já estou utilizando a https://svn.code.sf.net/p/acbr/code/trunk2/DLLs/OpenSSL/1.1.1.10/

 

Baixei hoje ainda novamente o pacote direto da area de Download e atualizei as DLL da maquina, e SIM tomei o cuidado de colocar a OpenSSL 1.1, mesmo problema tudo funciona perfeitamente quando vc nao abre a conexão com o banco de dados. Abril o erro acontece e não para mais ate vc fechar o VB6 e abrir o projeto novamente se passar pela linha da conexão com o banco de dados. UMA LOURURA ISSO.

 

[Diego Foliene]

Boa tarde.

Defina a opção SalvarWS como Sim e defina um PathSalvar para que ele gere para você os -soap envolvidos na requisição.

Compare os arquivos para ver se existe alguma diferença.

[Marcelo Programador]

6 minutos atrás, Diego Foliene disse:

Boa tarde.

Defina a opção SalvarWS como Sim e defina um PathSalvar para que ele gere para você os -soap envolvidos na requisição.

Compare os arquivos para ver se existe alguma diferença.

 

eu estou utilizando a lib no VB6 como eu configuro essa opção ??? acredito que seja no .INI ??? qual seria a chave di .ini ????

[antonio.carlos]

10 minutos atrás, Marcelo Programador disse:

 

eu estou utilizando a lib no VB6 como eu configuro essa opção ??? acredito que seja no .INI ??? qual seria a chave di .ini ????

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

Nome da propriedade é SalvarWS, mesma fica no ACBrLib.ini

[Marcelo Programador]

13 minutos atrás, antonio.carlos disse:

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

Nome da propriedade é SalvarWS, mesma fica no ACBrLib.ini

Muito Obrigado eu achei a configuracao 

 

[CTe]
FormaEmissao=0
SalvarGer=1
ExibirErroSchema=1
FormatoAlerta=TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.
RetirarAcentos=1
RetirarEspacos=1
IdentarXML=0
ValidarDigest=1
ModeloDF=0
VersaoDF=1
Ambiente=1
SalvarWS=1
Timeout=5006
TimeoutPorThread=0
Visualizar=0
AjustaAguardaConsultaRet=0
AguardarConsultaRet=0
IntervaloTentativas=1000
Tentativas=5
SSLType=0
QuebradeLinha=|
PathSalvar=
PathSchemas=C:\Temp\CTe\Schema\
IniServicos=
SalvarArq=1
AdicionarLiteral=0
SepararPorCNPJ=0
SepararPorIE=0
SepararPorModelo=0
SepararPorAno=0
SepararPorMes=0
SepararPorDia=0
Download.PathDownload=
Download.SepararPorNome=0
SalvarApenasCTeProcessados=0
EmissaoPathCTe=0
NormatizarMunicipios=0
PathCTe=C:\Fabrica Sistemas\ERP\CTe\XML\
PathInu=C:\Fabrica Sistemas\ERP\CTe\Inutilizacao\
PathEvento=C:\Fabrica Sistemas\ERP\CTe\Evento\
PathArquivoMunicipios=
IdCSRT=0
CSRT=

 

deixei dessa forma o .INI porem em qual pasta ele vai gravar esses retornos do WS ????? ele coloca no LOG ???

[Alexandre de Paula]

1 minuto atrás, Marcelo Programador disse:

PathSalvar=

aqui...

[Marcelo Programador]

4 minutos atrás, Alexandre de Paula disse:

aqui...

Deu certo consegui gerou os arquivos, mas sem sucesso quando liga a linha de conexão com o banco de dados ele para da erro e nao retorna.

Vou postar os arquivos abaixo, reparem que quando nao funciona so cria os 2 primeiros arquivos o retorno nao vem ele para e retorna a mensagem de erro que eu citei acima

Será que algum companheiro poderia fazer uma nonexao remota por AnyDesk para tentar dar uma luz?? estamos em 2 aqui a uma semana e nada funciona hoje que conseguimos isolar o fato da conexão com o banco de dados e inclusive estamos fazer esse teste utilizando o DEMO em V6 do proprio projeto.

 

Desde ja agradesco muito a todos.....

  

arquivos gerados com a conexao do banco comentada FUNCIONA.zip arquivo quando nao funcionaou (conexao com o banco ativa).zip

[Marcelo Programador]

Estou testando em uma maquina windows 7, caso isso seja relevante 

[Diego Foliene]

24 minutos atrás, Marcelo Programador disse:

Deu certo consegui gerou os arquivos, mas sem sucesso quando liga a linha de conexão com o banco de dados ele para da erro e nao retorna.

Vou postar os arquivos abaixo, reparem que quando nao funciona so cria os 2 primeiros arquivos o retorno nao vem ele para e retorna a mensagem de erro que eu citei acima

Será que algum companheiro poderia fazer uma nonexao remota por AnyDesk para tentar dar uma luz?? estamos em 2 aqui a uma semana e nada funciona hoje que conseguimos isolar o fato da conexão com o banco de dados e inclusive estamos fazer esse teste utilizando o DEMO em V6 do proprio projeto.

 

Desde ja agradesco muito a todos.....

  

arquivos gerados com a conexao do banco comentada FUNCIONA.zip 14.65 kB · 2 downloads arquivo quando nao funcionaou (conexao com o banco ativa).zip 896 B · 2 downloads

Os arquivos de envio estão semelhantes.

Como estão as configurações da seção [DFe]?

38 minutos atrás, Marcelo Programador disse:

SSLType=0

Isso aqui também não é o mais indicado.

SSLType=0 corresponde a LT_All, altere para 5 que corresponde a LT_TLSv1_2

[Renato Rubinho]

Boa tarde,

Complementando, veja o que envolve sua conexão com o banco de dados, se tem algum Proxy ou firewall sendo ativado que esteja bloqueando o acesso à internet, fazendo com que o serviço fique inacessível.

[Marcelo Programador]

39 minutos atrás, Diego Foliene disse:

Os arquivos de envio estão semelhantes.

Como estão as configurações da seção [DFe]?

Isso aqui também não é o mais indicado.

SSLType=0 corresponde a LT_All, altere para 5 que corresponde a LT_TLSv1_2

[CTe]
FormaEmissao=0
SalvarGer=1
ExibirErroSchema=1
FormatoAlerta=TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.
RetirarAcentos=1
RetirarEspacos=1
IdentarXML=0
ValidarDigest=1
ModeloDF=0
VersaoDF=1
Ambiente=1
SalvarWS=1
PathSalvar=C:\Fabrica Sistemas\ERP\CTe\srcLog\
Timeout=5006
TimeoutPorThread=0
Visualizar=0
AjustaAguardaConsultaRet=0
AguardarConsultaRet=0
IntervaloTentativas=1000
Tentativas=5
SSLType=5
QuebradeLinha=|
PathSalvar=
PathSchemas=C:\Temp\CTe\Schema\
IniServicos=
SalvarArq=1
AdicionarLiteral=0
SepararPorCNPJ=0
SepararPorIE=0
SepararPorModelo=0
SepararPorAno=0
SepararPorMes=0
SepararPorDia=0
Download.PathDownload=
Download.SepararPorNome=0
SalvarApenasCTeProcessados=0
EmissaoPathCTe=0
NormatizarMunicipios=0
PathCTe=C:\Fabrica Sistemas\ERP\CTe\XML\
PathInu=C:\Fabrica Sistemas\ERP\CTe\Inutilizacao\
PathEvento=C:\Fabrica Sistemas\ERP\CTe\Evento\
PathArquivoMunicipios=
IdCSRT=0
CSRT=

[DFe]
SSLCryptLib=1
SSLHttpLib=3
SSLXmlSignLib=4
UF=SP
TimeZone.Modo=2
TimeZone.Str=-03:00
URLPFX=
ArquivoPFX=C:\Temp\CTe\certificado_0000000001.pfx
DadosPFX=
Senha=RWtYHjVh
NumeroSerie=1
VerificarValidade=1

mesmo problema, não mudou nada acima estou colocando as sessoes [DFe] e [CTe]  do meu arquivo .INI

[Marcelo Programador]

20 minutos atrás, Renato Rubinho disse:

Boa tarde,

Complementando, veja o que envolve sua conexão com o banco de dados, se tem algum Proxy ou firewall sendo ativado que esteja bloqueando o acesso à internet, fazendo com que o serviço fique inacessível.

Private Sub btnDFePorUltNSU_Click()
    Dim ret As String
    Dim cnn As New ADODB.Connection

On Error GoTo Erro:

    If Not validacao Then
        MsgBox ("Erro Verifique as configurações do certificado")
        Exit Sub
    End If
    
    cnn.CursorLocation = adUseClient
    cnn.Open "DRIVER={PostgreSQL Unicode};Server=127.0.0.1;Port=5432;Database=FabricaJubileuDB;Uid=postgres;Pwd=123456"
    
    ret = cte.DistribuicaoDFePorUltNSU(35, "05888957000130", "0")
    rtbRespostas.Text = ret
    
Erro:
    MsgBox Err.Description

End Sub

Olha o codigo do botão esse codigo é o codigo do exemplo baixado VB6 baixado do projeto, quando essa linha com a conexão ao banco esta ativa gera o erro 

se eu comentar a linha cnn.Open "DRIVER={PostgreSQL Unicode};Server=127.0.0.1;Port=5432;Database=FabricaJubileuDB;Uid=postgres;Pwd=123456" o erro desaparece e funciona toda vez, mas repara que a linha nao tem nada de mais na conexao nem mesmo certificado de segurança nos tiramos esta conectando direto só de abrir a conexão ja da o PAU o engraçado é que na lib da nota fiscal funciona normal a anos. 

 

 

[Renato Rubinho]

Deixe o número de série em branco. O componente pode estar tentando configurar o certificado através dele.

3 minutos atrás, Marcelo Programador disse:

NumeroSerie=1

Revise o que está fazendo para conectar ao banco, caso esteja fazendo algo além de habilitar a linha no código.

23 minutos atrás, Renato Rubinho disse:

Complementando, veja o que envolve sua conexão com o banco de dados, se tem algum Proxy ou firewall sendo ativado que esteja bloqueando o acesso à internet, fazendo com que o serviço fique inacessível.

 

[Marcelo Programador]

6 minutos atrás, Renato Rubinho disse:

Deixe o número de série em branco. O componente pode estar tentando configurar o certificado através dele.

 

Revise o que está fazendo para conectar ao banco, caso esteja fazendo algo além de habilitar a linha no código.

 

Tentei tirar o numero de serie, mesmo problema nao muda absolutamente nada. Se comporta da mesma maneira

Quanto a conexão ta como postei acima o codigo não usa prox nada é uma string de conexao direta.    

[Diego Foliene]

Faça o seguinte teste.

Depois da linha que faz a conexão, chama de novo o método que carrega a configuração da Lib passando o ACBrLib.ini.

O método da Lib é o CTe_ConfigLer, veja como é feito o bind e qual método deve chamar no VB6.

 

[Marcelo Programador]

1 hora atrás, Diego Foliene disse:

Faça o seguinte teste.

Depois da linha que faz a conexão, chama de novo o método que carrega a configuração da Lib passando o ACBrLib.ini.

O método da Lib é o CTe_ConfigLer, veja como é feito o bind e qual método deve chamar no VB6.

 

Infelismente mesmos resultado, o problema continua da mesma forma não muda um milimetro.  

[Diego Foliene]

Em 23/11/2023 at 19:24, Marcelo Programador disse:

Infelismente mesmos resultado, o problema continua da mesma forma não muda um milimetro.  

Estamos montando ambiente para realizar alguns testes aqui.

Por favor:

• O problema acontece quando tenta conectar em qualquer banco de dados?
• Se tentar com outro SGBD também da erro?
• Se fizer o processo inverso, adicionar um botão no exemplo que só conecte no banco e faça um select, por exemplo, ele funciona corretamente?
• Você está carregando o certificado do banco de dados?

[Marcelo Programador]

1 hora atrás, Diego Foliene disse:

Estamos montando ambiente para realizar alguns testes aqui.

Por favor:

• O problema acontece quando tenta conectar em qualquer banco de dados?
• Se tentar com outro SGBD também da erro?
• Se fizer o processo inverso, adicionar um botão no exemplo que só conecte no banco e faça um select, por exemplo, ele funciona corretamente?
• Você está carregando o certificado do banco de dados?

 

• O problema acontece quando tenta conectar em qualquer banco de dados?

     Fizemos o teste conectando no PostgreSQL 13 deu o erro, porem quando fizemos a conexão  com o ACCESS o erro não ocorre.

• Se tentar com outro SGBD também da erro?

     Com o ACCESS o erro não ocorre.

• Se fizer o processo inverso, adicionar um botão no exemplo que só conecte no banco e faça um select, por exemplo, ele funciona corretamente?

      Tentamos também e não muda o erro permanece.

• Você está carregando o certificado do banco de dados?

      Nós guardamos ele no banco de dados mas na hora de usar, a gente cria um arquivo no disco com extensão .PFX

 

Vou colocar abaixo um zip com o projeto de teste, para que fique facil verificar as referencias do projeto.

 

 

CTe.zip

[Diego Foliene]

2 minutos atrás, Marcelo Programador disse:

 

• O problema acontece quando tenta conectar em qualquer banco de dados?

     Fizemos o teste conectando no PostgreSQL 13 deu o erro, porem quando fizemos a conexão  com o ACCESS o erro não ocorre.

• Se tentar com outro SGBD também da erro?

     Com o ACCESS o erro não ocorre.

• Se fizer o processo inverso, adicionar um botão no exemplo que só conecte no banco e faça um select, por exemplo, ele funciona corretamente?

      Tentamos também e não muda o erro permanece.

• Você está carregando o certificado do banco de dados?

      Nós guardamos ele no banco de dados mas na hora de usar, a gente cria um arquivo no disco com extensão .PFX

 

Vou colocar abaixo um zip com o projeto de teste, para que fique facil verificar as referencias do projeto.

 

 

CTe.zip 703.02 kB · 0 downloads

Obrigado, vamos analisar o projeto.

No que diz respeito ao certificado, outras operações funcionam corretamente com ele depois de carregar do BD e gerar o arquivo?

 

[Marcelo Programador]

58 minutos atrás, Diego Foliene disse:

Obrigado, vamos analisar o projeto.

No que diz respeito ao certificado, outras operações funcionam corretamente com ele depois de carregar do BD e gerar o arquivo?

 

mesmo problema para tudo depois que abre a conexão com o banco

[Victor H. Gonzales - Panda]

possivelmente é algum conflito com a OpenSSL com seu SGDB.

vou enviar para a comunidade esse POST, assim você pode ter maior assertividade, pois está fora do escopo do componente.

[Marcelo Programador]

2 horas atrás, Victor H. Gonzales - Panda disse:

possivelmente é algum conflito com a OpenSSL com seu SGDB.

vou enviar para a comunidade esse POST, assim você pode ter maior assertividade, pois está fora do escopo do componente.

Claro que entendo o seu argumento, porem não acredito ser isso pois utilizo a AcBRLib para emitir nota fiscal a mais de 3 anos e ela utiliza a mesma DLL OpenSSL e no caso funciona normal sem problema algum. Você concorda que se fosse isso deveria ocorrer o mesmo problema na hora de emitir nota??? 

[Victor H. Gonzales - Panda]

e voce usa openssl tambem para nfe?