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

SGGR#40423 Zelf goedkeuren bestellingen onder de €500

Browse Source 
svn path=/Customer/trunk/; revision=34511
This commit is contained in:
Suzan Wiegerinck
2017-07-04 10:07:45 +00:00
parent 1a191b6f59
commit bc530ec20a
1 changed files with 58 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

81
SGGR/sggr.sql
View File

@@ -1,4 +1,4 @@
/* Formatted on 4-7-2017 10:53:00 (QP5 v5.136.908.31019) */
--
-- $Id$
--
@@ -50,16 +50,17 @@ AS
THEN
v_van := v_index + LENGTH (p_search);
v_tot := INSTR (p_string, CHR (10), v_index + LENGTH (p_search));
-- dbms_output.put_line ('van:' || to_char(v_van));
-- dbms_output.put_line ('tot:' || to_char(v_tot));
-- als v_tot gelijk is aan 0 dan zitten we op het einde van de string. Geef
-- dan alles maar terug tot het einde van de string (maar even op 1000 gezet.
IF v_tot = 0
THEN
v_tot := 1000;
IF v_tot = 0
THEN
v_tot := 1000;
END IF;
RETURN SUBSTR (p_string, v_van + 1, v_tot - v_van - 1);
ELSE
RETURN NULL;
@@ -1109,8 +1110,8 @@ AS
prs_kenmerklink kl,
prs_v_perslid_fullnames_all mg,
mld_stdmelding sm
WHERE (m.mld_stdmelding_key IN (43, 281, 261, 421)
OR sm.mld_ins_discipline_key in ( 721, 821)) --- 43=inkoopverplichtingen, 281=aftrekbare kosten leaseauto's, 261=declaraties, 731=vakgroep relatiegeschenken, 421=overurensheet, 346=Aanvraag hotelkamer, 821=vakgroep aanvragen met acceptatie
WHERE (m.mld_stdmelding_key IN (43, 281, 261, 421, 346) -- 43=inkoopverplichtingen, 281=aftrekbare kosten leaseauto's, 261=declaraties, 421=overurensheet, 346=Aanvraag hotelkamer
OR sm.mld_ins_discipline_key IN (721, 821)) --- 731=vakgroep relatiegeschenken, 821=vakgroep aanvragen met acceptatie
AND m.prs_perslid_key_voor = p.prs_perslid_key
AND m.prs_perslid_key_voor = kl.prs_link_key
AND kl.prs_kenmerk_key = 1081
@@ -1147,7 +1148,37 @@ AS
AND mg.prs_perslid_key <> 281 --- Peter Feij
AND kl.prs_kenmerklink_waarde = mg.prs_perslid_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND m.mld_melding_status IN (2, 3);
AND m.mld_melding_status IN (2, 3)
UNION ALL
SELECT m.mld_melding_key,
m.mld_melding_key meldingnr,
sm.mld_stdmelding_omschrijving melding,
TO_DATE (m.mld_melding_datum) datum,
CASE m.mld_melding_status
WHEN 1 THEN 'Afgewezen'
WHEN 2 THEN 'Nieuw'
WHEN 3 THEN 'Te accepteren'
WHEN 4 THEN 'In behandeling'
WHEN 5 THEN 'Afgemeld'
WHEN 6 THEN 'Historie'
WHEN 7 THEN 'Uitgegeven'
END
status,
p.prs_perslid_naam_friendly aanvrager,
mg.prs_perslid_naam_friendly leidinggevende,
161 AS fclt_3d_user_key --- altijd Marcel Vrieling
FROM mld_melding m,
prs_v_perslid_fullnames_all p,
prs_kenmerklink kl,
prs_v_perslid_fullnames_all mg,
mld_stdmelding sm
WHERE m.mld_stdmelding_key = 321 --- verwerking aanvraag HW/SW
AND m.prs_perslid_key_voor = p.prs_perslid_key
AND m.prs_perslid_key_voor = kl.prs_link_key
AND kl.prs_kenmerk_key = 1081
AND kl.prs_kenmerklink_waarde = mg.prs_perslid_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND m.mld_melding_status IN (2, 3, 4);
CREATE OR REPLACE VIEW sggr_v_ICT_leverancier
(
@@ -1302,8 +1333,10 @@ AS
SELECT DISTINCT
NULL sender,
NULL receiver,
REPLACE (
lcl.x('fac_srtnotificatie_oms', n.fac_srtnotificatie_key, n.fac_srtnotificatie_oms),
REPLACE (
lcl.x ('fac_srtnotificatie_oms',
n.fac_srtnotificatie_key,
n.fac_srtnotificatie_oms),
'##STDMLD## ##KEY##',
sm.mld_stdmelding_omschrijving || '/' || m.mld_melding_key),
fac_srtnotificatie_code,
@@ -1341,8 +1374,10 @@ AS
SELECT DISTINCT
NULL sender,
NULL receiver,
REPLACE (
lcl.x('fac_srtnotificatie_oms', n.fac_srtnotificatie_key, n.fac_srtnotificatie_oms),
REPLACE (
lcl.x ('fac_srtnotificatie_oms',
n.fac_srtnotificatie_key,
n.fac_srtnotificatie_oms),
'##STDMLD## ##KEY##',
sm.mld_stdmelding_omschrijving || '/' || m.mld_melding_key),
fac_srtnotificatie_code,
@@ -1851,20 +1886,18 @@ AS
AND P.PRS_SRTPERSLID_KEY IN (3803, 2052, 3806, 2050, 3807)
ORDER BY N.PRS_PERSLID_NAAM_FULL;
CREATE OR REPLACE PROCEDURE sggr_export_daily_task (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2
)
CREATE OR REPLACE PROCEDURE sggr_export_daily_task (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2)
AS
CURSOR c
IS
SELECT *
FROM fac_tracking t, ins_deel d
WHERE fac_tracking_refkey = d.ins_deel_key
AND d.ins_srtdeel_key = 481 -- autos
AND fac_srtnotificatie_key IN (96, 97) -- uitgifte (insout) en inname (insinn)
WHERE fac_tracking_refkey = d.ins_deel_key
AND d.ins_srtdeel_key = 481 -- autos
AND fac_srtnotificatie_key IN (96, 97) -- uitgifte (insout) en inname (insinn)
ORDER BY ins_deel_key, fac_tracking_datum;
v_bestuurder VARCHAR2 (60);
@@ -1896,6 +1929,7 @@ BEGIN
v_naar := sggr.find_nieuw (v_dummy, v_naar);
v_search := 'Kilometerstand:';
v_dummy := sggr.find_str (rec.fac_tracking_oms, v_search);
IF v_dummy IS NULL
THEN
v_km_uitgifte := v_km_inname;
@@ -1903,6 +1937,7 @@ BEGIN
v_km_uitgifte := sggr.find_oud (v_dummy, v_km_uitgifte);
v_km_inname := sggr.find_nieuw (v_dummy, v_km_inname);
END IF;
v_search := 'is uitgegeven aan';
v_dummy := sggr.find_str (rec.fac_tracking_oms, v_search);
v_bestuurder := v_dummy;
@@ -1987,7 +2022,7 @@ AS
WHERE a.ins_deel_key = d.ins_deel_key;
-- SGGR#40017 inzicht in hotelreserveringen
/* Formatted on 18-4-2017 21:29:45 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW SGGR_V_RAPP_HOTELAANVRAGEN
(
HTML_AANVRAAG_NR,
@@ -2183,7 +2218,7 @@ AS
WHERE mld_stdmelding_key = 481) annulering
ON m.mld_melding_key = annulering.mld_melding_start_key;
COMMIT;
COMMIT;
------ payload end ------