Marcelo Programador
Membros Pro-
Total de ítens
22 -
Registro em
-
Última visita
Sobre Marcelo Programador
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
Marcelo Programador's Achievements
-
Me desculpem a demora estava em viagem - Primeiramente Corrija o SSLType, coloque LT_TLSv1_2 para todos os tipos de documentos, os Webservices exigem TLS1.2. Mesmo problema continua acontecendo - a arquitetura do OpenSSL que voce está usando é a mesma da aplicação / acbrlib? Sim tanto que conseguimo isolar o BUG na aplicação de teste do ACBR ou seja não esta rodando o meu sistema soemnte o teste do ACBR Isolado -a arquitetura do OpenSSL que voce está usando é a mesma da aplicação / acbrlib? Não, para conectar no Postgre eu utilizo sim certificado, porem os testes que fizemos utilizamos um banco local sem certificado algum, configurado.
-
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
-
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.
-
[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
-
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
-
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 ???
-
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.