Recuperei XML da nota e assinei veja codigo

[edudsg]

Gostaria de compartilhar com todo minha experiência, fiz um complemento no codigo do projeto recupera xml, para que possa assinar o arquivo e tornar QUASE igual ao original.

Vejas os passos

//1- após recuperar o xml, apliquei o codigo no método GeraXML

// retira as seguintes tags

xml2:= TStringList.create;

xml2.LoadFromFile(FPath);

xml2.text:= StringReplace( xml2.text ,'','',[] );

xml2.text:= StringReplace( xml2.text ,'','',[]);

xml2.text:= UTF8Encode( copy( xml2.text ,1, pos('',xml2.text)+5 ) );

xml2.savetofile(FPath);

freeandnil(xml2);

//2- assinar o xml

ACBrNFe1.NotasFiscais.Clear;

ACBrNFe1.NotasFiscais.LoadFromFile(FPath);

ACBrNFe1.NotasFiscais.Assinar;

//3- consultar pelo xml

ACBrNFe1.Consultar;

Pronto o XML está QUASE igual ao gerado. Por falta de algumas tags como , (esta tag fica sem o Id ) e outras a assinatura não esta igual bom no caso pra ficar perfeito seria necessário trazer exatamente as tags geradas no original.

Espero que alguem tenha mais neurônios pra queimar.