Procedimiento SQL INTERBASE

[laloma]

hola amigos,

tengo la necesidad de hacer un procedimiento en sql interbase con el fin de recorrer una tabla registro por registro para calcular el saldo en cantidad y valor de un kardex de materia prima, el cual no contiene en este momento estos saldo, pero tiene la cantidad y el valor unitario de cada item en cada registro.
alguien podria ayudarme con el codigo del procedimiento ya que la verdad tengo poca experiencia en la programacion de procedimiento almacenados en interbase o firebird.

muchas gracias por su atencion y colaboracion.

[lbuelvas]

Podrias describir mejor las tablas que intervienen en tu necesidad y explica un poco mejor lo que quieres.

[laloma]

gracias por tu respuesta e interes en ayudarme luis fernando.

estoy implementando un sistema contable para un cliente, el cual esta desarrollado en delphi 5.0 sobre interbase 6.0, el cual no contiene un kardex permanente de materia prima, pero se requiere que lo tenga y el desarrollador se niega a hacerlo, por lo cual he decido solucionarlo yo, a nivel de la base de datos por medio de codigo sql (procedimientos, vistas, triggers, etc).

Existe una tabla que contiene todas todas las transacciones, pero solo tiene las columnas de cantidad y valor unitario de la transaccion, haciendo falta las de valor total de la transaccion, saldos en unidades y valor del item hasta cada transaccion.

despues de analizar la situacion, intente lo siguiente mediante la creacion de una vista, y me funciono parcialmente pero algunos saldos los calcula bien y otros mal, creo que debido al ordenamiento y prioridad.

CREATE VIEW VSALDOS_INV_BOD(
CONTEO,
ITEM,
BATCH,
TIPO,
LOCATION,
FECHA,
QTY,
PRIORIDAD,
VALUNIT,
SALDOU,
SALDOV,
SALDOT,
DOC_EXTERNO)
AS
SELECT A.CONTEO,A.ITEM,A.BATCH,A.TIPO,A.LOCATION,A.FECHA,A.QTY,A.PRIORIDAD,A.VALUNIT,
(SELECT SUM(QTY) FROM ITEMACT B WHERE (ITEM=A.ITEM) AND (B.CONTEO <= A.CONTEO) AND (B.FECHA <=A.FECHA) AND (B.LOCATION = A.LOCATION)) AS SALDOU,
(SELECT SUM(TOTPARCIAL) FROM ITEMACT B WHERE (ITEM=A.ITEM) AND (B.CONTEO <= A.CONTEO) AND (B.FECHA <=A.FECHA) AND (B.LOCATION = A.LOCATION)) AS SALDOV,
(SELECT SUM(TOTPARCIAL) FROM ITEMACT B WHERE (ITEM=A.ITEM) AND (B.CONTEO <= A.CONTEO) AND (B.FECHA <=A.FECHA) AND (B.LOCATION = A.LOCATION)) AS SALDOT,
(select e.doc_externo from ipadjuste e inner join ipadjustd d on (e.e = d.e and e.s = d.s and e.tipo = d.tipo and e.batch = d.batch) where d.item = a.item and e.tipo = a.tipo and e.batch =a.batch) AS DOC_EXTERNO
FROM ITEMACT A;

lo del inner join es para traer otro dato que requiero en esta misma tabla, pero esta almacenado en otra.

debido a que con lo anterior no puede obtener unos resultados completamente satisfactorios, tengo planeado hacer lo siguiente:

1. Agregar las columnas faltantes en la tabla.
2. Desarrollar un procedimiento que ejecute los siguientes pasos:
2.1. Seleccionar la tabla ordenada por bodega, item, fecha y prioridad (necesaria en caso de existir registros coincidentes por bodega,item y fecha).
2.2. Crear las variables para acumulacion de los saldos de cantidad y valor
2.3. leer la cantidad y el valor del registro actual.
2.4. Acumular la cantidad y el valor en las variables de saldos.
2.5. Almacenar las variables de los saldos en las respectivas columnas del registro actual.
3. repetir los pasos 2.3, 2.4 y 2.5 por todos y cada uno de los registros hasta el final de la tabla.
4. crear un trigger que ejecute los mismos pasos del punto 3 cada vez que inserte o cambie un registro en la tabla.

