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

WDKA#68779 -- Inrichten Wedeka

Browse Source 
svn path=/Customer/trunk/; revision=58643
This commit is contained in:
Norbert Wassink
2023-01-12 12:25:16 +00:00
parent f6b5080516
commit d369485ef6
1 changed files with 37 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
WDKA/WDKA.sql
View File

@@ -48,7 +48,7 @@ END;
CREATE OR REPLACE PACKAGE BODY WDKA
AS
PROCEDURE insert_object(p_objectNr IN VARCHAR2, p_mld_melding_key IN NUMBER)
PROCEDURE insert_object(p_objectNr IN VARCHAR2, p_mld_melding_key IN NUMBER)
AS
v_objectNr VARCHAR2(20):='';
v_objectSoortKey VARCHAR2(10):='';
@@ -1518,6 +1518,8 @@ BEGIN
fac.imp_getfield_nr (v_newline, c_delim, 24, v_gebruikertest);
fac.imp_getfield_nr (v_newline, c_delim, 27, v_gebruikers_resultaat);
fac.imp_getfield_nr (v_newline, c_delim, 28, v_volgende_testdatum_str);
fac.imp_getfield_nr (v_newline, c_delim, 29, v_laatste_vis_test_str);
fac.imp_getfield_nr (v_newline, c_delim, 30, v_laatste_vis_resultaat);
-- fac.imp_getfield (v_newline, c_delim, v_bedrading_eenheid);
@@ -1559,7 +1561,8 @@ BEGIN
AND UPPER (TRIM (v_bedrading)) = 'BEDRADING'
AND UPPER (TRIM (v_bedrading_resultaat)) = 'BEDRADING RESULTAAT'
AND UPPER (TRIM (v_volgende_testdatum_str)) = 'VOLGENDE TESTDATUM'
AND UPPER (TRIM (v_laatste_vis_test_str)) = 'LAATSTE VISUELE TEST'
AND UPPER (TRIM (v_laatste_vis_resultaat)) = 'LAATSTE VISUELE RESULTAAT'
THEN
header_is_valid := 1;
END IF;
@@ -1591,7 +1594,9 @@ BEGIN
FAC_IMP_CSV_COL15,
FAC_IMP_CSV_COL16,
FAC_IMP_CSV_COL17,
FAC_IMP_CSV_COL18)
FAC_IMP_CSV_COL18,
FAC_IMP_CSV_COL19,
FAC_IMP_CSV_COL20)
VALUES(v_count,
v_smartwareID,
@@ -1611,7 +1616,9 @@ BEGIN
v_bedrading_resultaat,
v_gebruikertest,
v_gebruikers_resultaat,
v_volgende_testdatum_str);
v_volgende_testdatum_str,
v_laatste_vis_test_str,
v_laatste_vis_resultaat);
/* INSERT INTO WDKA_IMP_SMARTWARE(smartwareid,
@@ -1687,7 +1694,9 @@ AS
FAC_IMP_CSV_COL15 bedrading_resultaat,
FAC_IMP_CSV_COL16 gebruikertest,
FAC_IMP_CSV_COL17 gebruikers_resultaat,
FAC_IMP_CSV_COL18 v_volgende_testdatum_str
FAC_IMP_CSV_COL18 v_volgende_testdatum_str,
FAC_IMP_CSV_COL19 laatste_vis_test_str,
FAC_IMP_CSV_COL20 laatste_vis_resultaat
FROM fac_imp_csv
ORDER BY FAC_IMP_CSV_INDEX;
@@ -1710,6 +1719,10 @@ AS
v_perslid_key NUMBER;
v_test_datum DATE;
v_volgende_testdatum DATE;
v_laatste_vis_test DATE;
v_controlemode_key NUMBER;
v_insdeelstr_status NUMBER;
BEGIN
-- open cursor haal alle regels op unique per smsartwareID en max(datum) (laatste alleen zichtbaar)
-- haal object op babsi van smartware code
@@ -1724,6 +1737,8 @@ BEGIN
v_ins_key:=0;
v_lastdate := NULL;
v_newdate := NULL;
v_controlemode_key := 10;
v_insdeelstr_status:=6;
SELECT prs_perslid_key INTO v_perslid_key from fac_import where fac_import_key=p_import_key;
v_count:=1;
@@ -1737,8 +1752,11 @@ BEGIN
v_ins_count :=0;
v_newdate := NULL;
v_test_datum := fac.safe_to_date (rec.v_laatste_datum_str,'DD-MM-YYYY');
v_volgende_testdatum := fac.safe_to_date (rec.v_volgende_testdatum_str,'DD-MM-YYYY');
v_test_datum := fac.safe_to_date (rec.laatste_vis_test_str,'DD-MM-YYYY');
IF v_test_datum IS NULL THEN
v_test_datum := TO_DATE(SYSDATE,'DD-MM-YYYY');
END IF;
-- v_volgende_testdatum := fac.safe_to_date (rec.v_volgende_testdatum_str,'DD-MM-YYYY');
BEGIN
SELECT ins_deel_key, ins_discipline_key
@@ -1821,10 +1839,20 @@ BEGIN
IF v_ins_deelsrtcontrole_key>0 THEN
v_aanduiding := 'Update deelsrtcontrole ('||v_count||')';
-- Is de test succesvol of niet
IF UPPER(rec.test_resultaat)='GOED' OR UPPER(rec.laatste_vis_resultaat)='GOED' THEN
v_controlemode_key:=10; -- Uitgevoerd
v_insdeelstr_status := 6;
ELSE
v_controlemode_key:=11; -- Reparatie/ Fout
v_insdeelstr_status:=5;
END IF;
UPDATE ins_deelsrtcontrole
SET ins_deelsrtcontrole_status=6,
SET ins_deelsrtcontrole_status=v_insdeelstr_status,
ins_deelsrtcontrole_datum=v_test_datum,
ins_controlemode_key=10,
ins_controlemode_key=v_controlemode_key,
ins_deelsrtcontrole_datum_org=v_test_datum,
ins_deelsrtcontrole_freezecost=0,
prs_perslid_key=v_perslid_key -- persoon die de import heeft gestart.