Ir para conteúdo
  • Cadastre-se

dev botao

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


mssistemas
  • Este tópico foi criado há 2341 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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

Editado por mssistemas
outro XML
Link para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.