si tuviera acceso al codigo fuente de la aplicacion, es realmente sencillo hacerlo en delphi, pero me toco directamente en la base de datos y es ahi donde tengo muy poco conocimiento y experiencia en SQL Interbase.

muchas gracias por tu atencion y disculpame por lo extenso de mi exposicion.

[ninguno]

Hola

Si entiendo bien, lo que quieres es crear unos campos que sean acumulados de los registros anteriores? Es decir, algo así:

1 - 1
1 - 2
2 - 4
1 - 5
.....

Si es eso, la pregunta es, se pueden modificar/borrar registros en esa tabla? Si la respuesta es no, ok, tira para delante. Pero si es sí, ni te plantees hacer lo que quieres ya que en cada modificación/borrado de registro tendrás que modificar desde ese registro hasta el final de la tabla que, si es una tabla pequeña, será algo rápido, pero como tenga millones de registros............ en fin, que yo no lo haría con un campo físico, que para ello se inventaron los procedimientos almacenados y/o las vistas

Por cierto, dices que no tienes acceso al código fuente, es una látima, porque yo dejaria IB6 y pasaría a Firebird 2.X, mucho más estable, robusto y rápido.

[laloma]

hola ninguno, gracias por tu ayuda

1. Es correcta tu apreciacion respecto a lo que quiero hacer.
2. Aunque si existe la posibilidad de eliminar y/o modificar los registros de la tabla, esta opcion es muy esporadica y en caso de llegar a ocurrir, creo que la solucion es simple ya que simplemente el procedimiento de recalculo se aplicaria al grupo de registros filtrados por el codigo del item modificado o eliminado.
3. Lo de la vista lo comparto contigo pero tu sabes que la vistas consumen muchos recursos si hay una gran cantidad de registros en ella. por esa razon preferiria lo del procedimiento y los triggers.
4. respecto al paso de interbase hacia firebird, aunque no lo mencione ya estoy realmente en la 2.1 porque comparto contigo que es mucho mejor. soy fiel a firebird y todo lo que encuentro en interbase lo migro a firebird.

nuevamente gracias.

[lbuelvas]

Empezado por laloma

4. respecto al paso de interbase hacia firebird, aunque no lo mencione ya estoy realmente en la 2.1 porque comparto contigo que es mucho mejor. soy fiel a firebird y todo lo que encuentro en interbase lo migro a firebird.

Hay algo que no comprendo, comentabas que migraste de Interbase a Firebird pero sin el codigo fuente en Delphi del fabricante, debes tener cuidado porque los selects que hacen uniones con otras tablas en ocasiones presentan un problema de "ambiguedad" si uno no diferencia los campos que tienen igual nombre entre varias tablas.

Otra cosa, mantener el saldo por bodega, en la tabla de movimientos aunque te simplifica muchas cosas, te dificulta las modificaciones/eliminaciones en la tabla de movimientos, una alternativa puede ser una tabla de saldos donde aparezcan los campos bodega, fecha, codigo_producto, saldo, podrias considerar esta opcion, con la ventaja que no modificarias tanto la tabla de movimientos.

Si es aceptable que adiciones triggers after / insert /delete /update a la tabla de movimientos para que actualices la tabla de saldos, si el sistema ya tenia triggers, te recomiendo que los hagas independientes y no mezclarlos con los triggers del fabricante original, por aquello de la garantia.

Suponiendo que esa fuera la opcion regalame un tiempo y elaboro un ejercicio completo para reconstruir una tabla de saldos.