TWYN#53814 Account

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

TWYN/twyn_pac.sql

@@ -68,7 +68,7 @@ CREATE OR REPLACE PROCEDURE twyn_delete_deelproject ( p_deelproject_key IN NUMBE
 AS
     -- Verwijder het deelproject met bgt_project_key = n.
     -- Met parameter p_alleen_fin worden alleen de budget- en contractgegevens verwijderd.
-    -- Default is het hele deelproject verwijderen, dus ook koststenplaatsen, kosten- rubriek, soortgrp en soort.
+    -- Default is het hele deelproject verwijderen, dus ook kostenplaatsen, kosten- rubriek, soortgrp en soort.
     v_delete_str      VARCHAR2 (100) := 'DELETE prj=' || TO_CHAR(p_deelproject_key);
     v_err_count       NUMBER;
 
@@ -378,6 +378,9 @@ AS
         END LOOP;
     END;  -- delete_budgetten
 
+    -- Voor verwijderen van deelproject is delete_kostenplaatsen niet meer van toepassing
+    -- omdat een kostenplaats nu bij een project (ins_discipline) hoort.
+    -- Alleen als de discipline wordt verwijderd zouden ook de bijbehorende kostenplaatsen kunnen worden verwijderd.
     PROCEDURE delete_kostenplaatsen(p_bgt_project_key IN NUMBER)
     AS
         CURSOR c_kostenplaats(p_kpgrp_key In NUMBER)
@@ -535,7 +538,6 @@ BEGIN
     delete_contracten(p_deelproject_key);
     delete_budgetten(p_deelproject_key);
     IF (NOT p_alleen_fin) THEN
-        delete_kostenplaatsen(p_deelproject_key);
         delete_deelproject(p_deelproject_key);
     END IF;
     log_info('I', 'EINDE');