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

FCLT#57667 srtkenmerklabels kunnen overrulen

Browse Source 
svn path=/Database/trunk/; revision=45150
This commit is contained in:
Peter Feij
2019-12-06 17:49:01 +00:00
parent 63a302eec2
commit b5ff97e804
3 changed files with 13 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
MLD/MLD_PAC.SRC
View File

@@ -2830,7 +2830,12 @@ IS
t.mld_srtkenmerk_nmax nmax,
t.fac_kenmerkdomein_key,
k.mld_kenmerk_volgnummer,
mld_srtkenmerk_omschrijving,
COALESCE (
lcl.x ('mld_kenmerk_omschrijving', k.mld_kenmerk_key, k.mld_kenmerk_omschrijving),
lcl.x ('mld_srtkenmerk_omschrijving',
t.mld_srtkenmerk_key,
t.mld_srtkenmerk_omschrijving))
mld_kenmerk_omschrijving,
v.mld_kenmerkmelding_waarde
FROM mld_srtkenmerk t, mld_kenmerk k, mld_kenmerkmelding v
WHERE v.mld_kenmerk_key = k.mld_kenmerk_key
@@ -2840,9 +2845,7 @@ IS
AND t.mld_srtkenmerk_verwijder IS NULL
AND v.mld_melding_key = pmelding_key
ORDER BY k.mld_kenmerk_volgnummer,
UPPER(lcl.x ('t.mld_srtkenmerk_omschrijving',
t.mld_srtkenmerk_key,
mld_srtkenmerk_omschrijving));
UPPER(COALESCE(mld_kenmerk_omschrijving, mld_srtkenmerk_omschrijving)); // field-order always in native language order
waarde mld_kenmerkmelding.mld_kenmerkmelding_waarde%TYPE;
builder VARCHAR2 (4000 CHAR);
BEGIN
@@ -2868,9 +2871,9 @@ BEGIN
END IF;
-- In het zeldzame geval dat de tekst te lang zou worden slaan we sommige
-- kenmerken gewoon silent over. Niet ideaal maar toch vrij theoretisch
IF (COALESCE(LENGTH(builder),0) + LENGTH(r.mld_srtkenmerk_omschrijving) + LENGTH(waarde) < 3990)
IF (COALESCE(LENGTH(builder),0) + LENGTH(r.mld_kenmerk_omschrijving) + LENGTH(waarde) < 3990)
THEN
builder := builder || CHR(10) || r.mld_srtkenmerk_omschrijving || ': ' || waarde;
builder := builder || CHR(10) || r.mld_kenmerk_omschrijving || ': ' || waarde;
END IF;
END IF;
END LOOP;

4
MLD/MLD_TRI.SRC
View File

@@ -462,7 +462,7 @@ BEGIN
BEGIN
KenmerkMeldingWaarde := :new.mld_kenmerkmelding_waarde;
--
SELECT MLD_SK.mld_srtkenmerk_omschrijving
SELECT COALESCE(MLD_K.mld_kenmerk_omschrijving, MLD_SK.mld_srtkenmerk_omschrijving)
, MLD_SK.mld_srtkenmerk_kenmerktype
, MLD_SK.mld_srtkenmerk_lengte
, MLD_SK.mld_srtkenmerk_dec
@@ -583,7 +583,7 @@ BEGIN
BEGIN
KenmerkOpdrWaarde := :new.mld_kenmerkopdr_waarde;
--
SELECT MLD_SK.mld_srtkenmerk_omschrijving
SELECT COALESCE(MLD_K.mld_kenmerk_omschrijving, MLD_SK.mld_srtkenmerk_omschrijving)
, MLD_SK.mld_srtkenmerk_kenmerktype
, MLD_SK.mld_srtkenmerk_lengte
, MLD_SK.mld_srtkenmerk_dec

4
MLD/MLD_VIE.SRC
View File

@@ -1983,7 +1983,7 @@ SELECT
CREATE_VIEW(mld_v_udr_meldingkenmerk_cnd, 1)
AS
SELECT m.*,
lcl.x ('skm.mld_srtkenmerk_omschrijving',
lcl.x ('mld_srtkenmerk_omschrijving',
skm.mld_srtkenmerk_key,
mld_srtkenmerk_omschrijving)
kenmerk,
@@ -2027,7 +2027,7 @@ AS
CREATE_VIEW(mld_v_udr_opdrachtkenmerk_cnd, 1)
AS
SELECT o.*,
lcl.x ('skm.mld_srtkenmerk_omschrijving',
lcl.x ('mld_srtkenmerk_omschrijving',
skm.mld_srtkenmerk_key,
mld_srtkenmerk_omschrijving)
kenmerk,