Cálculos en DbGrid con valores en registros anterioriores

[Jere_84]

Hola! utilizo una TDBGrid y es una opción especial la que estoy haciendo donde se van a cargar siempre 7 registros fijos en la tdbgrid. El usuario al ingresar a la opción ya están los 7 registros vacíos o en cero y se irían ingresando los valores correspondientes.

Lo que tengo que hacer es que cuando el usuario esta cargando valores en un registro antes de pasar al siguiente registro (hacer Post) el calculo que se debe hacer en una columna de importe es:

Se toma el importe de la fila o registro en que se está parado y se resta (–) el importe de la fila o registro anterior, a este resultado se le aplica el campo porcentaje de la fila o registro anterior, y se le suma el importe fijo de la fila o registro anterior.

Digamos si estoy parado en el Row 2, antes de pasar al 3, se tiene que calcular una columna que esta en el row 2 con valores del row 1. Y luego si ir al 3. Lo mismo antes de ir al 4. y así sucesivamente.

Estuve intentando en el evento BeforePost del data set con un while pero cuando se hace DataSet.Prior o DataSet.Next internamente se llama al post y se vuelve a ejecutar el evento BeforePost y entras en un ciclo infinito

Me gustarían algunas ideas de sugerencia.

Gracias de antemano.

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

...
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 :)

[Al González]

Hola Jere_84.

Existe una forma de acceder a los valores de registros anteriores o posteriores, sin tener que desplazarnos en el conjunto de datos. Te recomiendo echar un vistazo a este artículo (http://rescatandoadelphi.blogspot.mx/2012/05/leer-de-otros-registros-sin-movernos.html), ahí puse algunos ejemplos de cómo usar una clase llamada TCursorInspect para propósitos muy similares al tuyo. Si hay alguna duda, con gusto intentaré resolverla.

Saludos. :)

[pacopenin]

Mi solución es la menos ortodoxa, pero siendo solo 7 registros puede servir.
Yo,tras el evento after post, llamaría a un procedimiento que recorra la tabla y calcule. No perdería demasiado tiempo en pensar soluciones. Además las entradas a través de un Grid son demasiado anarquicas : puede desplazarse hacia arriba en lugar de hacia abajo, hacer un click en cualquier línea...etc. Al final son demasiadas opciones de funcionamiento para un proceso de solo 7 registros que sería practicamente instantaneo. Solo ten en cuenta utilizar disableControls y enableControls para que no se "vea" el proceso.

Espero que te sirva.

[Jere_84]

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:

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

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]

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]

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

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

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

...
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, :rolleyes:

[ecfisa]

Hola 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 :)