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

ARBO#70792 -- Foutmelding bestelling 'Thuiswerkplek'.

Browse Source 
svn path=/Customer/trunk/; revision=54786
This commit is contained in:
Arthur Egberink
2022-02-01 15:45:49 +00:00
parent ccaeee61de
commit ed9e62d071
1 changed files with 17 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
ARBO/arbo.sql
View File

@@ -29,13 +29,15 @@ AS
CURSOR c1
IS
-- 1241 = Catering en geschenken (Absoluta)
SELECT sd.bes_srtdeel_opmerking, ins_discipline_key
FROM bes_bestelling_item bi,
bes_srtdeel sd,
bes_srtgroep sg
WHERE bi.bes_srtdeel_key = sd.bes_srtdeel_key
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
AND bi.bes_bestelling_key = p_bestelling_key;
AND bi.bes_bestelling_key = p_bestelling_key
AND sg.ins_discipline_key = 1241;
CURSOR c(c_discipline_key NUMBER)
IS
@@ -51,7 +53,7 @@ AS
v_kenmerk_waarde VARCHAR2(4000);
v_kenmerk_lengte VARCHAR2(100);
v_kenmerk_key VARCHAR2(100);
v_tag VARCHAR2(100);
v_tag VARCHAR2(4000);
v_discipline_key NUMBER;
BEGIN
@@ -65,20 +67,20 @@ AS
LOOP
-- maak een string met f teken, kenmerk_key : kenmerklengte : kenmerkomschrijving : kenmerkwaarde
v_srtdeel_opmerking := REPLACE(v_srtdeel_opmerking, rec.bes_srtkenmerk_omschrijving, chr(131) || rec.bes_kenmerk_key || ':' || rec.bes_srtkenmerk_lengte || ':' || rec.bes_srtkenmerk_omschrijving);
WHILE v_srtdeel_opmerking IS NOT NULL
LOOP
fac.imp_getfield (v_srtdeel_opmerking, chr(131), v_kenmerk_waarde);
fac.imp_getfield (v_kenmerk_waarde, ':', v_kenmerk_key);
fac.imp_getfield (v_kenmerk_waarde, ':', v_kenmerk_lengte);
fac.imp_getfield (v_kenmerk_waarde, ':', v_tag);
IF FAC.safe_to_number(v_kenmerk_key) IS NOT NULL AND FAC.safe_to_number(v_kenmerk_lengte) IS NOT NULL
THEN
FLX.setflex ('BES', TO_NUMBER(v_kenmerk_key), p_bestelling_key, SUBSTR(v_kenmerk_waarde, 1, TO_NUMBER(v_kenmerk_lengte)));
END IF;
END LOOP;
END LOOP;
WHILE v_srtdeel_opmerking IS NOT NULL
LOOP
fac.imp_getfield (v_srtdeel_opmerking, chr(131), v_kenmerk_waarde);
fac.imp_getfield (v_kenmerk_waarde, ':', v_kenmerk_key);
fac.imp_getfield (v_kenmerk_waarde, ':', v_kenmerk_lengte);
fac.imp_getfield (v_kenmerk_waarde, ':', v_tag);
IF FAC.safe_to_number(v_kenmerk_key) IS NOT NULL AND FAC.safe_to_number(v_kenmerk_lengte) IS NOT NULL
THEN
FLX.setflex ('BES', TO_NUMBER(v_kenmerk_key), p_bestelling_key, SUBSTR(v_kenmerk_waarde, 1, TO_NUMBER(v_kenmerk_lengte)));
END IF;
END LOOP;
END LOOP;
END;
END;