Actualizar un archivo a partir de otros archivos

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