SGGR#81468 Import voor IB maatregelen --> kenmerk keys aangepast voor productie

svn path=/Customer/trunk/; revision=65631
This commit is contained in:
Suzan Wiegerinck
2024-07-18 11:15:00 +00:00
parent b28ca1fed1
commit f58fedfacc

View File

@@ -3805,14 +3805,18 @@ IS
CURSOR actie IS
SELECT i.fac_imp_csv_col01 melding_nr,
fac.safe_to_number (SUBSTR (i.fac_imp_csv_col01, 3)) mld_key,
i.fac_imp_csv_col02 soort,
(SELECT ud.fac_usrdata_key
FROM fac_usrdata ud, fac_usrtab ut
WHERE ut.fac_usrtab_key = ud.fac_usrtab_key
AND ut.fac_usrtab_key = 601
AND ud.fac_usrdata_upper = UPPER ( i.fac_imp_csv_col02)) soort,
i.fac_imp_csv_col03 nr,
i.fac_imp_csv_col04 datum_bevinding,
i.fac_imp_csv_col05 proces,
(SELECT ud.fac_usrdata_key
FROM fac_usrdata ud, fac_usrtab ut
WHERE ut.fac_usrtab_key = ud.fac_usrtab_key
AND ut.fac_usrtab_key = 601
AND ut.fac_usrtab_key = 602
AND ud.fac_usrdata_upper = UPPER (i.fac_imp_csv_col05)) proces_key,
i.fac_imp_csv_col06 bevinding,
i.fac_imp_csv_col07 norm_element,
@@ -3820,7 +3824,7 @@ IS
(SELECT ud.fac_usrdata_key
FROM fac_usrdata ud, fac_usrtab ut
WHERE ut.fac_usrtab_key = ud.fac_usrtab_key
AND ut.fac_usrtab_key = 602
AND ut.fac_usrtab_key = 621
AND ud.fac_usrdata_upper = UPPER (i.fac_imp_csv_col08)) type_key,
i.fac_imp_csv_col09 prio,
i.fac_imp_csv_col10 oorzaak,
@@ -3866,32 +3870,32 @@ BEGIN
END;
flx.setflex ('MLD',
3742, -- soort
4161, -- soort
v_newkey,
rec.soort);
flx.setflex ('MLD',
3743, -- datum bevinding
4162, -- datum bevinding
v_newkey,
rec.datum_bevinding);
flx.setflex ('MLD',
3744, -- proces
4163, -- proces
v_newkey,
rec.proces_key);
flx.setflex ('MLD',
3781, -- bevinding
4181, -- bevinding
v_newkey,
SUBSTR (rec.proces, 1, 1000));
SUBSTR (rec.bevinding, 1, 1000));
flx.setflex ('MLD',
3745, -- norm element
4182, -- norm element
v_newkey,
SUBSTR (rec.norm_element, 1, 1000));
flx.setflex ('MLD',
3746, -- type
4183, -- type
v_newkey,
rec.type_key);