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

ZGTW#89613 Implementatie ZGT, migratiescript aangepast productie (kostenplaats koppelen, relatienummer toevoegen en betere bepaling (default) opstelling).

Browse Source 
svn path=/Customer/trunk/; revision=70125
This commit is contained in:
Sander Schepers
2025-08-27 12:49:49 +00:00
parent f38d36904e
commit 43e8543c31
1 changed files with 57 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
ZGTW/ZGTW.sql
View File

@@ -28,40 +28,67 @@ BEGIN
END;
/
CREATE OR REPLACE PROCEDURE ZGTW_UPDATE_RESERVERINGEN (
OR REPLACE PROCEDURE ZGTW_UPDATE_RESERVERINGEN (
p_import_key IN NUMBER)
AS
CURSOR sel IS
SELECT fac_imp_csv_col01 AS ultimo_code,
fac_imp_csv_col04 AS ultimo_code_volgnr,
fac_imp_csv_col21 AS res_ruimte_nr,
fac_imp_csv_col03 AS res_status,
fac_imp_csv_col07 AS res_aanvrager,
fac_imp_csv_col09 AS res_aanvrager_email,
fac_imp_csv_col05 AS res_omschrijving,
SELECT fac_imp_csv_col01
AS ultimo_code,
fac_imp_csv_col04
AS ultimo_code_volgnr,
fac_imp_csv_col21
AS res_ruimte_nr,
fac_imp_csv_col03
AS res_status,
fac_imp_csv_col07
AS res_aanvrager,
fac_imp_csv_col09
AS res_aanvrager_email,
fac_imp_csv_col05
AS res_omschrijving,
fac.safe_to_date (
TO_CHAR (
CAST (
TO_TIMESTAMP_TZ (
fac_imp_csv_col10,
'YYYY-MM-DD HH24:MI:SS.FF7 TZH:TZM')
'YYYY-MM-DD HH24:MI:SSFF TZH:TZM')
AT LOCAL
AS DATE),
'DD/MM/YYYY HH24:MI:SS'),
'DD/MM/YYYY HH24:MI:SS') AS res_startdatum,
'DD/MM/YYYY HH24:MI:SS')
AS res_startdatum,
fac.safe_to_date (
TO_CHAR (
CAST (
TO_TIMESTAMP_TZ (
fac_imp_csv_col11,
'YYYY-MM-DD HH24:MI:SS.FF7 TZH:TZM')
'YYYY-MM-DD HH24:MI:SSFF TZH:TZM')
AT LOCAL
AS DATE),
'DD/MM/YYYY HH24:MI:SS'),
'DD/MM/YYYY HH24:MI:SS') AS res_einddatum
'DD/MM/YYYY HH24:MI:SS')
AS res_einddatum,
DECODE (fac_imp_csv_col30, 'NULL', '', fac_imp_csv_col30)
AS debiteurnr,
DECODE (
fac_imp_csv_col30,
'NULL', '',
(SELECT prs_bedrijf_key
FROM prs_bedrijf
WHERE LOWER (prs_leverancier_nr) =
LOWER (fac_imp_csv_col30)))
AS relatie_key,
rec.fac_imp_csv_col17 as kostenplaats_nr,
(SELECT MIN(pk.prs_kostenplaats_key)
FROM prs_kostenplaats pk
WHERE pk.prs_kostenplaats_verwijder IS NULL
AND LOWER(pk.prs_kostenplaats_nr) = LOWER(rec.fac_imp_csv_col17))
AS kostenplaats_key
FROM fac_imp_csv rec
WHERE fac_import_key=p_import_key
AND fac_imp_csv_col01 <> 'Reserveringsnummer'
WHERE fac_import_key = p_import_key
AND fac_imp_csv_col01 <> 'Reserveringsnummer'
-- and fac_imp_csv_col01 in ('114661', '114284')
ORDER BY fac_imp_csv_key;
v_res_startdatum DATE;
@@ -73,6 +100,7 @@ AS
v_reservering_key NUMBER;
v_res_kenmerk_key NUMBER;
v_debiteur NUMBER;
v_status_bo NUMBER;
v_status_fo NUMBER;
v_volgnr NUMBER;
@@ -105,6 +133,8 @@ BEGIN
v_volgnr := fac.safe_to_number (rec.ultimo_code_volgnr);
v_errormsg := 'Opzoeken bestaande reservering';
v_debiteur := NULL;
BEGIN
SELECT r.res_reservering_key
INTO v_reservering_key
@@ -125,6 +155,7 @@ BEGIN
v_errormsg := 'Bepalen startdatum en einddatum';
v_res_startdatum := rec.res_startdatum;
v_res_einddatum := rec.res_einddatum;
v_debiteur := rec.relatie_key;
v_errormsg := 'Opzoeken persoon';
@@ -164,6 +195,7 @@ BEGIN
FROM res_ruimte rr, res_ruimte_opstelling rro
WHERE rr.res_ruimte_verwijder IS NULL
AND rr.res_ruimte_nr LIKE rec.res_ruimte_nr || '%'
AND rro.res_ruimte_opstel_default = '1'
AND rro.res_ruimte_key = rr.res_ruimte_key;
BEGIN
@@ -221,7 +253,7 @@ BEGIN
v_volgnr,
NULL,
SUBSTR (rec.res_omschrijving, 1, 60),
TO_NUMBER (NULL),
rec.kostenplaats_key,
v_prs_perslid_key,
v_prs_perslid_key,
v_res_ruimte_opstel_key,
@@ -247,6 +279,15 @@ BEGIN
NULL,
SYSDATE,
'Gemigreerd vanuit Ultimo');
IF v_debiteur IS NOT NULL
THEN
flx.setflex ('RES',
65, --Kenmerk Klantnummer bij activiteit Vergadering
v_rsv_ruimte_key,
v_debiteur);
END IF;
fac.imp_writelog (
p_import_key,
'I',
@@ -340,6 +381,7 @@ AS
LEFT JOIN res_artikel art
ON fac.safe_to_number (fac.fac_imp_csv_col23) =
fac.safe_to_number (art.res_artikel_nr)
AND art.res_discipline_key <> 263
LEFT JOIN rr_set rs
ON fac.safe_to_number (fac.fac_imp_csv_col01) =
fac.safe_to_number (rs.res_reservering_externnr)