AAEY#26935 -- bundeling catering en kantoorartikelen.

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

AA/AAEY/Once/AAEY#26935.sql

@@ -0,0 +1,88 @@
+select * from alg_locatie
+
+select * from alg_gebouw
+
+CREATE TABLE aaey_imp_catering
+(
+   nummer VARCHAR2(20),
+   object VARCHAR2(50),
+   objectcode VARCHAR2(10),
+   managementunit VARCHAR2(10),
+   engagementnummer VARCHAR2(10),
+   leveringsdatum DATE,
+   ruimte  VARCHAR2(100),
+   aanvrager VARCHAR2(100),
+   aantal NUMBER(10),
+   eenheid VARCHAR2(15),
+   omschrijving VARCHAR2(100),
+   totaalbedrag NUMBER(8,2),
+   import_key                      NUMBER (10),
+   import_datum                    DATE,
+   export_datum                    DATE,
+   mld_opdr_key                    NUMBER (10),
+   alg_gebouw_key                  NUMBER (10)
+);
+
+CREATE TABLE aaey_imp_officesup
+(
+   nummer VARCHAR2(20),
+   object VARCHAR2(50),
+   objectcode VARCHAR2(10),
+   managementunit VARCHAR2(10),
+   engagementnummer VARCHAR2(10),
+   leverancier VARCHAR2(100),
+   ruimte  VARCHAR2(100),
+   aanvrager VARCHAR2(100),
+   aantal NUMBER(10),
+   eenheid VARCHAR2(15),
+   omschrijving VARCHAR2(100),
+   totaalbedrag NUMBER(8,2),
+   import_key                      NUMBER (10),
+   import_datum                    DATE,
+   export_datum                    DATE,
+   mld_opdr_key                    NUMBER (10),
+   alg_gebouw_key                  NUMBER (10),
+   prs_bedrijf_levkey          NUMBER(10)
+);
+
+select * from res_artikel
+
+/* Formatted on 7/8/2013 5:27:48 PM (QP5 v5.136.908.31019) */
+DECLARE
+   CURSOR c
+   IS
+      SELECT fac_imp_file_line
+        FROM fac_imp_file
+       WHERE fac_import_key = 901;
+
+   bedrijf   VARCHAR2 (100);
+   v_count   NUMBER;
+BEGIN
+   FOR rec IN c
+   LOOP
+      BEGIN
+         fac.imp_getfield_nr (rec.fac_imp_file_line,
+                              ';',
+                              6,
+                              bedrijf);
+
+         SELECT COUNT ( * )
+           INTO v_count
+           FROM prs_bedrijf
+          WHERE UPPER (prs_bedrijf_naam) = UPPER (bedrijf);
+
+         IF v_count = 0
+         THEN
+            DBMS_OUTPUT.put_line (bedrijf);
+
+            INSERT INTO prs_bedrijf (prs_bedrijf_naam,
+                                     prs_bedrijf_uitvoerende)
+                VALUES (bedrijf, 1);
+         END IF;
+      END;
+   END LOOP;
+
+   COMMIT;
+END;
+
+COMMIT;