LOGC#62792 -- Zinvolle sturingsrapportage(s) tbv releasemanagement

LOGC#63018 -- Nieuwe import voor Uren vanuit SAP ondersteunen

svn path=/Customer/trunk/; revision=47276
This commit is contained in:
Arthur Egberink
2020-07-01 07:51:58 +00:00
parent 15c4ef0c5c
commit 16136e9f32

View File

@@ -364,13 +364,13 @@ BEGIN
fac.imp_getfield (v_newline, c_delim, v_field);
v_index := v_index + 1;
CASE UPPER(v_field)
WHEN 'DATE' THEN i_datum_txt := v_index;
WHEN 'GENERAL RECEIVER' THEN i_project := v_index;
WHEN 'ACCT ASSGNT TEXT' THEN i_project_oms := v_index;
WHEN 'ACTIVITY TYPE' THEN i_categorie := v_index;
WHEN 'PERSONNEL NUMBER' THEN i_werknemer := v_index;
WHEN 'NUMBER (UNIT)' THEN i_uren := v_index;
WHEN 'SHORT TEXT' THEN i_transactietekst := v_index;
WHEN 'DATUM' THEN i_datum_txt := v_index;
WHEN 'ALGEMENE ONTVANGER' THEN i_project := v_index;
WHEN 'RUBRICERINGSOMS.' THEN i_project_oms := v_index;
WHEN 'PRESTATIESOORT' THEN i_categorie := v_index;
WHEN 'PERSONEELSNUMMER' THEN i_werknemer := v_index;
WHEN 'AANTAL (MAATEENHEID)' THEN i_uren := v_index;
WHEN 'K. TEKST' THEN i_transactietekst := v_index;
ELSE
NULL;
END CASE;
@@ -424,7 +424,7 @@ BEGIN
IF v_transactietekst IS NOT NULL AND INSTR(v_transactietekst, '#') > 0
THEN
v_transactietekst := REGEXP_SUBSTR (v_transactietekst , '[[:alpha:]]{3,}#[[:digit:]]{5,}', 1, 1, 'i');
v_transactietekst := REGEXP_SUBSTR (v_transactietekst , '[[:alpha:]]{0,}#[[:digit:]]{5,}', 1, 1, 'i');
IF v_transactietekst IS NULL
THEN
--v_ongeldig := 1;
@@ -634,6 +634,60 @@ EXCEPTION
END logc_update_uren_besteding;
/
CREATE OR REPLACE VIEW logc_v_uren_bron
AS
SELECT u.project,
categorie,
uren,
mld_melding_key,
datum,
prs_perslid_naam,
project_oms,
COALESCE (
(SELECT fac.safe_to_number (prs_kenmerklink_waarde)
FROM prs_kenmerklink kl
WHERE kl.prs_kenmerk_key = 1280
AND kl.prs_link_key = p.prs_perslid_key),
40) upw,
DECODE (p.prs_perslid_nr,
'73100002', 'Mareon', -- Bourseau (Marcel)
'73100071', 'Sales', -- Brand (Yustin)
'73100003', 'Consultancy', -- Egberink (Arthur)
'73100004', 'Staff', --Feij (Peter)
'73100005', 'Development', --Geerdink (Maykel)
'73100006', 'Development', --Groener (Erik)
'73100007', 'Development', --Groot Lipman (Jos)
'73100056', 'Support', --Hartmann (Dennis)
'73100008', 'Consultancy', --Heide van der (Maarten)
'73100016', 'Sales', -- Heijst van (Pieter)
'73100019', 'Sales', -- Koetsier, M.R. (Matthijs)
'73100xxx', 'Support', --Koster (Elien)
'73100013', 'Support', --Lipper (Ruud)
'73100094', 'Consultancy', --Migo (Jos)
'73100083', 'Sales', -- Poth (Josee)
'73100042', 'Consultancy', --Schepers (Sander)
'73100057', 'Consultancy', --Stoker (Robin)
'73100137', 'Development', --Tiehuis (Alex)
'xxx', 'Development', -- Wassink (Gijs)
'73100020', 'Consultancy', --Wiegerinck (Suzan)
'Onbekend') afdeling,
COALESCE (
SUBSTR (su.fac_usrdata_omschr,
1,
INSTR (su.fac_usrdata_omschr, ' -- ') - 1),
'Onbekend') srturen,
DECODE (project_oms, 'Compensatie', 1, 0) compensatie
FROM logc_imp_uren_besteding u,
prs_perslid p,
(SELECT distinct u2.project, ud.fac_usrdata_omschr
FROM fac_usrdata ud, logc_imp_uren_besteding u2
WHERE fac_usrtab_key = 281
AND u2.project LIKE ud.fac_usrdata_code) su
WHERE u.werknemer = p.prs_perslid_nr
AND u.project = su.project(+)
AND datum > TO_DATE ('20200101', 'yyyymmdd');
-- View voor standaard kwartaalrapportage aan klanten (zie ticket 57657)
CREATE OR REPLACE VIEW logc_v_rap_klantoverzicht_mld
(
@@ -1547,6 +1601,80 @@ AS
AND prs_bedrijf_verwijder IS NULL
AND prs_contactpersoon_verwijder IS NULL;
CREATE OR REPLACE VIEW logc_v_rap_releasemanagement
AS
SELECT m.mld_melding_key,
m.mld_melding_key melding,
ms.mld_statuses_omschrijving status,
mld_melding_datum datum,
a.prs_afdeling_naam klantcode,
prs_kostenplaats_nr kostenplaats,
pfpb.prs_perslid_naam_full behandelaar,
std.mld_stdmelding_omschrijving std_melding,
d.ins_discipline_omschrijving vakgroep,
mld_melding_onderwerp onderwerp,
mld_melding_omschrijving omschrijving,
pfm.prs_perslid_naam_full melder,
pfab.prs_perslid_naam_full actieve_behandelaar,
dbg.ins_discipline_omschrijving behandelgroep,
CASE dbg.ins_discipline_key
WHEN 41
THEN
CASE
WHEN pfab.prs_perslid_key IS NOT NULL
THEN
'Dev assigned'
ELSE
'Dev ToDo'
END
ELSE
dbg.ins_discipline_omschrijving
END
behandelgroepx,
km.mld_kenmerkmelding_waarde planning,
(SELECT ud.fac_usrdata_volgnr || '. ' || ud.fac_usrdata_omschr
FROM mld_kenmerkmelding mk, mld_kenmerk K, fac_usrdata ud
WHERE mk.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_srtkenmerk_key = 24
AND mk.mld_melding_key = m.mld_melding_key
AND fac.safe_to_number (mk.mld_kenmerkmelding_waarde) =
ud.fac_usrdata_key
AND ud.fac_usrtab_key = 22)
moscow,
(SELECT fac.safe_to_number (mld_kenmerkmelding_waarde)
FROM mld_kenmerkmelding mk, mld_kenmerk K
WHERE mk.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_srtkenmerk_key = 2
AND mk.mld_melding_key = m.mld_melding_key)
raming
FROM mld_melding M,
mld_stdmelding std,
mld_discipline d,
mld_statuses ms,
prs_afdeling a,
prs_kostenplaats pk,
prs_v_perslid_fullnames_all pfpb,
prs_v_perslid_fullnames_all pfm,
prs_v_perslid_fullnames_all pfab,
mld_discipline dbg,
mld_kenmerk k,
mld_kenmerkmelding km
WHERE mld_melding_status NOT IN (1, 5, 6)
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = d.ins_discipline_key
AND d.ins_srtdiscipline_key = 1
AND m.mld_melding_status = ms.mld_statuses_key
AND m.prs_afdeling_key = a.prs_afdeling_key
AND m.prs_kostenplaats_key = pk.prs_kostenplaats_key(+)
AND m.mld_melding_behandelaar_key = pfpb.prs_perslid_key(+)
AND m.prs_perslid_key_voor = pfm.prs_perslid_key
AND m.mld_melding_behandelaar2_key = pfab.prs_perslid_key(+)
AND m.mld_ins_discipline_key = dbg.ins_discipline_key(+)
AND m.mld_melding_key = km.mld_melding_key
AND km.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_srtkenmerk_key = 1
AND km.mld_kenmerkmelding_waarde LIKE '2%';
------ payload end ------
SET DEFINE OFF