UWVA#13273 (naar comsql.h)

svn path=/Database/trunk/; revision=9659
This commit is contained in:
Peter Feij
2007-12-21 12:37:52 +00:00
parent 104d3d986b
commit 6891dfb37c

View File

@@ -1,55 +1,11 @@
/*
* $Revision: 3 $
* $Modtime: 21-12-07 12:27 $
*/
#ifndef _INSSQL_H
#define _INSSQL_H
/* Functies aanwezig: */
/* CHECK_SRT_VERHUIZING() */
/* CHECK_REFERENCE_PLAATS() */
/* CHECK_KEY_REFERENCE() */
/* CHECK_ATTRIBUTE() */
/* CHECK_DISCIPLINE_ATT_VULLING() */
/* CHECK_SRTGROEP_ATT_VULLING() */
/* CHECK_SRTDEEL_ATT_VULLING() */
/*
* History
*
* --- 01.40 ---
* --- 01.39 ---
* --- 01.38 ---
* --- 01.37 ---
* --- 01.36 ---
* --- 01.35 ---
* 16-04-98 AH INS_CHECK_NOG_REFERENCES aangemaakt: checkt niet de aanwezigviews
* vanwege 'mutating table'-problemen
* --- 01.34 ---
* --- 01.33 ---
* --- 01.32 ---
* --- 01.31 ---
* --- 01.30 ---
* --- 01.29 ---
* --- 01.28 ---
* --- 01.27 ---
* --- 01.26 ---
* 05-03-97 AH CHECK_ATTRIBUTE() aangepast voor gebruik van package-functie
* INS_P_INS_CHECK_ATTRIBUTE(), anders wordt de trigger te groot.
* --- 01.25 ---
* --- 01.24 ---
* --- 01.23 ---
* --- 01.22 ---
* --- 01.21 ---
* --- 01.20 ---
* --- 01.19 ---
* --- 01.18 ---
* --- 01.17 ---
* --- 01.16 ---
* --- 01.15 ---
* 29-05-96 KTH attsql.h in deze file geintegreerd en fac_v_attribute_gegevens
* veranderd naar ins_v_attribute_gegevens
* --- 01.14 ---
* 21-03-96 AH CHECK_KEY_REFERENCE() toegevoegd, misschien beter in COMSQL.H ??
* 19-03-96 AH CHECK_REFERENCE_PLAATS wordt niet gebruikt.
* 16-02-96 PF SET_VERWIJDER_CHILDREN en DELETE_CHILDREN naar COMSQL.H
*/
#define CHECK_SRT_VERHUIZING(tabel, key_veld, ref_key, kindje_tabel, message) \
DECLARE \
@@ -79,36 +35,6 @@
END IF; \
END
/* CHECK_KEY_REFERENCE: controleerd of een key in een tabel/view bestaat
*/
#ifdef MS_SQL
#define CHECK_KEY_REFERENCE(table, primary_key, ref_key, message) \
BEGIN \
SELECT primary_key \
FROM table \
WHERE primary_key = ref_key; \
EXCEPTION \
WHEN NO_DATA_FOUND \
_THEN APPLICATION_ERROR(-20000, message); \
END
#else
#define CHECK_KEY_REFERENCE(table, primary_key, ref_key, message) \
DECLARE \
dummy NUMBER(10); \
BEGIN \
SELECT primary_key \
INTO dummy \
FROM table \
WHERE primary_key = ref_key; \
EXCEPTION \
WHEN NO_DATA_FOUND \
THEN APPLICATION_ERROR(-20000, message); \
END
#endif
#if 1 // Nieuwe CHECK_ATTRIBUTE()
#define CHECK_ATTRIBUTE(fac_kolom, attribute_key) \