Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

Falha no Envio de Requisição - Erro: 2148074280


mssistemas
  • Este tópico foi criado há 1420 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

---------------------------
Debugger Exception Notification
---------------------------
Project GESTAO.exe raised exception class EACBrWinReqResp with message 'Falha no Envio da Requisição.
Erro: 2148074280 - <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope"><soap12:Header><nfeCabecMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2"><cUF>31</cUF><versaoDados>3.10</versaoDados></nfeCabecMsg></soap12:Header><soap12:Body><nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2"><consStatServ xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10"><tpAmb>2</tpAmb><cUF>31</cUF><xServ>STATUS</xServ></consStatServ></nfeDadosMsg></soap12:Body></soap12:Envelope>
---------------------------
OK   Help   
---------------------------

 

Bom dia pessoa, estou com esse problema.

apos incluir essa linha no meu código
ACBrNFe.Configuracoes.Geral.SSLXmlSignLib := xsXmlSec;

já atualizei as DLL;
já atualizei as cadeias
 

Link to comment
Share on other sites

Boa tarde, Agnaldo Prates!
agora deu essa mensagem :
---------------------------
Debugger Exception Notification
---------------------------
Project GESTAO.exe raised exception class Exception with message 'Falha ao selecionar o certificado.
Erro: "SelecionarCertificado" não suportado em: TDFeOpenSSL.'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------


é porque como eu faço aqui no meu sistema para capturar o certificado;

If TObject(Objeto) is TACBrNFe then
    Begin
      If (Trim(TACBrNFe(Objeto).Configuracoes.Certificados.NumeroSerie) = '') Then
      Begin
        if (sNFeNumeroCert = '') then
        Begin
          TACBrNFe(Objeto).SSL.SelecionarCertificado;   ( ERRO NESSA LINHA );
          TACBrNFe(Objeto).NotasFiscais.Assinar;
          sNFeNumeroCert := TACBrNFe(Objeto).Configuracoes.Certificados.NumeroSerie;
        End
        Else
        Begin
          TACBrNFe(Objeto).Configuracoes.Certificados.NumeroSerie := sNFeNumeroCert;
        End;
      End;
    End;

Link to comment
Share on other sites

1 hora atrás, mssistemas disse:

Boa tarde, Agnaldo Prates!
agora deu essa mensagem :
---------------------------
Debugger Exception Notification
---------------------------
Project GESTAO.exe raised exception class Exception with message 'Falha ao selecionar o certificado.
Erro: "SelecionarCertificado" não suportado em: TDFeOpenSSL.'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------


é porque como eu faço aqui no meu sistema para capturar o certificado;

If TObject(Objeto) is TACBrNFe then
    Begin
      If (Trim(TACBrNFe(Objeto).Configuracoes.Certificados.NumeroSerie) = '') Then
      Begin
        if (sNFeNumeroCert = '') then
        Begin
          TACBrNFe(Objeto).SSL.SelecionarCertificado;   ( ERRO NESSA LINHA );
          TACBrNFe(Objeto).NotasFiscais.Assinar;
          sNFeNumeroCert := TACBrNFe(Objeto).Configuracoes.Certificados.NumeroSerie;
        End
        Else
        Begin
          TACBrNFe(Objeto).Configuracoes.Certificados.NumeroSerie := sNFeNumeroCert;
        End;
      End;
    End;
 

segue anexo do último XML gerado;

=======================================================================

Estou conferindo com o mês passado que já estava normal;
eu percebi que parece que está faltando um TAG... (segue o anexo da imagem ) ; o que está circulado é do mês passado.
será que poderia ser isso ?
ou não tem nada haver

 

31171000871585000115550010000000631000000019-nfe.xml

Screenshot_1.png

Edited by mssistemas
outro XML
Link to comment
Share on other sites

11 minutos atrás, mssistemas disse:

TACBrNFe(Objeto).SSL.SelecionarCertificado;   ( ERRO NESSA LINHA );

Qual certificado você está utilizando, A1 ou A3?
Se A1, utilize:

ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL;
ACBrNFe1.Configuracoes.Geral.SSLCryptLib  := cryOpenSSL;
ACBrNFe1.Configuracoes.Geral.SSLHttpLib   := httpOpenSSL;
ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:= xsXmlSec;

Se A3

ACBrNFe1.Configuracoes.Geral.SSLLib := libWinCrypt;
ACBrNFe1.Configuracoes.Geral.SSLCryptLib  := cryWinCrypt;
ACBrNFe1.Configuracoes.Geral.SSLHttpLib   := httpWinHttp;
ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:= xsMsXml;

