Pesquisar na Comunidade

Boa tarde meus "amigos" rs Quando carrego o componente de CTe que possui mais de um documento anterior e mando visualizar ele pega apenas o primeiro documento anterior e repete no restante, se estiver errado me corrija, eu fiz o seguinte para dar certo o que eu entendi que foi colocado os [i, ii, iii] errado, eu queria saber se posso fazer isso que vai estar tudo tranquilo, belezinha Unit ACBrCTeDACTEFRDM procedure TdmACBrCTeFR.CarregaDocumentoAnterior; // Adicionado por NCC - 04/04/2014 for i := 0 to CTe.infCTeNorm.docAnt.emiDocAnt.Count - 1 do begin with CTe.infCTeNorm.docAnt.emiDocAnt.Items do begin {$ELSE} // for i := 0 to CTe.infCTeNorm.emiDocAnt.Count - 1 do // begin // with CTe.infCTeNorm.emiDocAnt.Items do // begin {$ENDIF} for ii := 0 to idDocAnt.Count - 1 do begin for iii := 0 to idDocAnt.Items[ii].idDocAntPap.Count-1 do begin with idDocAnt.Items[ii].idDocAntPap.Items[iii] do begin Append; FieldByName('CNPJCPF').AsString:=CNPJCPF; FieldByName('xNome').AsString:=xNome; FieldByName('UF').AsString:=UF; case tpDoc of daCTRC: FieldByName('Tipo').AsString:='CTRC'; daCTAC: FieldByName('Tipo').AsString:='CTAC'; daACT: FieldByName('Tipo').AsString:='ACT'; daNF7: FieldByName('Tipo').AsString:='NF 7'; daNF27: FieldByName('Tipo').AsString:='NF 27'; daCAN: FieldByName('Tipo').AsString:='CAN'; daCTMC: FieldByName('Tipo').AsString:='CTMC'; daATRE: FieldByName('Tipo').AsString:='ATRE'; daDTA: FieldByName('Tipo').AsString:='DTA'; daCAI: FieldByName('Tipo').AsString:='CAI'; daCCPI: FieldByName('Tipo').AsString:='CCPI'; daCA: FieldByName('Tipo').AsString:='CA'; daTIF: FieldByName('Tipo').AsString:='TIF'; daOutros: FieldByName('Tipo').AsString:='OUTROS'; end; //TEste Toan // FieldByName('Serie').AsString:=idDocAnt.Items.idDocAntPap.Items[ii].serie; // FieldByName('nDoc').AsString:=intToStr(idDocAnt.Items.idDocAntPap.Items[ii].nDoc); // FieldByName('dEmi').AsString:=FormatDateTime('dd/mm/yyyy',idDocAnt.Items.idDocAntPap.Items[ii].dEmi); FieldByName('Serie').AsString:=idDocAnt.Items[ii].idDocAntPap.Items[iii].serie; FieldByName('nDoc').AsString:=intToStr(idDocAnt.Items[ii].idDocAntPap.Items[iii].nDoc); FieldByName('dEmi').AsString:=FormatDateTime('dd/mm/yyyy',idDocAnt.Items[ii].idDocAntPap.Items[iii].dEmi); end; post;