Actualizar un archivo a partir de otros archivos

[delphi50jmb]

Hola amigos del foro.

Ya les habia comentado antes, que me e pasado desde Paradox a SQL Firebird.
En este cambio de base de datos, aproveche a migrar un sistema que tengo para una empresa que fabrica masas de wantan. E logrado resolver (con la ayuda de los integrantes de este foro), muchos de los problemas presentados en esta migracion. Pero ahora tengo un problema que por mas que le e dado vueltas, no logro resolver. Les explico de manera resumida:

Tengo una tabla con todos los datos de venta de los clientes. (NumeroDoc, Cliente, Monto, ..etc. ), otra tabla con el detalle de la compra. Y Por ultimo una tabla con los productos de venta. Hay ocaciones en que los clientes desisten de la compra y devuelven los productos. Por lo tanto debemos anular el documento de venta. Al operador del sistema, se le presentan diarimente las facturas de venta, el las puede seleccionar para pagar o anular. Al momento de seleccionar uno, o mas documentos para anulacion, el sistema debe ubicar el detalle de las facturas, tomar los codigos de los productos a anular, y actualizar el archivo de inventario.

Lo e intentado de muchas maneras, pero la verdad es que con SQL, no logro dar con la solucion para hacer esto.

Abajo les dejo un ejemplo de facturas, Detalle de facturas, e inventario. Las facturas marcadas con un (*), son las que se deberian anular, y deberia actualizar el inventario.

Agradeceria cualquier ayuda.

De antemano gracias.

Jose Miguel B.


// Facturas
Estado--Numero--Total
* 343 123.000
412 16.000
* 346 100.000
* 034 56.000
* 231 70.000
125 320.000
127 180.000


// Detalle Facturas
Numero-Codigo-Cantidad
343 1 34
412 1 1
346 3 12
034 1 15
231 2 22
125 3 98
127 2 50


// Inventario
Codigo--Nombre-----Existencia El inventario deberia quedar asi
1 WANTAN NORMAL 100 ==> 149
2 WANTAN GRANDE 100 ==> 122
3 ARROLLADO PRIM 100 ==> 112

[Casimiro Notevi]

Hace falta un "select", un "update" y un par de "delete".
Lo más eficiente es crear un "Stored procedure" al que se le pase el número de la factura.
Lo he creado de memoria, la sintaxis tendrá errores por los ';' del final y esas cosas.
SET TERM ^ ;

CREATE PROCEDURE EliminaFactura
( NumeroFactura integer )
AS
DECLARE VARIABLE CodigoArticulo integer;
DECLARE VARIABLE CantidadARticulos integer;
BEGIN
select codigo, cantidad
from DETALLE
where numero = :NumeroFactura
into :CodigoArticulo, :CantidadArticulos

update INVENTARIO
set Existencia = Existencia + :CantidadArticulos
where codigo= :CodigoArticulo

delete from DETALLE where numero = :NumeroFactura
delete from FACTURAS where numero = :NumeroFactura

END^

SET TERM ; ^



Por cierto, el título que has puesto de "actualizar un archivo a partir de otros archivos" no tiene nada que ver con lo que preguntas.

[cloayza]

Yo creo que lo ideal sería incluir un disparador despues de actualizar el estado de la factura. Y utilizar el procedimiento indicado por Casimiro Notevi

CREATE OR ALTER trigger Facturas_AU0 for doctype
active after update position 0
AS
begin
if ((old.Estado<>new.Estado) and (new.Estado='*')) then
--Reversar factura
execute procedure EliminaFactura(old.Numero);
endif

end
Espero ayude...Saludos cordiales

[Casimiro Notevi]

Yo creo que lo ideal sería incluir un disparador despues de actualizar el estado de la factura. Y utilizar el procedimiento indicado por Casimiro Notevi
Espero ayude...Saludos cordiales
Totalmente cierto :)

[delphi50jmb]

Hola Casimiro, y cloayza.

Agradesco sus respuestas.

llevo muy poco tiempo trabajando con SQL, por lo cual no estoy familiarizado con los disparadores y Store Procedure.

Por otro lado, revisando tu codigo, se envia una instruccion para "Eliminar" las Facturas y detalle de Facturas ya procesadas. No se como funciona en otros paises, pero aqui, una factura "Anulada", no es lo mismo que una factura "Eliminada". Una factura Anulada debe retornar los productos al inventario, y debe mantenerse en los archivos e informes, para eventuales controles, o auditorias de Impuestos Internos.

E revisado muchos manuales de SQL, y lo mas cercano a lo que necesito, es algo como esto, pero no e logrado que funcione.

Dt1.SQLDataSet1.Close;
Dt1.SQLDataSet1.CommandText := 'UPDATE ' + ' Inventario ' +
'SET ' +
'ExistAct = ' +
'(SELECT ' + 'Facturas.Rut, Facturas.Numero, ' +
'(SELECT SUM(cantidad) ' +
'FROM DetFact ' +
'WHERE DetFact.Rut=Facturas.Rut ' + ' AND ' +
'DetFact.Numero=Facturas.Numero ' + ' AND ' +
'DetFact.Codigo = Inventario.Codigo) ' +
'FROM Facturas ' +
'WHERE ' + 'Estado = ' + QuoteStr('*') + ');';
Dt1.SQLDataSet1.ExecSQL(False);




Por cierto, el título que has puesto de "actualizar un archivo a partir de otros archivos" no tiene nada que ver con lo que preguntas.