Tente estas configurações.

 

_____________

Prates, Agnaldo

Link to comment
Share on other sites

2 minutos atrás, Agnaldo Prates disse:

Qual certificado você está utilizando, A1 ou A3?
Se A1, utilize:

ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL;
ACBrNFe1.Configuracoes.Geral.SSLCryptLib  := cryOpenSSL;
ACBrNFe1.Configuracoes.Geral.SSLHttpLib   := httpOpenSSL;
ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:= xsXmlSec;

Se A3

ACBrNFe1.Configuracoes.Geral.SSLLib := libWinCrypt;
ACBrNFe1.Configuracoes.Geral.SSLCryptLib  := cryWinCrypt;
ACBrNFe1.Configuracoes.Geral.SSLHttpLib   := httpWinHttp;
ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:= xsMsXml;

Tente estas configurações.

 

Bom no momento que estou fazendo os testes é o certificado A1 ( Arquivo PFX );

Irei testar as configurações....

3 minutos atrás, mssistemas disse:

Bom no momento que estou fazendo os testes é o certificado A1 ( Arquivo PFX );

Irei testar as configurações....

Testei aqui agora;
retornou o seguinte erro:

---------------------------
Erro
---------------------------
Falha ao selecionar o certificado.
Erro: "SelecionarCertificado" não suportado em: TDFeOpenSSL.
---------------------------
OK   
---------------------------
 

Link to comment
Share on other sites

3 minutos atrás, Agnaldo Prates disse:

Esse erro tem relação com configuração do componente.
Como está alimentando as configurações? É em tempo de execução?
 

Isso praticamente  em tempo de execução;

      ACBrNFe.Configuracoes.WebServices.IntervaloTentativas:= 3;
      ACBrNFe.Configuracoes.WebServices.AguardarConsultaRet:= 1;
      ACBrNFe.Configuracoes.WebServices.UF       := recEmitente.SIGLA_UF;
      ACBrNFe.Configuracoes.Arquivos.PathSchemas := Trim(sCaminhoSchemasXML);
      ACBrNFe.Configuracoes.Arquivos.PathSalvar  := Trim(sCaminhoPathNFe);
      ACBrNFe.Configuracoes.Arquivos.PathEvento  := Trim(sArquivoPDF);
      ACBrNFe.Configuracoes.Geral.FormaEmissao   := teNormal;
      ACBrNFe.DANFE.PathPDF := Trim(sArquivoPDF);
      ACBrNFe.DANFE.Usuario := 'USUÁRIO QUE EMITIU: ' +strUSUARIO;
      ACBrNFe.DANFE.Sistema := sNomeSistema;
      ACBrNFe.DANFE.Logo    := ExtractFilePath(Application.ExeName)+ 'FOTOS\EMPRESA\'+sCodigoEmpresa+'.jpg';

      // Novo Esquema emissão da NF-e
      //
      //ACBrNFe.Configuracoes.Geral.ModeloDF := moNFe;
      //ACBrNFe.Configuracoes.Geral.VersaoDF := ve310;

      //ACBrNFe.Configuracoes.Geral.SSLCryptLib := cryOpenSSL;
      //ACBrNFe.Configuracoes.Geral.SSLHttpLib  := httpOpenSSL;
      {ACBrNFe.Configuracoes.Geral.SSLLib:= libWinCrypt;
      ACBrNFe.Configuracoes.Geral.SSLXmlSignLib := xsXmlSec;   }


      ACBrNFe.Configuracoes.Geral.SSLLib := libOpenSSL;
      ACBrNFe.Configuracoes.Geral.SSLCryptLib  := cryOpenSSL;
      ACBrNFe.Configuracoes.Geral.SSLHttpLib   := httpOpenSSL;
      ACBrNFe.Configuracoes.Geral.SSLXmlSignLib:= xsXmlSec;


      // CRIANDO A ROTINA PARA GERAR UMA NOTA FISCAL ELETRONICA (NF-E)
      With ACBrNFe.NotasFiscais.Add.NFe Do
      Begin
          ....
      End;

		CapturaCertificadoDigital(ACBrNFe);

