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

WZUV#73971 Gegevens OCI (OCI koppeling Topgeschenken)

Browse Source 
svn path=/Customer/trunk/; revision=61578
This commit is contained in:
Suzan Wiegerinck
2023-08-24 15:36:53 +00:00
parent 3031dc5a6a
commit d23dfa2d08
1 changed files with 39 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
WZUV/WZUV.SQL
View File

@@ -221,12 +221,16 @@ AS
v_errorhint);
END;
--- deze procedure was eigenlijk voor artikelgroepen Hartingbank
--- maar we kunnen deze ook gebruiken voor Topgeschenken
PROCEDURE bes_artikelgroep_hb (p_bestelling_key IN NUMBER)
AS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (200);
v_kenmerk_key NUMBER (10);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (200);
v_kenmerk_key NUMBER (10);
v_kenmerk_key_uuid NUMBER (10);
CURSOR bestelitem IS
SELECT sd.bes_srtdeel_opmerking artikelgroep,
@@ -239,12 +243,29 @@ AS
AND sd.prs_bedrijf_key = 9839 --- alleen voor Hartinbank
AND TRUNC (sd.bes_srtdeel_aanmaak) =
TRUNC (b.bes_bestelling_datum);
CURSOR bestelitem_tg IS
SELECT sd.bes_srtdeel_opmerking uuid,
bi.bes_bestelling_item_key
FROM bes_srtdeel sd, bes_bestelling_item bi, bes_bestelling b
WHERE b.bes_bestelling_key = p_bestelling_key
AND sd.bes_srtdeel_opmerking IS NOT NULL
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
AND b.bes_bestelling_key = bi.bes_bestelling_key
AND sd.prs_bedrijf_key = 41681 --- alleen voor Topgeschenken
AND TRUNC (sd.bes_srtdeel_aanmaak) =
TRUNC (b.bes_bestelling_datum);
BEGIN
SELECT k.bes_kenmerk_key
INTO v_kenmerk_key
FROM bes_srtkenmerk sk, bes_kenmerk k
WHERE sk.bes_srtkenmerk_upper = 'ARTIKELGROEP'
AND sk.bes_srtkenmerk_key = k.bes_srtkenmerk_key;
SELECT k.bes_kenmerk_key
INTO v_kenmerk_key_uuid
FROM bes_kenmerk k
WHERE k.BES_KENMERK_OMSCHRIJVING = 'UUID';
FOR rec IN bestelitem
LOOP
@@ -258,6 +279,20 @@ AS
COMMIT;
END LOOP;
FOR rec IN bestelitem_tg
LOOP
-- we kunnen rustig een insert doen, het is nooit een update
INSERT INTO bes_kenmerkbesteli (bes_bestelling_item_key,
bes_kenmerk_key,
bes_kenmerkbesteli_waarde)
VALUES (rec.bes_bestelling_item_key,
v_kenmerk_key,
rec.uuid);
COMMIT;
END LOOP;
END;
PROCEDURE bes_uuid_topgeschenken (p_bestelling_key IN NUMBER)