HMOD#58494 -- Implementatie Humanitas Onder Dak - Koppelingen voor personen koffersysteem
svn path=/Customer/trunk/; revision=45274
This commit is contained in:
Jos Migo
270
HMOD/hmod.sql
270
HMOD/hmod.sql
@@ -181,7 +181,277 @@ EXCEPTION
|
||||
END hmod_update_perslid;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE PROCEDURE hmod_import_koffer (p_import_key IN NUMBER)
|
||||
AS
|
||||
c_fielddelimitor VARCHAR2 (1) := ';';
|
||||
v_newline VARCHAR2 (1000); -- Input line
|
||||
v_errormsg VARCHAR2 (1000);
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
header_is_valid NUMBER;
|
||||
v_count NUMBER;
|
||||
v_ongeldig NUMBER (1);
|
||||
v_mode NUMBER (1);
|
||||
v_aanduiding VARCHAR2 (200);
|
||||
-- v_all_null BOOLEAN;
|
||||
v_count_error NUMBER (10);
|
||||
v_count_tot NUMBER (10);
|
||||
v_count_import NUMBER (10);
|
||||
-- De importvelden:
|
||||
v_versiedatum VARCHAR2 (15);
|
||||
v_omschrijving VARCHAR2 (250);
|
||||
v_code VARCHAR2 (30);
|
||||
v_token VARCHAR2 (20);
|
||||
v_mob VARCHAR2 (20);
|
||||
v_hit VARCHAR2 (20);
|
||||
v_lap_en_sim VARCHAR2 (20);
|
||||
v_lapt VARCHAR2 (20);
|
||||
v_tnc VARCHAR2 (20);
|
||||
v_tnc_omschrijving VARCHAR2 (100);
|
||||
v_facilitor VARCHAR2 (20);
|
||||
v_adp VARCHAR2 (20);
|
||||
v_absentiemanager VARCHAR2 (20);
|
||||
v_regas VARCHAR2 (20);
|
||||
v_checks VARCHAR2 (20);
|
||||
v_accountview VARCHAR2 (20);
|
||||
v_elvy VARCHAR2 (20);
|
||||
v_hodnet VARCHAR2 (20);
|
||||
v_proactive VARCHAR2 (20);
|
||||
|
||||
CURSOR c
|
||||
IS
|
||||
SELECT *
|
||||
FROM fac_imp_file
|
||||
WHERE fac_import_key = p_import_key
|
||||
ORDER BY fac_imp_file_index;
|
||||
BEGIN
|
||||
-- Vorige inlees eerst verwijderen
|
||||
---- Voor hmod_koffersysteem geldt dat je inlezen op dezelfde dag mag/kunt overschrijven. Voorgaande versiedatums blijven staan.
|
||||
DELETE FROM hmod_imp_koffersysteem
|
||||
WHERE versiedatum = TO_CHAR(TRUNC (SYSDATE),'DD-MM-YYYY');
|
||||
|
||||
COMMIT;
|
||||
|
||||
header_is_valid := 0;
|
||||
v_ongeldig := 0;
|
||||
v_count_error := 0;
|
||||
header_is_valid := 0;
|
||||
v_count_tot := 0;
|
||||
v_count_import := 0;
|
||||
|
||||
FOR rec IN c
|
||||
LOOP
|
||||
BEGIN
|
||||
v_newline := rec.fac_imp_file_line;
|
||||
v_errormsg := 'Fout opvragen te importeren rij';
|
||||
v_aanduiding := '';
|
||||
|
||||
-- Lees alle veldwaarden: versiedatum;omschrijving;code;token;mob;hit;lap_en_sim;lapt;tnc;tnc omschrijving;facilitor;adp;absentiemanager;regas;checks;accountview;elvy;hodnet;proactive
|
||||
v_errormsg := 'Fout opvragen te importeren kolom/rij 1';
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_versiedatum);
|
||||
v_errormsg := 'Fout opvragen te importeren kolom/rij 2';
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_omschrijving);
|
||||
v_errormsg := 'Fout opvragen te importeren kolom/rij 3';
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_code);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_token);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_mob);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_hit);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_lap_en_sim);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_lapt);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_tnc);
|
||||
fac.imp_getfield (v_newline,
|
||||
c_fielddelimitor,
|
||||
v_tnc_omschrijving);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_facilitor);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_adp);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_absentiemanager);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_regas);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_checks);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_accountview);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_elvy);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_hodnet);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_proactive);
|
||||
|
||||
v_aanduiding :=
|
||||
v_versiedatum || '|' || v_omschrijving || '|' || v_code;
|
||||
v_count_tot := v_count_tot + 1;
|
||||
|
||||
-- Skip until the header is found
|
||||
IF header_is_valid = 0
|
||||
THEN
|
||||
IF v_versiedatum = 'versiedatum'
|
||||
AND v_omschrijving = 'omschrijving'
|
||||
AND v_code = 'code'
|
||||
AND v_token = 'token'
|
||||
AND v_mob = 'mob'
|
||||
AND v_hit = 'hit'
|
||||
AND v_lap_en_sim = 'lap_en_sim'
|
||||
AND v_lapt = 'lapt'
|
||||
AND v_tnc = 'tnc'
|
||||
AND v_tnc_omschrijving = 'tnc omschrijving'
|
||||
AND v_facilitor = 'facilitor'
|
||||
AND v_adp = 'adp'
|
||||
AND v_absentiemanager = 'absentiemanager'
|
||||
AND v_regas = 'regas'
|
||||
AND v_checks = 'checks'
|
||||
AND v_accountview = 'accountview'
|
||||
AND v_elvy = 'elvy'
|
||||
AND v_hodnet = 'hodnet'
|
||||
AND v_proactive = 'proactive'
|
||||
THEN
|
||||
header_is_valid := 1;
|
||||
END IF;
|
||||
ELSE -- Header OK. Vanaf hier in de LOOP eventueel variabele vullen.
|
||||
BEGIN
|
||||
v_errormsg := 'Versiedatum wordt sysdatum ';
|
||||
|
||||
SELECT TO_CHAR (TRUNC (SYSDATE), 'DD-MM-YYYY')
|
||||
INTO v_versiedatum
|
||||
FROM DUAL;
|
||||
END;
|
||||
|
||||
INSERT INTO hmod_imp_koffersysteem (versiedatum,
|
||||
omschrijving,
|
||||
code,
|
||||
token,
|
||||
mob,
|
||||
hit,
|
||||
lap_en_sim,
|
||||
lapt,
|
||||
tnc,
|
||||
tnc_omschrijving,
|
||||
facilitor,
|
||||
adp,
|
||||
absentiemanager,
|
||||
regas,
|
||||
checks,
|
||||
accountview,
|
||||
elvy,
|
||||
hodnet,
|
||||
proactive)
|
||||
VALUES (v_versiedatum,
|
||||
v_omschrijving,
|
||||
v_code,
|
||||
v_token,
|
||||
v_mob,
|
||||
v_hit,
|
||||
v_lap_en_sim,
|
||||
v_lapt,
|
||||
v_tnc,
|
||||
v_tnc_omschrijving,
|
||||
v_facilitor,
|
||||
v_adp,
|
||||
v_absentiemanager,
|
||||
v_regas,
|
||||
v_checks,
|
||||
v_accountview,
|
||||
v_elvy,
|
||||
v_hodnet,
|
||||
v_proactive);
|
||||
END IF;
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
IF header_is_valid = 0
|
||||
THEN
|
||||
fac.imp_writelog (p_import_key,
|
||||
'E',
|
||||
'Ongeldig importbestand',
|
||||
'Geen header of header niet volgens specificatie!');
|
||||
ELSE
|
||||
-- Afsluiting: Rollback/Delete tabel als er fouten in csv zitten. Initieel voor import koffersysteem nog zonder foutcheck opgezet, dus ook geen v_ongeldig aan het vullen...
|
||||
IF v_ongeldig > 0
|
||||
THEN
|
||||
ROLLBACK;
|
||||
-- Met rollback haalt hij ook al mijn errors en warnings weg!?? Daarom een DELETE
|
||||
-- delete from hmod_imp_contractscope where <alleen de ingelzen versiedatum ;
|
||||
COMMIT;
|
||||
fac.imp_writelog (
|
||||
p_import_key,
|
||||
'E',
|
||||
'Niet ingelezen. Staan aantal ongeldige regels in csv-bestand. Zie bovenstaande ERRORS. Pas deze eerst aan!',
|
||||
'');
|
||||
ELSE
|
||||
COMMIT;
|
||||
fac.imp_writelog (
|
||||
p_import_key,
|
||||
'S',
|
||||
'Aantal ingelezen regels: ' || TO_CHAR (v_count_import),
|
||||
'');
|
||||
END IF;
|
||||
END IF;
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
ROLLBACK;
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
||||
v_errormsg :=
|
||||
'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes;
|
||||
fac.imp_writelog (p_import_key,
|
||||
'E',
|
||||
v_errormsg || ' - Check !!!! : ' || v_aanduiding,
|
||||
'');
|
||||
END hmod_import_koffer;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE PROCEDURE hmod_update_koffer (p_import_key IN NUMBER)
|
||||
AS
|
||||
v_errormsg VARCHAR (200);
|
||||
v_errorhint VARCHAR (200);
|
||||
oracle_err_mes VARCHAR2 (150);
|
||||
currentversion fac_module.fac_module_version%TYPE;
|
||||
v_aanduiding VARCHAR (100);
|
||||
v_count NUMBER;
|
||||
BEGIN
|
||||
-- hmod_update_koffer (p_import_key);
|
||||
NULL;
|
||||
END hmod_update_koffer;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE VIEW hmod_v_koffersysteem
|
||||
(
|
||||
OMSCHRIJVING_TOTAAL,
|
||||
VERSIEDATUM,
|
||||
OMSCHRIJVING,
|
||||
CODE,
|
||||
TOKEN,
|
||||
MOB,
|
||||
HIT,
|
||||
LAP_EN_SIM,
|
||||
TNC,
|
||||
TNC_OMSCHRIJVING,
|
||||
FACILITOR,
|
||||
ADP,
|
||||
ABSENTIEMANAGER,
|
||||
REGAS,
|
||||
CHECKS,
|
||||
ACCOUNTVIEW,
|
||||
ELVY,
|
||||
HODNET,
|
||||
PROACTIVE
|
||||
)
|
||||
AS
|
||||
SELECT OMSCHRIJVING || ' (' || code || ')' AS omschrijving_totaal,
|
||||
versiedatum,
|
||||
omschrijving,
|
||||
code,
|
||||
token,
|
||||
mob,
|
||||
hit,
|
||||
lap_en_sim,
|
||||
tnc,
|
||||
tnc_omschrijving,
|
||||
facilitor,
|
||||
adp,
|
||||
absentiemanager,
|
||||
regas,
|
||||
checks,
|
||||
accountview,
|
||||
elvy,
|
||||
hodnet,
|
||||
proactive
|
||||
FROM hmod_imp_koffersysteem;
|
||||
|
||||
|
||||
------ payload end ------
|
||||
|
||||
Reference in New Issue
Block a user