From 1de7b50256c39a133b1d487957d943de656c3a30 Mon Sep 17 00:00:00 2001
From: Norbert Wassink <norbert.wassink@aareon.nl>
Date: Tue, 14 Feb 2023 08:29:22 +0000
Subject: [PATCH] CONN#72695 -- Inrichten MJOB

svn path=/Customer/trunk/; revision=59139
---
 CONN/conn.sql | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/CONN/conn.sql b/CONN/conn.sql
index 53efbb795..40b0d8b41 100644
--- a/CONN/conn.sql
+++ b/CONN/conn.sql
@@ -9534,7 +9534,7 @@ AS
            (SELECT ko.mld_kenmerkopdr_waarde  
               FROM mld_kenmerkopdr ko 
              WHERE  ko.mld_opdr_key = o.mld_opdr_key 
-               AND ko.mld_kenmerk_key=2661
+               AND ko.mld_kenmerk_key=2661   -- A=2701 P=2661
                AND ko.mld_kenmerkopdr_waarde IS NOT NULL) coupa_id,
           fb.fac_bijlagen_filename bestand, 
           fb.fac_bijlagen_disk_directory path,
@@ -9542,7 +9542,7 @@ AS
      FROM mld_opdr o, fac_v_bijlagen fb
     WHERE  fb.fac_bijlagen_refkey=o.mld_opdr_key
       AND o.mld_statusopdr_key IN (4,5)
-      AND fb.fac_bijlagen_kenmerk_key=2663 -- A=2722
+      AND fb.fac_bijlagen_kenmerk_key=2663 -- A=2722 P=2663
       AND fb.fac_bijlagen_module='MLD'; 
 
 
@@ -9780,6 +9780,7 @@ AS
         SELECT '3420','leuningen, algemeen (verzamelniveau)' FROM DUAL UNION
         SELECT '3421','leuningen, binnenleuningen' FROM DUAL UNION
         SELECT '3422','leuningen, buitenleuningen' FROM DUAL UNION
+        SELECT '3431','leuningen, binnentrapleuning hout' FROM DUAL UNION
         SELECT '3710','niet gevuld, algemeen (verzamelniveau)' FROM DUAL UNION
         SELECT '3711','niet gevuld, daglichtopeningen' FROM DUAL UNION
         SELECT '3712','niet gevuld, buitenluchtopeningen' FROM DUAL UNION
@@ -9825,8 +9826,10 @@ AS
         SELECT '4523','niet verlaagd, systeemafwerkingen' FROM DUAL UNION
         SELECT '4524','niet verlaagd, koofconstructies' FROM DUAL UNION
         SELECT '4525','niet verlaagd, gordijnplanken' FROM DUAL UNION
+        SELECT '4621','buitenschilderwerk, hout' FROM DUAL UNION
         SELECT '4622','binnenschilderwerk, spuitwerk' FROM DUAL UNION
         SELECT '4628','binnenschilderwerk, betoncontructie' FROM DUAL UNION
+        SELECT '4631','buitenschilderwerk, kozijn en raam hout dekkend' FROM DUAL UNION
         SELECT '4632','binnenschilderwerk, kozijn en raam staal' FROM DUAL UNION        
         SELECT '4710','afwerkingen, algemeen (verzamelniveau)' FROM DUAL UNION
         SELECT '4711','afwerkingen, vlakke dakafwerkingen' FROM DUAL UNION
@@ -10383,7 +10386,7 @@ AS
    v_ins_deel_aanmaak_text   VARCHAR2(10);
    v_ins_deel_aanmaak         DATE;
    v_ins_deel_startjaar       DATE;
-   v_ins_deel_aantal_text   VARCHAR2(10);
+   v_ins_deel_aantal_text   VARCHAR2(20);
    v_ins_deel_aantal          NUMBER;
    v_ins_srtcontrole_prijs    NUMBER(10,2);
    v_alg_locatie_code VARCHAR2(20);
@@ -10652,7 +10655,7 @@ BEGIN
    LOOP
       BEGIN
       V_count_import := v_count_import +1;
-      v_errormsg := 'Fout FETCH te importeren rij';
+      v_errormsg := 'Fout FETCH te importeren rij '||v_count_import;
 
       v_newline := rec.fac_imp_file_line;
       IF v_count_import >1 THEN
@@ -10678,7 +10681,7 @@ BEGIN
          v_errormsg := 'Fout opvragen K11 te importeren rij '||v_count_import;
          fac.imp_getfield_nr (v_newline, c_fielddelimitor, 11, v_kenmerk5);   -- cyclus
     
-         IF LENGTH(v_gebouw_code) > 0  AND UPPER(v_kenmerk1) NOT LIKE 'HERSTELLEN%'
+         IF LENGTH(v_gebouw_code) > 0  -- AND UPPER(v_kenmerk1) NOT LIKE 'HERSTELLEN%'
          THEN
                v_errormsg := 'vervangen , door . '||v_count_import;
                v_ins_srtdeel_code := REPLACE(v_ins_srtdeel_code,',','.');
@@ -10719,7 +10722,7 @@ BEGIN
                   
                END;    
       
-               v_errormsg := 'Fout bij toevoegen te impoteren v_ins_srtdeel_omschrijving: ' || v_ins_srtdeel_code;
+               v_errormsg := 'Fout bij toevoegen te impoteren v_ins_srtdeel_omschrijving: ' || v_ins_srtdeel_code ||'('||v_count_import||')';
                d_ins_srtdeel_omschrijving:='';
                
                SELECT TRIM(omsch) INTO v_ins_srtdeel_omschrijving FROM conn_v_select_nlsfb_grpsoort WHERE code=v_ins_srtdeel_code;
@@ -10727,7 +10730,7 @@ BEGIN
                
                BEGIN
                   SELECT sd.ins_srtdeel_omschrijving
-                    INTO v_ins_srtdeel_omschrijving
+                    INTO d_ins_srtdeel_omschrijving
                     FROM ins_srtdeel sd
                     WHERE sd.ins_srtdeel_code = v_ins_srtdeel_code
                       AND sd.ins_srtdeel_verwijder IS NULL;
@@ -10793,6 +10796,7 @@ BEGIN
                 ELSE
                    v_ins_deel_aantal := 1;
                 END IF;
+                v_errormsg := 'Fout bij ophalen ins_deel : '||v_ins_deel_opmerking;
                 v_ins_deel_omschrijving:='';
                 v_volgnr:=0;
                 v_objectcount:=0;
@@ -11086,7 +11090,7 @@ BEGIN
                               'S',
                               v_srtcontrole_omschrijving,
                               v_taakcat_key,
-                              v_taak_cyclus,
+                              0,
                               4,   -- Jaarlijks
                               v_srtcontrole_level
                               )