admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

CONN#68378 -- Koppeling Coupa

Browse Source 
svn path=/Customer/trunk/; revision=54236
This commit is contained in:
Norbert Wassink
2021-12-21 11:14:34 +00:00
parent 8e05d15d59
commit 6522569335
1 changed files with 140 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

170
CONN/conn.sql
View File

@@ -9245,13 +9245,106 @@ EXCEPTION
END;
/
CREATE OR REPLACE PROCEDURE conn_daily
AS
v_volgnr NUMBER;
BEGIN
-- Anonymizeren van bezoekers (na 3 maanden) en personen (na 12 maanden)
SELECT COALESCE(MAX(fac_rapport_volgnr),0)
INTO v_volgnr
FROM fac_rapport
WHERE fac_rapport_node = 'Anonymize';
v_volgnr := v_volgnr + 1;
IF TO_CHAR (SYSDATE, 'DD') = '01'
THEN
BEGIN
ANO.anonymizebez (add_months(trunc(SYSDATE), -4), add_months(trunc(SYSDATE), -3));
INSERT INTO fac_rapport (fac_rapport_node, fac_rapport_volgnr, fac_rapport_regel)
VALUES('Anonymize', v_volgnr, 'Bezoekers geanonymizeerd ' ||
to_char(add_months(TRUNC(SYSDATE), -4), 'dd-mm-yyyy hh24:mi:ss') || ' - ' ||
to_char(add_months(TRUNC(SYSDATE), -3), 'dd-mm-yyyy hh24:mi:ss'));
EXCEPTION WHEN OTHERS
THEN
INSERT INTO fac_rapport (fac_rapport_node, fac_rapport_volgnr, fac_rapport_regel)
VALUES('Anonymize', v_volgnr, 'Error: Fout opgetreden bij het anonymizeren van bezoekers ' ||
to_char(add_months(TRUNC(SYSDATE), -4), 'dd-mm-yyyy hh24:mi:ss') || ' - ' ||
to_char(add_months(TRUNC(SYSDATE), -3), 'dd-mm-yyyy hh24:mi:ss'));
END;
END IF;
END;
/
-- Notificatie naar bezoekers op de dag van het bezoek
CREATE OR REPLACE VIEW conn_v_noti_bezoeker
AS
SELECT NULL sender,
NULL receiver,
'Uw bezoek aan Transdev op '
|| TO_CHAR (bez_afspraak_datum, 'DD-MM-YYYY')
|| ' , '
|| TO_CHAR (bez_afspraak_datum, 'HH24:MI') text,
'CUST01' code,
a.bez_afspraak_key key,
bez_bezoekers_key xkey,
bez_bezoekers_email xemail,
NULL xmobile
FROM bez_afspraak a, bez_bezoekers b
WHERE a.bez_afspraak_key = b.bez_afspraak_key
AND a.bez_afspraak_datum <
fac.datumtijdplusuitvoertijd (SYSDATE, 3, 'D')
AND a.bez_afspraak_datum > TRUNC(SYSDATE)
AND NOT EXISTS
(SELECT 1
FROM fac_tracking t, fac_srtnotificatie sn
WHERE t.fac_srtnotificatie_key =
sn.fac_srtnotificatie_key
AND t.fac_tracking_refkey = a.bez_afspraak_key
AND fac_srtnotificatie_code = 'CUST01'
AND b.bez_bezoekers_aanmaak < fac_tracking_datum);
CREATE OR REPLACE VIEW conn_v_coupa_select
AS
SELECT op.mld_opdr_key opdr_key,
op.mld_melding_key,
op.mld_opdr_bedrijfopdr_volgnr,
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_email userEmail,
prs.prs_perslid_oslogin userLogin,
'HV'||loc.alg_locatie_code locationCode,
'ST'||op.mld_melding_key||'/'||op.mld_opdr_bedrijfopdr_volgnr facilitorKey,
ks.prs_kostensoort_oms ks_omschrijving,
ks.prs_kostensoort_opmerking ks_opmerking,
k.prs_kostenplaats_nr kostenplaats,
pbd.prs_leverancier_nr levNr,
mld.mld_melding_omschrijving mld_omschr,
op.mld_opdr_omschrijving opdr_omschr
FROM mld_opdr op, mld_melding mld, mld_stdmelding smld, alg_locatie loc, prs_bedrijf pbd, prs_perslid prs, prs_afdeling afd, prs_kostenplaats k, PRS_KOSTENSOORT ks
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 smld.MLD_STDMELDING_KEY = mld.MLD_STDMELDING_KEY
AND loc.alg_locatie_key = mld.mld_alg_locatie_key
AND afd.prs_afdeling_key=prs.prs_afdeling_key
AND smld.prs_kostensoort_key = ks.prs_kostensoort_key
AND op.prs_kostenplaats_key = k.prs_kostenplaats_key;
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
CURSOR sel_opd
IS
SELECT opdr_key, kosten, begindatum , einddatum, department, userEmail, userLogin, locationcode, facilitorkey, levNr, opdr_omschr, mld_omschr, ks_omschrijving, ks_opmerking, kostenplaats
FROM conn_v_coupa_select;
v_req VARCHAR2(1000);
v_reqLine VARCHAR2(1000);
v_reqHeader VARCHAR2(1000);
@@ -9261,7 +9354,7 @@ AS
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_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,Uitgebreide omschrijving #';
v_counter:=1;
v_regel :=1;
v_base:='CPA_EXP-';
@@ -9272,10 +9365,9 @@ BEGIN
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;
BEGIN
v_req := 'Requestion,'||rec.opdr_key||',Yes,'||TO_CHAR(rec.begindatum,'DD-MM-YYYY')||',,'||rec.department||',,'||rec.userEmail||','||rec.userLogin||',,,,,,,,,,,,'||rec.locationcode||',,'||rec.facilitorkey;
v_reqLine := 'RequisitionLine,'||rec.opdr_key||',1,,,'||conn.quote(SUBSTR(REPLACE(REPLACE(rec.mld_omschr, CHR(13), ''), CHR(10), ''),0,250))||',,,,'||rec.kosten||','||TO_CHAR(rec.einddatum,'DD-MM-YYYY')||',,,,'||rec.levNr||',,,'||rec.ks_opmerking||',,EUR,,Connexxion Nederland NV (XX-01 ),,,'||rec.kostenplaats ||',81999,'||rec.ks_omschrijving||',,,,,'||conn.quote(SUBSTR(REPLACE(REPLACE(rec.opdr_omschr, CHR(13), ''), CHR(10), ''),0,250));
INSERT INTO fac_rapport (fac_rapport_node,
fac_rapport_volgnr,
fac_rapport_regel)
@@ -9306,28 +9398,6 @@ BEGIN
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;
@@ -9343,8 +9413,30 @@ AS
WHERE fac_rapport_node LIKE 'CPA_EXP%';
-- Haal alle bijlagen op van opdrachte die geexporteerd moeten worden naar Coupa
-- alle opdrachten
CREATE OR REPLACE VIEW conn_v_coupa_bijlages
AS
SELECT o.mld_opdr_key,
o.mld_opdr_externsyncdate extern_syncdate,
(SELECT ko.mld_kenmerkopdr_waarde
FROM mld_kenmerkopdr ko
WHERE ko.mld_opdr_key = o.mld_opdr_key
AND ko.mld_kenmerk_key=2701 -- D=2681 A=2701
AND ko.mld_kenmerkopdr_waarde IS NOT NULL) coupa_id,
fb.FAC_BIJLAGEN_FILENAME bestand,
fb.FAC_BIJLAGEN_DISK_DIRECTORY path,
fb.FAC_BIJLAGEN_AANMAAK bijlage_aanmaak
FROM mld_opdr o, fac_v_bijlagen fb
WHERE fb.FAC_BIJLAGEN_REFKEY= o.mld_opdr_key
AND o.mld_statusopdr_key IN (4,5)
AND fb.FAC_BIJLAGEN_KENMERK_KEY=2722; -- D=2661 A=2722
-- 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
@@ -9411,6 +9503,24 @@ AS
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');
CREATE OR REPLACE VIEW conn_v_badgenr_tp
(fac_usrdata_key, fac_usrdata_omschr)
AS
SELECT fu.fac_usrdata_key, fu.fac_usrdata_code
FROM fac_usrdata fu
WHERE fu.fac_usrdata_parentkey = 3942
AND fu.fac_usrdata_code NOT IN(
SELECT (SELECT fac_usrdata.fac_usrdata_code
FROM fac_usrdata
WHERE fac_usrdata.fac_usrdata_key= bkw.bez_kenmerkwaarde_waarde) AS badgeNr
FROM bez_bezoekers bez, bez_afspraak ba, bez_kenmerkwaarde bkw
WHERE TRUNC(ba.bez_afspraak_datum)=TRUNC(SYSDATE)
AND TRUNC(bez.bez_bezoekers_done)=TRUNC(SYSDATE)
AND bez.bez_bezoekers_out IS NULL
AND bez.bez_afspraak_key = ba.bez_afspraak_key
AND bkw.bez_bezoekers_key = bez.bez_bezoekers_key
AND bkw.bez_kenmerk_key=1001);
------ payload end ------