Triggers

TR_TESORERIA_AU0

Description

(There is no description for trigger TR_TESORERIA_AU0)

Definition

CREATE TRIGGER TR_TESORERIA_AU0 FOR TR_TESORERIA
ACTIVE AFTER UPDATE POSITION 0
AS
DECLARE VARIABLE es_bloqueado CHAR (1);
BEGIN

  IF (OLD.numero = NEW.numero) THEN
    /* para evitar que lo haga de nuevo cuando pase el numero de negativo al generador */
    EXECUTE PROCEDURE fx_calcula_retenciones (OLD.tipo, OLD.prefijo, OLD.numero, OLD.renglon);

  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_tesoreria (tipo, prefijo, numero, renglon, tiporef, prefijoref, numeroref, cuota, codcentro, codesqcontable, codbanco, codconciliacion, conciliado, ingreso, egreso, porcentaje_interes, interes, pronto_pago, documento, nota, codusuario, fecha, accion)
    VALUES (OLD.tipo, OLD.prefijo, OLD.numero, OLD.renglon, OLD.tiporef, OLD.prefijoref, OLD.numeroref, OLD.cuota, OLD.codcentro, OLD.codesqcontable, OLD.codbanco, OLD.codconciliacion, OLD.conciliado, OLD.ingreso, OLD.egreso, OLD.porcentaje_interes, OLD.interes, OLD.pronto_pago, OLD.documento, OLD.nota, OLD.codusuario, 'NOW', 'EDITADO');
END