Cálculos en DbGrid con valores en registros anterioriores
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. |
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: Espero te de alguna pauta. Saludos :) |
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, 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. :) |
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. |
gracias ecfisa
Cita:
|
Cita:
|
Cita:
|
Puedes desactivar el evento AfterPost al inicio del procedimiento y volver a activarlo al final...
|
Cita:
Pero algo que remarcó pacopenin: "siendo solo 7 registros" me dió una idea... Si tu TDataSet soporta la propiedad RecNo podrías hacer:
Saludos :) |
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: |
Hola pacopenin.
Cita:
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 :) |
La franja horaria es GMT +2. Ahora son las 01:55:57. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi