308 lines
11 KiB
Plaintext
308 lines
11 KiB
Plaintext
#ifdef FIN
|
|
/* FIN_TRI.SRC
|
|
* $Revision: 5 $
|
|
* $Modtime: 6-09-10 15:33 $
|
|
*/
|
|
|
|
CREATE_TRIGGER(fin_t_fin_factuur_b_iu)
|
|
BEFORE INSERT OR UPDATE ON fin_factuur
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(fin_factuur_key, fin_s_fin_factuur_key);
|
|
/* constraint: gefiatteerd of hoger mag pas als 1 van de referenties is ingevuld */
|
|
IF :new.fin_factuur_boekmaand IS NULL THEN :new.fin_factuur_boekmaand := DATE_TO_CHAR(:new.fin_factuur_datum, 'YYYY-MM'); END IF;
|
|
END;
|
|
/
|
|
|
|
CREATE_TRIGGER(fin_t_fin_factuurregel_b_iu)
|
|
BEFORE INSERT OR UPDATE ON fin_factuurregel
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(fin_factuurregel_key, fin_s_fin_factuurregel_key);
|
|
END;
|
|
/
|
|
|
|
CREATE_TRIGGER(fin_t_fin_kenmerkfactuur_b_iu)
|
|
BEFORE INSERT OR UPDATE ON fin_kenmerkfactuur
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_AANMAAKDATUM(fin_kenmerkfactuur, fin_kenmerkfactuur_aanmaak);
|
|
/*
|
|
** Controleer eerst of de ingevulde waarde goed is.
|
|
*/
|
|
IF :new.fin_kenmerkfactuur_waarde <> :old.fin_kenmerkfactuur_waarde
|
|
OR :old.fin_kenmerkfactuur_waarde IS NULL
|
|
OR :new.fin_kenmerkfactuur_waarde IS NULL
|
|
THEN
|
|
DECLARE
|
|
KenmerkOmschr fin_kenmerk.fin_kenmerk_omschrijving%TYPE;
|
|
KenmerkType fin_kenmerk.fin_kenmerk_kenmerktype%TYPE;
|
|
KenmerkLengte fin_kenmerk.fin_kenmerk_lengte%TYPE;
|
|
KenmerkDec fin_kenmerk.fin_kenmerk_dec%TYPE;
|
|
KenmerkNMin fin_kenmerk.fin_kenmerk_nmin%TYPE;
|
|
KenmerkNMax fin_kenmerk.fin_kenmerk_nmax%TYPE;
|
|
RefKenmerkKey NUMBER(10);
|
|
NumberWaarde NUMBER(15,5);
|
|
FormatMask VARCHAR2(60);
|
|
KenmerkWaarde fin_kenmerkfactuur.fin_kenmerkfactuur_waarde%TYPE;
|
|
BEGIN
|
|
KenmerkWaarde := :new.fin_kenmerkfactuur_waarde;
|
|
BEGIN
|
|
DECLARE
|
|
dummy VARCHAR2(1);
|
|
BEGIN
|
|
SELECT fin_kenmerk_omschrijving
|
|
, fin_kenmerk_kenmerktype
|
|
, fin_kenmerk_lengte
|
|
, fin_kenmerk_dec
|
|
, fin_kenmerk_nmin
|
|
, fin_kenmerk_nmax
|
|
, fin_refkenmerk_key
|
|
INTO KenmerkOmschr
|
|
, KenmerkType
|
|
, KenmerkLengte
|
|
, KenmerkDec
|
|
, KenmerkNMin
|
|
, KenmerkNMax
|
|
, RefKenmerkKey
|
|
FROM fin_kenmerk
|
|
WHERE fin_kenmerk_key = :new.fin_kenmerk_key;
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN APPLICATION_ERROR_GOTO(-20000,'INS_R_INS_KENMERK_KEY1');
|
|
END;
|
|
|
|
/* Kijk welk KenmerkType gebruikt wordt.
|
|
** Aan de hand daarvan moet een controle uitgevoerd worden.
|
|
**/
|
|
IF KenmerkType = 'C'
|
|
/*
|
|
** Char
|
|
*/
|
|
THEN
|
|
/*
|
|
** Controleer of de lengte te groot of goed is
|
|
*/
|
|
IF LENGTH(KenmerkWaarde) > KenmerkLengte
|
|
THEN
|
|
APPLICATION_ERROR(-20004, 'fin_M232,'|| KenmerkOmschr ||','
|
|
|| TO_CHAR(KenmerkLengte));
|
|
END IF;
|
|
ELSIF KenmerkType = 'N'
|
|
/*
|
|
** Number
|
|
*/
|
|
THEN
|
|
/*
|
|
** Controleer of er een numerieke waarde ingevuld is
|
|
*/
|
|
IF KenmerkDec IS NULL OR KenmerkDec = 0
|
|
THEN
|
|
FormatMask := RPAD('9', KenmerkLengte, '9');
|
|
ELSE
|
|
FormatMask := RPAD('9', KenmerkLengte - KenmerkDec, '9')
|
|
||'D'||RPAD('9', KenmerkDec, '9');
|
|
END IF;
|
|
/*
|
|
** Controleer of er een numerieke waarde ingevuld is
|
|
*/
|
|
BEGIN
|
|
NumberWaarde := TO_NUMBER(KenmerkWaarde);
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN FormatMask := REPLACE(FormatMask, '9', '#');
|
|
FormatMask := REPLACE(FormatMask, '0', '#');
|
|
FormatMask := REPLACE(FormatMask, 'D', '.');
|
|
RAISE_APPLICATION_ERROR(-20004,'fin_M233,'|| KenmerkOmschr ||','
|
|
|| FormatMask);
|
|
END;
|
|
/*
|
|
** Controleer of de waarde binnen NMin en NMax ligt
|
|
*/
|
|
IF ( (KenmerkNMin IS NOT NULL AND NumberWaarde < KenmerkNMin)
|
|
OR (KenmerkNMax IS NOT NULL AND NumberWaarde > KenmerkNMax))
|
|
THEN
|
|
APPLICATION_ERROR_GOTO(-20004, 'fin_M234,'|| KenmerkOmschr ||','
|
|
|| TO_CHAR(KenmerkNMin)||','
|
|
|| TO_CHAR(KenmerkNMax));
|
|
ELSE
|
|
/*
|
|
** Controleer of de waarde aan het formaat voldoet
|
|
*/
|
|
KenmerkWaarde := LTRIM(NUMBER_TO_CHAR(NumberWaarde, FormatMask));
|
|
IF INSTR2(KenmerkWaarde, '#') <> 0
|
|
THEN
|
|
FormatMask := REPLACE(FormatMask, '9', '#');
|
|
FormatMask := REPLACE(FormatMask, '0', '#');
|
|
FormatMask := REPLACE(FormatMask, 'D', '.');
|
|
APPLICATION_ERROR_GOTO(-20004,'fin_M233,'|| KenmerkOmschr ||','
|
|
|| FormatMask);
|
|
END IF;
|
|
END IF;
|
|
/*
|
|
** Zet de geconverteerde waarde terug
|
|
*/
|
|
:new.fin_kenmerkfactuur_waarde := KenmerkWaarde;
|
|
ELSIF KenmerkType = 'D'
|
|
/*
|
|
** Datum
|
|
*/
|
|
THEN
|
|
KenmerkWaarde := DATE_TO_CHAR(_TO_DATE2(KenmerkWaarde,'DD-MM-YY'),'DD-MM-YYYY');
|
|
/*
|
|
** Zet de geconverteerde waarde terug
|
|
*/
|
|
:new.fin_kenmerkfactuur_waarde := KenmerkWaarde;
|
|
END IF;
|
|
END;
|
|
/*
|
|
** Ken nu een key aan dit record toe.
|
|
*/
|
|
IF :new.fin_kenmerkfactuur_key IS NULL
|
|
THEN
|
|
SELECT fin_s_fin_kenmerkfactuur_key.nextval
|
|
INTO :new.fin_kenmerkfactuur_key
|
|
FROM DUAL;
|
|
END IF;
|
|
END;
|
|
END IF;
|
|
END;
|
|
/
|
|
CREATE_TRIGGER(fin_t_fin_kenmerk_b_iu)
|
|
BEFORE INSERT OR UPDATE ON fin_kenmerk
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(fin_kenmerk_key, fin_s_fin_kenmerk_key);
|
|
UPDATE_UPPER(fin_kenmerk_omschrijving, fin_kenmerk_upper,fin_kenmerk);
|
|
IF (:new.fin_kenmerk_verwijder IS NOT NULL AND :old.fin_kenmerk_verwijder IS NULL AND
|
|
:new.fin_kenmerk_systeem = 1)
|
|
THEN
|
|
APPLICATION_ERROR(-20003, 'fin_M238');
|
|
END IF;
|
|
IF (:new.fin_kenmerk_kenmerktype IN ('C','N'))
|
|
AND :new.fin_kenmerk_lengte IS NULL
|
|
THEN
|
|
APPLICATION_ERROR(-20000, 'fin_C_fin_KENMERK_LENGTE');
|
|
END IF;
|
|
IF :new.fin_kenmerk_kenmerktype = 'N' AND :old.fin_kenmerk_key IS NOT NULL
|
|
THEN
|
|
IF :old.fin_kenmerk_nmin <> :new.fin_kenmerk_nmin OR
|
|
:old.fin_kenmerk_nmin IS NULL AND :new.fin_kenmerk_nmin IS NOT NULL
|
|
THEN
|
|
DECLARE
|
|
Dummy CHAR;
|
|
BEGIN
|
|
SELECT 'X'
|
|
INTO Dummy
|
|
FROM fin_kenmerkfactuur
|
|
WHERE fin_kenmerk_key = :old.fin_kenmerk_key
|
|
AND fin_kenmerk_key IN
|
|
(SELECT fin_kenmerk_key FROM fin_kenmerkfactuur
|
|
WHERE fin_kenmerk_key = :old.fin_kenmerk_key
|
|
AND FAC.SAFE_TO_NUMBER(fin_kenmerkfactuur_waarde) < :new.fin_kenmerk_nmin
|
|
AND rownum=1);
|
|
APPLICATION_ERROR(-20000, 'FIN_C_FIN_KENMERK_MIN');
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN NULL;
|
|
WHEN TOO_MANY_ROWS THEN
|
|
APPLICATION_ERROR(-20000, 'FIN_C_FIN_KENMERK_MIN');
|
|
END;
|
|
END IF;
|
|
IF :old.fin_kenmerk_nmax <> :new.fin_kenmerk_nmax OR
|
|
:old.fin_kenmerk_nmax IS NULL AND :new.fin_kenmerk_nmax IS NOT NULL
|
|
THEN
|
|
DECLARE
|
|
Dummy CHAR;
|
|
BEGIN
|
|
SELECT 'X'
|
|
INTO Dummy
|
|
FROM fin_kenmerkfactuur
|
|
WHERE fin_kenmerk_key = :old.fin_kenmerk_key
|
|
AND fin_kenmerk_key IN
|
|
(SELECT fin_kenmerk_key FROM fin_kenmerkfactuur
|
|
WHERE fin_kenmerk_key = :old.fin_kenmerk_key
|
|
AND FAC.SAFE_TO_NUMBER(fin_kenmerkfactuur_waarde) > :new.fin_kenmerk_nmax
|
|
AND rownum=1);
|
|
APPLICATION_ERROR(-20000, 'FIN_C_FIN_KENMERK_MAX');
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN NULL;
|
|
WHEN TOO_MANY_ROWS THEN
|
|
BEGIN
|
|
APPLICATION_ERROR(-20000, 'FIN_C_FIN_KENMERK_MAX');
|
|
END;
|
|
END;
|
|
END IF;
|
|
END IF;
|
|
UPDATE_AANMAAKDATUM(fin_kenmerk, fin_kenmerk_aanmaak);
|
|
END;
|
|
/
|
|
CREATE_TRIGGER(fin_t_fin_refkenmerk_b_iu)
|
|
BEFORE INSERT OR UPDATE ON fin_refkenmerk
|
|
FOR EACH ROW
|
|
DECLARE
|
|
ObjectType USER_OBJECTS.OBJECT_TYPE%TYPE;
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(fin_refkenmerk_key, fin_s_fin_refkenmerk_key);
|
|
UPDATE_UPPER(fin_refkenmerk_omschrijving,fin_refkenmerk_upper,fin_refkenmerk);
|
|
UPDATE_AANMAAKDATUM(fin_refkenmerk, fin_refkenmerk_aanmaak);
|
|
|
|
/* Controleer of de ingevulde tablenaam, kolomnaam en kolomtxt
|
|
** wel bestaan.
|
|
*/
|
|
BEGIN
|
|
SELECT object_type
|
|
INTO objecttype
|
|
FROM user_objects
|
|
WHERE object_name = :new.fin_refkenmerk_objectnaam;
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN
|
|
objecttype := NULL;
|
|
END;
|
|
IF ObjectType IS NULL
|
|
THEN
|
|
APPLICATION_ERROR(-20000, 'FIN_M235');
|
|
ELSIF ObjectType IN ('TABLE','VIEW')
|
|
THEN
|
|
/* Bij een TABLE of VIEW staan de kolommen in USER_TAB_COLUMNS
|
|
** Controleer of deze KOLOMNAAM en KOLOMTXT bestaan.
|
|
**/
|
|
DECLARE
|
|
Dummy VARCHAR2(30);
|
|
BEGIN
|
|
SELECT COLUMN_NAME
|
|
INTO Dummy
|
|
FROM USER_TAB_COLUMNS
|
|
WHERE TABLE_NAME = :new.fin_refkenmerk_objectnaam
|
|
AND COLUMN_NAME = :new.fin_refkenmerk_kolomnaam
|
|
AND DATA_TYPE = 'NUMBER';
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN APPLICATION_ERROR(-20000, 'FIN_M236');
|
|
END;
|
|
DECLARE
|
|
Dummy VARCHAR2(30);
|
|
BEGIN
|
|
SELECT COLUMN_NAME
|
|
INTO Dummy
|
|
FROM USER_TAB_COLUMNS
|
|
WHERE TABLE_NAME = :new.fin_refkenmerk_objectnaam
|
|
AND COLUMN_NAME = :new.fin_refkenmerk_kolomtxt
|
|
AND DATA_TYPE LIKE '%CHAR%';
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN APPLICATION_ERROR(-20000, 'FIN_M237');
|
|
END;
|
|
ELSIF ObjectType <> 'SYNONYM'
|
|
THEN
|
|
APPLICATION_ERROR(-20000, 'FIN_M235');
|
|
END IF;
|
|
END;
|
|
/
|
|
|
|
REGISTERRUN('$Workfile: fin_tri.src $','$Revision: 5 $')
|
|
|
|
#endif // FIN
|