If TObject(Objeto) is TACBrNFe then
    Begin
      If (Trim(TACBrNFe(Objeto).Configuracoes.Certificados.NumeroSerie) = '') Then
      Begin
        if (sNFeNumeroCert = '') then
        Begin
          TACBrNFe(Objeto).SSL.SelecionarCertificado; ( NA HORA QUE VAI MOSTRAR OS CERTIFICADOS... DÁ PAU );
          TACBrNFe(Objeto).NotasFiscais.Assinar;
          sNFeNumeroCert := TACBrNFe(Objeto).Configuracoes.Certificados.NumeroSerie;
        End
        Else
        Begin
          TACBrNFe(Objeto).Configuracoes.Certificados.NumeroSerie := sNFeNumeroCert;
        End;
      End;
    End;


   

Link to comment
Share on other sites

1 hora atrás, mssistemas disse:

Isso praticamente  em tempo de execução;

      ACBrNFe.Configuracoes.WebServices.IntervaloTentativas:= 3;
      ACBrNFe.Configuracoes.WebServices.AguardarConsultaRet:= 1;
      ACBrNFe.Configuracoes.WebServices.UF       := recEmitente.SIGLA_UF;
      ACBrNFe.Configuracoes.Arquivos.PathSchemas := Trim(sCaminhoSchemasXML);
      ACBrNFe.Configuracoes.Arquivos.PathSalvar  := Trim(sCaminhoPathNFe);
      ACBrNFe.Configuracoes.Arquivos.PathEvento  := Trim(sArquivoPDF);
      ACBrNFe.Configuracoes.Geral.FormaEmissao   := teNormal;
      ACBrNFe.DANFE.PathPDF := Trim(sArquivoPDF);
      ACBrNFe.DANFE.Usuario := 'USUÁRIO QUE EMITIU: ' +strUSUARIO;
      ACBrNFe.DANFE.Sistema := sNomeSistema;
      ACBrNFe.DANFE.Logo    := ExtractFilePath(Application.ExeName)+ 'FOTOS\EMPRESA\'+sCodigoEmpresa+'.jpg';

      // Novo Esquema emissão da NF-e
      //
      //ACBrNFe.Configuracoes.Geral.ModeloDF := moNFe;
      //ACBrNFe.Configuracoes.Geral.VersaoDF := ve310;

      //ACBrNFe.Configuracoes.Geral.SSLCryptLib := cryOpenSSL;
      //ACBrNFe.Configuracoes.Geral.SSLHttpLib  := httpOpenSSL;
      {ACBrNFe.Configuracoes.Geral.SSLLib:= libWinCrypt;
      ACBrNFe.Configuracoes.Geral.SSLXmlSignLib := xsXmlSec;   }


      ACBrNFe.Configuracoes.Geral.SSLLib := libOpenSSL;
      ACBrNFe.Configuracoes.Geral.SSLCryptLib  := cryOpenSSL;
      ACBrNFe.Configuracoes.Geral.SSLHttpLib   := httpOpenSSL;
      ACBrNFe.Configuracoes.Geral.SSLXmlSignLib:= xsXmlSec;


      // CRIANDO A ROTINA PARA GERAR UMA NOTA FISCAL ELETRONICA (NF-E)
      With ACBrNFe.NotasFiscais.Add.NFe Do
      Begin
          ....
      End;

		CapturaCertificadoDigital(ACBrNFe);

If TObject(Objeto) is TACBrNFe then
    Begin
      If (Trim(TACBrNFe(Objeto).Configuracoes.Certificados.NumeroSerie) = '') Then
      Begin
        if (sNFeNumeroCert = '') then
        Begin
          TACBrNFe(Objeto).SSL.SelecionarCertificado; ( NA HORA QUE VAI MOSTRAR OS CERTIFICADOS... DÁ PAU );
          TACBrNFe(Objeto).NotasFiscais.Assinar;
          sNFeNumeroCert := TACBrNFe(Objeto).Configuracoes.Certificados.NumeroSerie;
        End
        Else
        Begin
          TACBrNFe(Objeto).Configuracoes.Certificados.NumeroSerie := sNFeNumeroCert;
        End;
      End;
    End;


   

 

ERRO ACBR_DEMO.png

Agora, mssistemas disse:

 

ERRO ACBR_DEMO.png

Rodei o demo do Acbr e o mesmo apresenta erro;
o que poderia ser ?

Link to comment
Share on other sites

  • Moderadores
Em 28/10/2017 at 17:43, mssistemas disse:

 

ERRO ACBR_DEMO.png

Rodei o demo do Acbr e o mesmo apresenta erro;
o que poderia ser ?

Configurando como OpenSSL você não usa o repositório do Windows, daí o erro acima. Com OpenSSL você deve preencher a propriedade ArquivoPFX ou DadosPFX e senha.

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link to comment
Share on other sites

  • Este tópico foi criado há 1420 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.