-
Total de ítens
2 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Josimar Souza Bezerra
-
-
Boa tarde,
Vocês teriam um imagem do boleto homologado completo?
Por favor, coloquem aqui se tiverem
Assinar XML SNCM da ANVISA utilizando ACBr
em DFe - Documentos Fiscais Eletrônicos
Postado
Gostaria de uma ajuda para utilizar o ACBrDFeSSL na assinatura do arquivo SNCM da ANVISA.
Criei a seguinte procedure
procedure TForm1.Assinar(XML: String);
var
slXML: TStringList;
Assinartura: TDFeSSL;
sXML: AnsiString;
i: Integer;
begin
try
slXML := TStringList.Create;
Assinartura := TDFeSSL.Create;
Assinartura.SSLXmlSignLib := xsMsXml;
slXML.Clear;
slXML.Text := XML;
sXML := '';
for i := 0 to slXML.Count-1 do
begin
sXML := sXML + Trim(
StringReplace(
StringReplace(slXML[i], #13, '', [rfReplaceAll]),
#10, '', [rfReplaceAll]
)
)
end;
Text := Assinartura.Assinar(sXML, '', '');
slXML.SaveToFile('c:\xx\NovoXMLAssinado.xml');
finally
slXML.Clear;
FreeAndNil(slXML);
Assinartura.Free;
end;
Mas ao tentar executar a rotina recebo o seguinte erro:
DadosPFX, ArquivoPFX, URLPFX ou NumeroSerie não especificados !
Segue o XML
Se alguém tiver um dica agradeço!