Italo, como deve ser o preenchimento para download de xml?
estou tentando desta forma:
procedure TForm1.Button1Click(Sender: TObject);
var
CNPJ, IndNFe, IndEmi, ultNSU: string;
ok: boolean;
vChave : String;
begin
CNPJ := '';
if not(InputQuery('WebServices Download NFe Destinadas', 'CNPJ do destinatário da NFe', CNPJ)) then
exit;
if not(InputQuery('WebServices Consultar', 'Chave da NF-e:', vChave)) then
exit;
with ACBrNFe1.DownloadNFe do
begin
Download.CNPJ := CNPJ;
with Download.Chaves.Add do
begin
chNFe := vChave;
end;
end;
ACBrNFe1.Download;
//AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest
MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.DownloadNFe.RetWS);
memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.DownloadNFe.RetornoWS);
// ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].XXXX
LoadXML(MemoResp, WBResposta);
end;
mas não estou conseguindo incluir as chave, no momento da execução é como se não tivesse nenhuma chave na lista.