Actualizar varios campos en un ClientDataSet desconectado.

[marco3k]

Miguel A. Valero, revise mi código en versión Visual FoxPro y si había que aplicar un filtro. Este es el código FoxPro que expuse en el primes post:

...
       SCAN FOR cur_boleta_rep.seleccion = .T.
            SELECT cur_bol
            REPLACE ALL cur_bol.seleccion WITH 1 FOR cur_bol.anio + cur_bol.mes + cur_bol.mes_sup + ALLTRIM(cur_bol.dni) + cur_bol.tipo_pla + ALLTRIM(cur_bol.nro_bol) =;
            cur_boleta_rep.anio + cur_boleta_rep.mes + cur_boleta_rep.mes_sup + ALLTRIM(cur_boleta_rep.dni) + cur_boleta_rep.tipo_pla + ALLTRIM(cur_boleta_rep.nro_bol)    
        ENDSCAN 

...

En el REPLACE ALL hay un FOR que es un filtro, entonces me faltaba aplicar ESO en Delphi y con eso mejoro la velocidad.

[marco3k]

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;
...

[Casimiro Noteví]