Ir para conteúdo
  • Cadastre-se

dev botao

Toan Rodrigues Le
Ver Solução Respondido por Toan Rodrigues Le,
  • Este tópico foi criado há 3654 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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  :cool:

 

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;
  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3654 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...
The popup will be closed in 10 segundos...