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.

Código Delphi [-]
// 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.

Código SQL [-]
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

Código SQL [-]
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]

Empezado por 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
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.

Código Delphi [-]
      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.

Saludos.
Jose Miguel.

[cloayza]

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

Código SQL [-]
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]

Empezado por delphi50jmb

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:

Código SQL [-]
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:

Código SQL [-]
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.

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

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