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

CONN#21878

Browse Source 
svn path=/Customer/trunk/; revision=15028
This commit is contained in:
Peter Feij
2011-11-28 09:02:24 +00:00
parent 7765e750dd
commit b2a8eec01f
1 changed files with 121 additions and 136 deletions
Download Patch File Download Diff File Expand all files Collapse all files

257
CONN/conn.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for CONN: Connexxion
-- (c) 2005-2010 SG|facilitor bv
-- $Revision: 176 $
-- $Modtime: 20-10-11 13:44 $
-- $Revision: 177 $
-- $Modtime: 28-11-11 11:01 $
--
-- Support: +31 53 4800710
@@ -992,18 +992,24 @@ order by 1,5;
CREATE OR REPLACE VIEW CONN_V_PERSLID_Z_LOGWWMAIL (NAAM,NUMMER,LOGIN,WACHTWOORD,EMAIL) AS
SELECT pf.prs_perslid_naam_full, p.prs_perslid_nr, p.prs_perslid_oslogin,
-- TODO 5.1.2 (instead of next line)!!! '*****',
RPAD (' ', LENGTH (p.prs_perslid_wachtwoord) + 1, '*'),
p.prs_perslid_email
FROM prs_perslid p, prs_v_perslid_fullnames pf
WHERE pf.prs_perslid_key = p.prs_perslid_key
AND ( p.prs_perslid_oslogin IS NULL
-- TODO 5.1.2 (instead of next line)!!! OR p.prs_perslid_wachtwoord_hash IS NULL
OR p.prs_perslid_wachtwoord IS NULL
OR p.prs_perslid_email IS NULL
);
/* Formatted on 28-11-2011 10:49:26 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW conn_v_perslid_z_logwwmail
(
naam,
nummer,
login,
wachtwoord,
email
)
AS
SELECT pf.prs_perslid_naam_full,
p.prs_perslid_nr,
p.prs_perslid_oslogin,
'*****',
p.prs_perslid_email
FROM prs_perslid p, prs_v_perslid_fullnames pf
WHERE pf.prs_perslid_key = p.prs_perslid_key
AND (p.prs_perslid_oslogin IS NULL OR p.prs_perslid_wachtwoord_hash IS NULL OR p.prs_perslid_email IS NULL);
--insert into fac_usrrap (FAC_USRRAP_OMSCHRIJVING, FAC_USRRAP_VIEW_NAME, FAC_USRRAP_INFO) values
-- ('Personen zonder login..', 'CONN_V_PERSLID_Z_LOGWWMAIL', 'Personen waarbij geen login, wachtwoord of e-mail adres ingevuld is.');
@@ -1268,7 +1274,7 @@ AS
s.bes_srtdeel_nr,
s.bes_srtdeel_omschrijving,
TO_CHAR (i.bes_bestelling_item_aantal, '99999990'),
TO_CHAR (s.bes_srtdeel_prijs, '99999990D00'), -- ATTENTIE, was vroeger soms bestelitemprijs
TO_CHAR (i.bes_bestelling_item_prijs, '99999990D00'),
a.prs_afdeling_key
FROM bes_bestelling b,
bes_bestelling_item i,
@@ -1390,10 +1396,7 @@ UNION
)
GROUP BY FCLT_F_Maand;
/* Formatted on 11-6-2010 17:41:39 (QP5 v5.136.908.31019) */
/* Formatted on 28-11-2011 10:47:34 (QP5 v5.136.908.31019) */
CREATE OR REPLACE FORCE VIEW conn_v_ppi3_all
(
aanvraagnummer,
@@ -1426,21 +1429,19 @@ AS
|| NVL (p2.prs_perslid_voornaam, ''),
bs.bes_bestellingstatuses_omschr,
i.bes_bestelling_item_aantal,
s.bes_srtdeel_prijs, -- check?
i.bes_bestelling_item_aantal * s.bes_srtdeel_prijs,
i.bes_bestelling_item_prijs,
i.bes_bestelling_item_aantal * i.bes_bestelling_item_prijs,
b.bes_bestelling_datum,
fac.gettrackingdate('BESREJ', b.bes_bestelling_key),
fac.gettrackingdate('BESACP', b.bes_bestelling_key),
fac.gettrackingdate ('BESREJ', b.bes_bestelling_key),
fac.gettrackingdate ('BESACP', b.bes_bestelling_key),
a.prs_afdeling_key
FROM bes_bestelling b,
bes_bestelling_item i,
prs_perslid p,
prs_afdeling a,
prs_perslid p2,
bes_bestellingstatuses bs,
bes_srtdeel s
bes_bestellingstatuses bs
WHERE b.bes_bestelling_key = i.bes_bestelling_key
AND i.bes_srtdeel_key = s.bes_srtdeel_key
AND b.prs_perslid_key = p.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND b.bes_bestelling_status = bs.bes_bestellingstatuses_key
@@ -3621,7 +3622,7 @@ CREATE OR REPLACE PACKAGE BODY CONN_HALTES AS
IF length(v_haltecode) <> 8 THEN
RETURN c_error_result;
END IF;
select get_halte_key(v_HALTECODE,c_halte_code)
into v_ins_deel_key
from dual;
@@ -4444,9 +4445,9 @@ BEGIN
SELECT FAC.SAFE_TO_NUMBER('2,5')
INTO v_check_dec_sign
FROM DUAL;
fac.imp_writelog (p_applname, p_applrun, 'S',
'Cxx factuurimport $Revision: 176 $', '');
'Cxx factuurimport $Revision: 177 $', '');
OPEN cfactuur;
IF cfactuur%ISOPEN THEN
@@ -4454,7 +4455,7 @@ BEGIN
BEGIN
FETCH cfactuur INTO v_rec;
EXIT WHEN cfactuur%NOTFOUND;
v_newline := v_rec.fac_imp_file_line;
fac.imp_getfield (v_newline, v_fielddelimitor, v_leveranciernr);
@@ -4480,7 +4481,7 @@ BEGIN
v_btw_bedrag := SUBSTR (v_btw_bedrag, 1, 11);
v_aantal := SUBSTR (v_aantal, 1, 11);
END IF;
-- CONN#17357 en CONN#16819:
-- Voorkom invalid number error door een '-' in btw_bedrag
IF ( TRIM(v_btw_bedrag) = '-' )
@@ -4490,7 +4491,7 @@ BEGIN
'BTW-bedrag ''-'' vervangen door ''0''',
SUBSTR (v_ordernr, 1, 13)||' / '||SUBSTR (v_factuurnr, 1, 10) );
END IF;
INSERT INTO conn_imp_factuur
(debiteurnr,
ordernr,
@@ -4519,7 +4520,7 @@ BEGIN
SUBSTR (v_afleverdatum, 1, 8),
SUBSTR (v_omschrijving, 1, 60),
SUBSTR (v_docid, 1, 100)
);
);
COMMIT;
END;
@@ -4549,7 +4550,7 @@ AS
OR fac.safe_to_number(kostprijs) IS NULL
OR fac.safe_to_number(btw) IS NULL
OR fac.safe_to_number(btw_bedrag) IS NULL;
CURSOR cfactuur
IS
SELECT RTRIM (LTRIM (ordernr)) ordernr,
@@ -4619,7 +4620,7 @@ BEGIN
c_old_ordernr := '';
c_teller := 0;
-- CONN#17357 en CONN#16819:
-- Voorkom invalid number error voor ongeldige getallen (specifiek een '-' in btw_bedrag)
-- 1) Zijn er fouten?
@@ -4630,13 +4631,13 @@ BEGIN
OR fac.safe_to_number (kostprijs) IS NULL
OR fac.safe_to_number (btw) IS NULL
OR fac.safe_to_number (btw_bedrag) IS NULL;
-- 2a) Rapporteer 'invalid numbers' en be<62>indig import
IF (v_count > 0)
THEN
fac.imp_writelog (p_applname, p_applrun, 'E',
'Ongeldig importbestand; import wordt afgebroken.', 'Corrigeer de genoemde fouten.');
FOR rco IN congeldig
LOOP
v_desc := rco.ordernr||' / '||rco.factuurnr;
@@ -4657,7 +4658,7 @@ BEGIN
fac.imp_writelog (p_applname, p_applrun, 'E', 'Ongeldig BTW-percentage ['||rco.btw||']', v_desc);
END IF;
END LOOP;
-- 2b) Geen 'invalid numbers' --> import!
ELSE
-- Facturen
@@ -4668,7 +4669,7 @@ BEGIN
-- voeg alleen nieuwe factuurregel toe die een andere BTW waarde heeft
-- waarde van c_index is nog steeds actueel
c_factuurregel := c_factuurregel + 1;
BEGIN
INSERT INTO fin_factuurregel (
fin_factuur_key,
@@ -4680,7 +4681,7 @@ BEGIN
)
VALUES (c_index, c_factuurregel, rc.totaal, rc.totaal_btw, rc.omschrijving, rc.locatie
);
COMMIT;
fac.imp_writelog (p_applname,
p_applrun,
@@ -4700,7 +4701,7 @@ BEGIN
rc.ordernr || '/' || rc.factuurnr
);
END;
c_teller := c_teller + 1;
ELSE
c_old_ordernr := rc.ordernr;
@@ -4710,7 +4711,7 @@ BEGIN
c_mld_opdr_key := NULL;
c_cnt_contract_key := NULL;
c_bes_bestelopdr_key := NULL;
IF c_ordernr_index = 0
THEN
c_ordernr_s1 := rc.ordernr;
@@ -4719,16 +4720,16 @@ BEGIN
c_ordernr_s1 := SUBSTR (rc.ordernr, 1, c_ordernr_index - 1);
c_ordernr_s2 := SUBSTR (rc.ordernr, c_ordernr_index + 1);
END IF;
c_find := FALSE;
c_find_ordernr := FALSE;
c_fac_type := '';
c_prefix := '';
IF (LENGTH (rc.ordernr) > 0)
THEN
c_prefix := SUBSTR (rc.ordernr, 1, 1);
IF ( ( (ASCII (SUBSTR (c_prefix, 1, 1)) >= 65 AND ASCII (SUBSTR (c_prefix, 1, 1)) <= 90)
OR (ASCII(SUBSTR (c_prefix, 1, 1)) >= 97 AND ASCII (SUBSTR (c_prefix, 1, 1)) <= 122))
AND ASCII (SUBSTR (c_prefix, 1, 1)) != 67
@@ -4775,7 +4776,7 @@ BEGIN
AND l.alg_locatie_code = rc.locatie
AND bo.prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_leverancier_nr = rc.leveranciernr;
c_find_ordernr := TRUE;
EXCEPTION
WHEN NO_DATA_FOUND
@@ -4804,12 +4805,12 @@ BEGIN
);
c_find_ordernr := FALSE;
END;
IF c_find_ordernr
THEN
c_ordernr_index := INSTR (c_bestelopdr_id, '/');
c_totaal := 0;
IF c_ordernr_index = 0
THEN
c_ordernr_s1 := c_bestelopdr_id;
@@ -4818,11 +4819,11 @@ BEGIN
c_ordernr_s1 := SUBSTR (c_bestelopdr_id, 1, c_ordernr_index - 1);
c_ordernr_s2 := SUBSTR (c_bestelopdr_id, c_ordernr_index + 1);
END IF;
c_fac_type := 'B';
END IF;
END IF;
IF c_fac_type = 'O'
THEN
IF (c_ordernr_index != 0
@@ -4835,7 +4836,7 @@ BEGIN
c_find := TRUE;
ELSE
c_i := 1;
LOOP
IF (ASCII (SUBSTR (c_ordernr_s1, c_i, 1)) >= 48 AND ASCII (SUBSTR (c_ordernr_s1, c_i, 1)) <= 57)
THEN
@@ -4843,10 +4844,10 @@ BEGIN
ELSE
c_i := c_i + 1;
END IF;
EXIT WHEN (c_find OR c_i > LENGTH (c_ordernr_s1));
END LOOP;
IF c_find
THEN
c_ordernr_s1 := SUBSTR (c_ordernr_s1, c_i);
@@ -4869,17 +4870,17 @@ BEGIN
-- geen prefix aanwezig, c_ordernr_s1 is goed
c_find := TRUE;
END IF;
-- c_ordernr_s1 bevat ordernummer
-- c_ordernr_s2 bevat volgnummer van de opdracht bij meldingen
-- Bij bestellingen en contracten is deze waarde leeg
-- Vind mld_opdr_key met mld_melding_key
IF c_fac_type = 'O'
THEN
c_cnt_contract_key := NULL;
c_bes_bestelopdr_key := NULL;
BEGIN
SELECT o.mld_opdr_key
INTO c_mld_opdr_key
@@ -4912,13 +4913,13 @@ BEGIN
c_cnt_contract_key := NULL;
c_find := FALSE;
END;
c_bes_bestelopdr_key := NULL;
c_mld_opdr_key := NULL;
ELSIF c_fac_type = 'B'
THEN
c_cnt_contract_key := NULL;
-- vind de bestelopdracht key?
BEGIN
IF c_ordernr_s2 IS NULL
@@ -4927,7 +4928,7 @@ BEGIN
ELSE
c_ordernr_t := c_ordernr_s1 || '/' || c_ordernr_s2;
END IF;
SELECT bes_bestelopdr_key
INTO c_bes_bestelopdr_key
FROM bes_bestelopdr
@@ -4938,17 +4939,17 @@ BEGIN
c_bes_bestelopdr_key := NULL;
c_find := FALSE;
END;
c_mld_opdr_key := NULL;
END IF;
-- CONN#12074 ook facturen die niet gelinkt kunnen worden moeten ingelezen worden.
-- IF ( (c_fac_type = 'B' OR c_fac_type = 'C' OR c_fac_type = 'O')
-- AND c_find
-- )
-- THEN
c_opmerking := '';
IF NOT c_find
THEN
BEGIN
@@ -4956,7 +4957,7 @@ BEGIN
INTO c_prs_bedrijf_naam
FROM prs_bedrijf
WHERE prs_leverancier_nr = rc.leveranciernr;
c_opmerking := 'Leverancier: ' || c_prs_bedrijf_naam || ' Ontvangen ordernummer: ' || rc.ordernr;
EXCEPTION
WHEN NO_DATA_FOUND
@@ -4964,15 +4965,15 @@ BEGIN
c_opmerking := 'Leverancier: onbekend' || ' Ontvangen ordernummer: ' || rc.ordernr;
END;
END IF;
BEGIN
SELECT fin_s_fin_factuur_key.NEXTVAL INTO c_index FROM DUAL;
SELECT SUM (kostprijs) totaal, SUM (btw_bedrag) totaal_btw
INTO c_factuur_totaal, c_factuur_btw
FROM conn_imp_factuur
WHERE LTRIM (RTRIM (ordernr)) = rc.ordernr;
INSERT INTO fin_factuur (
fin_factuur_key,
fin_factuur_totaal,
@@ -5005,10 +5006,10 @@ BEGIN
rc.debiteurnr,
NULL
);
COMMIT;
INSERT INTO fin_factuurregel (
fin_factuur_key,
fin_factuurregel_nr,
@@ -5020,16 +5021,16 @@ BEGIN
VALUES (c_index, c_factuurregel, -- Zal hier altijd 1 zijn
rc.totaal, rc.totaal_btw, rc.omschrijving, rc.locatie
);
COMMIT;
IF c_find_ordernr
THEN
c_write_ordernr := c_bestelopdr_id;
ELSE
c_write_ordernr := rc.ordernr;
END IF;
fac.imp_writelog (p_applname,
p_applrun,
'I',
@@ -5048,13 +5049,13 @@ BEGIN
rc.ordernr || '/' || rc.factuurnr
);
END;
-- END IF;
c_teller := c_teller + 1;
END IF;
END LOOP;
-- Facturen
-- Welke bestelling kan afgemeld worden. (Alleen bestellingen kunnen automatisch afgemeld worden)
FOR rc IN cfactuur
@@ -5062,11 +5063,11 @@ BEGIN
c_fac_type := '';
c_prefix := '';
c_find_ordernr := FALSE;
IF (LENGTH (rc.ordernr) > 0)
THEN
c_prefix := SUBSTR (rc.ordernr, 1, 1);
IF ( ( ( (ASCII (SUBSTR (c_prefix, 1, 1)) >= 65 AND ASCII (SUBSTR (c_prefix, 1, 1)) <= 90)
OR (ASCII(SUBSTR (c_prefix, 1, 1)) >= 97 AND ASCII (SUBSTR (c_prefix, 1, 1)) <= 122))
AND ASCII (SUBSTR (c_prefix, 1, 1)) != 67
@@ -5112,7 +5113,7 @@ BEGIN
AND l.alg_locatie_code = rc.locatie
AND bo.prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_leverancier_nr = rc.leveranciernr;
c_find_ordernr := TRUE;
EXCEPTION
WHEN NO_DATA_FOUND
@@ -5141,32 +5142,32 @@ BEGIN
);
c_find_ordernr := FALSE;
END;
IF c_find_ordernr
THEN
c_fac_type := 'B';
END IF;
END IF;
IF c_fac_type = 'B'
THEN
SELECT SUM (boi.bes_bestelopdr_item_prijs * boi.bes_bestelopdr_item_aantal)
INTO c_totaal
FROM bes_bestelopdr b, bes_bestelopdr_item boi
WHERE boi.bes_bestelopdr_key = b.bes_bestelopdr_key AND b.bes_bestelopdr_id = c_bestelopdr_id;
SELECT MAX (fin_factuur_key)
INTO c_index
FROM fin_factuur f, bes_bestelopdr bo
WHERE bo.bes_bestelopdr_key = f.bes_bestelopdr_key AND bo.bes_bestelopdr_id = c_bestelopdr_id;
SELECT SUM (fr.fin_factuurregel_totaal)
INTO c_fact_totaal
FROM fin_factuur f, fin_factuurregel fr, bes_bestelopdr b
WHERE f.bes_bestelopdr_key = b.bes_bestelopdr_key
AND f.fin_factuur_key = fr.fin_factuur_key
AND b.bes_bestelopdr_id = c_bestelopdr_id;
IF c_totaal = c_fact_totaal --c_totaal = rc.totaal
THEN
BEGIN
@@ -5175,13 +5176,13 @@ BEGIN
FROM fin_factuur
WHERE fin_factuur_key = c_index
AND (mld_opdr_key IS NOT NULL OR cnt_contract_key IS NOT NULL OR bes_bestelopdr_key IS NOT NULL);
UPDATE fin_factuur
SET fin_factuur_statuses_key = 6
WHERE fin_factuur_key = c_index;
fac.trackaction ('FINFOK', c_index, NULL, NULL, NULL);
fac.imp_writelog (p_applname,
p_applrun,
'I',
@@ -5195,7 +5196,7 @@ BEGIN
END;
END IF;
END IF;
COMMIT;
END LOOP;
END IF; -- invalid numbers
@@ -7169,25 +7170,22 @@ AS
GROUP BY c20, c21, c30, c31, c32
ORDER BY 1, 2, 3 DESC;
/* Formatted on 23-1-2009 15:08:32 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW CONN_V_RAP_TSNKLEDING
/* Formatted on 28-11-2011 10:52:17 (QP5 v5.136.908.31019) */
CREATE OR REPLACE FORCE VIEW conn_v_rap_tsnkleding
(
FCLT_F_BESTELLER,
FCLT_F_BESTEMD_VOOR,
FCLT_F_NAAM_DRAGER,
FCLT_D_BESTELDATUM,
ITEM,
AANTAL_BESTELEENHEDEN,
PRIJS,
KOSTENPLAATS
fclt_f_besteller,
fclt_f_bestemd_voor,
fclt_f_naam_drager,
fclt_d_besteldatum,
item,
aantal_besteleenheden,
prijs,
kostenplaats
)
AS
SELECT pf.prs_perslid_naam_full besteller,
(SELECT pp.prs_perslid_naam_full
FROM bes_kenmerkbestell v,
bes_kenmerk k,
bes_srtkenmerk sk,
prs_v_perslid_fullnames_all pp
FROM bes_kenmerkbestell v, bes_kenmerk k, bes_srtkenmerk sk, prs_v_perslid_fullnames_all pp
WHERE v.bes_bestelling_key = b.bes_bestelling_key
AND v.bes_kenmerk_key = k.bes_kenmerk_key
AND k.bes_srtkenmerk_key = sk.bes_srtkenmerk_key
@@ -7201,15 +7199,10 @@ AS
AND k.bes_srtkenmerk_key = sk.bes_srtkenmerk_key
AND sk.bes_srtkenmerk_key = 65)
naam_drager,
TO_CHAR(bes_bestelling_datum,'DD-MM-YYYY'),
COALESCE (isd.bes_srtdeel_nr, '')
|| ' '
|| isd.bes_srtdeel_omschrijving
item,
TO_CHAR (bes_bestelling_datum, 'DD-MM-YYYY'),
COALESCE (isd.bes_srtdeel_nr, '') || ' ' || isd.bes_srtdeel_omschrijving item,
i.bes_bestelling_item_aantal,
i.bes_bestelling_item_aantal
* COALESCE (bi.bes_bestelopdr_item_prijs, isd.bes_srtdeel_prijs)
prijs,
i.bes_bestelling_item_aantal * bi.bes_bestelopdr_item_prijs prijs,
pk.prs_kostenplaats_nr
FROM bes_bestelling b,
prs_v_perslid_fullnames_all pf,
@@ -7230,24 +7223,21 @@ AS
AND b.mld_adres_key_lev = a.mld_adres_key(+)
AND b.prs_kostenplaats_key = pk.prs_kostenplaats_key;
CREATE OR REPLACE VIEW CONN_V_RAP_TOURSKLEDING
CREATE OR REPLACE FORCE VIEW conn_v_rap_tourskleding
(
FCLT_F_BESTELLER,
FCLT_F_BESTEMD_VOOR,
FCLT_F_NAAM_DRAGER,
FCLT_D_BESTELDATUM,
ITEM,
AANTAL_BESTELEENHEDEN,
PRIJS,
KOSTENPLAATS
fclt_f_besteller,
fclt_f_bestemd_voor,
fclt_f_naam_drager,
fclt_d_besteldatum,
item,
aantal_besteleenheden,
prijs,
kostenplaats
)
AS
SELECT pf.prs_perslid_naam_full besteller,
(SELECT pp.prs_perslid_naam_full
FROM bes_kenmerkbestell v,
bes_kenmerk k,
bes_srtkenmerk sk,
prs_v_perslid_fullnames_all pp
FROM bes_kenmerkbestell v, bes_kenmerk k, bes_srtkenmerk sk, prs_v_perslid_fullnames_all pp
WHERE v.bes_bestelling_key = b.bes_bestelling_key
AND v.bes_kenmerk_key = k.bes_kenmerk_key
AND k.bes_srtkenmerk_key = sk.bes_srtkenmerk_key
@@ -7262,14 +7252,9 @@ AS
AND sk.bes_srtkenmerk_key = 65)
naam_drager,
TO_CHAR (bes_bestelling_datum, 'DD-MM-YYYY'),
COALESCE (isd.bes_srtdeel_nr, '')
|| ' '
|| isd.bes_srtdeel_omschrijving
item,
COALESCE (isd.bes_srtdeel_nr, '') || ' ' || isd.bes_srtdeel_omschrijving item,
i.bes_bestelling_item_aantal,
i.bes_bestelling_item_aantal
* COALESCE (bi.bes_bestelopdr_item_prijs, isd.bes_srtdeel_prijs)
prijs,
i.bes_bestelling_item_aantal * bi.bes_bestelopdr_item_prijs prijs,
pk.prs_kostenplaats_nr
FROM bes_bestelling b,
prs_v_perslid_fullnames_all pf,
@@ -8318,7 +8303,7 @@ AS
sd.bes_srtdeel_nr,
sg.bes_srtgroep_omschrijving,
sd.bes_srtdeel_omschrijving,
TO_CHAR (sd.bes_srtdeel_prijs),
TO_CHAR (bes.getsrtdeelprijs(sd.bes_srtdeel_key, NULL)),
sd.bes_srtdeel_eenheid,
sd.bes_srtdeel_image,
TO_CHAR (sd.bes_srtdeel_veelvoud),
@@ -8328,7 +8313,7 @@ AS
TO_DATE ('31-12-2099', 'dd-mm-yyyy')),
'yyyymmdd'
),
TO_CHAR (sd.bes_srtdeel_inkprijs),
TO_CHAR (bes.getsrtdeelinkprijs(sd.bes_srtdeel_key, NULL)),
NULL
FROM ins_tab_discipline td,
bes_srtgroep sg,
@@ -9770,10 +9755,10 @@ AS
ELSE -- Object bestaat nog niet op locatie, dus toevoegen!
v_errormsg := 'Fout bij bepalen default ID';
SELECT FAC_F_FAC_GET_DESCRIPTION ('LPN_INS_DEEL',
NULL,
UPPER (ins_srtdeel_code),
v_srtdeel_key)
SELECT INS.GET_DESCRIPTION ('LPN_INS_DEEL',
NULL,
UPPER (ins_srtdeel_code),
v_srtdeel_key)
INTO v_deel_oms
FROM ins_srtdeel
WHERE ins_srtdeel_key = v_srtdeel_key;
@@ -10769,7 +10754,7 @@ END conn_update_inspectieobj;
BEGIN fac.registercustversion('CONN', 49); END;
/
BEGIN adm.systrackscript('$Workfile: conn.sql $', '$Revision: 176 $', 0); END;
BEGIN adm.systrackscript('$Workfile: conn.sql $', '$Revision: 177 $', 0); END;
/
COMMIT;