mssistemas

20 Julho, 2018

também estou com o mesmo problema...
Percebi que .

Com essa configuração apresenta o erro "Retorno = 0"

ACBrNFe.Configuracoes.Geral.SSLCryptLib := cryWinCrypt;
ACBrNFe.Configuracoes.Geral.SSLHttpLib := httpWinHttp;
ACBrNFe.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;
ACBrNFe.SSL.SSLType := LT_all;

agora com essa configuração retorna essa mensagem

ACBrNFe.Configuracoes.Geral.SSLCryptLib := cryWinCrypt;
ACBrNFe.Configuracoes.Geral.SSLHttpLib := httpWinHttp;
ACBrNFe.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;
ACBrNFe.SSL.SSLType := LT_TLSv1_2;

---------------------------
Debugger Exception Notification
---------------------------
Project GESTAO.exe raised exception class EACBrDFeException with message 'WebService Consulta Status serviço:
- Inativo ou Inoperante tente novamente.
Erro Interno: 12175
Erro HTTP: 0
Falha no Envio da Requisição.
Erro: 12175 - Um ou mais erros foram encontrados no certificado Secure Sockets Layer (SSL) enviado pelo servidor'. Process stopped. Use Step or Run to continue.

Está rodando no windows 7 64bits

7 Junho, 2018

bom dia, pessoal ...
agora também estou com esse problema...

Para mim está um erro intermitente... As vezes acontece NFE NÃO ENVIADA PARA SEFAZ.
depois aparece requisição... do nada.. envia umas 5 notas.. direto.
depois volta aparecer o erro novamente.
07/06
acabou de fazer 1 nota, NFE NAO ENVIADA PARA SEFAZ, e antes deu erro de timeout.

4 Junho, 2018

consegui,

removi a tag CEST do produto e passou.

4 Junho, 2018

Esse é o meu processo.

CapturaCertificadoDigital(ACBrNFe);
ACBrNFe.NotasFiscais.GerarNFe;

If (ACBrNFe.WebServices.StatusServico.cStat = 107) Then
Try
ACBrNFe.Enviar(iOficialNFe);
bOcorreuErro:= False;
Except
On E: Exception Do
Begin

4 Junho, 2018

Bom dia, amigos, colegas!

estou com esse erro em 2 clientes aqui.
Não estou sabendo o motivo do erro, peço a ajuda de vocês para que me ajude.

estou anexando o log... e o xml.

desde já agradeço!

20180601124754-ped-sta.xml

20180601124754-ped-sta-soap.xml

31180600871585000115550010000016281423585346-nfe.xml

logsnfe.txt

20 Abril, 2018

Boa tarde amigo,
que maravilha... segunda-feira começa os testes...
obrigado por compartilhar.

12 Abril, 2018

2 horas atrás, Paulo Augusto disse:

Alguem que grava o xml de retorno de um evento..ta cosneguindo carrega-lo e imprimir ?

Boa noite,

aqui segue meu código...

ACBrNFe.NotasFiscais.Clear;

ACBrNFe.Configuracoes.Arquivos.PathSchemas := Trim(sCaminhoSchemasXML);
ACBrNFe.Configuracoes.Arquivos.PathSalvar := Trim(sPathNFe);
ACBrNFe.DANFE.PathPDF := Trim(sArquivoPDF); /// ** Aqui é onde SALVA O PDF;
ACBrNFe.DANFE.Usuario := 'USUÁRIO QUE EMITIU: ' +strUSUARIO;
ACBrNFe.DANFE.Sistema := sNomeSistema;
ACBrNFe.DANFE.Logo := ExtractFilePath(Application.ExeName)+ 'FOTOS\EMPRESA\'+sCodigoEmpresa+'.jpg';

ACBrNFe.NotasFiscais.LoadFromFile( sPathNFe+sChave+'-nfe.xml' );
ACBrNFe.NotasFiscais.Imprimir;/// ** AQUI o usuário já imprimi em tela.

12 Abril, 2018

Você já verificou os exemplos do próprio ACBr ?
Conexões do Internet Explorer.
Cadeias da certificação...

12 Abril, 2018

Estou no aguardo também da liberação dos links...

10 Abril, 2018

deu certo, era atualização das cadeias... achei em outro site.
irei postar em anexo aqui...

Primeiro você instala o certificado "ICP-Brasilv5".
Depois você instala o certificado "v1_v2_v3_v5_msie" ( detalhe aqui, irá aparecer diversas vezes a mensagem ).

deu certo, consegui realizar o CANCELAMENTO DA NOTA FISCAL.
Agradecido.

ICP-Brasilv5.crt

v1_v2_v3_v5_msie.p7b

10 Abril, 2018

Boa tarde amigos, estou com um problema.
está emitindo as notas fiscais normalmente, porém quando vai realizar um cancelamento da nota a dá uma mensagem:

---------------------------
Erro
---------------------------

Erro Interno: 0
Erro HTTP: 0
A autoridade de certificação não é válida ou está incorreta - URL:https://nfe.fazenda.mg.gov.br/nfe2/services/RecepcaoEvento - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/RecepcaoEvento
---------------------------
OK
---------------------------

O que poderia ser ?
verifiquei o código, até o momento está OK.

30 Outubro, 2017

Obrigado à todos!
e obrigado pelo esclarecimentos.
resolvido.

29 Outubro, 2017

Alguém está passando ou já passou pelo mesmo problema ?

28 Outubro, 2017

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;

Agora, mssistemas disse:

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

28 Outubro, 2017

Em 10/12/2015 at 01:27, saverio disse:

no evento oncreate do Tform1 no acbrnfe_demo basta desabilitar essas 2 linhas que vai rodar legal sem precisar mexer no codigo fonte

// For T := Low(TSSLLib) to High(TSSLLib) do
// cbTipoEmissao.Items.Add( GetEnumName(TypeInfo(TSSLLib), integer(T) ) ) ;

nessa nova versão é a mesma coisa ?

28 Outubro, 2017

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;

28 Outubro, 2017

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

28 Outubro, 2017

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

28 Outubro, 2017

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;

28 Outubro, 2017

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

Entrar

Sobre nós...

mssistemas

Total de ítens

Registro em

Última visita

Tipo de Conteúdo

Blocks

Notes ACBrLibNFe

Fóruns

Downloads

Calendário

Posts postados por mssistemas

Retorno de Status 0

Erro: 12002 e 12030 - TimeOut de Requisição

NF-E NÃO ENVIADA PARA SEFAZ 3.10

NF-E NÃO ENVIADA PARA SEFAZ 3.10

NF-E NÃO ENVIADA PARA SEFAZ 3.10

Novas URLS para Homologação em MS da NFe 4.0

Carta de Correção

erro emissão NFE homologação

Como Resolver Sessão "NFC-e_MG_H", não encontrada no arquivo "ACBrNFeServisos"

Erro ao cancelar NF-e versão 3.10

Erro ao cancelar NF-e versão 3.10

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

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

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

NFe Selecionar Certificado

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

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

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

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

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

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante