Jump to content

dev botao

Assinatura invalida!!! ERRO MS0017


Junior Salzano
Go to solution Solved by Junior Salzano,
  • Este tópico foi criado há 2259 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia Juliomar,

Obrigado pelo retorno,

Desculpe a demora.

Então.... na verdade se trata da validação do arquivo junto ao webservice da receita;

A estrutura do arquivo esta tudo ok,

Estou assinado o xml com a rotina da ACBR.

Porem mesmo assim esta rejeitando a assinatura,

 

Segue arquivos gerados e arquivo de retorno da receita;

 

assinado.xml

retorno.xml

Link to comment
Share on other sites

Bom dia Juliomar,


Me desculpe se não fui claro.

Se trata do EFD-REINF

 

assinado.xml

é o arquivo gerado com a assinatura pronto para o envio.

 

retorno.xml

é o arquivo de retorno da recepção do webservice, estão me retornando que a assinatura esta invalida;

 

toda a estrutura esta correta, o erro esta apenas na assinatura.

Estou tentando descobrir o motivo, mais esta tenso!

 

=[

deu pra entender melhor agora ?

 

Muito obrigado pela atenção !

Abraço!

 

Acredito ser um problema que todos vão enfrentar quando chegar nessa etapa!

 

Link to comment
Share on other sites

  • 2 weeks later...

procedure AssinaXML(XML : WideString; NomeEvento : String; out resultado : WideString);
var FACBrReinf  : TACBrReinf;
    XmlAssinado : WideString;
begin
  FACBrReinf := TACBrReinf.Create(nil);

  with FACBrReinf.Configuracoes.Geral do begin
    SSLLib                := libOpenSSL;
    SSLCryptLib           := cryOpenSSL;
    SSLHttpLib            := httpOpenSSL;
    SSLXmlSignLib         := xsLibXml2;
  end;

  FACBrReinf.Configuracoes.Certificados.ArquivoPFX  := '';
  FACBrReinf.Configuracoes.Certificados.Senha       := '1234';
  FACBrReinf.Configuracoes.Certificados.NumeroSerie := certificado.NumeroSerie;
  FACBrReinf.Configuracoes.Certificados.VerificarValidade := True;

  with TACBrReinf(FACBrReinf) do begin
    XmlAssinado := SSL.Assinar(XML, 'Reinf',NomeEvento,'','','','id');
  end;

  Resultado := XmlAssinado;

  FreeAndNil(FACBrReinf);
end;
 

Link to comment
Share on other sites

  • 3 weeks later...
  • Este tópico foi criado há 2259 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.