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

svn path=/Customer/trunk/; revision=14759

Browse Source
This commit is contained in:
Peter Koerhuis
2011-05-02 13:59:46 +00:00
parent 570aa3e51e
commit 7719b9f0d2
1 changed files with 37 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
BAMG/once/bamg#20448.sql
View File

@@ -1,6 +1,7 @@
SET DEFINE OFF
SET ECHO ON
spool xbamg#20448.lst
SPOOL xbamg#20448.lst
PROMPT $Revision: 2 $
SET SERVEROUTPUT ON;
@@ -11,21 +12,22 @@ DECLARE
v_errormsg VARCHAR2 (1024);
v_errorhint VARCHAR2 (1024);
v_action VARCHAR (10);
v_count NUMBER (10);
v_counter NUMBER (10);
c_disc_dranken_key NUMBER (10) := 142;
c_art_koffie_key NUMBER (10) := 74;
c_art_thee_key NUMBER (10) := 2;
c_art_water_key NUMBER (10) := 3;
c_art_ktw_key NUMBER (10) := 681;
c_art_ktw_omschr VARCHAR2 (20) := 'Vergaderarrangement';
c_art_ktw_key NUMBER (10);
-- Alle reserveringen met koffie, thee en/of water
CURSOR c_reserveringen
IS
SELECT rra.res_rsv_ruimte_key,
COALESCE (MAX (rrr.res_rsv_ruimte_bezoekers),
MAX (rra.res_rsv_artikel_aantal) )
aantal,
MAX (rra.res_rsv_artikel_aantal) ) aantal,
MAX (rrr.res_reservering_key) res_reservering_key,
MAX (rrr.res_rsv_ruimte_volgnr) res_rsv_ruimte_volgnr,
MAX (rra.res_rsv_artikel_levering) res_rsv_artikel_levering,
@@ -46,11 +48,41 @@ DECLARE
BEGIN
v_counter := 0;
v_errorhint := 'Bepalen verbruiksartikel '||c_art_ktw_omschr;
SELECT COUNT(*)
INTO v_count
FROM res_artikel
WHERE res_discipline_key = c_disc_dranken_key
AND res_artikel_omschrijving = c_art_ktw_omschr;
-- Bestaat nog niet --> maak aan
IF (v_count = 0)
THEN
v_errorhint := 'Toevoegen verbruiksartikel '||c_art_ktw_omschr;
INSERT INTO res_artikel
(res_discipline_key, res_artikel_omschrijving, res_artikel_eenheid,
res_artikel_prijs, res_artikel_prijs_vast)
VALUES (c_disc_dranken_key, c_art_ktw_omschr, 'p.p.',
0, 1)
RETURNING res_artikel_key
INTO c_art_ktw_key;
DBMS_OUTPUT.PUT_LINE('Verbruiksartikel '''||c_art_ktw_omschr||''' aangemaakt (key '||c_art_ktw_key||').');
ELSE
v_errorhint := 'Ophalen verbruiksartikel '||c_art_ktw_omschr;
SELECT MAX(res_artikel_key)
INTO c_art_ktw_key
FROM res_artikel
WHERE res_discipline_key = c_disc_dranken_key
AND res_artikel_omschrijving = c_art_ktw_omschr;
END IF;
FOR rec_res IN c_reserveringen
LOOP
BEGIN
v_desc := rec_res.res_reservering_key||'/'||rec_res.res_rsv_ruimte_volgnr;
v_errorhint := 'Toevoegen k/t/w-arrangement aan reservering ['||v_desc||']';
v_errorhint := 'Toevoegen vergaderarrangement aan reservering ['||v_desc||']';
INSERT INTO res_rsv_artikel (res_artikel_key,
res_rsv_artikel_aantal,