Ver Mensaje Individual
  #6  
Antiguo 04-08-2018
marco3k marco3k is offline
Miembro
 
Registrado: feb 2015
Posts: 60
Reputación: 10
marco3k Va por buen camino
Talking

No actualice bien el código final en el post 4 y no puedo editar el mensaje asi que lo coloco aqui:
Código Delphi [-]
...
    TListaBoletaTmp.First;
    while TListaBoletaTmp.Eof = False do
    begin
      if TListaBoletaTmpSELECCION.Value=True then
      begin
        TListado.Filter := '[ANIO] = ' + QuotedStr(TListaBoletaTmpANIO.Value) + ' and [MES] = ' +
        QuotedStr(TListaBoletaTmpMES.Value) + ' and [MES_SUP] = ' + QuotedStr(TListaBoletaTmpMES_SUP.Value) +
        ' and [DNI] = ' + QuotedStr(TListaBoletaTmpDNI.Value);
        TListado.Filtered := True;
        TListado.First;
        while TListado.Eof = False do
        begin
            TListado.Edit;
            TListadoSELECCION.Value := 1;
            TListado.Post;
            TListado.Next;
        end;
      end;
      TListaBoletaTmp.Next;
    end;
...
Responder Con Cita