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

PLGR#81652 -- Implementatie Plieger

Browse Source 
svn path=/Customer/trunk/; revision=64737
This commit is contained in:
Norbert Wassink
2024-05-17 14:13:33 +00:00
parent e297c0b686
commit d29ccd654f
1 changed files with 29 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
PLGR/PLGR.sql
View File

@@ -46,6 +46,9 @@ AS
CURSOR obj
IS
SELECT fac_imp_csv_key fac_imp_csv_key,
fac_imp_csv_col03 ins_groep_oms,
fac_imp_csv_col04 ins_srtdeel_code,
fac_imp_csv_col05 ins_srtdeel_oms,
fac_imp_csv_col06 ins_deel_omschrijving,
fac_imp_csv_col07 taak_omschrijving,
fac_imp_csv_col08 taak_cyclus,
@@ -72,10 +75,14 @@ BEGIN
AND LENGTH(rec.taak_categorie)>1)
THEN
BEGIN
SELECT ins_deel_key INTO v_ins_deel_key
FROM ins_deel i
WHERE i.ins_deel_omschrijving=rec.ins_deel_omschrijving
AND i.ins_deel_verwijder IS NULL;
SELECT i.ins_deel_key
INTO v_ins_deel_key
FROM ins_v_deel_gegevens i, ins_srtdeel id
WHERE i.ins_deel_omschrijving = rec.ins_deel_omschrijving
AND i.ins_srtgroep_upper=UPPER(rec.ins_groep_oms)
AND i.ins_srtdeel_key = id.ins_srtdeel_key
AND id.ins_srtdeel_code = rec.ins_srtdeel_code
AND id.ins_srtdeel_upper=UPPER(rec.ins_srtdeel_oms);
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_ins_deel_key := -1;
@@ -116,7 +123,10 @@ AS
CURSOR obj
IS
SELECT fac_imp_csv_key fac_imp_csv_key,
fac_imp_csv_col06 ins_deel_omschrijving,
fac_imp_csv_col03 ins_groep_oms,
fac_imp_csv_col04 ins_srtdeel_code,
fac_imp_csv_col05 ins_srtdeel_oms,
fac_imp_csv_col06 ins_deel_omschrijving,
fac_imp_csv_col07 taak_omschrijving,
fac_imp_csv_col08 taak_cyclus,
fac_imp_csv_col09 taak_cyclus_eenheid,
@@ -174,22 +184,26 @@ BEGIN
v_taak_datum := fac.safe_to_date(rec.taak_datum,'DD-MM-YYYY');
IF rec.taak_cyclus_eenheid='3'
THEN
v_eenheid:=3;
ELSIF rec.taak_cyclus_eenheid='4'
THEN
v_eenheid:=4;
ELSIF rec.taak_cyclus_eenheid='2'
THEN
v_eenheid:=2;
v_eenheid:=3;
ELSIF rec.taak_cyclus_eenheid='4'
THEN
v_eenheid:=4;
ELSIF rec.taak_cyclus_eenheid='2'
THEN
v_eenheid:=2;
END IF;
--Haal het object, discipine , groep en objectsoort
BEGIN
v_errormsg :='Ophalen object '||rec.ins_deel_omschrijving;
SELECT ins_deel_key, ins_discipline_key, ins_srtgroep_key, ins_srtdeel_key
SELECT i.ins_deel_key, i.ins_discipline_key, i.ins_srtgroep_key, i.ins_srtdeel_key
INTO v_deel_key, v_ins_discipine_key, v_ins_srtgroep_key, v_ins_srtdeel_key
FROM ins_v_deel_gegevens
WHERE ins_deel_omschrijving = rec.ins_deel_omschrijving ;
FROM ins_v_deel_gegevens i, ins_srtdeel id
WHERE i.ins_deel_omschrijving = rec.ins_deel_omschrijving
AND i.ins_srtgroep_upper=UPPER(rec.ins_groep_oms)
AND i.ins_srtdeel_key = id.ins_srtdeel_key
AND id.ins_srtdeel_code = rec.ins_srtdeel_code
AND id.ins_srtdeel_upper=UPPER(rec.ins_srtdeel_oms);
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_deel_key:=-1;