HPJI#79712 koppeling Facilitor en P2P

svn path=/Customer/trunk/; revision=63728

HPJI/hpji.sql

@@ -35,6 +35,8 @@ AS
                                       p_cursor         OUT t_cursor);
 
     PROCEDURE hpji_acties_verkoopcontracten;
+    
+    PROCEDURE opdracht_after_insert (p_opdr_key IN NUMBER);
                                       
 END;
 /
@@ -797,6 +799,42 @@ AS
                           'Proces afgebroken!',
                           v_errorhint);
     END hpji_acties_verkoopcontracten;
+    
+    PROCEDURE opdracht_after_insert (p_opdr_key IN NUMBER)
+    AS
+        v_administratie   VARCHAR2 (49);
+        
+    BEGIN
+        SELECT a.administratie
+          INTO v_administratie
+          FROM mld_opdr          o,
+               prs_kostenplaats  kp,
+               (SELECT w.fac_usrdata_code       kpl_sub,
+                       w.fac_usrdata_omschr     administratie
+                  FROM fac_usrtab t, fac_usrdata w
+                 WHERE        t.fac_usrtab_key = w.fac_usrtab_key
+                          AND t.fac_usrtab_key = 1201
+                          AND w.fac_usrdata_verwijder IS NULL
+                          AND w.fac_usrdata_vervaldatum IS NULL
+                       OR w.fac_usrdata_vervaldatum > TRUNC (SYSDATE)) a
+         WHERE     kp.prs_kostenplaats_key = o.prs_kostenplaats_key
+               AND a.kpl_sub = SUBSTR (kp.prs_kostenplaats_nr, 1, 2)
+               AND o.mld_opdr_key = p_opdr_key;
+
+        IF v_administratie IS NOT NULL
+        THEN
+            mld.upsertopdrachtkenmerk (2301, p_opdr_key, v_administratie);
+
+            COMMIT;
+        END IF;
+    EXCEPTION
+    
+        WHEN NO_DATA_FOUND
+        THEN
+            RETURN;
+            
+    END opdracht_after_insert;
+
 END;
 /