CONN#67269 -- Views tbv Notificatie jobs

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

CONN/conn.sql

@@ -23,6 +23,22 @@ SET DEFINE OFF
 
 ------ payload begin ------
 
+CREATE OR REPLACE PACKAGE CONN 
+AS
+  FUNCTION quote(in_v1 IN varchar2) RETURN varchar2;
+  
+END;
+/
+
+CREATE OR REPLACE PACKAGE BODY CONN AS
+  FUNCTION quote(in_v1 IN varchar2) RETURN varchar2 
+  AS
+  BEGIN
+    return chr(34) || in_v1 || chr(34);
+    --return string surrounded by " CHR(34)
+  END;
+END;
+/
 
 CREATE OR REPLACE FORCE VIEW conn_v_bes_diesel
 (
@@ -3040,72 +3056,7 @@ AS
                                                WHERE   itd.ins_discipline_omschrijving = 'Verbruiksregistratie')
    ORDER BY   p.prs_perslid_upper;
 
--- View notificatiejob
-/* Formatted on 20-10-2011 13:44:45 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE VIEW conn_v_noti_meterstreminder
-(
-   code,
-   sender,
-   receiver,
-   text,
-   key,
-   xkey
-)
-AS
-     SELECT   'OBJINF',
-              NULL,
-              meterstanden_verantwoordelijke,
-                 'U wordt verzocht de meterstanden van locatie '
-              || alg_locatie_omschrijving
-              || ' in te voeren in Facilitor.',
-              alg_locatie_key,
-              NULL
-       FROM   (  SELECT   l.alg_locatie_key,
-                          COUNT (l.alg_locatie_omschrijving) aantal_objecten,
-                          l.alg_locatie_omschrijving,
-                          (SELECT   alg_onrgoedkenmerk_waarde
-                             FROM   alg_locatie l, alg_onrgoedkenmerk ogk
-                            WHERE       l.alg_locatie_key = ogk.alg_onrgoed_key
-                                    AND ogk.alg_onrgoed_niveau = 'L'
-                                    AND l.alg_locatie_key = d.ins_alg_locatie_key
-                                    AND ogk.alg_kenmerk_key = 1280) -- Meterstandverantwoordelijke
-                             meterstanden_verantwoordelijke,
-                             COUNT((SELECT 'buiten'
-                                FROM ins_v_aanwezigkenmerkdeel akd
-                               WHERE akd.ins_deel_key = d.ins_deel_key
-                                 AND akd.ins_kenmerk_key = sk.ins_kenmerk_key
-                                 AND akd.ins_kenmerkdeel_aanmaak NOT
-                                BETWEEN   TRUNC(SYSDATE, 'MM') - 10
-                                    AND   TRUNC(SYSDATE, 'MM') + 14)) buiten,
-                             COUNT((SELECT 'binnen'
-                                FROM ins_v_aanwezigkenmerkdeel akd
-                               WHERE akd.ins_deel_key = d.ins_deel_key
-                                 AND akd.ins_kenmerk_key = sk.ins_kenmerk_key
-                                 AND akd.ins_kenmerkdeel_aanmaak
-                                BETWEEN   TRUNC(SYSDATE, 'MM') - 10
-                                    AND   TRUNC(SYSDATE, 'MM') + 14)) binnen
-                   FROM   ins_v_srtdeel_kenmerk sk,
-                          ins_v_aanwezigdeel d,
-                          ins_srtdeel sd,
-                          alg_locatie l
-                  WHERE       sk.ins_srtdeel_key = sd.ins_srtdeel_key
-                          AND d.ins_srtdeel_key = sd.ins_srtdeel_key
-                          AND d.ins_alg_locatie_key = l.alg_locatie_key
-                          AND sk.ins_kenmerk_meetwaarde = 1
-                          AND sk.ins_srtkenmerk_kenmerktype = 'N'
-                          AND (SELECT   alg_onrgoedkenmerk_waarde
-                                 FROM   alg_locatie l, alg_onrgoedkenmerk ogk
-                                WHERE   l.alg_locatie_key = ogk.alg_onrgoed_key
-                                        AND ogk.alg_onrgoed_niveau = 'L'
-                                        AND l.alg_locatie_key =
-                                              d.ins_alg_locatie_key
-                                        AND ogk.alg_kenmerk_key = 1280) IS NOT NULL -- Meterstandverantwoordelijke
-               GROUP BY   l.alg_locatie_omschrijving,
-                          d.ins_alg_locatie_key,
-                          alg_locatie_key) t1
-      WHERE   (t1.binnen = 0 AND t1.buiten > 0)
-              OR (t1.aantal_objecten > (t1.binnen + t1.buiten)) -- Indien er nog geen waarde is ingevuld dan altijd melding
-   ORDER BY   2;
+
 
 
 --------------------------
@@ -9294,6 +9245,174 @@ EXCEPTION
 END;
 /
 
+CREATE OR REPLACE PROCEDURE conn_select_coupa_export(p_applname   IN VARCHAR2,
+                                                     p_applrun    IN VARCHAR2)
+AS
+  CURSOR sel_opd IS
+  SELECT opdr_key, kosten, begindatum , einddatum, department, userLogin, locationcode, facilitorkey, levNr, omschrijving 
+    FROM conn_v_coupa_select; 
+    
+  v_req VARCHAR2(1000);
+  v_reqLine VARCHAR2(1000);
+  v_reqHeader VARCHAR2(1000);
+  v_reqLineHeader VARCHAR2(1000);
+  v_counter NUMBER;
+  v_regel NUMBER;
+  v_base VARCHAR2(10);
+BEGIN
+  v_reqHeader := 'Requisition,Record Identifier,Submit For Approval?,Need By Date,Justification,Department Name,Buyer Note,Requested By (Email),Requested By (Login),PCard Name,Ship To Name,Ship To Id,Ship To Attention,Ship To Street 1,Ship To Street 2,Ship To City,Ship To State,Ship To Postal Code,Ship to Country/Region Code,Ship to Country/Region Name,Ship to Location Code,Hide Price,Facilitor referentie,,,,,,,,,';
+  v_reqLineheader := 'Requisition Line,Record Identifier,Line Number,Catalogue Item Number,Catalogue Item Name,Non Catalogue Item Description,Supplier Part Number,Supplier Aux Part Number,Quantity,Price,Need By Date,Transmission Method Override,Transmission Emails,Supplier Name,Supplier Number,Supplier Site Code,UOM Code,Commodity Name,Contract Name,Currency Code,Asset Tags,Chart of Account Name,Account Name,Account Code,Account Segment 1,Account Segment 2,Account Segment 3,Account Segment 4,Payment Term Code,Shipping Term Code,Budget Period Name,Facilitor Referentie #';
+  v_counter:=1;
+  v_regel :=1;
+  v_base:='CPA_EXP-';
+  
+  DELETE FROM fac_rapport
+        WHERE fac_rapport_node LIKE 'CPA_EXP-%';
+  COMMIT;
+  
+  FOR rec IN sel_opd
+  LOOP
+    BEGIN
+      
+        v_req := 'Requestion,'||rec.opdr_key||',Yes,'||TO_CHAR(rec.begindatum,'DD-MM-YYY')||',,'||rec.department||',,,'||rec.userLogin||',,,,,,,,,,,,'||rec.locationcode||',,'||rec.facilitorkey;
+        v_reqLine := 'RequisitionLine,'||rec.opdr_key||',1,,,'||conn.quote(REPLACE(REPLACE(rec.omschrijving, CHR(13), ''), CHR(10), ''))||',,,,'||rec.kosten||','||TO_CHAR(rec.einddatum,'DD-MM-YYYY')||',,,,'||rec.levNr||',,,Totale kosten,,EUR,,Connexxion Nederland NV (XX-01 ),,,,,,,,,,'||rec.facilitorkey;
+        INSERT INTO fac_rapport (fac_rapport_node,
+                                 fac_rapport_volgnr,
+                                 fac_rapport_regel)
+             VALUES (v_base||v_counter||'-', v_regel, v_reqHeader);
+        v_regel:=v_regel+1;
+        INSERT INTO fac_rapport (fac_rapport_node,
+                                 fac_rapport_volgnr,
+                                 fac_rapport_regel)
+             VALUES (v_base||v_counter||'-', v_regel, v_reqLineHeader);
+        v_regel:=v_regel+1;
+        INSERT INTO fac_rapport (fac_rapport_node,
+                                 fac_rapport_volgnr,
+                                 fac_rapport_regel)
+             VALUES (v_base||v_counter||'-', v_regel, v_req);
+        v_regel:=v_regel+1;
+        INSERT INTO fac_rapport (fac_rapport_node,
+                                 fac_rapport_volgnr,
+                                 fac_rapport_regel)
+             VALUES (v_base||v_counter||'-', v_regel, v_reqLine);
+        v_regel := v_regel + 1;          
+        v_counter := v_counter +1;
+    END;
+  END LOOP;
+  COMMIT;
+  
+  
+  
+END;
+/
+
+CREATE OR REPLACE VIEW conn_v_coupa_select
+AS
+  SELECT op.MLD_OPDR_KEY opdr_key,
+         op.mld_opdr_kosten kosten,
+         op.mld_opdr_datumbegin begindatum,
+         op.mld_opdr_einddatum einddatum,
+         afd.prs_afdeling_omschrijving||'('||afd.prs_afdeling_naam||')' department,
+         prs.prs_perslid_oslogin userLogin,
+         'HV'||loc.alg_locatie_code locationCode,
+         'ST'||op.mld_opdr_key facilitorKey,
+         pbd.prs_leverancier_nr levNr,
+         COALESCE(op.mld_opdr_omschrijving, mld.mld_melding_omschrijving) omschrijving
+    FROM mld_opdr op, mld_melding mld, alg_locatie loc, prs_bedrijf pbd, prs_perslid prs, prs_afdeling afd 
+   WHERE op.mld_statusopdr_key=8 -- welke status moet een opdarcht hebben om hem naar Coupa te exporteren ?
+         AND pbd.prs_bedrijf_key = op.mld_uitvoerende_keys 
+         AND prs.prs_perslid_key = op.prs_perslid_key 
+         AND mld.mld_melding_key=op.mld_melding_key 
+         AND loc.alg_locatie_key = mld.mld_alg_locatie_key 
+         AND afd.prs_afdeling_key=prs.prs_afdeling_key;
+ 
+
+
+
+
+
+CREATE OR REPLACE VIEW CONN_V_EXPORT_COUPA_EXPORT
+(
+    result,
+    result_order,
+    exp_cpa
+)
+AS
+ SELECT fac_rapport_regel, fac_rapport_volgnr, fac_rapport_node
+   FROM fac_rapport
+  WHERE fac_rapport_node LIKE 'CPA_EXP%';
+
+
+
+
+-- View tbv van jaarlijkse rappeling voor die contracten die kenmerk jaarlijkse rappelering aan hebben staan.
+-- Deze rappelering draaid naats de standaard rappelering (fac_v_noti_cntreminder)
+CREATE OR REPLACE VIEW conn_v_noti_jrremind
+(code, sender, receiver, text, key, par1, par2, xkey, xemail, xmobile, fac_srtnotificatie_key, attachments, xsender, prs_bedrijfadres_key)
+AS 
+  SELECT '', '', c.prs_perslid_key_beh,
+               'Jaarlijkse Rappelering: Contract '
+            || c.cnt_contract_nummer_intern||DECODE(c.cnt_contract_versie, NULL, '', '.'||c.cnt_contract_versie)
+            || ' ('
+            || c.cnt_contract_omschrijving
+            || ' '
+            || b.prs_bedrijf_naam
+            || ')'
+            || ' moet uiterlijk per '
+            || TO_CHAR (cnt.cnt_getopzegdatum (c.cnt_contract_key), 'DD-MM-YYYY')
+            || ' worden verlengd of opgezegd.',
+            c.cnt_contract_key, c.cnt_contract_nummer_intern, cnt.cnt_getopzegdatum (c.cnt_contract_key), NULL
+           , NULL xemail
+           , NULL xmobile
+           , NULL fac_srtnotificatie_key
+           , NULL attachments
+           , NULL xsender
+           , NULL prs_bedrijfadres_key
+   FROM cnt_contract c , cnt_kenmerkcontract ken, prs_bedrijf b 
+  WHERE c.cnt_contract_verwijder is null
+    AND c.cnt_contract_status = 0
+    AND b.prs_bedrijf_key = c.cnt_prs_bedrijf_key
+    AND TRUNC(c.cnt_contract_looptijd_van) < TRUNC(SYSDATE)
+    AND TRUNC(c.cnt_contract_looptijd_tot) > TRUNC(SYSDATE)
+    AND TO_CHAR(c.cnt_contract_looptijd_tot,'DDMM') = TO_CHAR(SYSDATE, 'DDMM')
+    AND ken.cnt_contract_key = c.cnt_contract_key
+    AND FAC.safe_to_number(ken.cnt_kenmerkcontract_waarde) = 129    -- contract heeft jaarlijkse rappelering aanstaan naast de standaard rapellering
+    AND ken.cnt_kenmerk_key IN (SELECT cnt_kenmerk_key FROM cnt_kenmerk where UPPER(cnt_kenmerk_omschrijving)='JAARLIJKSE RAPPELERING') 
+    AND c.cnt_contract_key NOT IN ( SELECT key FROM fac_v_noti_cntreminder); -- alleen die contract die niet in de standaard rappelering zitten
+
+-- View tbv van die contracten die bankgarantie hebben en de contracte afgesloten zijn.
+
+CREATE OR REPLACE VIEW conn_v_noti_bgremind
+(code, sender, receiver, text, key, par1, par2, xkey, xemail, xmobile, fac_srtnotificatie_key, attachments, xsender, prs_bedrijfadres_key)
+AS 
+  SELECT '', '', c.prs_perslid_key_beh,
+               'Bankgarantie melding van afgelopen contracten: Voor contract '
+            || c.cnt_contract_nummer_intern||DECODE(c.cnt_contract_versie, NULL, '', '.'||c.cnt_contract_versie)
+            || ' ('
+            || c.cnt_contract_omschrijving
+            || ' '
+            || b.prs_bedrijf_naam
+            || ')'
+            || ' is een bankgarantie afgegeven door '
+            || (SELECT kc.cnt_kenmerkcontract_waarde FROM cnt_kenmerkcontract kc WHERE kc.cnt_kenmerk_key=523 AND kc.CNT_CONTRACT_KEY=c.cnt_contract_key)
+            || ' en deze moet worden opgezegt.',
+            c.cnt_contract_key, c.cnt_contract_nummer_intern, cnt.cnt_getopzegdatum (c.cnt_contract_key), NULL
+           , NULL xemail
+           , NULL xmobile
+           , NULL fac_srtnotificatie_key
+           , NULL attachments
+           , NULL xsender
+           , NULL prs_bedrijfadres_key
+   FROM cnt_contract c , cnt_kenmerkcontract ken, prs_bedrijf b
+   WHERE c.cnt_contract_verwijder is null
+     AND c.cnt_contract_status = 0    -- contract is gesloten
+     AND b.prs_bedrijf_key = c.cnt_prs_bedrijf_key
+     AND ken.cnt_contract_key = c.cnt_contract_key
+     AND FAC.safe_to_number(ken.cnt_kenmerkcontract_waarde) = 129    -- voor dit contract is een bankgaantie afgegeven
+     AND ken.cnt_kenmerk_key IN (SELECT cnt_kenmerk_key FROM cnt_kenmerk where UPPER(cnt_kenmerk_omschrijving)='BANKGARANTIE AFGEGEVEN');
+
+
+
 ------ payload end   ------
 
 SET DEFINE OFF