FSN#29184 fac_export_app_prefix van 20 naar 50 karakters

svn path=/Database/branches/DB21/; revision=21131

FAC/FAC_PAC.SRC

@@ -3147,8 +3147,8 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                   FROM bes_bestelling
                  WHERE bes_bestelling_key = prefkey;
 
-                -- Bij BESAP1 willen we *ook* de goedkeurders inlichten
-                IF lcode = 'BESFIT'
+                -- Bij BESACP willen we *ook* de goedkeurders inlichten
+                IF lcode = 'BESACP'
                 THEN
                     bes.notifybesgoedkeurders (prefkey);
                 END IF;

FAC/FAC_PACF.SRC

@@ -4127,7 +4127,7 @@ BEGIN
                    THEN
                       v_errorhint := ' Fout bij aanpassen ruimtebezetting';
 
-                      UPDATE prs_ruimteafdeling 
+                      UPDATE prs_ruimteafdeling
                          SET prs_ruimteafdeling_bezetting = recRuimte.prs_ruimteafdeling_bezetting
                        WHERE prs_ruimteafdeling_key = v_ruimteafdeling_key;
                    END IF;
@@ -11999,7 +11999,7 @@ AS
     -- v_seq_of_columns ListOfInteger := (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21);
 
     -- Dus dan maar via een string, en ook op slimme wijze, nl alsof het een ingelezen factuur-record is met p_fielddelimitor
-    v_seq_of_columns VARCHAR(50);
+    v_seq_of_columns VARCHAR(255);
 
 
     -- Afwijkingen op deze volgorde zijn in eigen cust_import_factuur te regelen.
@@ -12149,7 +12149,7 @@ BEGIN
            THEN
               v_errorhint := 'Inlezen leveranciernr kolom:' || v_colnr1;
               fac.imp_getfield_nr (v_newline, v_fielddelimitor, fac.safe_to_number(v_colnr1), v_leveranciernr);
-              v_errorhint := 'Inlezen factuurnr kolom:' || v_colnr2;         
+              v_errorhint := 'Inlezen factuurnr kolom:' || v_colnr2;
               fac.imp_getfield_nr (v_newline, v_fielddelimitor, fac.safe_to_number(v_colnr2), v_factuurnr);
               v_errorhint := 'Inlezen factuurdatum kolom:' || v_colnr3;
               fac.imp_getfield_nr (v_newline, v_fielddelimitor, fac.safe_to_number(v_colnr3), v_factuurdatum);

FAC/FAC_PACX.SRC

@@ -6185,7 +6185,7 @@ AS
              res_rsv_ruimte_van,
              res_rsv_ruimte_tot,
              res_rsv_ruimte_bezoekers,
-             res.getruimteprijs (res_rsv_ruimte_key) - res_rsv_ruimte_korting,
+             res.getruimteprijs (res_rsv_ruimte_key) - COALESCE(res_rsv_ruimte_korting, 0),
              res_rsv_ruimte_korting,
              rr.res_status_bo_key,
              rr.res_status_fo_key,

FAC/FAC_TAB.SRC

@@ -641,7 +641,7 @@ CREATE_TABLE(fac_export_app, 0)
   fac_export_app_folder
     VARCHAR(320),
   fac_export_app_prefix
-    VARCHAR2(20),
+    VARCHAR2(60),
   fac_export_app_postfix
     VARCHAR2(20),
   fac_export_app_log_postfix

FCLT.NMK

@@ -62,7 +62,7 @@ PROJEXE=z:\Project\FACILITOR\BUILD
 ##
 CURRENTVERSION=20
 NEXTVERSION=21
-FILEVERSION=
+FILEVERSION=a
 NEXTCAREVERSION=26
 NEXTROOT=DB$(NEXTVERSION)$(FILEVERSION)
 CURRENTUPDATE=DB$(CURRENTVERSION)to$(NEXTVERSION)

INS/INS_TRI.SRC

@@ -162,6 +162,8 @@ BEFORE INSERT OR UPDATE ON ins_deel
 FOR EACH ROW
 declare
   Dummy1 BOOLEAN;
+  new_date DATE;
+  prev_state   ins_deel_state_history.ins_deel_state%TYPE;
 BEGIN
 
    UPDATE_PRIMARY_KEY(ins_deel_key,ins_s_ins_inst_keys);
@@ -301,8 +303,34 @@ BEGIN
    IF (:old.ins_deel_state  IS NULL AND :new.ins_deel_state IS NOT NULL)
     OR (:new.ins_deel_state  <> :old.ins_deel_state)
    THEN
-     INSERT INTO ins_deel_state_history (ins_deel_key, ins_deel_state, ins_deel_statedate)
-     VALUES (:new.ins_deel_key, :new.ins_deel_state, COALESCE(:new.ins_deel_statedate, SYSDATE));
+     BEGIN
+       new_date := COALESCE (:new.ins_deel_statedate, SYSDATE); -- voorkom dat de update *net* een seconde later kan zijn
+       INSERT INTO ins_deel_state_history (ins_deel_key, ins_deel_state, ins_deel_statedate)
+       VALUES (:new.ins_deel_key, :new.ins_deel_state, COALESCE(:new.ins_deel_statedate, new_date));
+     EXCEPTION
+         WHEN DUP_VAL_ON_INDEX
+         THEN
+            SELECT ins_deel_state
+              INTO prev_state
+              FROM ins_deel_state_history
+             WHERE ins_deel_state_history_key =
+                      (SELECT MAX (ins_deel_state_history_key)
+                         FROM ins_deel_state_history
+                        WHERE ins_deel_key = :new.ins_deel_key
+                              AND ins_deel_statedate < new_date);
+
+            IF (prev_state = :new.ins_deel_state)
+            THEN
+               DELETE ins_deel_state_history
+                WHERE ins_deel_key = :new.ins_deel_key
+                      AND ins_deel_statedate = new_date;
+            ELSE -- kan alleen bij tri-stste statussen gebeuren
+               UPDATE ins_deel_state_history
+                  SET ins_deel_state = :new.ins_deel_state
+                WHERE ins_deel_key = :new.ins_deel_key
+                      AND ins_deel_statedate = new_date;
+            END IF;
+      END;
    END IF;
    UPDATE_AANMAAKDATUM(ins_deel, ins_deel_aanmaak);
 END;

_UP/DB20to21.src

@@ -26,7 +26,7 @@ CREATE_TABLE(fac_export_app, 0)
   fac_export_app_folder
     VARCHAR(320),
   fac_export_app_prefix
-    VARCHAR2(20),
+    VARCHAR2(60),
   fac_export_app_postfix
     VARCHAR2(20),
   fac_export_app_log_postfix