Erro ao enviar nota

[Flavio Macedo]

Bom dia meus amigos.
Alguém já passou por este problema?
Tenho uma aplicação para o envio da NFe com componente ACBR porem estou fazendo uma segunda agora com unigui mais quando tento assinar a NF me retorna o erro:

Erro HTTP: 200
URL: https://homologacao.nfe.fazenda.sp.gov.br/wd/nfeautorizacao4.asmx
Erro: 12030 - A conexão com o servidor foi redefinida ou encerrada, ou um protocolo SSL incompatível foi encontrado.

Se alguém puder dar alguma ideia eu agradeço.

 

Minha configuração esta:

   ACBrNFe1.Configuracoes.Geral.SSLLib := libCapicom;
   ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryCapicom;
   ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpWinINet;
   ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib := xsMsXmlCapicom;
   ACBrNFe1.Configuracoes.Geral.VersaoDF := ve400;

   ACBrNFe1.Configuracoes.WebServices.SSLType := LT_TLSv1_2;

   ACBrNFe1.NotasFiscais.Items[0].GravarXML();
   ACBrNFeDANFEFR1.NomeDocumento := ChangeFileExt(ACBrNFe1.NotasFiscais.Items[0].NomeArq, '.pdf');

   ACBrNFe1.NotasFiscais.Assinar;

   ACBrNFe1.NotasFiscais.Items[0].GravarXML();

   MemoDados.Lines.LoadFromFile(ACBrNFe1.NotasFiscais.Items[0].NomeArq);
   LoadXML_consulta(MemoDados, UniHTMLFrame1);
   nFE_Consulta := ACBrNFe1.Configuracoes.Arquivos.PathNFe + (trim(Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44))) + '-NFe.xml';

   vChave := (trim(Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44)));

   ACBrNFe1.NotasFiscais.GerarNFe;

   ACBrNFe1.Enviar(IntToStr(Dm_Faturamento.Qry01L501NR_NOTA.AsInteger), True);   // Linha com erro
 

[Daniel Simoes]

22 minutos atrás, Flavio Macedo disse:

   ACBrNFe1.Configuracoes.Geral.SSLLib := libCapicom;

CAPICOM está obsoleta... use WinCrypt ou OpenSSL

[Flavio Macedo]

Quando utilizo a configurtação :

 

ele me retorna o erro :

EACBrDFeException with message '"CarregarCertificadodeNumeroSerie'" não suportado em TDFeOpenSSL

 

Usando o WinCrypt o erro é:

Cexception with message 'CryptExportKey -len'

O que pode estar errado?

Editado 19 Outubro, 2020 por Flavio Macedo

[BigWings]

33 minutos atrás, Flavio Macedo disse:

EACBrDFeException with message '"CarregarCertificadodeNumeroSerie'" não suportado em TDFeOpenSSL

OpenSSL não suporta o acesso ao certificado instalado no Windows, pelo número de série, deve usar ArquivoPFX, DadosPFX ou URLPFX.

Para acesso via número de série, recomendado apenas para os A3, user libWinCrypt.

[Flavio Macedo]

Legal.

Tenho o arquivo do certificado  [ 17775861_out.pfx ]

Incluo o caminho dele no campo configuracoes.certificado.ArquivoPFX

em dados pfx incluo o que? O qual o comando posso usar para carregar o certificado?

Agradeço a sua atenção meu amigo.

5 minutos atrás, BigWings disse:

OpenSSL não suporta o acesso ao certificado instalado no Windows, pelo número de série, deve usar ArquivoPFX, DadosPFX ou URLPFX.

Para acesso via número de série, recomendado apenas para os A3, user libWinCrypt.

Legal.

Tenho o arquivo do certificado  [ 17775861_out.pfx ]

Incluo o caminho dele no campo configuracoes.certificado.ArquivoPFX

em dados pfx incluo o que? O qual o comando posso usar para carregar o certificado?

Agradeço a sua atenção meu amigo.

[BigWings]

Agora, Flavio Macedo disse:

Incluo o caminho dele no campo configuracoes.certificado.ArquivoPFX

em dados pfx incluo o que? O qual o comando posso usar para carregar o certificado?

Pode informar apenas ArquivoPFX e a senha, as demais deixe em branco.

[Flavio Macedo]

Me Ajudem.

Agora ele encontra o certificado porem ao assinar ele me retorna um access violation quando sai da função

function TNotasFiscais.GetItem(Index: integer): NotaFiscal;
begin
  Result := NotaFiscal(inherited Items[Index]);
end;

Pode me passar alguma ideia do que e?

 

[Daniel Simoes]

Por favor faça testes com os Demos do ACBr... pois assim, você poderá estudar nos fontes do mesmo, e aplicar na sua aplicação...

[Juliomar Marchetti]

6 horas atrás, Flavio Macedo disse:

Bom dia meus amigos.
Alguém já passou por este problema?
Tenho uma aplicação para o envio da NFe com componente ACBR porem estou fazendo uma segunda agora com unigui mais quando tento assinar a NF me retorna o erro:

Erro HTTP: 200
URL: https://homologacao.nfe.fazenda.sp.gov.br/wd/nfeautorizacao4.asmx
Erro: 12030 - A conexão com o servidor foi redefinida ou encerrada, ou um protocolo SSL incompatível foi encontrado.

Se alguém puder dar alguma ideia eu agradeço.

 

Minha configuração esta:

   ACBrNFe1.Configuracoes.Geral.SSLLib := libCapicom;
   ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryCapicom;
   ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpWinINet;
   ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib := xsMsXmlCapicom;
   ACBrNFe1.Configuracoes.Geral.VersaoDF := ve400;

   ACBrNFe1.Configuracoes.WebServices.SSLType := LT_TLSv1_2;

   ACBrNFe1.NotasFiscais.Items[0].GravarXML();
   ACBrNFeDANFEFR1.NomeDocumento := ChangeFileExt(ACBrNFe1.NotasFiscais.Items[0].NomeArq, '.pdf');

   ACBrNFe1.NotasFiscais.Assinar;

   ACBrNFe1.NotasFiscais.Items[0].GravarXML();

   MemoDados.Lines.LoadFromFile(ACBrNFe1.NotasFiscais.Items[0].NomeArq);
   LoadXML_consulta(MemoDados, UniHTMLFrame1);
   nFE_Consulta := ACBrNFe1.Configuracoes.Arquivos.PathNFe + (trim(Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44))) + '-NFe.xml';

   vChave := (trim(Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44)));

   ACBrNFe1.NotasFiscais.GerarNFe;

   ACBrNFe1.Enviar(IntToStr(Dm_Faturamento.Qry01L501NR_NOTA.AsInteger), True);   // Linha com erro
 

Esse trecho é do exemplo do svn

[Flavio Macedo]

Boa tarde meus amigos.

Pode fechar a chamada que consegui encontrar meu erro.

Entre outros o problema é que na propriedade webservices.proxy estava com a configuração errada.

Obrigado a todos que me ajudaram.

[Juliomar Marchetti]

Obrigado por reportar.

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