Triggers Previous topic Chapter index Next topic

TR_INVENTARIO_AD0

 

Description

(There is no description for trigger TR_INVENTARIO_AD0)

 

Definition

CREATE TRIGGER TR_INVENTARIO_AD0 FOR TR_INVENTARIO
ACTIVE AFTER DELETE POSITION 0
AS
DECLARE VARIABLE es_bloqueado CHAR (1);

BEGIN

  DELETE FROM reg_impuestos
  WHERE (tipo = OLD.tipo) AND
        (prefijo = OLD.prefijo) AND
        (numero = OLD.numero) AND
        (renglon = OLD.renglon);

  DELETE FROM reg_retenciones
  WHERE (tipo = OLD.tipo) AND
        (prefijo = OLD.prefijo) AND
        (numero = OLD.numero) AND
        (renglon = OLD.renglon);

  DELETE FROM reg_produccion
  WHERE (tipo = OLD.tipo) AND
        (prefijo = OLD.prefijo) AND
        (numero = OLD.numero) AND
        (renglon = OLD.renglon);

  DELETE FROM reg_medidas
  WHERE (tipo = OLD.tipo) AND
        (prefijo = OLD.prefijo) AND
        (numero = OLD.numero) AND
        (renglon = OLD.renglon);

  DELETE FROM seriales
  WHERE (tipo = OLD.tipo) AND
        (prefijo = OLD.prefijo) AND
        (numero = OLD.numero) AND
        (renglon = OLD.renglon);

  EXECUTE PROCEDURE fx_totales (OLD.tipo, OLD.prefijo, OLD.numero);

  SELECT bloqueado
  FROM comprobantes
  WHERE tipo = OLD.tipo AND
        prefijo = OLD.prefijo AND
        numero = OLD.numero
  INTO :es_bloqueado;

  IF (es_bloqueado = 'R') THEN
    INSERT INTO log_inventario (tipo, prefijo, numero, renglon, orden, tiporef, prefijoref, numeroref, cuota, codcentro, codbodega, codreferencia, entrada, salida, otra_entrada, otra_salida, unitario, bruto, porcentaje_descuento, descuento, codlote, codcategoria, codtercero, codlabor, nota, validacion, impreso, codusuario, fecha, accion)
    VALUES (OLD.tipo, OLD.prefijo, OLD.numero, OLD.renglon, OLD.orden, OLD.tiporef, OLD.prefijoref, OLD.numeroref, OLD.cuota, OLD.codcentro, OLD.codbodega, OLD.codreferencia, OLD.entrada, OLD.salida, OLD.otra_entrada, OLD.otra_salida, OLD.unitario, OLD.bruto, OLD.porcentaje_descuento, OLD.descuento, OLD.codlote, OLD.codcategoria, OLD.codtercero, OLD.codlabor, OLD.nota,
            OLD.validacion, OLD.impreso, OLD.codusuario, 'NOW', 'BORRADO');
END

 

     Previous topic Chapter index Next topic