From 5b8c2bb5f1ef5b59da56e95e553484b9d77ee4d9 Mon Sep 17 00:00:00 2001
From: Suzan Wiegerinck <suzan.wiegerinck@aareon.nl>
Date: Tue, 27 Feb 2024 14:37:19 +0000
Subject: [PATCH] HPJI#79712 koppeling Facilitor en P2P

svn path=/Customer/trunk/; revision=63728
---
 HPJI/hpji.sql | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)

diff --git a/HPJI/hpji.sql b/HPJI/hpji.sql
index d7682b1b3..01494ed22 100644
--- a/HPJI/hpji.sql
+++ b/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;
 /