Bueno, la verdad como comentaba en un principio. El operador de sistemas, tiene en su pantalla solo los datos de los encabezados de las facturas emitidas (Cliente, Direccion, Numero de Factura, Monto comprado), no tiene la informacion de detalle de la compra, ni de los inventarios de productos. Desde esa ventana, el operador da por pagadas o anuladas las facturas. Si una, o mas facturas son anuladas, el sistema debe encontrar el detalle de esa factura, y con ese detalle, actualizar los archivos de inventario con los productos que se devuelven. Entonces a partir de un archivo (Facturas), debo ir a otro archivo (DetalleFact), obtener los datos requeridos, y actualizar un tercer archivo (Inventario).

Espero se entienda la idea.

Gracias de antemano.
:confused:
Saludos.
Jose Miguel.

[cloayza]

Estimado delphi50jmb, espero que este código le ayude en su tarea...


CREATE OR ALTER trigger Facturas_AU0 for doctype
active after update position 0
AS
begin
if ((old.Estado<>new.Estado) and (new.Estado='*')) then
--Reversar factura
execute procedure ReversarInventario(old.Numero);
endif

end

CREATE PROCEDURE ReversarInventario
( NumeroFactura integer )
AS
DECLARE VARIABLE CodigoArticulo integer;
DECLARE VARIABLE CantidadARticulos integer;
BEGIN
--Detalle Facturas
--For Select que recorre el detalle de la factura,
--recupera código y cantidad.
for select
Codigo, Cantidad
from Detalle_Facturas
where Numero=:NumeroFactura
into :CodigoArticulo,
:CantidadArticulos
do begin
--Reversa inventario actualizando existencia
update Inventario
set Existencia=Existencia + :CantidadArticulos
where Codigo=:CodigoArticulo;
end
END^
Saludos cordiales

[Casimiro Notevi]

llevo muy poco tiempo trabajando con SQL, por lo cual no estoy familiarizado con los disparadores y Store Procedure.
Estas cosas no deben teclearse en el Delphi sino en la propia base de datos.
Haz lo que te ha comentado cloayza, abre tu gestor de bases de datos y añade ese trigger y el procedure... y te olvidas, ya que la propia base de datos será la encargada de hacerlo todo.
Si tienes dudas, pregunta.

[delphi50jmb]

Hola Casimiro y cloayza.

Les agradesco por su respuestas.

Probare lo que me indican y les comento como me va.

Saludos.

Gracias.

Jose Miguel B.

[delphi50jmb]

Hola.
No logro hacer funcionar el codigo que me indican.
lo incorpore a la base de datos, pero no funciona. solo me da errorres.

Hay alguna forma de hacer lo solicitado directamente con sentencias UPDATE-SELECT?

Gracisas por su ayuda.

Saludos.
Jose miguel.

[Casimiro Notevi]

Te da errores porque lo hemos escrito de memoria, sin probar.
Crea primero el procedure:
CREATE OR ALTER PROCEDURE REVERSARINVENTARIO (NUMEROFACTURA INTEGER)
AS
DECLARE VARIABLE CodigoArticulo integer;
DECLARE VARIABLE CantidadARticulos integer;
BEGIN
for select
Codigo, Cantidad
from DETALLES
where Numero=:NumeroFactura
into :CodigoArticulo,
:CantidadArticulos
do begin
update Inventario
set Existencia=Existencia + :CantidadArticulos
where Codigo=:CodigoArticulo;
end
END

Y luego el trigger:
CREATE TRIGGER FACTURAS_AU0 FOR FACTURAS AFTER UPDATE
AS
begin
if ((old.Estado<>new.Estado) and (new.Estado='*')) then
begin
execute procedure ReversarInventario(old.Numero);
end
end

Ahora, si en tu pantalla tienes un dbgrid, por ejemplo, y borras una factura, verás en la base de datos que se ha actualizado el campo existencias con la cantidad de la misma.
Saludos.

[delphi50jmb]

Gracias Casimiro.

Probare y te comento.

Saludos.
Jose Miguel.

[delphi50jmb]

Hola Casimiro.

Logre incorporar el Procedure, y El Trigger a la base de datos.

Ahora como hago para que funcionen?

disculpa si la pregunta es muy basica. Pero como te comente, mis conocimientos de SQL, son muy precarios. Estoy en el proceso de aprender. :D

Gracias por la ayuda.

Saludos.

Jose Miguel.

[Casimiro Notevi]

Pues fácil, ¿ahora mismo qué es lo que hacen? creo que tienes un dbgrid y le cambias el '*' por nada, o al revés. Pues eso mismo, no tienes nada más que hacer, fíjate que el código del trigger dice:

if ((old.Estado<>new.Estado) and (new.Estado='*')) then

Entonces, si el dbgrid pones el estado con el asterisco '*' se lanzará automáticamente el trigger que llamará al procedure que añadirá la cantidad al inventario.
Todo automático, no tienes que hacer nada.
Con que pongas el asterisco y le das a guardar, listo.
(Anoche hice un simple ejemplo y lo capturé en video).

niLb6zjfmBk

[delphi50jmb]

Estimado Casimiro.

Estoy muy agradecido por tu paciencia y dedicacion.

Te tomaste el tiempo de hacer una pequena aplicacion, y un video para para explicarme como resolver el problema. Se agradece enormemente el gesto.

me construi un ejemplo similar al tuyo para entender como funcionaba el trigger. Y logre que funcionara.

Ahora, solo me queda incorporarlo a mi aplicacion.

Sin tu ayuda no lo habria logrado.

Agradecido, muy agradecido. ^\||/^\||/

Saludos.

Jose Miguel.