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

MNNL#53670 EUA-export+import/Aanschafwaarde

Browse Source 
svn path=/Customer/trunk/; revision=38319
This commit is contained in:
Maarten van der Heide
2018-06-22 11:45:25 +00:00
parent 68a9412d16
commit 0bb9074104
1 changed files with 28 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
MNNL/mnnl.sql
View File

@@ -2408,7 +2408,8 @@ CREATE OR REPLACE VIEW mnnl_v_rap_eua
aanschafdatum,
ordernummer,
opmerkingen,
vervaldatum
vervaldatum,
aanschafwaarde
)
AS
SELECT x.ins_discipline_omschrijving,
@@ -2430,7 +2431,8 @@ AS
fac.safe_to_date (asd.ins_kenmerkdeel_waarde, 'dd-mm-yyyy'), -- Aanschafdatum
onr.ins_kenmerkdeel_waarde, -- Ordernummer
opm.ins_kenmerkdeel_waarde, -- Opmerkingen
x.ins_deel_vervaldatum
x.ins_deel_vervaldatum,
fac.safe_to_number (asw.ins_kenmerkdeel_waarde) -- Aanschafwaarde
FROM (SELECT d.ins_deel_key,
td.ins_discipline_omschrijving,
sg.ins_srtgroep_omschrijving,
@@ -2535,6 +2537,9 @@ AS
LEFT JOIN ins_v_aanwezigkenmerkdeel opm
ON x.ins_deel_key = opm.ins_deel_key
AND opm.ins_kenmerk_key = 27 -- Opmerkingen
LEFT JOIN ins_v_aanwezigkenmerkdeel asw
ON x.ins_deel_key = asw.ins_deel_key
AND asw.ins_kenmerk_key = 101 -- MNNL#53670: Aanschafwaarde
;
-- MNNL#40905: EUA-import (EndUser Asset)!
@@ -2570,8 +2575,9 @@ IS
v_mdl VARCHAR2 (255); -- C50
v_asd VARCHAR2 (255); -- C10
v_onr VARCHAR2 (255); -- C50
v_opm VARCHAR2 (2000); -- C255!
v_opm VARCHAR2 (2000); -- C255!
v_ins_deel_vervaldatum VARCHAR2 (255); -- D10
v_asw VARCHAR2 (255); -- Nx
CURSOR c1
IS
@@ -2608,6 +2614,7 @@ BEGIN
fac.imp_getfield (v_newline, c_delim, v_onr);
fac.imp_getfield (v_newline, c_delim, v_opm);
fac.imp_getfield (v_newline, c_delim, v_ins_deel_vervaldatum);
fac.imp_getfield (v_newline, c_delim, v_asw);
v_aanduiding :=
'['
@@ -2649,6 +2656,7 @@ BEGIN
AND UPPER (v_onr) = 'ORDERNUMMER'
AND UPPER (v_opm) = 'OPMERKINGEN'
AND UPPER (v_ins_deel_vervaldatum) = 'VERVALDATUM'
AND UPPER (v_asw) = 'AANSCHAFWAARDE'
THEN
header_is_valid := 1;
END IF;
@@ -2795,6 +2803,9 @@ BEGIN
fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, 'Regel wordt overgeslagen!');
END IF;
--
v_asw := TRIM (v_asw);
-- Insert geformatteerde import record
IF v_ongeldig = 0
THEN
@@ -2820,7 +2831,8 @@ BEGIN
ins_kenmerkwaarde4,
ins_kenmerkwaarde5,
ins_kenmerkwaarde6,
ins_kenmerkwaarde7)
ins_kenmerkwaarde7,
ins_kenmerkwaarde8)
VALUES (v_ins_discipline_omschrijving,
v_ins_srtgroep_omschrijving,
v_ins_srtdeel_code,
@@ -2840,7 +2852,8 @@ BEGIN
v_mdl,
v_asd,
v_onr,
v_opm);
v_opm,
v_asw);
COMMIT;
v_count_import := v_count_import + 1;
@@ -3463,13 +3476,14 @@ AS
-- NULL-waarden resulteren NIET in het wissen van kenmerkvelden
-- (bijwerken kan wel, maar wissen dus niet)!
upsert_inskenmerk (v_deel_key, 24, rec.ins_kenmerkwaarde1); -- Status
upsert_inskenmerk (v_deel_key, 41, rec.ins_kenmerkwaarde2); -- Reden bij status
upsert_inskenmerk (v_deel_key, 1, rec.ins_kenmerkwaarde3); -- Serienummer
upsert_inskenmerk (v_deel_key, 21, rec.ins_kenmerkwaarde4); -- Model
upsert_inskenmerk (v_deel_key, 25, rec.ins_kenmerkwaarde5); -- Aanschafdatum
upsert_inskenmerk (v_deel_key, 26, rec.ins_kenmerkwaarde6); -- Ordernummer
upsert_inskenmerk (v_deel_key, 27, rec.ins_kenmerkwaarde7); -- Opmerkingen
upsert_inskenmerk (v_deel_key, 24, rec.ins_kenmerkwaarde1); -- Status
upsert_inskenmerk (v_deel_key, 41, rec.ins_kenmerkwaarde2); -- Reden bij status
upsert_inskenmerk (v_deel_key, 1, rec.ins_kenmerkwaarde3); -- Serienummer
upsert_inskenmerk (v_deel_key, 21, rec.ins_kenmerkwaarde4); -- Model
upsert_inskenmerk (v_deel_key, 25, rec.ins_kenmerkwaarde5); -- Aanschafdatum
upsert_inskenmerk (v_deel_key, 26, rec.ins_kenmerkwaarde6); -- Ordernummer
upsert_inskenmerk (v_deel_key, 27, rec.ins_kenmerkwaarde7); -- Opmerkingen
upsert_inskenmerk (v_deel_key, 101, rec.ins_kenmerkwaarde7); -- Aanschafwaarde
END IF;
EXCEPTION
WHEN OTHERS
@@ -4684,7 +4698,7 @@ AS
LEFT JOIN mk k28 ON x.melding_key = k28.melding_key AND k28.vnr = 28
LEFT JOIN mk k29 ON x.melding_key = k29.melding_key AND k29.vnr = 29
LEFT JOIN mk k30 ON x.melding_key = k30.melding_key AND k30.vnr = 30;
CREATE OR REPLACE VIEW MNNL_V_PERSLID_NAAMTEL
(
PERSLID_KEY,
@@ -4708,7 +4722,7 @@ AS
AND prs_perslid_oslogin NOT LIKE '%LEV_%'
AND prs_perslid_email LIKE '%@mn.nl%'
ORDER BY prs_perslid_naam;
CREATE OR REPLACE VIEW mnnl_v_rap_overwerk
(
res_key,