Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

picuuai

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    15

  • Registro em

  • Última visita

Community Answers

  1. picuuai
    picuuai's post in Assinar XML Dctfweb was marked as the answer   
    Prezados, achei a solução, obrigado pela ajuda @italo

    procedure Tfrmdctf.AssinarXml(const ElementoFinal:String);
    var SSL : TDFeSSL;
        XMLUTF8, XMLAssinado : String;
    begin
      SSL := TDFeSSL.Create;
      try
        SSL.SSLDgst := dgstSHA256; // esse paramentro muda o tipo de assinatura SHA
        SSL.SSLCryptLib     := cryWinCrypt;
        SSL.SSLXmlSignLib   := xsLibXml2;
        SSL.ArquivoPFX      := integra.caminhocertificado;
        SSL.Senha           := '33711196';
        SSl.CarregarCertificado;
        XMLUTF8 := memo3.Lines.Text;
        XMLAssinado := SSL.Assinar(XMLUTF8, ElementoFinal, '', '','','','id'); // o parametro idattr coloca o conteudo (id) do elemento dentro da reference na assinatura
        memo4.Lines.Text:= XMLAssinado;
      finally
        SSL.free;
        PANEL2.Caption:='PROBLEMAS AO ASSINAR XML.';
      end;
      PANEL2.Caption:='XML ASSINADO COM SUCESSO.';

    para chamar a funcao

    AssinarXml('ConteudoDeclaracao');
  2. picuuai
    picuuai's post in Carregar Arquixo XML de retorno a consulta da NFE was marked as the answer   
    Ola pessoal
     
    Consegui achar a solução..
     
    ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.LerXMLFromFile(opendialog1.FileName);
    depois é só fazer o for para ler os docszip.
     
    Abraços.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.