Ir para conteúdo
  • Cadastre-se

dev botao

Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

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

mssistemas

Por mssistemas
em ACBrNFe

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

Recommended Posts

mssistemas Apprentice

mssistemas

Postado
Postado

---------------------------
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
 

Agnaldo Prates Proficient

Agnaldo Prates

Postado
Postado

Já Tentou?

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

 

_____________

Prates, Agnaldo

mssistemas Apprentice

mssistemas

Postado
  • Autor
Postado

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;

mssistemas Apprentice

mssistemas

Postado
  • Autor
Postado (editado)
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
Agnaldo Prates Proficient

Agnaldo Prates

Postado
Postado
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

mssistemas Apprentice

mssistemas

Postado
  • Autor
Postado
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   
---------------------------
 

Agnaldo Prates Proficient

Agnaldo Prates

Postado
Postado
15 minutos atrás, mssistemas disse:

Erro: "SelecionarCertificado" não suportado em: TDFeOpenSSL.

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

_____________

Prates, Agnaldo

mssistemas Apprentice

mssistemas

Postado
  • Autor
Postado
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;


   

mssistemas Apprentice

mssistemas

Postado
  • Autor
Postado
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 ?

  • Moderadores
BigWings Veteran

BigWings

Postado
  • Moderadores
Postado
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

 

 

  • Este tópico foi criado há 2582 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
 Compartilhar
Ir para a lista de tópicos
×
×
  • 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.