NFSe - Certificado Série não encontrado

[Luiz Carlos de Lima]

Boa tarde,

Ao executar ACBrNFSeX1.Emitir(vNumLote, meUnitario) retorna a mensagem: 

EACBrDFeException with message 'Certificado Série: "11DE2401234845BE", não encontrado!

Este certificado está sendo usado pelo meu contador, mas ao usar na NFSe diz que não encontra, alguém pode dar uma ajuda.

Obs. Usando o processo "Alimentar_Componente_layout_ABRASF"

Grato.

 

[Renato Rubinho]

Boa tarde,

Se ambos estão utilizando, deve ser A1, certo?

Configure com OpenSSL, preencha somente o caminho do pfx e a senha, deixe número de série em branco.

Segue um tópico bem completo instruindo como configurar.

 

 

[Luiz Carlos de Lima]

Olá Rubinho,

Sim, uso A1.

As configuraçoes abaixo utilizo hoje na emissão de CTe, MDFe, BPe, NFe, sem problema, e agora estou implementando a NFSe.

    SSLLib              := libWinCrypt;
    SSLCryptLib     := cryWinCrypt;
    SSLHttpLib       := httpWinHttp;
    SSLXmlSignLib := xsLibXml2;
    SSL.SSLType     := LT_SSLv2

    Configuracoes.WebServices.TimeOut := 20000;

    certificadoStream := TStringStream.Create;
    TBlobField(FieldByName('Certificado_Certificado_Nucleo')).SaveToStream(certificadoStream);
    ACBrNFSeX1.Configuracoes.Certificados.ArquivoPFX  := certificadoStream.DataString;
    ACBrNFSeX1.Configuracoes.Certificados.Senha       := FieldByName('Senha_Certificado_Nucleo').AsString;
    ACBrNFSeX1.Configuracoes.Certificados.NumeroSerie := FieldByName('Serie_Certificado_Nucleo').AsString;

Tentei com libOpenSSL mas também não deu certo, nos dois casos se não informar a serie retorna sujeira:

First chance exception at $77069542. Exception class EACBrDFeException with message
'Arquivo: 0€0€*†H†÷ €$€‚è0€0€*†H†÷ €$€‚è0‚l0‚h *†H†÷ ‚û0‚÷0)*†H†÷ 0“ÛOsĶu×Äú¾TÞ „¿RL‡ não encontrado'.
 

[Daniel Simoes]

2 horas atrás, Luiz Carlos de Lima disse:

    ACBrNFSeX1.Configuracoes.Certificados.ArquivoPFX  := certificadoStream.DataString;

Mude para DadosPFX

2 horas atrás, Luiz Carlos de Lima disse:

    ACBrNFSeX1.Configuracoes.Certificados.NumeroSerie := FieldByName('Serie_Certificado_Nucleo').AsString;

Se for informar DadosPFX, Não informe o Num.Serie.. isso exige que o certificado seja instalado no Windows

[Luiz Carlos de Lima]

Resolvido, Grato pela ajuda.

[Luiz Carlos de Lima]

Desculpe, na verdade não funcionou, agora retorna:

message 'PFXDataToCertContextWinApi: DadosPFX informado não são válidos'. Process Material.exe (53632).

 

[Luiz Carlos de Lima]

Testando outro certificado não retornou erro, então deve ter algum problema, com este. Vou ter que verificar o que pode ser.

[Renato Rubinho]

Bom dia,

Instala ele no Windows, marcando a chave como exportavel.

Exporta novamente para arquivo e veja se resolve.

[Luiz Carlos de Lima]

boa tarde, problema resolvido.

Grato.

[Juliomar Marchetti]

Obrigado por reportar.

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