Cálculos en DbGrid con valores en registros anterioriores

[Jere_84]

Empezado por ecfisa

Hola Jere_84.

La verdad que no alcanzo a entender bién la situación como para evaluar una opción mejor. Pero de acuerdo a lo que solicitas en tu mensaje, se me ocurre ir guardando los valores del registro anterior, algo parecido a esto:

Código Delphi [-]
...
implementation

type
  TPrevValues = record
    Valor: Currency;
    Porce: Currency;
    Fijo: Currency;
  end;

var
  rPrev: TPrevValues;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with DataSet { El TDataSet asociado al DBGrid } do  
  begin
    Open;
    // Inicializar valores previos con los valores del primer registro 
    rPrev.Valor:= FieldByName('VALOR').AsCurrency;
    rPrev.Porce:= FieldByName('PORCENTAJE').AsCurrency;
    rPrev.Fijo := FieldByName('IMPORTEFIJO').AsCurrency;
    // O los podes asignar manualmente con un valor fijo 
  end;
end;

procedure TForm1.DataSet1BeforePost(DataSet: TDataSet);
var
  Value: Currency;
begin
  with DataSet { El TDataSet asociado al DBGrid } do
  begin
    Edit;
    // Aplicar la operación que solicitas en tu mensaje: 
    // (Valor_Actual - Valor_Anterior) * Porcentaje_Anterior + Importe_Fijo_Anterior
    Value:= (FieldByName('VALOR').AsCurrency - rPrev.Valor) * rPrev.Porce/100 + rPrev.Fijo;

    // Asignar el valor al campo actual
    FieldByName('VALOR').AsCurrency:= Value;

    // Valores de registro actual a el "nuevo valor previo"
    rPrev.Valor:= FieldByName('VALOR').AsCurrency;
    rPrev.Porce:= FieldByName('PORCENTAJE').AsCurrency;
    rPrev.Fijo := FieldByName('IMPORTEFIJO').AsCurrency;
  end;
end;

Espero te de alguna pauta.

Saludos

Esta opción anda muy bien siempre y cuando el usuario vaya cargando los registro en el orden 1, 2, 3, 4... Lo malo es si el usuario edita el registro 1 luego pasa al 3 y luego al 5. Porque si el usuario no mantiene un orden lógico se asignarían los datos de manera errónea. Digamos que si el usuario edita el registro 2 y luego pasa al registro 4 por mas que esto ocurra, se deben asignar los valores en el registro 3. Esta es la parte complicada, tener en cuenta que el usuario no mantenga el orden de carga. Si el usuario por ejemplo edita el registro 3 antes que cualquiera otro, como hago para tener cargados en el record los valores del registro 2 sin desplazarme?

[pacopenin]

Empezado por Jere_84

Lo malo es si el usuario edita el registro 1 luego pasa al 3 y luego al 5. Porque si el usuario no mantiene un orden lógico se asignarían los datos de manera errónea.

A eso me refería yo en mi comentario. Además hay otro problema: si se edita un registro que no sea el último, deben recalcularse todos los registros siguientes.

[Jere_84]

Empezado por pacopenin

A eso me refería yo en mi comentario. Además hay otro problema: si se edita un registro que no sea el último, deben recalcularse todos los registros siguientes.

Lo malo de utilizar el evento AfterPost es que si vos haces el while not DataSet.eof cuando haces DataSet.Next se llama internamente al Post y entras en un bucle infinito termina dandote un error del tipo stackoberflow

[pacopenin]

Puedes desactivar el evento AfterPost al inicio del procedimiento y volver a activarlo al final...

[ecfisa]

Empezado por Jere_84

Esta opción anda muy bien siempre y cuando el usuario vaya cargando los registro en el orden 1, 2, 3, 4...

Tenés toda la razón

Pero algo que remarcó pacopenin: "siendo solo 7 registros" me dió una idea...

Si tu TDataSet soporta la propiedad RecNo podrías hacer:

Código Delphi [-]
...
implementation

type
  TPrevValues = record
    Valor: Currency;
    Porce: Currency;
    Fijo: Currency;
  end;

var
  // Índice 0 valores para reg 1
  vPrev: array[0..7] of TPrevValues;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Sólo si deseas valores manuales para reg 1
  with vPrev[0] do
  begin
    // Valores de ejemplo
    Valor:= 1;  
    Porce:= 1;
    Fijo := 1;
  end;

  // Cargar el arreglo
  with DataSet do
    try
      DisableControls;
      while not Eof do
      begin
        vPrev[RecNo].Valor:= FieldByName('VALOR').AsCurrency;
        vPrev[RecNo].Porce:= FieldByName('PORCENTAJE').AsCurrency;
        vPrev[RecNo].Fijo := FieldByName('IMPORTEFIJO').AsCurrency;
        Next;
      end;
      First;
    finally
      EnableControls;
    end;
end;

procedure TForm1.DataSetBeforeScroll(DataSet: TDataSet);
begin
  with vPrev[DataSet.RecNo] do
  begin
    Valor:= DataSet.FieldByName('VALOR').AsCurrency;
    Porce:= DataSet.FieldByName('PORCENTAJE').AsCurrency;
    Fijo := DataSet.FieldByName('IMPORTEFIJO').AsCurrency;
  end;
end;

procedure TForm1.DataSetBeforePost(DataSet: TDataSet);
var
  Value: Currency;
  ix: Integer;
begin
  with DataSet  do
  begin
    // Registro anterior
    ix := DataSet.RecNo-1;

    if ix = 0 then ix:= 7;  { Sólo si deseas que reg 1 compute con reg 7 }

    Value:= (FieldByName('VALOR').AsCurrency - vPrev[ix].Valor) *
      vPrev[ix].Porce/100 + vPrev[ix].Fijo;

    Edit;
    FieldByName('VALOR').AsCurrency:= Value;
  end;
end;

Saludos

[pacopenin]

ecfisa, ¿y si después de estar calculados todos los valores modifica por ejemplo la fila 2? Habrá que recalcular todo desde ahí hasta el final. Sigo pensando que hay situaciones donde la ley del mínimo esfuerzo compensa con creces el trabajo de hacer una solución más elegante, y esta es claramente una de ellas.

Saludos,

[ecfisa]

Hola pacopenin.

Empezado por pacopenin

ecfisa, ¿y si después de estar calculados todos los valores modifica por ejemplo la fila 2? Habrá que recalcular todo desde ahí hasta el final. Sigo pensando que hay situaciones donde la ley del mínimo esfuerzo compensa con creces el trabajo de hacer una solución más elegante, y esta es claramente una de ellas.

Bueno, esa es una de las dos cosas que no me quedaron claras (si desea que se recalculen todos los valores), al igual que en base a que valores se debe calcular el primer registro.

Comparto plenamente con vos que si deben recalcularse los valores, no hay otro camino que recorrer la tabla desde el actual al último registro.

Saludos