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

TDNL#80795 -- Migratie CONN omgeving naar TDNL omgeving

Browse Source 
svn path=/Customer/trunk/; revision=66342
This commit is contained in:
Norbert Wassink
2024-09-26 06:39:23 +00:00
parent 6cd0e0d8d5
commit 64499ec682
1 changed files with 84 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

105
TDNL/TDNL.sql
View File

@@ -739,9 +739,11 @@ BEGIN
BEGIN
v_aanduiding:='Ophalen kostenplaats gaat fout :'|| rec.prs_kostenplaats_code;
SELECT prs_kostenplaats_key into v_kostenplaats_key
FROM prs_kostenplaats
WHERE prs_KOSTENPLAATS_NR = rec.prs_kostenplaats_code;
SELECT prs_kostenplaats_key
INTO v_kostenplaats_key
FROM prs_kostenplaats
WHERE prs_KOSTENPLAATS_NR = rec.prs_kostenplaats_code
AND prs_kostenplaats_verwijder IS NULL;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
@@ -754,12 +756,12 @@ BEGIN
IF v_error=0
THEN
fac.imp_writelog (p_import_key,'I','stdmelding_key',v_stdmelding_key);
fac.imp_writelog (p_import_key,'I','Locatie_key',v_alg_locatie_key);
fac.imp_writelog (p_import_key,'I','Onrgd_key',v_alg_onrgoed_key);
fac.imp_writelog (p_import_key,'I','behandelaar_key',v_prs_behandelaar_key);
fac.imp_writelog (p_import_key,'I','aanvrager_key',v_prs_aanvrager_key);
fac.imp_writelog (p_import_key,'I','meld datum',rec.mld_melding_datum);
-- fac.imp_writelog (p_import_key,'I','stdmelding_key',v_stdmelding_key);
-- fac.imp_writelog (p_import_key,'I','Locatie_key',v_alg_locatie_key);
-- fac.imp_writelog (p_import_key,'I','Onrgd_key',v_alg_onrgoed_key);
-- fac.imp_writelog (p_import_key,'I','behandelaar_key',v_prs_behandelaar_key);
-- fac.imp_writelog (p_import_key,'I','aanvrager_key',v_prs_aanvrager_key);
-- fac.imp_writelog (p_import_key,'I','meld datum',rec.mld_melding_datum);
v_aanduiding:='Toevoegen melding gaat fout :'|| rec.mld_org_melding_key;
INSERT INTO mld_melding (mld_melding_module,
mld_meldbron_key,
@@ -893,7 +895,10 @@ AS
fac_imp_csv_col11 mld_opdr_kosten,
fac_imp_csv_col12 prs_perslid_oslogin,
fac_imp_csv_col13 prs_leverancier_naam,
fac_imp_csv_col14 mld_org_opdr_key
fac_imp_csv_col14 mld_org_opdr_key,
fac_imp_csv_col15 ken_coupa_onderwerp,
fac_imp_csv_col16 ken_coupa_id,
fac_imp_csv_col17 ken_coupa_inkoopnr
FROM fac_imp_csv
WHERE fac_import_key = p_import_key;
@@ -913,13 +918,55 @@ AS
v_mld_typeopdr_key NUMBER;
v_prs_perslid_key NUMBER;
v_uitvoerende_key NUMBER;
BEGIN
v_coupa_onderwerp_key NUMBER;
v_coupa_id_key NUMBER;
v_coupa_inkoopnr_key NUMBER;
BEGIN
v_error:=0;
FOR rec in sel
LOOP
v_regel:=rec.regel;
v_error:=0;
v_count:=0;
BEGIN
SELECT mld_kenmerk_key
INTO v_coupa_onderwerp_key
FROM mld_kenmerk k
WHERE UPPER(k.MLD_KENMERK_OMSCHRIJVING)='COUPA ONDERWERP'
AND k.MLD_KENMERK_NIVEAU='O';
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_error:=1;
END;
BEGIN
SELECT mld_kenmerk_key
INTO v_coupa_id_key
FROM mld_kenmerk k
WHERE UPPER(k.MLD_KENMERK_OMSCHRIJVING)='AANVRAAGNR'
AND k.MLD_KENMERK_NIVEAU='O';
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_error:=1;
END;
BEGIN
SELECT mld_kenmerk_key
INTO v_coupa_inkoopnr_key
FROM mld_kenmerk k
WHERE UPPER(k.MLD_KENMERK_OMSCHRIJVING)='INKOOPNR'
AND k.MLD_KENMERK_NIVEAU='O';
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_error:=1;
END;
-- Wat is het m,elding_key van dze opdracht,
-- Wat is d eins_discipine van deze melding , nodig bij opdarcht insert
-- Welke relatie is het verstuurd, haal die op en anders fall back leverancier
@@ -998,6 +1045,10 @@ BEGIN
FROM prs_bedrijf p
WHERE p.prs_leverancier_nr='_999999';
END;
END IF;
IF v_error=0 AND v_count=0
@@ -1040,16 +1091,28 @@ BEGIN
prs_perslid_key,
mld_opdr_note_omschrijving,
mld_opdr_note_flag)
VALUES (v_mld_opdr_key,
fac.safe_to_date(rec.mld_opdr_begindatum,'DD-MM-YYYY HH24:MI.SS'),
SYSDATE,
3, -- Facilitor
'Migratie opdracht CONN melding: ' || rec.mld_org_melding_key||CHR(10)||' leverancier :'|| rec.prs_leverancier_naam,
0);
fac.imp_writelog (p_import_key,
'I',
'Opdacht aangemaakt',
'Opdracht '||v_melding_key||'/'||rec.mld_opdr_volgnr||'('||v_mld_opdr_key||') is aangemaakt.');
VALUES (v_mld_opdr_key,
fac.safe_to_date(rec.mld_opdr_begindatum,'DD-MM-YYYY HH24:MI.SS'),
SYSDATE,
3, -- Facilitor
'Migratie opdracht CONN melding: ' || rec.mld_org_melding_key||CHR(10)||' leverancier :'|| rec.prs_leverancier_naam,
0);
fac.imp_writelog (p_import_key,
'I',
'Opdacht aangemaakt',
'Opdracht '||v_melding_key||'/'||rec.mld_opdr_volgnr||'('||v_mld_opdr_key||') is aangemaakt.');
IF LENGTH(rec.ken_coupa_onderwerp)>0
THEN
NULL;
END IF;
IF LENGTH(rec.ken_coupa_id)>0
THEN
NULL;
END IF;
IF LENGTH(rec.ken_coupa_inkoopnr)>0
THEN
NULL;
END IF;
ELSE