CONN#20185

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

CONN/conn.sql

@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for CONN: Connexxion
 -- (c) 2005-2010 SG|facilitor bv
--- $Revision: 161 $
+-- $Revision: 162 $
--- $Modtime: 12-01-11 9:05 $
+-- $Modtime: 28-03-11 9:14 $
 --
 -- Support: +31 53 4800710
 
@@ -5741,7 +5741,7 @@ AS
              'U wordt verzocht uw bestelling met nummer '
           || bo.bes_bestelopdr_id
           || ' af te melden in Facilitor.',
-          b.bes_bestelling_key,
+          bo.bes_bestelopdr_key,
           NULL
    FROM bes_bestelling b,
         bes_bestelling_item bi,
@@ -7164,10 +7164,145 @@ AS
             AND c.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
             AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key(+);
 
-BEGIN fac.registercustversion('CONN', 42); END;
+/*
+-- Functionaliteit tbv de locatieoverzichten
+--    Budget
+--    Uitnutting
+--    Xelion informatie
+CREATE OR REPLACE PROCEDURE conn_import_budget (
+   p_applname   IN   VARCHAR2,
+   p_applrun    IN   VARCHAR2,
+   p_filedir    IN   VARCHAR2,
+   p_filename   IN   VARCHAR2
+)
+AS
+   v_newline          fac_imp_file.fac_imp_file_line%TYPE;                        -- Input line
+   v_field              VARCHAR2 (100);
+   v_fielddelimitor     VARCHAR2 (1);
+   v_errormsg           VARCHAR2 (200);
+   v_errorhint          VARCHAR2 (200);
+   oracle_err_num       NUMBER;
+   oracle_err_mes       VARCHAR2 (200);
+   header_is_valid      NUMBER;
+   -- De importvelden
+   v_empty              VARCHAR2 (100);
+   v_locatie         VARCHAR2 (100);
+   v_adres           VARCHAR2 (100);
+   v_divisie         VARCHAR2 (30);
+   v_budget          VARCHAR2 (30);
+   v_district        VARCHAR2 (30);
+   v_periode         VARCHAR2 (10);
+   v_huur            VARCHAR2 (30);
+   v_afschrijving    VARCHAR2 (30);
+   v_servicekosten   VARCHAR2 (30);
+   v_eindtotaal      VARCHAR2 (30);
+   v_vorige_locatie  VARCHAR2 (10);
+   v_vorige_divisie  VARCHAR2 (10);
+
+   CURSOR c
+   IS
+   SELECT *
+        FROM    fac_imp_file
+       WHERE    fac_imp_file_applicatie = p_applname
+       ORDER BY FAC_IMP_FILE_INDEX;
+BEGIN
+   -- Init
+   v_fielddelimitor := ';';
+   header_is_valid := 0;
+
+   DELETE      imp_log
+   WHERE imp_log_applicatie = p_applname;
+
+
+      FOR rec IN c
+      LOOP
+         BEGIN
+
+         v_errorhint := 'Inlezen regel';
+         v_newline := rec.fac_imp_file_line;
+         v_errorhint := 'Inlezen velden' || v_newline;
+         fac.imp_getfield (v_newline, v_fielddelimitor, v_locatie);
+         IF v_locatie IS NULL THEN
+            v_locatie := v_vorige_locatie;
+         END IF;
+         fac.imp_getfield (v_newline, v_fielddelimitor, v_adres);
+         fac.imp_getfield (v_newline, v_fielddelimitor, v_divisie);
+         IF v_divisie IS NULL THEN
+            v_divisie := v_vorige_divisie;
+         END IF;
+         fac.imp_getfield (v_newline, v_fielddelimitor, v_budget);
+         fac.imp_getfield (v_newline, v_fielddelimitor, v_district);
+         fac.imp_getfield (v_newline, v_fielddelimitor, v_periode);
+         fac.imp_getfield (v_newline, v_fielddelimitor, v_huur);
+         fac.imp_getfield (v_newline, v_fielddelimitor, v_afschrijving);
+         fac.imp_getfield (v_newline, v_fielddelimitor, v_servicekosten);
+         fac.imp_getfield (v_newline, v_fielddelimitor, v_eindtotaal);
+
+     IF header_is_valid = 0 THEN
+        IF upper(v_locatie) = 'LOCATIE' 
+        THEN 
+           header_is_valid := 1;
+        END IF;
+     ELSE
+     v_errorhint := 'Toevoegen record: ' || v_newline;
+         INSERT INTO conn_imp_budget
+                     (locatie,
+                      adres,
+                      divisie,
+                      budget,
+                      district,
+                      periode,
+                      huur,
+                      afschrijving,
+                      servicekosten,
+                      eindtotaal,
+                      importrun
+                     )
+              VALUES (v_locatie,
+                      v_adres,
+                      v_divisie,
+                      v_budget,
+                      v_district,
+                      v_periode,
+                      fac.safe_to_number(v_huur),
+                      fac.safe_to_number(v_afschrijving),
+                      fac.safe_to_number(v_servicekosten),
+                      fac.safe_to_number(v_eindtotaal),
+                      p_applrun
+                     );
+    v_vorige_locatie := v_locatie;
+    v_vorige_divisie := v_divisie;
+  end if;
+         COMMIT;
+       END;
+     END LOOP;
+
+
+EXCEPTION
+   WHEN OTHERS
+   THEN
+      oracle_err_num := SQLCODE;
+      oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
+      v_errormsg :=
+           'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
+      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+END;
 /
 
-BEGIN adm.systrackscript('$Workfile: conn.sql $', '$Revision: 161 $', 0); END;
+
+CREATE OR REPLACE PROCEDURE conn_update_budget (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+AS
+BEGIN
+   NULL;
+END;
+/
+*/
+
+
+BEGIN fac.registercustversion('CONN', 43); END;
+/
+
+BEGIN adm.systrackscript('$Workfile: conn.sql $', '$Revision: 162 $', 0); END;
 /
 
 COMMIT;