uNITS
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, OleCtrls, SHDocVw,
ACBrNFe, pcnConversao,pcnConversaoNFe ,ACBrNFeDANFEClass, ACBrUtil,
Grids, DBGrids, DB, ADODB, ACBrBase, ACBrDFe , ACBrNFeWebServices, pcnDownloadNFe;
ACBrNFe1.DistribuicaoDFePorChaveNFe(ACBrNFe1.Configuracoes.WebServices.UFCodigo,sonum(dm.TabParamCGC.AsString),vchave);
with ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt do
begin
if cStat = 138 then
begin
for i := 0 to docZip.Count - 1 do
Begin
if docZip.Items.schema = schprocNFe then //verifica se o arquivo é o XML da NFe (-nfe.xml) ====> ERRO DOCZIP.ITEMS. ( [Error] Unnfe.pas(436): '[' expected but '.' found
begin
XML := docZip.Items.XML;
ArqXML := TStringStream.Create(XML);
XMLDocument1.LoadFromStream(ArqXML);
XMLDocument1.Active;
XMLDocument1.SaveToFile(ACBrNFe1.Configuracoes.Arquivos.PathSalvar+'AJE'+VCHAVE+'-nfe.xml);
end;
end;
end
end;
Tudo atuaizado falta alguma coisa que não estou vendo?