Erro Cte Documento Anterior

[Toan Rodrigues Le]

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;

[Toan Rodrigues Le]

Eae meus Bródi, seguinte, o Italo atualizo no SVN o fonte, 100 %, um beijo pra todo mundo.