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

FZKH#87266 -- Implementatie - Aanpassing MT assets import

Browse Source 
svn path=/Customer/trunk/; revision=69666
This commit is contained in:
Norbert Wassink
2025-07-04 11:09:00 +00:00
parent 9af9dd7136
commit c62adc481f
1 changed files with 11 additions and 133 deletions
Download Patch File Download Diff File Expand all files Collapse all files

144
FZKH/FZKH.sql
View File

@@ -2050,132 +2050,7 @@ EXCEPTION
END;
/
CREATE OR REPLACE PROCEDURE FZKH_IMPORT_RESERVERING_CAT(p_import IN NUMBER)
AS
BEGIN
NULL;
END;
/
CREATE OR REPLACE PROCEDURE FZKH_UPDATE_RESERVERING_CAT(p_import IN NUMBER)
AS
begin
NULL;
/* CURSOR c1
SELECT fac_imp_csv_col01 ultimo_code,
fac_imp_csv_col02 ultimo_code_volgnr,
fac_imp_csv_col03 res_startdatum
fac_imp_csv_col04 res_einddatum,
fac_imp_csv_col05 artikel_nr,
fac_imp_csv_col06 artikel_aantal,
fac_imp_csv_col07 prijs,
fac_imp_csv_col08 ruimtenr,
FROM fac_imp_csv
WHERE fac_import_key=p_import_key
ORDER BY fac_imp_csv_key;
v_startdatum DATE;
v_einddatum DATE;
v_aantal NUMBER;
v_tot_prijs NUMBER;
v_art_prijs NUMBER;
v_count NUMBER;
v_errormsg VARCHAR2 (1000) := '-';
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_aanduiding VARCHAR2 (200);
BEGIN
FOR rec IN c1
LOOP
SELECT fac.safe_to_date(CAST(to_timestamp('2022-10-07 12:15:00.0000000','YYYY-MM-DD HH24:MI:SS.FF') AS DATE)
INTO v_startdatum
FROM DUAL;
SELECT fac.safe_to_date(CAST(to_timestamp('2022-10-07 12:15:00.0000000','YYYY-MM-DD HH24:MI:SS.FF') AS DATE)
INTO v_einddatum
FROM DUAL;
v_aantal := fac.safe_to_number(rec.artikel_aantal);
v_tot_prijs := fac.safe_to_number(rec.prijs);
v_art_prijs := ROUND(v_tot_prijs/v_aantal,2);
-- we gaan eerst de reservering opzoeken
v_errormsg:='Ophalen van Ultimo reservering '|| rec.ultimo_code||'/'||rec.ultimo_code_volgnr||' gaat fout';
SELECT r.res_reservering_key, rrr.res_rsv_ruimte_key
INTO v_reservering_key
FROM res_reservering r, res_rsv_ruimte rrr, res_kenmerkwaarde rkw
WHERE rkw.res_kenmerkreservering_waarde=rec.ultimo_code
AND rkw.res_rsv_ruimte_key = rrr.RES_RSV_RUIMTE_KEY
AND rrr.res_reservering_key=r.res_reservering_key
AND rrr.res_rsv_ruimte_volgnr = rec.ultimo_code_volgnr
AND rrr.res_rsv_ruimte_verwijder IS NULL;
-- als gevonden gaan we het artikel_nr opzoeken
-- artikel nr hebben in ultimo geen voorloop 0 gaan we eerst toevoegen
IF length(rec.artikel_nr)=3
THEN
v_artikel_nr :='0'||rec.rtikel_nr;
END IF;
v_errormsg:='Ophalen van Ultimo catering artikel '|| v_artikel_nr||' gaat fout';
-- Wat willen we als het catering artikel niet wordt gevonden ?
SELECT ra.res_artikel_key
INTO v_res_artikel_key
FROM res_artikel ra
WHERE ra.res_artikel_nr=v_artikel_nr
AND ra.res_artikel_verwijder IS NULL
AND ( ra.res_artikel_verval IS NULL
OR TRUNC(ra.res_artikel_verval)>TRUNC(v_startdatum));
-- Als beide gevondenen dan res_rsv_artikel aanmaken voor rrr_key
IF v_rrr_key > -1 AND v_res_artikel_key > -1
THEN
INSERT INTO res_rsv_artikel(res_rsv_ruimte_key,
res_artikel_key,
res_artikel_aantal,
res_rsv_artikel_approved,
res_status_bo_key,
res_rsv__artikel_prijs)
VALUES (v_rrr_key,
v_res_artikel_key,
v_aantal,
1,
2,
v_prijs);
END IF:
-- Tracking toevoegen aan rrr
-- log info wegschrijven
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 150);
v_errormsg :=
v_errormsg || 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_import_key,
'E',
'Importproces Ultimo catering afgebroken!',
v_errormsg); */
END;
/
@@ -3084,12 +2959,17 @@ BEGIN
IF UPPER(rec.ins_kenm_status)='AF TE VOEREN'
THEN
v_vervaldatum:= fac.safe_to_date(SUBSTR(rec.ins_verval_datum,1,INSTR(rec.ins_verval_datum,' ')),'DD-MM-YYYY');
IF INSTR(rec.ins_verval_datum,' ')>0
THEN
v_vervaldatum:= fac.safe_to_date(SUBSTR(rec.ins_verval_datum,1,INSTR(rec.ins_verval_datum,' ')),'DD-MM-YYYY');
ELSE
v_vervaldatum:= fac.safe_to_date(rec.ins_verval_datum,'DD-MM-YYYY');
END IF;
ELSE
v_vervaldatum:=NULL;
END IF;
SELECT DECODE (rec.ins_kenm_status,'Actief','Actief','Vermist','Vermist','Geen')
SELECT DECODE (rec.ins_kenm_status,'Actief','Actief','Vermist','Vermist','')
INTO v_klantstatus
FROM dual;
@@ -3109,7 +2989,7 @@ BEGIN
alg_verdieping_volgnr,
alg_ruimte_nr,
ins_deel_aantal,
-- ins_kenmerkwaarde1,
ins_kenmerkwaarde1,
ins_kenmerkwaarde2,
ins_kenmerkwaarde3,
ins_kenmerkwaarde4,
@@ -3125,8 +3005,7 @@ BEGIN
ins_kenmerkwaarde14,
ins_kenmerkwaarde15,
ins_kenmerkwaarde16,
ins_kenmerkwaarde17,
ins_kenmerkwaarde18)
ins_kenmerkwaarde17)
VALUES (rec.ins_discipline,
rec.ins_groep,
SUBSTR(rec.ins_srtdeel_code,1,8),
@@ -3139,8 +3018,7 @@ BEGIN
v_gebouw_code,
v_verdieping_nr,
v_ruimte_nr,
1,
-- 'Eigenaar|0='||rec.ins_kenm_eigenaar,
1,
'Locatie|0='||v_huidige_locatie,
'Model|0='||rec.ins_kenm_model,
'TypeNr|0='||rec.ins_kenm_type,