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

FLEX#62812 -- Flex werkplekreserveringen Import functie

Browse Source 
svn path=/Customer/trunk/; revision=47928
This commit is contained in:
Arthur Egberink
2020-08-26 11:14:04 +00:00
parent 60160b69ea
commit b11f737894
1 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
FLEX/flex.sql
View File

@@ -143,6 +143,7 @@ BEGIN
BEGIN
v_ongeldig := 0;
v_klantcode := TRIM(v_klantcode);
v_errormsg := 'Controleer klantcode ' || v_klantcode;
IF LENGTH(v_klantcode) > 4 OR v_klantcode IS NULL
THEN
@@ -150,6 +151,7 @@ BEGIN
v_klantcode := SUBSTR(v_klantcode, 1, 4);
END IF;
v_locatie_code := TRIM(v_locatie_code);
v_errormsg := 'Controleer locatiecode ' || v_locatie_code;
IF LENGTH(v_locatie_code) > 10 OR v_locatie_code IS NULL
THEN
@@ -157,6 +159,7 @@ BEGIN
v_locatie_code := SUBSTR(v_locatie_code, 1, 10);
END IF;
v_locatie_omschrijving := TRIM(v_locatie_omschrijving);
v_errormsg := 'Controleer locatieomschrijving ' || v_locatie_omschrijving;
IF LENGTH(v_locatie_omschrijving) > 60 OR v_locatie_omschrijving IS NULL
THEN
@@ -164,6 +167,7 @@ BEGIN
v_locatie_omschrijving := SUBSTR(v_locatie_omschrijving, 1, 60);
END IF;
v_gebouw_code := TRIM(v_gebouw_code);
v_errormsg := 'Controleer gebouwcode ' || v_gebouw_code;
IF LENGTH(v_gebouw_code) > 10 OR v_gebouw_code IS NULL
THEN
@@ -171,6 +175,7 @@ BEGIN
v_gebouw_code := SUBSTR(v_gebouw_code, 1, 12);
END IF;
v_gebouw_omschrijving := TRIM(v_gebouw_omschrijving);
v_errormsg := 'Controleer gebouwomschrijving ' || v_gebouw_omschrijving;
IF LENGTH(v_gebouw_omschrijving) > 30 OR v_gebouw_omschrijving IS NULL
THEN
@@ -178,6 +183,7 @@ BEGIN
v_gebouw_omschrijving := SUBSTR(v_gebouw_omschrijving, 1, 30);
END IF;
v_verdieping_volgnr := TRIM(v_verdieping_volgnr);
v_errormsg := 'Controleer bouwlaagvolgnummer ' || v_verdieping_volgnr;
IF FAC.safe_to_number(v_verdieping_volgnr) IS NULL
THEN
@@ -185,6 +191,7 @@ BEGIN
v_ongeldig := 1;
END IF;
v_ruimte_nr := TRIM(v_ruimte_nr);
v_errormsg := 'Controleer ruimtenummer ' || v_ruimte_nr;
IF LENGTH(v_ruimte_nr) > 10 OR v_ruimte_nr IS NULL
THEN
@@ -192,6 +199,7 @@ BEGIN
v_ruimte_nr := SUBSTR(v_ruimte_nr, 1, 10);
END IF;
v_ruimte_omschrijving := TRIM(v_ruimte_omschrijving);
v_errormsg := 'Controleer ruimteomschrijving ' || v_ruimte_omschrijving;
IF LENGTH(v_ruimte_omschrijving) > 30 OR v_ruimte_omschrijving IS NULL
THEN
@@ -199,6 +207,7 @@ BEGIN
v_ruimte_omschrijving := SUBSTR(v_ruimte_omschrijving, 1, 30);
END IF;
v_deel_omschrijving := TRIM(v_deel_omschrijving);
v_errormsg := 'Controleer werkplekidentificatie ' || v_deel_omschrijving;
IF LENGTH(v_deel_omschrijving) > 30 OR v_deel_omschrijving IS NULL
THEN
@@ -206,11 +215,11 @@ BEGIN
v_deel_omschrijving := SUBSTR(v_deel_omschrijving, 1, 30);
END IF;
v_deel_reserveerbaar := TRIM (v_deel_reserveerbaar);
v_errormsg := 'Controleer reserveerbaar ' || v_deel_reserveerbaar;
IF NOT (UPPER(v_deel_reserveerbaar) = 'J' OR v_deel_reserveerbaar IS NULL)
IF NOT (UPPER(v_deel_reserveerbaar) = 'J' OR UPPER(v_deel_reserveerbaar) = 'N' OR v_deel_reserveerbaar IS NULL)
THEN
fac.imp_writelog (p_import_key, 'W', 'Reserveerbaar is ongeldig: ' || v_aanduiding, v_errormsg);
v_ongeldig := 1;
END IF;
IF v_ongeldig = 0