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

Iech

Browse Source 
svn path=/Customer/trunk/; revision=13441
This commit is contained in:
Jos Groot Lipman
2007-11-15 13:46:30 +00:00
parent c513d624df
commit 144bef96ef
1 changed files with 168 additions and 168 deletions
Download Patch File Download Diff File Expand all files Collapse all files

336
AKZA/AKZA.SQL
View File

@@ -3,8 +3,8 @@
--
-- Facilitor inrichting voor Akzo Nobel Arnhem
-- (c) 1999-2006 Dijkoraad IT bv
-- $Revision: 73 $
-- $Modtime: 07-11-15 15:09 $
-- $Revision: 74 $
-- $Modtime: 15-11-07 15:16 $
--
SPOOL xAKZA.LST
SET ECHO ON
@@ -1087,7 +1087,7 @@ GROUP BY ok.kostenplaats, op.aansluittype
/
-- views for report INS040
CREATE OR REPLACE FORCE VIEW GMS3.AKZ_V_WALLPLATE_PLAATS_KENM
CREATE OR REPLACE FORCE VIEW AKZ_V_WALLPLATE_PLAATS_KENM
(INS_DEEL_KEY, INS_DEEL_OMSCHRIJVING, MODULE, POORT, NETWERK,
ALG_PLAATSAANDUIDING, OUTLETTYPE, OPMERKING, ALG_GEBOUW_KEY, ALG_GEBOUW_OMSCHRIJVING,
ALG_VERDIEPING_KEY, ALG_VERDIEPING_OMSCHRIJVING, ALG_RUIMTE_KEY)
@@ -1280,157 +1280,157 @@ SELECT p.prs_perslid_naam||';'||TO_CHAR (p.prs_perslid_key)||';'||
ORDER BY 1;
-- De te exporteren catering met kostenplaats opgevoerd bij een ruimte reservering of losse catering reservering
CREATE OR REPLACE VIEW AKZA_V_EXPORT_CATERING
AS
CREATE OR REPLACE VIEW AKZA_V_EXPORT_CATERING
AS
SELECT 20 volgnr, rr.res_rsv_ruimte_key,rr.res_rsv_artikel_key,rr.res_rsv_deel_key,rr.res_rsv_ruimte_kosten_klant,res_rsv_ruimte_ordernr, akza_ea.ins_discipline_key
,'cccccc' CompanyCode
,akza_k.prs_kostenplaats_nr Kostenplaatscode
,TO_CHAR(SYSDATE,'YYYYMMDD') Exportdatum
,LTRIM (TO_CHAR
(ROUND
(100*akza_ea.bedrag) , '099999999')
) bedrag
,'40' PostKey
,'EUR' valuta
,LTRIM (TO_CHAR (akza_ea.aantal, '0999')) Aantal
,'b' btw
,LTRIM (TO_CHAR (rr.res_reservering_key, '0999999')) res_reservering_key
,RPAD(COALESCE(TO_CHAR(COALESCE(rr.res_rsv_ruimte_van,res_rsv_artikel_levering),'dd-mm-yyyy')||DECODE(COALESCE(rr.res_rsv_ruimte_van,res_rsv_artikel_levering),NULL, NULL, ' / ') || TO_CHAR(COALESCE(rr.res_rsv_ruimte_tot,res_rsv_artikel_levering),'dd-mm-yyyy'),' '),23,' ') Datum
,' ' spatie
,RPAD(COALESCE(trim(akza_ea.res_artikel_omschrijving),' '),26,' ') ruimte_art_oms
,RPAD(COALESCE(pf.prs_perslid_naam_full,' '),30,' ') melder
,LTRIM (TO_CHAR
(ROUND
(100*akza_ea.stukprijs) , '099999999')
) stukprijs
,' ' Artikelgroep
,'cccccc' CompanyCode
,akza_k.prs_kostenplaats_nr Kostenplaatscode
,TO_CHAR(SYSDATE,'YYYYMMDD') Exportdatum
,LTRIM (TO_CHAR
(ROUND
(100*akza_ea.bedrag) , '099999999')
) bedrag
,'40' PostKey
,'EUR' valuta
,LTRIM (TO_CHAR (akza_ea.aantal, '0999')) Aantal
,'b' btw
,LTRIM (TO_CHAR (rr.res_reservering_key, '0999999')) res_reservering_key
,RPAD(COALESCE(TO_CHAR(COALESCE(rr.res_rsv_ruimte_van,res_rsv_artikel_levering),'dd-mm-yyyy')||DECODE(COALESCE(rr.res_rsv_ruimte_van,res_rsv_artikel_levering),NULL, NULL, ' / ') || TO_CHAR(COALESCE(rr.res_rsv_ruimte_tot,res_rsv_artikel_levering),'dd-mm-yyyy'),' '),23,' ') Datum
,' ' spatie
,RPAD(COALESCE(trim(akza_ea.res_artikel_omschrijving),' '),26,' ') ruimte_art_oms
,RPAD(COALESCE(pf.prs_perslid_naam_full,' '),30,' ') melder
,LTRIM (TO_CHAR
(ROUND
(100*akza_ea.stukprijs) , '099999999')
) stukprijs
,' ' Artikelgroep
,RPAD(COALESCE(akza_ea.ins_discipline_omschrijving,' '),25,' ') Catalogus
FROM
(SELECT rr.*, ra.res_rsv_artikel_key, -1 res_rsv_deel_key
FROM RES_RSV_RUIMTE rr, RES_RSV_ARTIKEL ra
WHERE 1=1
AND res_rsv_ruimte_verwijder IS NULL
AND rr.res_rsv_ruimte_key = ra.res_rsv_ruimte_key
FROM
(SELECT rr.*, ra.res_rsv_artikel_key, -1 res_rsv_deel_key
FROM RES_RSV_RUIMTE rr, RES_RSV_ARTIKEL ra
WHERE 1=1
AND res_rsv_ruimte_verwijder IS NULL
AND rr.res_rsv_ruimte_key = ra.res_rsv_ruimte_key
AND ra.res_status_bo_key = 5
)
rr,
PRS_PERSLID p,
PRS_AFDELING a,
akza_v_kostenplaats akza_k,
(SELECT rsv_art.res_rsv_artikel_key,
art.res_artikel_omschrijving,
rsv_art.res_rsv_ruimte_key,
ins_discipline_key,
ins_discipline_omschrijving,
rsv_art.res_rsv_artikel_aantal aantal,
COALESCE(rsv_art.res_rsv_artikel_prijs,0) stukprijs,
COALESCE(rsv_art.res_rsv_artikel_prijs,0)*COALESCE(rsv_art.res_rsv_artikel_aantal,0) bedrag,
rsv_art.res_rsv_artikel_levering
FROM RES_RSV_ARTIKEL rsv_art, RES_ARTIKEL art, res_discipline dis
WHERE 1=1
AND rsv_art.res_artikel_key = art.res_artikel_key
AND art.RES_DISCIPLINE_KEY = dis.INS_DISCIPLINE_KEY)
akza_ea,
(SELECT rg.res_reservering_key, rg.res_rsv_ruimte_key, l.alg_locatie_code || '-' || rr.res_ruimte_nr res_ruimte_omschrijving
FROM (SELECT rr.res_reservering_key, rr2.res_rsv_ruimte_key, rr.alg_ruimte_key, rr.res_ruimte_key
FROM res_v_rsv_ruimte_2_alg_ruimte rr, RES_RSV_RUIMTE rr2
WHERE rr2.res_rsv_ruimte_key = rr.res_rsv_ruimte_key
) rg
,ALG_RUIMTE r
,RES_RUIMTE rr
,ALG_VERDIEPING v
,ALG_GEBOUW g
,ALG_LOCATIE l
WHERE r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
AND rg.res_ruimte_key = rr.res_ruimte_key
AND rg.alg_ruimte_key = r.alg_ruimte_key)
rg,
prs_v_perslid_fullnames_all pf
WHERE 1=1
AND rr.res_rsv_ruimte_host_key = p.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND rr.prs_kostenplaats_key = akza_k.prs_kostenplaats_key
AND akza_ea.res_rsv_artikel_key(+) = rr.res_rsv_artikel_key
AND pf.prs_perslid_key(+) = rr.res_rsv_ruimte_host_key
)
rr,
PRS_PERSLID p,
PRS_AFDELING a,
akza_v_kostenplaats akza_k,
(SELECT rsv_art.res_rsv_artikel_key,
art.res_artikel_omschrijving,
rsv_art.res_rsv_ruimte_key,
ins_discipline_key,
ins_discipline_omschrijving,
rsv_art.res_rsv_artikel_aantal aantal,
COALESCE(rsv_art.res_rsv_artikel_prijs,0) stukprijs,
COALESCE(rsv_art.res_rsv_artikel_prijs,0)*COALESCE(rsv_art.res_rsv_artikel_aantal,0) bedrag,
rsv_art.res_rsv_artikel_levering
FROM RES_RSV_ARTIKEL rsv_art, RES_ARTIKEL art, res_discipline dis
WHERE 1=1
AND rsv_art.res_artikel_key = art.res_artikel_key
AND art.RES_DISCIPLINE_KEY = dis.INS_DISCIPLINE_KEY)
akza_ea,
(SELECT rg.res_reservering_key, rg.res_rsv_ruimte_key, l.alg_locatie_code || '-' || rr.res_ruimte_nr res_ruimte_omschrijving
FROM (SELECT rr.res_reservering_key, rr2.res_rsv_ruimte_key, rr.alg_ruimte_key, rr.res_ruimte_key
FROM res_v_rsv_ruimte_2_alg_ruimte rr, RES_RSV_RUIMTE rr2
WHERE rr2.res_rsv_ruimte_key = rr.res_rsv_ruimte_key
) rg
,ALG_RUIMTE r
,RES_RUIMTE rr
,ALG_VERDIEPING v
,ALG_GEBOUW g
,ALG_LOCATIE l
WHERE r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
AND rg.res_ruimte_key = rr.res_ruimte_key
AND rg.alg_ruimte_key = r.alg_ruimte_key)
rg,
prs_v_perslid_fullnames_all pf
WHERE 1=1
AND rr.res_rsv_ruimte_host_key = p.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND rr.prs_kostenplaats_key = akza_k.prs_kostenplaats_key
AND akza_ea.res_rsv_artikel_key(+) = rr.res_rsv_artikel_key
AND pf.prs_perslid_key(+) = rr.res_rsv_ruimte_host_key
AND rr.res_rsv_ruimte_key = rg.res_rsv_ruimte_key(+);
CREATE OR REPLACE VIEW AKZA_V_EXPORT_RESDEEL
AS
AS
SELECT 10 volgnr, rr.res_rsv_ruimte_key,rr.res_rsv_artikel_key,rr.res_rsv_deel_key,rr.res_rsv_ruimte_kosten_klant,res_rsv_ruimte_ordernr, akza_ea.ins_discipline_key
,'cccccc' CompanyCode
,akza_k.prs_kostenplaats_nr Kostenplaatscode
,TO_CHAR(SYSDATE,'YYYYMMDD') Exportdatum
,LTRIM (TO_CHAR
(ROUND
(100*akza_ea.bedrag) , '099999999')
) bedrag
,'40' PostKey
,'EUR' valuta
,LTRIM (TO_CHAR (akza_ea.aantal, '0999')) Aantal
,'b' btw
,LTRIM (TO_CHAR (rr.res_reservering_key, '0999999')) res_reservering_key
,RPAD(COALESCE(TO_CHAR(COALESCE(rr.res_rsv_ruimte_van,res_rsv_deel_levering),'dd-mm-yyyy')||DECODE(COALESCE(rr.res_rsv_ruimte_van,res_rsv_deel_levering),NULL, NULL, ' / ') || TO_CHAR(COALESCE(rr.res_rsv_ruimte_tot,res_rsv_deel_levering),'dd-mm-yyyy'),' '),23,' ') Datum
,' ' spatie
,RPAD(COALESCE(trim(akza_ea.res_deel_omschrijving),' '),26,' ') ruimte_art_oms
,RPAD(COALESCE(pf.prs_perslid_naam_full,' '),30,' ') melder
,LTRIM (TO_CHAR
(ROUND
(100*akza_ea.stukprijs) , '099999999')
) stukprijs
,' ' Artikelgroep
,'cccccc' CompanyCode
,akza_k.prs_kostenplaats_nr Kostenplaatscode
,TO_CHAR(SYSDATE,'YYYYMMDD') Exportdatum
,LTRIM (TO_CHAR
(ROUND
(100*akza_ea.bedrag) , '099999999')
) bedrag
,'40' PostKey
,'EUR' valuta
,LTRIM (TO_CHAR (akza_ea.aantal, '0999')) Aantal
,'b' btw
,LTRIM (TO_CHAR (rr.res_reservering_key, '0999999')) res_reservering_key
,RPAD(COALESCE(TO_CHAR(COALESCE(rr.res_rsv_ruimte_van,res_rsv_deel_levering),'dd-mm-yyyy')||DECODE(COALESCE(rr.res_rsv_ruimte_van,res_rsv_deel_levering),NULL, NULL, ' / ') || TO_CHAR(COALESCE(rr.res_rsv_ruimte_tot,res_rsv_deel_levering),'dd-mm-yyyy'),' '),23,' ') Datum
,' ' spatie
,RPAD(COALESCE(trim(akza_ea.res_deel_omschrijving),' '),26,' ') ruimte_art_oms
,RPAD(COALESCE(pf.prs_perslid_naam_full,' '),30,' ') melder
,LTRIM (TO_CHAR
(ROUND
(100*akza_ea.stukprijs) , '099999999')
) stukprijs
,' ' Artikelgroep
,RPAD(COALESCE(akza_ea.ins_discipline_omschrijving,' '),25,' ') Catalogus
FROM
(SELECT rr.*, -1 res_rsv_artikel_key, rd.res_rsv_deel_key
FROM RES_RSV_RUIMTE rr, RES_RSV_DEEL rd
FROM
(SELECT rr.*, -1 res_rsv_artikel_key, rd.res_rsv_deel_key
FROM RES_RSV_RUIMTE rr, RES_RSV_DEEL rd
WHERE 1=1
AND res_rsv_ruimte_verwijder IS NULL
AND rr.res_rsv_ruimte_key = rd.res_rsv_ruimte_key
AND res_rsv_ruimte_verwijder IS NULL
AND rr.res_rsv_ruimte_key = rd.res_rsv_ruimte_key
AND rd.res_status_bo_key = 5
)
rr,
PRS_PERSLID p,
PRS_AFDELING a,
akza_v_kostenplaats akza_k,
(SELECT rsv_d.res_rsv_deel_key,
d.res_deel_omschrijving,
rsv_d.res_rsv_ruimte_key,
ins_discipline_key,
ins_discipline_omschrijving,
rsv_d.res_rsv_deel_aantal aantal,
COALESCE(rsv_d.res_rsv_deel_prijs,0) stukprijs,
COALESCE(rsv_d.res_rsv_deel_prijs,0)*COALESCE(rsv_d.res_rsv_deel_aantal,0) bedrag,
rsv_d.res_rsv_deel_levering
FROM RES_RSV_DEEL rsv_d, (SELECT rd.*, d.ins_deel_omschrijving res_deel_omschrijving FROM RES_DEEL rd, INS_DEEL d WHERE rd.RES_ins_deel_key = d.ins_deel_key) d, res_discipline dis
WHERE 1=1
AND rsv_d.res_deel_key = d.res_deel_key
)
rr,
PRS_PERSLID p,
PRS_AFDELING a,
akza_v_kostenplaats akza_k,
(SELECT rsv_d.res_rsv_deel_key,
d.res_deel_omschrijving,
rsv_d.res_rsv_ruimte_key,
ins_discipline_key,
ins_discipline_omschrijving,
rsv_d.res_rsv_deel_aantal aantal,
COALESCE(rsv_d.res_rsv_deel_prijs,0) stukprijs,
COALESCE(rsv_d.res_rsv_deel_prijs,0)*COALESCE(rsv_d.res_rsv_deel_aantal,0) bedrag,
rsv_d.res_rsv_deel_levering
FROM RES_RSV_DEEL rsv_d, (SELECT rd.*, d.ins_deel_omschrijving res_deel_omschrijving FROM RES_DEEL rd, INS_DEEL d WHERE rd.RES_ins_deel_key = d.ins_deel_key) d, res_discipline dis
WHERE 1=1
AND rsv_d.res_deel_key = d.res_deel_key
AND d.RES_DISCIPLINE_KEY = dis.INS_DISCIPLINE_KEY)
akza_ea,
(SELECT rg.res_reservering_key, rg.res_rsv_ruimte_key, l.alg_locatie_code || '-' || rr.res_ruimte_nr res_ruimte_omschrijving
FROM (SELECT rr.res_reservering_key, rr2.res_rsv_ruimte_key, rr.alg_ruimte_key, rr.res_ruimte_key
FROM res_v_rsv_ruimte_2_alg_ruimte rr, RES_RSV_RUIMTE rr2
WHERE rr2.res_rsv_ruimte_key = rr.res_rsv_ruimte_key
) rg
,ALG_RUIMTE r
,RES_RUIMTE rr
,ALG_VERDIEPING v
,ALG_GEBOUW g
,ALG_LOCATIE l
WHERE r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
AND rg.res_ruimte_key = rr.res_ruimte_key
AND rg.alg_ruimte_key = r.alg_ruimte_key)
rg,
prs_v_perslid_fullnames_all pf
WHERE 1=1
AND rr.res_rsv_ruimte_host_key = p.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND rr.prs_kostenplaats_key = akza_k.prs_kostenplaats_key
AND akza_ea.res_rsv_deel_key(+) = rr.res_rsv_deel_key
AND pf.prs_perslid_key(+) = rr.res_rsv_ruimte_host_key
akza_ea,
(SELECT rg.res_reservering_key, rg.res_rsv_ruimte_key, l.alg_locatie_code || '-' || rr.res_ruimte_nr res_ruimte_omschrijving
FROM (SELECT rr.res_reservering_key, rr2.res_rsv_ruimte_key, rr.alg_ruimte_key, rr.res_ruimte_key
FROM res_v_rsv_ruimte_2_alg_ruimte rr, RES_RSV_RUIMTE rr2
WHERE rr2.res_rsv_ruimte_key = rr.res_rsv_ruimte_key
) rg
,ALG_RUIMTE r
,RES_RUIMTE rr
,ALG_VERDIEPING v
,ALG_GEBOUW g
,ALG_LOCATIE l
WHERE r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
AND rg.res_ruimte_key = rr.res_ruimte_key
AND rg.alg_ruimte_key = r.alg_ruimte_key)
rg,
prs_v_perslid_fullnames_all pf
WHERE 1=1
AND rr.res_rsv_ruimte_host_key = p.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND rr.prs_kostenplaats_key = akza_k.prs_kostenplaats_key
AND akza_ea.res_rsv_deel_key(+) = rr.res_rsv_deel_key
AND pf.prs_perslid_key(+) = rr.res_rsv_ruimte_host_key
AND rr.res_rsv_ruimte_key = rg.res_rsv_ruimte_key(+);
@@ -1439,7 +1439,7 @@ SELECT 30 volgnr, rr.res_rsv_ruimte_key,rr.res_rsv_artikel_key,rr.res_rsv_deel_k
,'cccccc' CompanyCode
,akza_k.prs_kostenplaats_nr Kostenplaatscode
,TO_CHAR(SYSDATE,'YYYYMMDD') Exportdatum
,LTRIM (TO_CHAR
,LTRIM (TO_CHAR
(ROUND
(100*akza_ea.bedrag) , '099999999')
) bedrag
@@ -1452,13 +1452,13 @@ SELECT 30 volgnr, rr.res_rsv_ruimte_key,rr.res_rsv_artikel_key,rr.res_rsv_deel_k
,' ' spatie
,RPAD(COALESCE(trim(res_ruimte_omschrijving),' '),26,' ') ruimte_art_oms
,RPAD(COALESCE(pf.prs_perslid_naam_full,' '),30,' ') melder
,LTRIM (TO_CHAR
,LTRIM (TO_CHAR
(ROUND
(100*akza_ea.stukprijs) , '099999999')
) stukprijs
,' ' Artikelgroep
,RPAD(COALESCE(akza_ea.ins_discipline_omschrijving,' '),25,' ') Catalogus
FROM
FROM
(SELECT rr.*, -1 res_rsv_artikel_key, -1 res_rsv_deel_key
FROM ( SELECT rr.*, r.res_ruimte_key
FROM RES_RSV_RUIMTE rr, RES_RUIMTE_OPSTELLING ro, RES_RUIMTE r
@@ -1467,9 +1467,9 @@ FROM
WHERE 1=1
AND res_rsv_ruimte_verwijder IS NULL
AND rr.res_status_bo_key = 5
)
)
rr,
prs_perslid p,
prs_perslid p,
prs_afdeling a,
akza_v_kostenplaats akza_k,
(SELECT rg.res_discipline_key ins_discipline_key
@@ -1488,15 +1488,15 @@ FROM
WHERE rr2.res_rsv_ruimte_key = rr.res_rsv_ruimte_key
) rg
,ALG_RUIMTE r
,RES_RUIMTE rr
,RES_RUIMTE rr
,ALG_VERDIEPING v
,ALG_GEBOUW g
,ALG_LOCATIE l
WHERE r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
AND g.alg_locatie_key = l.alg_locatie_key
AND rg.res_ruimte_key = rr.res_ruimte_key
AND rg.alg_ruimte_key = r.alg_ruimte_key)
AND rg.alg_ruimte_key = r.alg_ruimte_key)
rg,
prs_v_perslid_fullnames_all pf
WHERE 1=1
@@ -1506,7 +1506,7 @@ AND rr.prs_kostenplaats_key = akza_k.prs_kostenplaats_key
AND akza_ea.res_ruimte_key(+) = rr.res_ruimte_key
AND pf.prs_perslid_key(+) = rr.res_rsv_ruimte_host_key
AND rr.res_rsv_ruimte_key = rg.res_rsv_ruimte_key(+);
@@ -3507,7 +3507,7 @@ END;
CREATE OR REPLACE PACKAGE AKZA_P_MLD2SAP AS
-- PACKAGES voor de AKZA specifieke SAP-Meldingen export
PROCEDURE SAP_Exporteren(UpdateAsWell IN BOOLEAN);
PROCEDURE SAPRES_Exporteren(UpdateAsWell IN BOOLEAN);
PROCEDURE SAPRES_Exporteren(UpdateAsWell IN BOOLEAN);
FUNCTION getBewonersOrdernr (pOpdracht_key IN NUMBER) RETURN VARCHAR2;
FUNCTION getInternalOrdernr (pMelding_key IN NUMBER) RETURN VARCHAR2;
END;
@@ -4101,16 +4101,16 @@ CREATE OR REPLACE PACKAGE BODY AKZA_P_MLD2SAP AS
SELECT *
FROM AKZA_V_EXPORT_RESRUIMTEN)
ORDER BY volgnr;
sapres_rec c_sapres%ROWTYPE;
exportregel VARCHAR2(256);
regelnr NUMBER (10);
v_companycode VARCHAR2(6);
v_kostensoort VARCHAR2(7);
v_btw VARCHAR2(1);
FUNCTION get_companycode (p_rsv_ruimte_key IN NUMBER, p_companycode IN VARCHAR2)
RETURN VARCHAR2 IS
v_result VARCHAR(128);
@@ -4132,7 +4132,7 @@ CREATE OR REPLACE PACKAGE BODY AKZA_P_MLD2SAP AS
v_result := LPAD (NVL (SUBSTR (v_result, 1, 6), p_companycode), 6, '0');
RETURN v_result;
END;
FUNCTION get_kostensoort (p_discipline_key IN NUMBER, p_kostensoort IN VARCHAR2)
RETURN VARCHAR2 IS
v_result VARCHAR(128);
@@ -4144,25 +4144,25 @@ CREATE OR REPLACE PACKAGE BODY AKZA_P_MLD2SAP AS
from prs_kostensoort ks, ins_tab_discipline d
where d.ins_discipline_key = p_discipline_key
and d.prs_kostensoort_key = ks.prs_kostensoort_key;
IF v_result IS NOT NULL
THEN
v_result := LPAD (NVL (SUBSTR (v_result, 1, 4), p_kostensoort), 4, '0');
ELSE
v_result := '0000';
END IF;
RETURN v_result;
END;
BEGIN
-- INIT
exportregel := '';
regelnr := 0;
FOR sapres_rec IN c_sapres
LOOP
BEGIN
@@ -4172,7 +4172,7 @@ CREATE OR REPLACE PACKAGE BODY AKZA_P_MLD2SAP AS
v_kostensoort := c_kostensoort;
ELSE
v_companycode := get_companycode(sapres_rec.res_rsv_ruimte_key, c_companycode);
v_kostensoort := get_kostensoort(sapres_rec.ins_discipline_key, c_kostensoort);
v_kostensoort := get_kostensoort(sapres_rec.ins_discipline_key, c_kostensoort);
END IF;
IF v_kostensoort = '0006' THEN
@@ -4197,10 +4197,10 @@ CREATE OR REPLACE PACKAGE BODY AKZA_P_MLD2SAP AS
||sapres_rec.stukprijs
||v_kostensoort
||sapres_rec.Catalogus;
commit;
commit;
-- Nog testen of bedrag niet 0 is, analoog aan de export van opdrachten naar SAP
IF (sapres_rec.bedrag <> c_bedrag_leeg) THEN
regelnr := schrijf_rapport_regel (regelnr, exportregel);
@@ -4221,7 +4221,7 @@ CREATE OR REPLACE PACKAGE BODY AKZA_P_MLD2SAP AS
where res_rsv_deel_verwerkt IS NULL
and res_rsv_deel_key = sapres_rec.res_rsv_deel_key;
END IF;
IF (sapres_rec.res_rsv_deel_key = -1) AND (sapres_rec.res_rsv_artikel_key = -1) THEN
update res_rsv_ruimte
set res_status_bo_key = 6
@@ -4229,7 +4229,7 @@ CREATE OR REPLACE PACKAGE BODY AKZA_P_MLD2SAP AS
and res_rsv_ruimte_key = sapres_rec.res_rsv_ruimte_key;
END IF;
END IF;
END IF;
EXCEPTION
WHEN OTHERS