Actualizar un archivo a partir de otros archivos

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