admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FCLT#56458 Kenmerktype checkbox

Browse Source 
svn path=/Database/trunk/; revision=40992
This commit is contained in:
Erik Groener
2019-02-15 08:53:00 +00:00
parent b617369eb3
commit 206c5b7fa2
14 changed files with 123 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ALG/ALG_TAB.SRC
View File

@@ -592,7 +592,7 @@ CREATE_TABLE(alg_kenmerk,0)
VARCHAR2(10)
,alg_kenmerk_kenmerktype
VARCHAR2(1)
CONSTRAINT alg_c_alg_kenmerk_type1 CHECK(alg_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B'))
CONSTRAINT alg_c_alg_kenmerk_type1 CHECK(alg_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
,alg_kenmerk_systeem
NUMBER(2)
,alg_kenmerk_toonbaar

2
BES/BES_TAB.SRC
View File

@@ -584,7 +584,7 @@ CREATE_TABLE(bes_srtkenmerk, 0)
, CONSTRAINT bes_c_bes_srtkenmerk_omschr CHECK(bes_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT bes_srtkenmerk_omschrijving CHECK(bes_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT bes_u_bes_srtkenmerk_upper UNIQUE(bes_srtkenmerk_upper, bes_srtkenmerk_verwijder)
, CONSTRAINT bes_c_bes_srtkenmerk_kenmtype CHECK(bes_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B'))
, CONSTRAINT bes_c_bes_srtkenmerk_kenmtype CHECK(bes_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
, CONSTRAINT bes_c_bes_srtkenmerk_lengte CHECK(bes_srtkenmerk_lengte >= 1
AND bes_srtkenmerk_lengte <= 4000)
, CONSTRAINT bes_c_bes_srtkenmerk_max_min CHECK(bes_srtkenmerk_nmax >= bes_srtkenmerk_nmin)

2
BEZ/BEZ_TAB.SRC
View File

@@ -133,7 +133,7 @@ CREATE_TABLE(bez_kenmerk,0)
,bez_kenmerk_kenmerktype
VARCHAR2(1)
CONSTRAINT bez_c_bez_kenmerk_type2 CHECK
(bez_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B'))
(bez_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
,bez_kenmerk_systeem -- &1 = systeemkm, &2 = primary, show in list
NUMBER(2)
DEFAULT 0 NOT NULL

2
CNT/CNT_TAB.SRC
View File

@@ -297,7 +297,7 @@ CREATE_TABLE(cnt_srtkenmerk, 0)
, CONSTRAINT cnt_c_cnt_srtkenmerk_omschr CHECK(cnt_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT cnt_srtkenmerk_omschrijving CHECK(cnt_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT cnt_u_cnt_srtkenmerk_upper UNIQUE(cnt_srtkenmerk_upper, cnt_srtkenmerk_verwijder)
, CONSTRAINT cnt_c_cnt_srtkenmerk_kenmtype CHECK(cnt_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B'))
, CONSTRAINT cnt_c_cnt_srtkenmerk_kenmtype CHECK(cnt_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
, CONSTRAINT cnt_c_cnt_srtkenmerk_systeem CHECK(cnt_srtkenmerk_systeem IS NULL
OR cnt_srtkenmerk_systeem = 1)
, CONSTRAINT cnt_c_cnt_srtkenmerk_lengte CHECK(cnt_srtkenmerk_lengte >= 1

13
FAC/FAC_LCL.SRC
View File

@@ -782,6 +782,7 @@ FAC_LCL('lcl_mld_startdate', 'Start', 'Start')
FAC_LCL('lcl_mld_enddate', 'Gereed', 'Complete')
FAC_LCL('lcl_mld_date_time', 'Geregistreerd op', 'Registered on')
FAC_LCL('lcl_mld_publiek', 'Openbaar', 'Public')
FAC_LCL('lcl_mld_legacy_search', 'Toon alle locaties', 'Show all locations')
FAC_LCL('lcl_mld_references', ' > ', ' > ')
FAC_LCL('lcl_mld_kto', 'Heeft betrekking op', 'In regard to')
FAC_LCL('lcl_mld_kto_invite', 'Uitnodigen KTO', 'Invite for customer satisfaction survey')
@@ -904,6 +905,7 @@ FAC_LCL('lcl_ord_is_updatedbysoap', 'Opdracht is gewijzigd door extern systeem',
FAC_LCL('lcl_ord_notification_sent_to', 'Notificatie ''{0}'' verstuurd aan {1}', 'Notification ''{0}'' sent to {1}')
FAC_LCL('lcl_overview_list', 'Overzichtslijst', 'Summary list')
FAC_LCL('lcl_select_account_disc', 'Alleen beschikbaar met geldige kostenplaats', 'Only available with a valid cost centre')
FAC_LCL('lcl_select_account_disc1', 'Alleen beschikbaar vanaf {0} peronen en vanaf {1} uren', 'Only available for {0} persons with minimum duration of {1} hours')
FAC_LCL('lcl_obj_del_confirm', 'Dit object verwijderen?', 'Delete this object?')
FAC_LCL('lcl_optie', 'Optie', 'Option')
FAC_LCL('lcl_optie_own', 'Optie (Eigen)', 'Option (Own)')
@@ -970,6 +972,7 @@ FAC_LCL('lcl_ins_controle_after_lastinspect', 'De datum moet na de vorige datum
FAC_LCL('lcl_ins_controle_between_two', 'Huidige inspectie moet liggen tussen voorgaande en volgende inspectie.', 'Current inspection must be between previous and next inspection.')
FAC_LCL('lcl_ins_controle_respijt_is_next', 'De plandatum is hetzelfde als de volgende geplande datum.'||CHR(10)||'Kies een andere plandatum of annuleer.', 'The plan date is the same as the next task date.'||CHR(10)||'Choose another plan date or cancel.')
FAC_LCL('lcl_ins_controle_first', 'Onbepaald', 'Undetermined')
FAC_LCL('lcl_ins_controle_from', 'Vanaf {0}', 'From {0}')
FAC_LCL('lcl_ins_controle_new', 'Nieuwe taak', 'New task')
FAC_LCL('lcl_ins_controle_choose_srt', 'Kies de activiteit', 'Select activity')
FAC_LCL('lcl_ins_controle_nooit', 'Nooit', 'Never')
@@ -3035,7 +3038,7 @@ FAC_LCL('lcl_sle_deleted', 'De sleutelset is verwijderd.', 'The keyset is delete
FAC_LCL('lcl_sle_sleaantal', 'Aantal', 'Amount')
FAC_LCL('lcl_sle_ruimte', 'Ruimten', 'Rooms')
FAC_LCL('lcl_sle_ruimte_omschr', 'Omschrijving', 'Description')
FAC_LCL('lcl_sle_select_ruimte', 'Kies minstens <20><>n ruimte', 'Select at least one room')
FAC_LCL('lcl_sle_add_no_cil', 'Let op! Er wordt een sleutelset aangemaakt zonder dat het aan een ruimte gekoppeld wordt. Wilt u dit niet, annuleer dan en vul minstens <20><>n ruimte in.', 'Beware! A keyset is created without attaching it to a room. If you do not wish to do so, cancel and fill in at least one room.')
FAC_LCL('lcl_sle_room_add_btn', 'Voeg een ruimte toe', 'Add a room')
FAC_LCL('lcl_sle_no_ruimte', 'Kies een ruimte', 'Select a room')
COMMIT;
@@ -3371,6 +3374,7 @@ FAC_LCL('lcl_menu_mld_fe_3', 'Doe een melding', 'Make a call')
FAC_LCL('lcl_menu_ord_fe_2', 'Opdrachten', 'Orders')
FAC_LCL('lcl_menu_ord_fe_1', 'Opdracht:', 'Order:')
FAC_LCL('lcl_menu_mld_fe_overview', 'Meldingsoverzicht', 'Calls overview')
FAC_LCL('lcl_menu_mld_fe_common_wishes', 'Algemene wensen', 'Common wishes')
FAC_LCL('lcl_menu_rooms', 'Reserveer ruimte', 'Reserve room')
FAC_LCL('lcl_menu_fe_res', 'Reserveringen', 'Reservations')
FAC_LCL('lcl_menu_res_fe_1', 'Reserveer', 'Reserve')
@@ -4607,6 +4611,8 @@ FAC_LCL('lcl_xd_custid', 'Account', 'Account')
FAC_LCL('lcl_puo_order_failfirst', 'Verzenden van de opdracht is niet direct gelukt.'||CHR(10)||'Het verzenden zal automatisch opnieuw geprobeerd worden.', 'Order has not been sent.'||CHR(10)||'The system will automatically try to send the order again.', '@Order has not been sent.'||CHR(10)||'The system will automatically try to send the order again.')
FAC_LCL('lcl_puo_order_flexfiles', 'Bijlagen meesturen', 'Send Attachments')
FAC_LCL('lcl_puo_willsendnoti', 'Notificatie {0} wordt zo verstuurd aan {1}', 'Notification {0} will be sent shortly to {1}')
COMMIT;
FAC_LCL('lcl_rap_sequence', 'Volgnr', 'Sequence nr')
@@ -5159,6 +5165,7 @@ FAC_LCL('mgt_srtkenmerk_label', 'Label', 'Label')
FAC_LCL('mgt_srtkenmerk_label_i', 'Label (inklapbaar)', 'Label (collapsible)')
FAC_LCL('mgt_srtkenmerk_blanco', 'Blanco', 'Blank')
FAC_LCL('mgt_srtkenmerk_berekening', 'Berekening', 'Calculation')
FAC_LCL('mgt_srtkenmerk_checkbox', 'Checkbox', 'Checkbox')
FAC_LCL('mgt_kenmerk', 'Kenmerk', 'Property')
FAC_LCL('mgt_kenmerk_m', 'Kenmerken', 'Properties')
@@ -5256,8 +5263,8 @@ FAC_LCL('mld_discipline', 'Vakgroep',
FAC_LCL('mld_discipline_m', 'Vakgroepen', 'Categories')
FAC_LCL('mld_discipline_srtgroep', 'Soort vakgroep', 'Type of category')
FAC_LCL('mld_discipline_srtgroepLOV',
'1;Primaire vakgroep zonder teams;5;Primaire vakgroep met teams;2;Behandelteam;3;Zowel primaire vakgroep zonder teams als behandelteam;7;Zowel primaire vakgroep met teams als behandelteam',
'1;Primary category without teams;5;Primary category with teams;2;Processing team;3;Both primary category without teams and processing team;7;Both primary with teams category and processing team')
'1;Primaire vakgroep zonder behandelteams;5;Primaire vakgroep met behandelteams;2;Behandelteam;3;Zowel primaire vakgroep zonder teams als behandelteam;7;Zowel primaire vakgroep met teams als behandelteam',
'1;Primary category without teams;5;Primary category with teams;2;Processing team;3;Both primary category without teams and processing team;7;Both primary category with teams and processing team')
FAC_LCL('mld_discipline_bestellimiet1', 'Backoffice bestellimiet1', 'Back office purchase order limit1')
FAC_LCL('mld_discipline_bestellimiet2', 'Backoffice bestellimiet2', 'Back office purchase order limit2')
FAC_LCL('mld_discipline_bestellimiet3', 'Backoffice bestellimiet3', 'Back office purchase order limit3')

10
FAC/FAC_PACFLEX.SRC
View File

@@ -433,6 +433,8 @@ AS
IF expr.fac_kenmwaarden_kenmerktype = 'N'
THEN
DBMS_SQL.define_column(l_cursor_exprval, 1, l_exprval_num);
ELSIF expr.fac_kenmwaarden_kenmerktype = 'V'
DBMS_SQL.define_column(l_cursor_exprval, 1, l_exprval_num);
ELSIF expr.fac_kenmwaarden_kenmerktype = 'D'
THEN
DBMS_SQL.define_column(l_cursor_exprval, 1, l_exprval_date);
@@ -479,6 +481,10 @@ AS
l_kenmerkw_date := TO_DATE(l_kenmerkwaarde, 'DD-MM-YYYY');
DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkw_date);
WHEN 'N'
THEN
l_kenmerkw_num := TO_NUMBER(l_kenmerkwaarde);
DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkw_num);
WHEN 'V'
THEN
l_kenmerkw_num := TO_NUMBER(l_kenmerkwaarde);
DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkw_num);
@@ -507,6 +513,10 @@ AS
l_exprval := l_exprval || RPAD('0', expr.fac_kenmwaarden_kenmerkdec, '0');
l_exprval := SUBSTR(l_exprval, 1, INSTR(l_exprval, '.') + expr.fac_kenmwaarden_kenmerkdec);
END IF;
ELSIF expr.fac_kenmwaarden_kenmerktype = 'V'
THEN
DBMS_SQL.column_value (l_cursor_exprval, 1, l_exprval_num);
l_exprval := TO_CHAR(l_exprval_num);
ELSIF expr.fac_kenmwaarden_kenmerktype = 'D'
THEN
DBMS_SQL.column_value (l_cursor_exprval, 1, l_exprval_date);

12
FAC/FAC_PACX.SRC
View File

@@ -789,18 +789,26 @@ AS
IF (p_kenmerk_type = 'R' OR p_kenmerk_type = 'S')
THEN
RETURN flx.getdomeinwaarde (p_kenmerkdomein_key, p_kenmerk_waarde, CASE WHEN xmlnode_depth = 0 THEN 1 ELSE 0 END);
ELSIF ( p_kenmerk_type IN ('N', 'B')
ELSIF ( p_kenmerk_type = 'B'
AND srtkenmerk_nmin = 0
AND srtkenmerk_nmax = 1
AND p_kenmerk_waarde = 0)
THEN
RETURN lcl.L ('lcl_check_xml_0');
ELSIF ( p_kenmerk_type IN ('N', 'B')
ELSIF ( p_kenmerk_type = 'B'
AND srtkenmerk_nmin = 0
AND srtkenmerk_nmax = 1
AND p_kenmerk_waarde = 1)
THEN
RETURN lcl.L ('lcl_check_xml_1');
ELSIF ( p_kenmerk_type = 'V'
AND p_kenmerk_waarde = 0)
THEN
RETURN lcl.L ('lcl_check_xml_0');
ELSIF ( p_kenmerk_type = 'V'
AND p_kenmerk_waarde = 1)
THEN
RETURN lcl.L ('lcl_check_xml_1');
END IF;
RETURN p_kenmerk_waarde;

4
FAC/FAC_TAB.SRC
View File

@@ -1563,7 +1563,7 @@ CREATE_TABLE (fac_kenmwaarden, 0)
VARCHAR2(4000),
fac_kenmwaarden_kenmerktype
VARCHAR2(1)
CONSTRAINT fac_c_fac_kenmwaarden_kenmtype CHECK(fac_kenmwaarden_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B')),
CONSTRAINT fac_c_fac_kenmwaarden_kenmtype CHECK(fac_kenmwaarden_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V')),
fac_kenmwaarden_kenmerklen
NUMBER(4),
fac_kenmwaarden_kenmerkdec
@@ -1899,7 +1899,7 @@ CREATE_TABLE(faq_kenmerk,0)
faq_kenmerk_dimensie VARCHAR2(10),
faq_kenmerk_kenmerktype VARCHAR2(1)
CONSTRAINT faq_c_faq_kenmerk_type1
CHECK(faq_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B')),
CHECK(faq_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V')),
faq_kenmerk_systeem NUMBER(2),
faq_kenmerk_toonbaar NUMBER(1),
faq_kenmerk_uniek NUMBER(1),

2
FIN/FIN_TAB.SRC
View File

@@ -190,7 +190,7 @@ CREATE_TABLE(fin_kenmerk,0)
VARCHAR2(10)
,fin_kenmerk_kenmerktype
VARCHAR2(1)
CONSTRAINT fin_c_fin_kenmerk_type1 CHECK(fin_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B'))
CONSTRAINT fin_c_fin_kenmerk_type1 CHECK(fin_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
,fin_kenmerk_systeem
NUMBER(2)
,fin_kenmerk_toonbaar

2
INS/INS_TAB.SRC
View File

@@ -674,7 +674,7 @@ CREATE_TABLE(ins_srtkenmerk, 0)
VARCHAR2(10),
ins_srtkenmerk_kenmerktype
VARCHAR2(1)
CONSTRAINT ins_c_ins_srtkenmerk_kenmtype CHECK(ins_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B')),
CONSTRAINT ins_c_ins_srtkenmerk_kenmtype CHECK(ins_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V')),
ins_srtkenmerk_systeem -- &1 = systeemkm, &2 = primary, show in list
NUMBER(2)
DEFAULT 0 NOT NULL,

2
MLD/MLD_TAB.SRC
View File

@@ -1044,7 +1044,7 @@ CREATE_TABLE(mld_srtkenmerk, 0)
, CONSTRAINT mld_c_mld_srtkenmerk_omschr CHECK(mld_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT mld_srtkenmerk_omschrijving CHECK(mld_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT mld_u_mld_srtkenmerk_upper UNIQUE(mld_srtkenmerk_upper, mld_srtkenmerk_verwijder)
, CONSTRAINT mld_c_mld_srtkenmerk_kenmtype CHECK(mld_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B'))
, CONSTRAINT mld_c_mld_srtkenmerk_kenmtype CHECK(mld_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
, CONSTRAINT mld_c_mld_srtkenmerk_lengte CHECK(mld_srtkenmerk_lengte >= 1
AND mld_srtkenmerk_lengte <= 4000)
, CONSTRAINT mld_c_mld_srtkenmerk_max_min CHECK(mld_srtkenmerk_nmax >= mld_srtkenmerk_nmin)

2
PRS/PRS_TAB.SRC
View File

@@ -965,7 +965,7 @@ CREATE_TABLE(prs_kenmerk,0)
,prs_kenmerk_kenmerktype
VARCHAR2(1)
CONSTRAINT prs_c_prs_kenmerk_type2 CHECK
(prs_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B'))
(prs_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
,prs_kenmerk_systeem
NUMBER(2)
DEFAULT 0

2
RES/RES_TAB.SRC
View File

@@ -688,7 +688,7 @@ CREATE_TABLE(res_srtkenmerk, 0)
, CONSTRAINT res_c_res_srtkenmerk_omschr CHECK(res_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT res_srtkenmerk_omschrijving CHECK(res_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT res_u_res_srtkenmerk_upper UNIQUE(res_srtkenmerk_upper, res_srtkenmerk_verwijder)
, CONSTRAINT res_c_res_srtkenmerk_kenmtype CHECK(res_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B'))
, CONSTRAINT res_c_res_srtkenmerk_kenmtype CHECK(res_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
, CONSTRAINT res_c_res_srtkenmerk_lengte CHECK(res_srtkenmerk_lengte >= 1
AND res_srtkenmerk_lengte <= 4000)
, CONSTRAINT res_c_res_srtkenmerk_max_min CHECK(res_srtkenmerk_nmax >= res_srtkenmerk_nmin)

82
_UP/DB35to36.src
View File

@@ -347,6 +347,88 @@ ALTER TABLE prs_bedrijfadres
, prs_bedrijfadres_replyaddress VARCHAR2(512)
);
/////////////////////////////////////////////////////////////////////////////////////////// FCLT#56458
CREATE OR REPLACE TYPE km_record AS OBJECT (tbl VARCHAR2(50), cst VARCHAR2(50));
DECLARE
TYPE km_module IS VARRAY(10) OF VARCHAR2(10);
TYPE km_tables IS VARRAY(11) OF km_record;
rec km_tables;
mdl km_module;
opdracht VARCHAR2(1000);
sql_type VARCHAR2(1000);
BEGIN
rec := km_tables( km_record('alg_kenmerk', 'alg_c_alg_kenmerk_type1')
, km_record('bez_kenmerk', 'bez_c_bez_kenmerk_type2')
, km_record('faq_kenmerk', 'faq_c_faq_kenmerk_type1')
, km_record('fin_kenmerk', 'fin_c_fin_kenmerk_type1')
, km_record('prs_kenmerk', 'prs_c_prs_kenmerk_type2')
, km_record('bes_srtkenmerk', 'bes_c_bes_srtkenmerk_kenmtype')
, km_record('cnt_srtkenmerk', 'cnt_c_cnt_srtkenmerk_kenmtype')
, km_record('ins_srtkenmerk', 'ins_c_ins_srtkenmerk_kenmtype')
, km_record('mld_srtkenmerk', 'mld_c_mld_srtkenmerk_kenmtype')
, km_record('res_srtkenmerk', 'res_c_res_srtkenmerk_kenmtype')
, km_record('fac_kenmwaarden', 'fac_c_fac_kenmwaarden_kenmtype')
);
FOR i IN 1 .. 11 LOOP
--
-- huidige constraint verwijderen
opdracht := 'TABLE '|| rec(i).tbl ||' DROP CONSTRAINT '|| rec(i).cst ||';';
--DBMS_OUTPUT.put_line('ALTER '|| opdracht);
ADM.tryalter(opdracht);
--
-- nieuwe constraint zetten
opdracht := 'TABLE '|| rec(i).tbl ||' ADD CONSTRAINT '|| rec(i).cst
||' CHECK('|| rec(i).tbl ||'_kenmerktype'
||' IN (''C'',''N'',''D'',''T'',''R'',''X'',''L'',''Q'',''F'',''M'',''E'',''S'',''l'',''B'',''V''))'
||' ENABLE NOVALIDATE;';
--DBMS_OUTPUT.put_line('ALTER '|| opdracht);
ADM.tryalter(opdracht);
--
-- waarden voor checkbox omzetten
IF (rec(i).tbl = 'fac_kenmwaarden')
THEN
-- update van tabel fac_kenmwaarden gebeurd als laatste. in de andere tabellen is het kenmerktype checkbox dan al gezet.
-- met de kenmerk_key kun je dan dus gelijk de juiste kenmerktype (ook de V) ophalen.
mdl := km_module('ALG_','BEZ_','FAQ_','FIN_','PRS_','BES_SRT','CNT_SRT','INS_SRT','MLD_SRT','RES_SRT');
FOR j IN 1 .. 10 LOOP
sql_type := 'SELECT '|| mdl(j) ||'kenmerk_kenmerktype'
|| ' FROM '|| mdl(j) ||'kenmerk k';
IF (LENGTH(mdl(j)) > 4)
THEN
sql_type := sql_type ||' ,'|| SUBSTR(mdl(j),1,4) ||'kenmerk s'
||' WHERE k.'|| mdl(j) ||'kenmerk_key = s.'|| SUBSTR(mdl(j),1,4) ||'kenmerk_key'
||' AND s.'|| SUBSTR(mdl(j),1,4) ||'kenmerk_key = w.fac_kenmwaarden_kenmerk_key';
ELSE
sql_type := sql_type ||' WHERE k.'|| mdl(j) ||'kenmerk_key = w.fac_kenmwaarden_kenmerk_key';
END IF;
opdracht := 'UPDATE fac_kenmwaarden W'
|| ' SET w.fac_kenmwaarden_kenmerktype = ('|| sql_type ||')'
|| ' WHERE w.fac_kenmwaarden_kenmerktype = ''N'''
|| ' AND w.fac_kenmwaarden_module = '''|| SUBSTR(mdl(j),1,3) ||''';';
--DBMS_OUTPUT.put_line(opdracht);
EXECUTE IMMEDIATE opdracht;
END LOOP;
ELSE
opdracht := 'UPDATE '|| rec(i).tbl
|| ' SET '|| rec(i).tbl ||'_kenmerktype = ''V'''
|| ' , '|| rec(i).tbl ||'_lengte = NULL'
|| ' , '|| rec(i).tbl ||'_nmin = NULL'
|| ' , '|| rec(i).tbl ||'_nmax = NULL'
|| ' WHERE '|| rec(i).tbl ||'_kenmerktype = ''N'''
|| ' AND '|| rec(i).tbl ||'_lengte = 1'
|| ' AND '|| rec(i).tbl ||'_nmin = 0'
|| ' AND '|| rec(i).tbl ||'_nmax = 1;';
--DBMS_OUTPUT.put_line(opdracht);
EXECUTE IMMEDIATE opdracht;
END IF;
END LOOP;
END;
/
DROP TYPE km_record;
/
/////////////////////////////////////////////////////////////////////////////////////////// XXXX#nnnnn
/////////////////////////////////////////////////////////////////////////////////////////// XXXX#nnnnn