Ver Mensaje Individual
  #2  
Antiguo 11-09-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita