XML Proc na emissão da nota

[pisani]

Bom dia,

Fiz a atualização do meu ACBR para o trunk2, porém, o xml na emissão esta vindo sem o proc.

O código que eu utilizada no repositório antigo era:

    if ACBrNFe1.Enviar(ANf, False, False) then
    begin
      // obter xml proc
      UTF8Encode(ACBrNFe1.NotasFiscais.Items[0].XML);
    end;

 

 

Porém, esse método não funciona mais no trunk2... observando o exemplo, efetuei a consulta após o envio, porém também não funcionou:

    if ACBrNFe1.Enviar(ANf, False, False) then
    begin
      ACBrNFe1.Consultar;
      ACBrNFe1.NotasFiscais.Items[0].GravarXML("teste.xml", "c:\temp");

      sl := TStringList.Create;
      sl.LoadFromFile("c:\temp\teste.xml");

      // obter xml proc
      UTF8Encode(sl.Text);

      FreeAndNil(sl);
    end;

 

Alguém poderia me dar uma poio nesta ocorrência? fico no aguardo, obrigado.

Uma observação, quando eu faço a impressão do xml em produção porém sem o proc, a danfe esta vindo com a mensagem de "Sem valor fiscal"... esta correto?

[pisani]

Alguém poderia fornecer um exemplo da emissão de nota recuperando o xml proc?

Desde já agradeço.