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

WELK#37168 bij overschrijding eerste deelres wel volledige tbv algemene info

Browse Source 
svn path=/Database/trunk/; revision=30932
This commit is contained in:
Peter Feij
2016-09-30 08:08:18 +00:00
parent 34fe562fae
commit 69702e9f6b
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
FAC/FAC_PACX.SRC
View File

@@ -7141,6 +7141,7 @@ AS
v_reservering_key res_reservering.res_reservering_key%TYPE;
v_nrdeelres NUMBER;
l_status VARCHAR2 (7);
firstres BOOLEAN := TRUE;
CURSOR c1(res_key NUMBER)
IS
SELECT res_rsv_ruimte_key
@@ -7252,9 +7253,10 @@ AS
OR (p_res_rsv_ruimte_key IS NOT NULL
AND rec1.res_rsv_ruimte_key = p_res_rsv_ruimte_key)
THEN
IF v_nrdeelres <= fac.getsetting ('res_xml_max_rsv_ruimte')
IF v_nrdeelres <= fac.getsetting ('res_xml_max_rsv_ruimte') OR firstres
THEN
create_res_rsv_ruimte_node (rec1.res_rsv_ruimte_key, FALSE);
firstres := FALSE;
ELSE
create_res_rsv_ruimte_node (rec1.res_rsv_ruimte_key, TRUE);
END IF;