Armazenar retorno webs. de várias notas [RESOLVIDO]

[FocusRJ]

Pessoal,

me deparei com um outro erro agora, coloquei pra gerar várias notas, até aí tudo indo certinho, porém após enviar de uma em uma eu coloco para salvar num clientdataset o retorno da WebService (Recibo,Protocolo e Chave) da seguinte forma:

procedure TfrmNFe.SalvaRetorno(CdNFe: integer);

begin

  with DMDadosNota.cdsRetorno do begin

    Active := True;

    Append;

    FieldByName('CdNFe').AsInteger    := CdNFe;

    FieldByName('RECIBO').AsString    := ACBrNFe1.WebServices.Recibo.Recibo;

    FieldByName('PROTOCOLO').AsString := ACBrNFe1.WebServices.Retorno.Protocolo;

    FieldByName('CHAVE').AsString     := ACBrNFe1.WebServices.Retorno.ChaveNFe;

    Post;

  end;

end;

e esta é chamada em:

  ACBrNFe1.Enviar(I);  

  SalvaRetorno(CDNFE);

Salvei até em xml para verificar, meus testes estão sendo sempre com 5 notas, as notas são transmitidas e enviadas por email normalmente, mas o xml do retorno, o campo CdNFe vai tudo certinho do 1 ao 5, o protocolo só me retorna para o primeiro, nada para os demais e a chave é a mesma da primeira nota em todos.

Acredito que talvez aja um índice para este retorno mas no momento não estou entendendo como definir.

Agradeço a quem puder ajudar!

[André Ferreira de Moraes]

Use

ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[x].chNFe;

ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[x].nProt;

[FocusRJ]

Certinho André, obrigado mais uma vez!

Att.

Rômulo Mayworm