LPNL#71678 Kan catering FIP artikel sheet niet inlezen met (nieuwe) kostensoorten
svn path=/Database/trunk/; revision=66991
This commit is contained in:
Erik Groener
205
FAC/FAC_PACF.SRC
205
FAC/FAC_PACF.SRC
@@ -11966,7 +11966,7 @@ BEGIN
|
||||
fac.imp_writelog (p_import_key,
|
||||
'I',
|
||||
v_aanduiding,
|
||||
'Catalogus is nieuw'
|
||||
'Catalogus ' || v_res_discipline_oms || ' is nieuw'
|
||||
);
|
||||
END;
|
||||
|
||||
@@ -11984,7 +11984,7 @@ BEGIN
|
||||
fac.imp_writelog (p_import_key,
|
||||
'I',
|
||||
v_aanduiding,
|
||||
'Kostensoort is nieuw'
|
||||
'Kostensoort ' || v_res_kostensoort_oms || ' is nieuw'
|
||||
);
|
||||
END;
|
||||
END IF;
|
||||
@@ -12365,112 +12365,105 @@ BEGIN
|
||||
EXCEPTION
|
||||
WHEN NO_DATA_FOUND
|
||||
THEN
|
||||
SELECT prs_s_prs_kostensoort_key.NEXTVAL
|
||||
INTO v_res_kostensoort_key
|
||||
FROM DUAL;
|
||||
|
||||
INSERT INTO prs_kostensoort
|
||||
(prs_kostensoort_key,
|
||||
prs_kostensoort_oms
|
||||
)
|
||||
VALUES (v_res_kostensoort_key,
|
||||
rec.res_kostensoort_oms
|
||||
);
|
||||
fac.imp_writelog (p_import_key, 'W', 'Kostensoort [' || rec.res_kostensoort_oms || '] bestaat niet', '');
|
||||
END;
|
||||
END IF;
|
||||
|
||||
BEGIN
|
||||
SELECT ins_discipline_key
|
||||
INTO v_res_discipline_key
|
||||
FROM res_discipline
|
||||
WHERE ins_discipline_omschrijving = rec.res_discipline_oms
|
||||
AND ins_discipline_min_level = 2
|
||||
AND ins_discipline_verwijder IS NULL;
|
||||
|
||||
IF v_res_kostensoort_key IS NOT NULL
|
||||
THEN
|
||||
UPDATE ins_tab_discipline
|
||||
SET prs_kostensoort_key = v_res_kostensoort_key
|
||||
WHERE ins_discipline_key = v_res_discipline_key;
|
||||
END IF;
|
||||
|
||||
EXCEPTION
|
||||
WHEN NO_DATA_FOUND
|
||||
THEN
|
||||
INSERT INTO ins_tab_discipline
|
||||
(ins_discipline_module,
|
||||
ins_discipline_omschrijving,
|
||||
ins_discipline_min_level,
|
||||
prs_kostensoort_key
|
||||
)
|
||||
VALUES ('RES',
|
||||
rec.res_discipline_oms,
|
||||
2,
|
||||
v_res_kostensoort_key
|
||||
)
|
||||
RETURNING ins_discipline_key
|
||||
INTO v_res_discipline_key;
|
||||
|
||||
INSERT INTO res_disc_params
|
||||
(res_ins_discipline_key
|
||||
)
|
||||
VALUES (v_res_discipline_key
|
||||
);
|
||||
END;
|
||||
|
||||
IF rec.res_artikel_key IS NULL
|
||||
IF v_res_kostensoort_key IS NOT NULL
|
||||
THEN
|
||||
INSERT INTO res_artikel
|
||||
(res_discipline_key, res_artikel_nr,
|
||||
res_artikel_omschrijving,
|
||||
res_artikel_eenheid, res_artikel_prijs,
|
||||
res_artikel_prijs_vast,
|
||||
res_artikel_inkoopprijs, res_artikel_btw,
|
||||
res_artikel_opmerking, res_artikel_groep,
|
||||
res_artikel_kostenpersoneel,
|
||||
res_artikel_kostenalgemeen,
|
||||
res_artikel_volgnummer,
|
||||
res_artikel_ingangsdatum,
|
||||
res_artikel_vervaldatum,
|
||||
res_artikel_minimum
|
||||
)
|
||||
VALUES (v_res_discipline_key, rec.res_artikel_nr,
|
||||
rec.res_artikel_omschrijving,
|
||||
rec.res_artikel_eenheid, rec.res_artikel_prijs,
|
||||
rec.res_artikel_prijs_vast,
|
||||
rec.res_artikel_inkoopprijs, rec.res_artikel_btw,
|
||||
rec.res_artikel_opmerking, rec.res_artikel_groep,
|
||||
rec.res_artikel_kostenpersoneel,
|
||||
rec.res_artikel_kostenalgemeen,
|
||||
rec.res_artikel_volgnummer,
|
||||
rec.res_artikel_ingangsdatum,
|
||||
rec.res_artikel_vervaldatum,
|
||||
rec.res_artikel_minimum
|
||||
);
|
||||
BEGIN
|
||||
SELECT ins_discipline_key
|
||||
INTO v_res_discipline_key
|
||||
FROM res_discipline
|
||||
WHERE ins_discipline_omschrijving = rec.res_discipline_oms
|
||||
AND ins_discipline_min_level = 2
|
||||
AND ins_discipline_verwijder IS NULL;
|
||||
|
||||
v_count_ins := v_count_ins + 1;
|
||||
ELSE
|
||||
UPDATE res_artikel
|
||||
SET res_discipline_key = v_res_discipline_key,
|
||||
res_artikel_nr = rec.res_artikel_nr,
|
||||
res_artikel_omschrijving = rec.res_artikel_omschrijving,
|
||||
res_artikel_eenheid = rec.res_artikel_eenheid,
|
||||
res_artikel_prijs = rec.res_artikel_prijs,
|
||||
res_artikel_prijs_vast = rec.res_artikel_prijs_vast,
|
||||
res_artikel_inkoopprijs = rec.res_artikel_inkoopprijs,
|
||||
res_artikel_kostenpersoneel =
|
||||
rec.res_artikel_kostenpersoneel,
|
||||
res_artikel_kostenalgemeen = rec.res_artikel_kostenalgemeen,
|
||||
res_artikel_btw = rec.res_artikel_btw,
|
||||
res_artikel_opmerking = rec.res_artikel_opmerking,
|
||||
res_artikel_groep = rec.res_artikel_groep,
|
||||
res_artikel_volgnummer = rec.res_artikel_volgnummer,
|
||||
res_artikel_ingangsdatum = rec.res_artikel_ingangsdatum,
|
||||
res_artikel_vervaldatum = rec.res_artikel_vervaldatum,
|
||||
res_artikel_minimum = rec.res_artikel_minimum
|
||||
WHERE res_artikel_key = rec.res_artikel_key;
|
||||
IF v_res_kostensoort_key IS NOT NULL
|
||||
THEN
|
||||
UPDATE ins_tab_discipline
|
||||
SET prs_kostensoort_key = v_res_kostensoort_key
|
||||
WHERE ins_discipline_key = v_res_discipline_key;
|
||||
END IF;
|
||||
|
||||
v_count_update := v_count_update + 1;
|
||||
EXCEPTION
|
||||
WHEN NO_DATA_FOUND
|
||||
THEN
|
||||
INSERT INTO ins_tab_discipline
|
||||
(ins_discipline_module,
|
||||
ins_discipline_omschrijving,
|
||||
ins_discipline_min_level,
|
||||
prs_kostensoort_key
|
||||
)
|
||||
VALUES ('RES',
|
||||
rec.res_discipline_oms,
|
||||
2,
|
||||
v_res_kostensoort_key
|
||||
)
|
||||
RETURNING ins_discipline_key
|
||||
INTO v_res_discipline_key;
|
||||
|
||||
INSERT INTO res_disc_params
|
||||
(res_ins_discipline_key
|
||||
)
|
||||
VALUES (v_res_discipline_key
|
||||
);
|
||||
END;
|
||||
|
||||
IF rec.res_artikel_key IS NULL
|
||||
THEN
|
||||
INSERT INTO res_artikel
|
||||
(res_discipline_key, res_artikel_nr,
|
||||
res_artikel_omschrijving,
|
||||
res_artikel_eenheid, res_artikel_prijs,
|
||||
res_artikel_prijs_vast,
|
||||
res_artikel_inkoopprijs, res_artikel_btw,
|
||||
res_artikel_opmerking, res_artikel_groep,
|
||||
res_artikel_kostenpersoneel,
|
||||
res_artikel_kostenalgemeen,
|
||||
res_artikel_volgnummer,
|
||||
res_artikel_ingangsdatum,
|
||||
res_artikel_vervaldatum,
|
||||
res_artikel_minimum
|
||||
)
|
||||
VALUES (v_res_discipline_key, rec.res_artikel_nr,
|
||||
rec.res_artikel_omschrijving,
|
||||
rec.res_artikel_eenheid, rec.res_artikel_prijs,
|
||||
rec.res_artikel_prijs_vast,
|
||||
rec.res_artikel_inkoopprijs, rec.res_artikel_btw,
|
||||
rec.res_artikel_opmerking, rec.res_artikel_groep,
|
||||
rec.res_artikel_kostenpersoneel,
|
||||
rec.res_artikel_kostenalgemeen,
|
||||
rec.res_artikel_volgnummer,
|
||||
rec.res_artikel_ingangsdatum,
|
||||
rec.res_artikel_vervaldatum,
|
||||
rec.res_artikel_minimum
|
||||
);
|
||||
|
||||
v_count_ins := v_count_ins + 1;
|
||||
ELSE
|
||||
UPDATE res_artikel
|
||||
SET res_discipline_key = v_res_discipline_key,
|
||||
res_artikel_nr = rec.res_artikel_nr,
|
||||
res_artikel_omschrijving = rec.res_artikel_omschrijving,
|
||||
res_artikel_eenheid = rec.res_artikel_eenheid,
|
||||
res_artikel_prijs = rec.res_artikel_prijs,
|
||||
res_artikel_prijs_vast = rec.res_artikel_prijs_vast,
|
||||
res_artikel_inkoopprijs = rec.res_artikel_inkoopprijs,
|
||||
res_artikel_kostenpersoneel = rec.res_artikel_kostenpersoneel,
|
||||
res_artikel_kostenalgemeen = rec.res_artikel_kostenalgemeen,
|
||||
res_artikel_btw = rec.res_artikel_btw,
|
||||
res_artikel_opmerking = rec.res_artikel_opmerking,
|
||||
res_artikel_groep = rec.res_artikel_groep,
|
||||
res_artikel_volgnummer = rec.res_artikel_volgnummer,
|
||||
res_artikel_ingangsdatum = rec.res_artikel_ingangsdatum,
|
||||
res_artikel_vervaldatum = rec.res_artikel_vervaldatum,
|
||||
res_artikel_minimum = rec.res_artikel_minimum
|
||||
WHERE res_artikel_key = rec.res_artikel_key;
|
||||
|
||||
v_count_update := v_count_update + 1;
|
||||
END IF;
|
||||
END IF;
|
||||
END;
|
||||
END LOOP;
|
||||
@@ -12502,6 +12495,16 @@ BEGIN
|
||||
''
|
||||
);
|
||||
END IF;
|
||||
IF (v_count_tot > (v_count_ins + v_count_update))
|
||||
THEN
|
||||
fac.imp_writelog
|
||||
(p_import_key,
|
||||
'S',
|
||||
'Reserveringen: aantal artikelregels overgeslagen: '
|
||||
|| TO_CHAR (v_count_tot - v_count_ins - v_count_update),
|
||||
''
|
||||
);
|
||||
END IF;
|
||||
|
||||
COMMIT;
|
||||
EXCEPTION
|
||||
|
||||
Reference in New Issue
Block a user