AADS#52496 -- Import voor inspecties / MJOB toevoegen.
AADS#52647 -- Inkoopfactuur export werkt niet! AAIT#52708 -- Aanpassing uren interface AADS#51394 -- Toevoegen extra veld aan [AAXX_V_DWH_INSPECTIE] svn path=/Customer/trunk/; revision=37479
This commit is contained in:
Arthur Egberink
518
AA/aaxx.sql
518
AA/aaxx.sql
@@ -3884,7 +3884,7 @@ BEGIN
|
||||
AND r.prs_relatietype_omschrijving = 'Contracting party'
|
||||
AND v.fin_verkoopfactuur_n1 = l.alg_locatie_key
|
||||
AND prs_kostensoort_oms LIKE 'CV %'
|
||||
GROUP BY fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_debiteur_naam, DECODE (INSTR(prs_kostensoort_oms, ' VJ'), 0 , '', ' VJ'), prs_kostensoortgrp_oms, fin_btwtabelwaarde_code, fin_verkoopfactuur_maand, fin_verkoopfactuur_c2;
|
||||
GROUP BY fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_debiteur_naam, l.alg_locatie_code, DECODE (INSTR(prs_kostensoort_oms, ' VJ'), 0 , '', ' VJ'), prs_kostensoortgrp_oms, fin_btwtabelwaarde_code, fin_verkoopfactuur_maand, fin_verkoopfactuur_c2;
|
||||
END IF;
|
||||
|
||||
IF aaxx_get_user = 'ESSENT' THEN
|
||||
@@ -4525,6 +4525,7 @@ END;
|
||||
-- 189 ProjectKPN uit AD (flex opdracht)
|
||||
-- 2 ProjectKPN uit AD (flex perslid)
|
||||
-- 3 AAFM Personeelsnummber (flex perslid)
|
||||
-- 6 Uurtarief intern (flex perslid)
|
||||
CREATE OR REPLACE VIEW aaxx_v_exact_uren_gegevens
|
||||
AS
|
||||
SELECT m.mld_melding_key,
|
||||
@@ -4557,7 +4558,8 @@ AS
|
||||
ou.mld_opdr_uren_besteed,
|
||||
ou.mld_opdr_uren_opmerking,
|
||||
fac.safe_To_Number(ut.mld_kenmerkopdr_waarde) uurtarief_opdr,
|
||||
ap.prs_perslid_uurloon uurtarief_perslid
|
||||
DECODE (UPPER(tp.fac_usrdata_omschr), 'INTERN PROJECT DIRECT <20> FACILITY INSTITUTE', fac.safe_to_number(uti.prs_kenmerklink_waarde),
|
||||
ap.prs_perslid_uurloon) uurtarief_perslid
|
||||
FROM mld_melding m,
|
||||
mld_stdmelding sm,
|
||||
mld_discipline vg,
|
||||
@@ -4578,6 +4580,7 @@ AS
|
||||
(SELECT * FROM fac_usrdata WHERE fac_usrtab_key = 14) tp, -- type project
|
||||
(SELECT * FROM mld_kenmerkopdr WHERE mld_kenmerk_key = 189) kpo, -- projectkpn (opdr)
|
||||
(SELECT * FROM prs_kenmerklink WHERE prs_kenmerk_key = 2) kpp, -- projectkpn (perslid)
|
||||
(SELECT * FROM prs_kenmerklink WHERE prs_kenmerk_key = 6) uti, -- uurtarief intern (perslid)
|
||||
(SELECT * FROM mld_kenmerkopdr WHERE mld_kenmerk_key = 188) ut, -- uurtarief (opdracht)
|
||||
(SELECT * FROM fac_locale_xsl WHERE fac_locale_xsl_lang = 'NL') lx, -- locale-strings
|
||||
(SELECT * FROM prs_kenmerklink WHERE prs_kenmerk_key = 3) pnp -- personeelsnummer (perslid)
|
||||
@@ -4595,6 +4598,7 @@ AS
|
||||
AND tp.fac_usrdata_key(+) = fac.safe_To_Number(ep.mld_kenmerkopdr_waarde)
|
||||
AND kpo.mld_opdr_key(+) = o.mld_opdr_key
|
||||
AND kpp.prs_link_key(+) = o.mld_uitvoerende_keys
|
||||
AND uti.prs_link_key(+) = o.mld_uitvoerende_keys
|
||||
AND pnp.prs_link_key(+) = o.mld_uitvoerende_keys
|
||||
AND ut.mld_opdr_key(+) = o.mld_opdr_key
|
||||
AND ap.prs_perslid_key = o.mld_uitvoerende_keys
|
||||
@@ -8534,20 +8538,19 @@ AS
|
||||
sc.ins_srtcontrole_niveau,
|
||||
sc.ins_srtcontrole_omschrijving,
|
||||
COALESCE (
|
||||
(SELECT ins_srtcontroledl_xcp_periode
|
||||
FROM ins_srtcontroledl_xcp
|
||||
WHERE d.ins_deel_key = ins_deel_key
|
||||
AND ins_srtcontrole_key = sc.ins_srtcontrole_key),
|
||||
sc.ins_srtcontrole_periode
|
||||
) ins_srtcontrole_periode,
|
||||
(SELECT ins_srtcontroledl_xcp_periode
|
||||
FROM ins_srtcontroledl_xcp
|
||||
WHERE d.ins_deel_key = ins_deel_key
|
||||
AND ins_srtcontrole_key = sc.ins_srtcontrole_key),
|
||||
sc.ins_srtcontrole_periode)
|
||||
ins_srtcontrole_periode,
|
||||
DECODE (
|
||||
COALESCE (
|
||||
(SELECT ins_srtcontroledl_xcp_eenheid
|
||||
FROM ins_srtcontroledl_xcp
|
||||
WHERE d.ins_deel_key = ins_deel_key
|
||||
AND ins_srtcontrole_key = sc.ins_srtcontrole_key),
|
||||
sc.ins_srtcontrole_eenheid
|
||||
),
|
||||
AND ins_srtcontrole_key = sc.ins_srtcontrole_key),
|
||||
sc.ins_srtcontrole_eenheid),
|
||||
0,
|
||||
'Uurlijks',
|
||||
1,
|
||||
@@ -8558,16 +8561,17 @@ AS
|
||||
'Maandelijks',
|
||||
4,
|
||||
'Jaarlijks',
|
||||
'Onbekend' ) ins_srtcontrole_eenheid,
|
||||
'Onbekend')
|
||||
ins_srtcontrole_eenheid,
|
||||
ins_deelsrtcontrole_datum,
|
||||
(SELECT MAX (dc2.ins_deelsrtcontrole_datum)
|
||||
+ sc.ins_srtcontrole_periode
|
||||
FROM ins_deelsrtcontrole dc2
|
||||
WHERE dc2.ins_deelsrtcontrole_datum <
|
||||
dc.ins_deelsrtcontrole_datum
|
||||
AND dc2.ins_deel_key = dc.ins_deel_key
|
||||
AND dc2.ins_srtcontrole_key = dc.ins_srtcontrole_key
|
||||
AND dc2.ins_controlemode_key = dc.ins_controlemode_key)
|
||||
AND dc2.ins_deel_key = dc.ins_deel_key
|
||||
AND dc2.ins_srtcontrole_key = dc.ins_srtcontrole_key
|
||||
AND dc2.ins_controlemode_key = dc.ins_controlemode_key)
|
||||
ins_deelsrtcontrole_gepland,
|
||||
(SELECT DECODE (
|
||||
SIGN( MAX (dc2.ins_deelsrtcontrole_datum)
|
||||
@@ -8579,9 +8583,9 @@ AS
|
||||
FROM ins_deelsrtcontrole dc2
|
||||
WHERE dc2.ins_deelsrtcontrole_datum <
|
||||
dc.ins_deelsrtcontrole_datum
|
||||
AND dc2.ins_deel_key = dc.ins_deel_key
|
||||
AND dc2.ins_srtcontrole_key = dc.ins_srtcontrole_key
|
||||
AND dc2.ins_controlemode_key = dc.ins_controlemode_key)
|
||||
AND dc2.ins_deel_key = dc.ins_deel_key
|
||||
AND dc2.ins_srtcontrole_key = dc.ins_srtcontrole_key
|
||||
AND dc2.ins_controlemode_key = dc.ins_controlemode_key)
|
||||
ins_deelsrtcontrole_status,
|
||||
(SELECT DECODE (
|
||||
COUNT ( * ),
|
||||
@@ -8597,17 +8601,17 @@ AS
|
||||
FROM ins_deelsrtcontrole dc2
|
||||
WHERE dc2.ins_deelsrtcontrole_datum >
|
||||
dc.ins_deelsrtcontrole_datum
|
||||
AND dc2.ins_deel_key = dc.ins_deel_key
|
||||
AND dc2.ins_srtcontrole_key = dc.ins_srtcontrole_key
|
||||
AND dc2.ins_controlemode_key = dc.ins_controlemode_key)
|
||||
AND dc2.ins_deel_key = dc.ins_deel_key
|
||||
AND dc2.ins_srtcontrole_key = dc.ins_srtcontrole_key
|
||||
AND dc2.ins_controlemode_key = dc.ins_controlemode_key)
|
||||
ins_deelsrtcontrole_next,
|
||||
COALESCE (
|
||||
(SELECT ins_srtcontroledl_xcp_materia
|
||||
FROM ins_srtcontroledl_xcp
|
||||
WHERE d.ins_deel_key = ins_deel_key
|
||||
AND ins_srtcontrole_key = sc.ins_srtcontrole_key),
|
||||
sc.ins_srtcontrole_materiaal
|
||||
) srtcontrole_materiaal,
|
||||
AND ins_srtcontrole_key = sc.ins_srtcontrole_key),
|
||||
sc.ins_srtcontrole_materiaal)
|
||||
srtcontrole_materiaal,
|
||||
cm.ins_controlemode_oms,
|
||||
cm.ins_controlemode_opmerking,
|
||||
dc.ins_deelsrtcontrole_opmerking,
|
||||
@@ -8620,12 +8624,12 @@ AS
|
||||
ins_controlemode cm,
|
||||
prs_v_perslid_fullnames_all pf,
|
||||
ctr_discipline cd
|
||||
WHERE dc.ins_deel_key = d.ins_deel_key
|
||||
AND dc.ins_srtcontrole_key = sc.ins_srtcontrole_key
|
||||
AND dc.ins_controlemode_key = cm.ins_controlemode_key(+)
|
||||
AND dc.prs_perslid_key = pf.prs_perslid_key(+)
|
||||
AND sc.ctr_discipline_key = cd.ins_discipline_key
|
||||
UNION ALL
|
||||
WHERE dc.ins_deel_key = d.ins_deel_key
|
||||
AND dc.ins_srtcontrole_key = sc.ins_srtcontrole_key
|
||||
AND dc.ins_controlemode_key = cm.ins_controlemode_key(+)
|
||||
AND dc.prs_perslid_key = pf.prs_perslid_key(+)
|
||||
AND sc.ctr_discipline_key = cd.ins_discipline_key
|
||||
UNION ALL
|
||||
-- Controledefinities ook opmenen. Dus zonder dat er een resultaat record is.
|
||||
-- Controles met een periode van 0 worden uitgesloten omdat dit geen daadwerkelijk ingeplande of in te plannen controles zijn.
|
||||
SELECT NULL ins_deelsrtcontrole_key,
|
||||
@@ -8647,11 +8651,16 @@ AS
|
||||
(SELECT COUNT ( * )
|
||||
FROM ins_deelsrtcontrole dsc
|
||||
WHERE dsc.ins_deel_key = d.ins_deel_key
|
||||
AND dsc.ins_srtcontrole_key = xcp.ins_srtcontrole_key),
|
||||
AND dsc.ins_srtcontrole_key = xcp.ins_srtcontrole_key),
|
||||
0,
|
||||
COALESCE (ins_srtcontroledl_xcp_startdat,
|
||||
fac.nextcyclusdatedeel (xcp.ins_deel_key, xcp.ins_srtcontrole_key, 1)),
|
||||
fac.nextcyclusdatedeel (d.ins_deel_key, xcp.ins_srtcontrole_key, 1))
|
||||
COALESCE (
|
||||
ins_srtcontroledl_xcp_startdat,
|
||||
fac.nextcyclusdatedeel (xcp.ins_deel_key,
|
||||
xcp.ins_srtcontrole_key,
|
||||
1)),
|
||||
fac.nextcyclusdatedeel (d.ins_deel_key,
|
||||
xcp.ins_srtcontrole_key,
|
||||
1))
|
||||
ins_deelsrtcontrole_datum,
|
||||
NULL ins_deelsrtcontrole_gepland,
|
||||
DECODE (
|
||||
@@ -8659,11 +8668,17 @@ AS
|
||||
(SELECT COUNT ( * )
|
||||
FROM ins_deelsrtcontrole dsc
|
||||
WHERE dsc.ins_deel_key = d.ins_deel_key
|
||||
AND dsc.ins_srtcontrole_key = xcp.ins_srtcontrole_key),
|
||||
AND dsc.ins_srtcontrole_key =
|
||||
xcp.ins_srtcontrole_key),
|
||||
0,
|
||||
COALESCE (ins_srtcontroledl_xcp_startdat,
|
||||
fac.nextcyclusdatedeel (xcp.ins_deel_key, xcp.ins_srtcontrole_key, 1)),
|
||||
fac.nextcyclusdatedeel (d.ins_deel_key, xcp.ins_srtcontrole_key, 1))
|
||||
COALESCE (
|
||||
ins_srtcontroledl_xcp_startdat,
|
||||
fac.nextcyclusdatedeel (xcp.ins_deel_key,
|
||||
xcp.ins_srtcontrole_key,
|
||||
1)),
|
||||
fac.nextcyclusdatedeel (d.ins_deel_key,
|
||||
xcp.ins_srtcontrole_key,
|
||||
1))
|
||||
- SYSDATE),
|
||||
-1,
|
||||
'Te laat',
|
||||
@@ -8676,11 +8691,15 @@ AS
|
||||
NULL ins_deelsrtcontrole_opmerking,
|
||||
NULL prs_perslid_key,
|
||||
NULL prs_perslid_naam_full,
|
||||
NULL ins_discipline_omschrijving
|
||||
FROM ins_v_defined_inspect_xcp xcp, ins_deel d, ins_srtcontrole sc
|
||||
WHERE xcp.ins_deel_key = d.ins_deel_key
|
||||
AND xcp.ins_srtcontrole_key = sc.ins_srtcontrole_key
|
||||
AND xcp.ins_srtcontrole_periode <> 0;
|
||||
cd.ins_discipline_omschrijving
|
||||
FROM ins_v_defined_inspect_xcp xcp,
|
||||
ins_deel d,
|
||||
ins_srtcontrole sc,
|
||||
ctr_discipline cd
|
||||
WHERE xcp.ins_deel_key = d.ins_deel_key
|
||||
AND xcp.ins_srtcontrole_key = sc.ins_srtcontrole_key
|
||||
AND xcp.ins_srtcontrole_periode <> 0
|
||||
AND sc.ctr_discipline_key = cd.ins_discipline_key;
|
||||
|
||||
-------------------------------------------------------------------------------
|
||||
-- EXPORTFUNCTIE - DWH_INS_OBJECT
|
||||
@@ -10674,6 +10693,375 @@ EXCEPTION
|
||||
END;
|
||||
/
|
||||
|
||||
-------------------------------------------
|
||||
-- Import inspecties / MJOB
|
||||
-------------------------------------------
|
||||
CREATE OR REPLACE PROCEDURE aaxx_import_insp_mjob (p_import_key IN NUMBER)
|
||||
IS
|
||||
c_fielddelimitor VARCHAR2 (1) := ';';
|
||||
|
||||
v_newline VARCHAR2 (4000); -- Input line
|
||||
v_errormsg VARCHAR (1000);
|
||||
v_hint VARCHAR2 (1000);
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
v_ongeldig NUMBER (1);
|
||||
v_aanduiding VARCHAR2 (200);
|
||||
v_header_is_valid NUMBER (1);
|
||||
v_dummy VARCHAR2 (1000);
|
||||
-- De importvelden:
|
||||
v_locatiecode VARCHAR2(1000);
|
||||
v_objectomschrijving VARCHAR2(1000);
|
||||
v_taakcategorie VARCHAR2(1000);
|
||||
v_taakomschrijving VARCHAR2(1000);
|
||||
v_taakopmerking VARCHAR2(1000);
|
||||
v_taakprioriteit VARCHAR2(1000);
|
||||
v_taakbtw VARCHAR2(1000);
|
||||
v_taakkostenplaatsnr VARCHAR2(1000);
|
||||
v_taakkostenplaatsomschrijving VARCHAR2(1000);
|
||||
v_taakobjectpercentage VARCHAR2(1000);
|
||||
v_taakobjectopmerking VARCHAR2(1000);
|
||||
v_taakobjectperiode VARCHAR2(1000);
|
||||
v_taakobjectstartjaar VARCHAR2(1000);
|
||||
v_taakobjecteindjaar VARCHAR2(1000);
|
||||
v_taakobjectmateriaal VARCHAR2(1000);
|
||||
v_taakobjectkosten VARCHAR2(1000);
|
||||
v_taakobjecteenheid VARCHAR2(1000);
|
||||
v_deel_key NUMBER(10);
|
||||
v_discipline_key NUMBER(10);
|
||||
v_ismjob NUMBER;
|
||||
|
||||
|
||||
CURSOR c
|
||||
IS
|
||||
SELECT *
|
||||
FROM fac_imp_file
|
||||
WHERE fac_import_key = p_import_key
|
||||
ORDER BY fac_imp_file_index;
|
||||
BEGIN
|
||||
-- Eerst opruiming
|
||||
|
||||
DELETE FROM aaxx_imp_insp_mjob;
|
||||
|
||||
COMMIT;
|
||||
|
||||
v_header_is_valid := 0;
|
||||
v_ongeldig := 0;
|
||||
|
||||
FOR rec IN c
|
||||
LOOP
|
||||
BEGIN
|
||||
v_ongeldig := 0;
|
||||
|
||||
v_errormsg := 'Fout FETCH te importeren rij';
|
||||
v_newline := rec.fac_imp_file_line;
|
||||
|
||||
v_errormsg := 'Fout opvragen te importeren rij:' || SUBSTR (v_newline, 1, 200);
|
||||
v_aanduiding := '';
|
||||
|
||||
IF (REPLACE(UPPER (v_newline), ' ') LIKE 'LOCATIECODE;OBJECTOMSCHRIJVING;TAAKCATEGORIE;TAAKOMSCHRIJVING;TAAKOPMERKING;TAAKPRIORITEIT;TAAKBTW;TAAKKOSTENPLAATSNR;TAAKKOSTENPLAATSOMSCHRIJVING;TAAKOBJECTPERCENTAGE;TAAKOBJECTOPMERKING;TAAKOBJECTEENHEID;TAAKOBJECTPERIODE;TAAKOBJECTSTARTJAAR;TAAKOBJECTEINDJAAR;TAAKOBJECTKOSTEN%')
|
||||
THEN
|
||||
v_header_is_valid := 1;
|
||||
ELSE
|
||||
-- Lees alle veldwaarden
|
||||
v_errormsg := 'Fout opvragen te importeren rij (locatie)';
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_locatiecode);
|
||||
|
||||
v_errormsg := 'Fout opvragen te importeren rij (object)';
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_objectomschrijving);
|
||||
|
||||
v_errormsg := 'Fout opvragen te importeren rij (discipline)';
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_taakcategorie);
|
||||
|
||||
v_errormsg := 'Fout opvragen te importeren rij (taakomschrijving)';
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_taakomschrijving);
|
||||
|
||||
v_errormsg := 'Fout opvragen te importeren rij (taakopmerking)';
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_taakopmerking);
|
||||
|
||||
v_errormsg := 'Fout opvragen te importeren rij (prioriteit)';
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_taakprioriteit);
|
||||
|
||||
v_errormsg := 'Fout opvragen te importeren rij (dummy velden)';
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_dummy); -- v_taakbtw
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_dummy); -- v_taakkostenplaatsnr
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_dummy); -- v_taakkostenplaatsomschrijving
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_dummy); -- v_taakobjectpercentage
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_dummy); -- v_taakobjectopmerking
|
||||
|
||||
v_errormsg := 'Fout opvragen te importeren rij (eenheid)';
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_taakobjecteenheid);
|
||||
|
||||
v_errormsg := 'Fout opvragen te importeren rij (periode)';
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_taakobjectperiode);
|
||||
|
||||
v_errormsg := 'Fout opvragen te importeren rij (startjaar)';
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_taakobjectstartjaar);
|
||||
|
||||
v_errormsg := 'Fout opvragen te importeren rij (eindjaar)';
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_taakobjecteindjaar);
|
||||
|
||||
v_errormsg := 'Fout opvragen te importeren rij (materiaal)';
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_taakobjectmateriaal);
|
||||
|
||||
v_errormsg := 'Fout opvragen te importeren rij (kosten)';
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_taakobjectkosten);
|
||||
|
||||
-- Controleer of het object bestaat
|
||||
BEGIN
|
||||
SELECT ins_deel_key
|
||||
INTO v_deel_key
|
||||
FROM ins_deel
|
||||
WHERE ins_deel_omschrijving = v_objectomschrijving;
|
||||
EXCEPTION WHEN NO_DATA_FOUND
|
||||
THEN
|
||||
aaxx_imp_writelog (
|
||||
p_import_key, 'E', 'Object bestaat niet',
|
||||
rec.fac_imp_file_index || ' - ' || v_objectomschrijving);
|
||||
v_ongeldig := 1;
|
||||
END;
|
||||
|
||||
-- Controleer de taakcategorie
|
||||
BEGIN
|
||||
SELECT ins_discipline_key, ctr_disc_params_ismjob
|
||||
INTO v_discipline_key, v_ismjob
|
||||
FROM ins_tab_discipline d, ctr_disc_params dp
|
||||
WHERE dp.ctr_ins_discipline_key = d.ins_discipline_key
|
||||
AND UPPER (d.ins_discipline_omschrijving) = TRIM(UPPER(v_taakcategorie));
|
||||
EXCEPTION WHEN NO_DATA_FOUND
|
||||
THEN
|
||||
aaxx_imp_writelog (
|
||||
p_import_key, 'E', 'Inspectie discipline niet gevonden',
|
||||
rec.fac_imp_file_index || ' - ' || v_taakcategorie);
|
||||
v_ongeldig := 1;
|
||||
END;
|
||||
|
||||
-- Controleer de eenheid
|
||||
IF v_ismjob = 1
|
||||
THEN
|
||||
v_taakobjecteenheid := '4'; -- jaar
|
||||
END IF;
|
||||
|
||||
IF v_taakobjecteenheid NOT IN ('1', '2', '3', '4')
|
||||
THEN
|
||||
aaxx_imp_writelog (
|
||||
p_import_key, 'E', 'Geen of ongeldige eenheid gevonden',
|
||||
rec.fac_imp_file_index || ' - ' || v_objectomschrijving || ' - ' || v_taakobjecteenheid);
|
||||
v_ongeldig := 1;
|
||||
END IF;
|
||||
|
||||
v_errormsg :=
|
||||
'Fout bij toevoegen regel aan tabel '
|
||||
|| v_objectomschrijving;
|
||||
|
||||
IF v_ongeldig = 0
|
||||
THEN
|
||||
INSERT INTO aaxx_imp_insp_mjob (locatiecode,
|
||||
objectomschrijving ,
|
||||
taakcategorie,
|
||||
taakomschrijving,
|
||||
taakopmerking,
|
||||
taakprioriteit,
|
||||
taakbtw,
|
||||
taakkostenplaatsnr,
|
||||
taakkostenplaatsomschrijving,
|
||||
taakobjectpercentage,
|
||||
taakobjectopmerking,
|
||||
taakobjectperiode,
|
||||
taakobjectstartjaar,
|
||||
taakobjecteindjaar,
|
||||
taakobjectmateriaal,
|
||||
taakobjectkosten,
|
||||
taakobjecteenheid,
|
||||
deel_key,
|
||||
discipline_key,
|
||||
ismjob)
|
||||
VALUES (v_locatiecode,
|
||||
v_objectomschrijving ,
|
||||
v_taakcategorie,
|
||||
v_taakomschrijving,
|
||||
v_taakopmerking,
|
||||
v_taakprioriteit,
|
||||
v_taakbtw,
|
||||
v_taakkostenplaatsnr,
|
||||
v_taakkostenplaatsomschrijving,
|
||||
v_taakobjectpercentage,
|
||||
v_taakobjectopmerking,
|
||||
v_taakobjectperiode,
|
||||
v_taakobjectstartjaar,
|
||||
v_taakobjecteindjaar,
|
||||
v_taakobjectmateriaal,
|
||||
v_taakobjectkosten,
|
||||
v_taakobjecteenheid,
|
||||
v_deel_key,
|
||||
v_discipline_key,
|
||||
v_ismjob);
|
||||
|
||||
END IF;
|
||||
END IF;
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
|
||||
IF v_header_is_valid = 0
|
||||
THEN
|
||||
aaxx_imp_writelog (p_import_key, 'E', v_aanduiding || 'Ongeldig importbestand', 'Toelichting: ... ');
|
||||
v_ongeldig := 1;
|
||||
END IF;
|
||||
|
||||
IF v_ongeldig = 0
|
||||
THEN
|
||||
COMMIT;
|
||||
ELSE
|
||||
ROLLBACK;
|
||||
END IF;
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
ROLLBACK;
|
||||
oracle_err_num := SQLCODE;
|
||||
v_hint := v_errormsg;
|
||||
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, v_hint);
|
||||
END aaxx_import_insp_mjob;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE PROCEDURE aaxx_update_insp_mjob (p_import_key IN NUMBER)
|
||||
AS
|
||||
CURSOR c
|
||||
IS
|
||||
SELECT i.*, d.ins_srtdeel_key, sd.ins_srtdeel_code
|
||||
FROM aaxx_imp_insp_mjob i, ins_deel d, ins_srtdeel sd
|
||||
WHERE i.deel_key = d.ins_deel_key
|
||||
AND d.ins_srtdeel_key = sd.ins_srtdeel_key;
|
||||
|
||||
v_errormsg VARCHAR2 (1000);
|
||||
v_error_hint VARCHAR2 (1000);
|
||||
oracle_err_mes VARCHAR2 (150);
|
||||
oracle_err_num VARCHAR2 (150);
|
||||
v_aanduiding VARCHAR2 (200);
|
||||
v_ongeldig NUMBER (1);
|
||||
v_srtcontrole_key NUMBER (10);
|
||||
v_taakobjectstart VARCHAR2 (15);
|
||||
BEGIN
|
||||
v_ongeldig := 0;
|
||||
|
||||
FOR rec IN c
|
||||
LOOP
|
||||
BEGIN
|
||||
BEGIN
|
||||
v_aanduiding :=
|
||||
rec.objectomschrijving
|
||||
|| ' / '
|
||||
|| rec.taakcategorie
|
||||
|| ' - '
|
||||
|| rec.taakomschrijving;
|
||||
v_errormsg := 'Aanmaken taak ' || v_aanduiding;
|
||||
|
||||
SELECT ins_srtcontrole_key
|
||||
INTO v_srtcontrole_key
|
||||
FROM ins_srtcontrole
|
||||
WHERE ins_srtcontrole_omschrijving =
|
||||
SUBSTR (
|
||||
TRIM (
|
||||
rec.ins_srtdeel_code
|
||||
|| ' - '
|
||||
|| rec.taakomschrijving),
|
||||
1,
|
||||
60);
|
||||
EXCEPTION
|
||||
WHEN NO_DATA_FOUND
|
||||
THEN
|
||||
INSERT INTO ins_srtcontrole (
|
||||
ins_srtinstallatie_key,
|
||||
ins_srtcontrole_niveau,
|
||||
ins_srtcontrole_omschrijving,
|
||||
ctr_discipline_key,
|
||||
ins_srtcontrole_info,
|
||||
ins_srtcontrole_periode,
|
||||
ins_srtcontrole_eenheid,
|
||||
ins_srtcontrole_mode,
|
||||
ins_srtcontrole_level)
|
||||
VALUES (
|
||||
rec.ins_srtdeel_key,
|
||||
'S',
|
||||
SUBSTR (
|
||||
TRIM (
|
||||
rec.ins_srtdeel_code
|
||||
|| ' - '
|
||||
|| rec.taakomschrijving),
|
||||
1,
|
||||
60),
|
||||
rec.discipline_key,
|
||||
NULL,
|
||||
0,
|
||||
rec.taakobjecteenheid,
|
||||
1,
|
||||
COALESCE (rec.taakprioriteit, '0'))
|
||||
RETURNING ins_srtcontrole_key
|
||||
INTO v_srtcontrole_key;
|
||||
END;
|
||||
|
||||
|
||||
IF LENGTH (rec.taakobjectstartjaar) = 4
|
||||
THEN
|
||||
v_taakobjectstart := '01-01-' || rec.TaakObjectStartjaar;
|
||||
ELSE
|
||||
v_taakobjectstart := rec.TaakObjectStartjaar;
|
||||
END IF;
|
||||
|
||||
v_errormsg := 'Aanmaken taak object ' || v_aanduiding;
|
||||
|
||||
INSERT INTO ins_srtcontroledl_xcp (
|
||||
ins_deel_key,
|
||||
ins_srtcontrole_key,
|
||||
ins_srtcontroledl_xcp_periode,
|
||||
ins_srtcontroledl_xcp_eenheid,
|
||||
ins_srtcontroledl_xcp_materia,
|
||||
ins_srtcontroledl_xcp_perc,
|
||||
ins_srtcontroledl_xcp_opmerk,
|
||||
ins_srtcontroledl_xcp_startdat)
|
||||
VALUES (
|
||||
rec.deel_key,
|
||||
v_srtcontrole_key,
|
||||
rec.taakobjectperiode,
|
||||
rec.taakobjecteenheid,
|
||||
fac.safe_to_number (
|
||||
REPLACE (rec.taakobjectkosten, ',', '.')),
|
||||
100,
|
||||
rec.taakobjectopmerking,
|
||||
TO_DATE (v_taakobjectstart, 'dd-mm-yyyy'));
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
v_error_hint := v_errormsg;
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
||||
v_errormsg :=
|
||||
v_errormsg
|
||||
|| 'ORACLE (error '
|
||||
|| oracle_err_num
|
||||
|| '/'
|
||||
|| oracle_err_mes
|
||||
|| ')';
|
||||
aaxx_imp_writelog (p_import_key,
|
||||
'E',
|
||||
v_errormsg,
|
||||
v_error_hint);
|
||||
v_ongeldig := 1;
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
IF v_ongeldig = 0
|
||||
THEN
|
||||
COMMIT;
|
||||
ELSE
|
||||
ROLLBACK;
|
||||
END IF;
|
||||
END;
|
||||
/
|
||||
|
||||
-------------------------------------------
|
||||
-- Import contracttermijnen / Factuurschema
|
||||
-------------------------------------------
|
||||
@@ -11857,6 +12245,7 @@ AS
|
||||
personeelsnummer,
|
||||
dienstverband,
|
||||
uurloon,
|
||||
uurloon_intern,
|
||||
kostenplaats,
|
||||
prs_perslid_apikey,
|
||||
i.prs_perslid_key prs_perslid_key_aait,
|
||||
@@ -12144,6 +12533,12 @@ BEGIN
|
||||
v_prs_perslid_key,
|
||||
rec.kostenplaats);
|
||||
|
||||
v_errormsg := 'Toevoegen uurloon intern kenmerk ' || v_prs_perslid_key;
|
||||
aaxx.set_prs_kenmerk (p_import_key,
|
||||
'P',
|
||||
6,
|
||||
v_prs_perslid_key,
|
||||
rec.uurloon_intern);
|
||||
IF rec.afdelingscode = 'SD'
|
||||
THEN
|
||||
-- Servicedesk autorisatie toevoegen.
|
||||
@@ -15503,7 +15898,8 @@ AS
|
||||
WHERE UPPER (fac_bookmark_path) = 'APPL/PDA/MELDING.ASP'
|
||||
AND INSTR (UPPER (fac_bookmark_query), 'STDM_KEY') > 0)
|
||||
b, -- stdm_key-bookmarks
|
||||
(SELECT sm.mld_stdmelding_key,
|
||||
-- Verwijderen met 2017.3
|
||||
(SELECT sm.mld_stdmelding_key,
|
||||
sm.mld_stdmelding_omschrijving,
|
||||
sm.ins_srtinst_key ins_srtdeel_key
|
||||
FROM mld_stdmelding sm
|
||||
@@ -15526,6 +15922,40 @@ AS
|
||||
AND sm.ins_srtinst_niveau = 'D'
|
||||
AND sm.ins_srtinst_key = sg.ins_discipline_key
|
||||
AND sg.ins_srtgroep_key = sd.ins_srtgroep_key) msd, -- object-meldingen
|
||||
-- Toevoegen met 2017.3
|
||||
--
|
||||
-- (SELECT sm.mld_stdmelding_key,
|
||||
-- sm.mld_stdmelding_omschrijving,
|
||||
-- si.ins_srtinstallatie_key ins_srtdeel_key
|
||||
-- FROM mld_stdmelding sm,
|
||||
-- mld_stdmelding_srtinst si
|
||||
-- WHERE sm.mld_stdmelding_key = si.mld_stdmelding_key
|
||||
-- AND sm.mld_stdmelding_verwijder IS NULL
|
||||
-- AND si.ins_srtinstallatie_niveau = 'S'
|
||||
-- UNION ALL
|
||||
-- SELECT sm.mld_stdmelding_key,
|
||||
-- sm.mld_stdmelding_omschrijving,
|
||||
-- sd.ins_srtdeel_key
|
||||
-- FROM mld_stdmelding sm,
|
||||
-- mld_stdmelding_srtinst si,
|
||||
-- ins_srtdeel sd
|
||||
-- WHERE sm.mld_stdmelding_key = si.mld_stdmelding_key
|
||||
-- AND sm.mld_stdmelding_verwijder IS NULL
|
||||
-- AND si.ins_srtinstallatie_niveau = 'G'
|
||||
-- AND si.ins_srtinstallatie_key = sd.ins_srtgroep_key
|
||||
-- UNION ALL
|
||||
-- SELECT sm.mld_stdmelding_key,
|
||||
-- sm.mld_stdmelding_omschrijving,
|
||||
-- sd.ins_srtdeel_key
|
||||
-- FROM mld_stdmelding sm,
|
||||
-- mld_stdmelding_srtinst si,
|
||||
-- ins_srtgroep sg,
|
||||
-- ins_srtdeel sd
|
||||
-- WHERE sm.mld_stdmelding_key = si.mld_stdmelding_key
|
||||
-- AND sm.mld_stdmelding_verwijder IS NULL
|
||||
-- AND si.ins_srtinstallatie_niveau = 'D'
|
||||
-- AND si.ins_srtinstallatie_key = sg.ins_discipline_key
|
||||
-- AND sg.ins_srtgroep_key = sd.ins_srtgroep_key) msd, -- object-meldingen
|
||||
ins_v_aanwezigdeel d,
|
||||
ins_srtdeel sd,
|
||||
ins_srtgroep sg,
|
||||
|
||||
Reference in New Issue
Block a user