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

Vele te lange identifiers...

Browse Source 
svn path=/Database/trunk/; revision=51455
This commit is contained in:
Jos Groot Lipman
2021-05-12 17:13:04 +00:00
parent 3c7900b92a
commit a7cf094dc5
6 changed files with 39 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
FAC/FAC_LCL.SRC
View File

@@ -7548,7 +7548,8 @@ INSERT INTO fac_locale_xsl (fac_locale_xsl_module,
(SELECT fac_locale_xsl_label
FROM fac_locale_xsl flx
WHERE fac_locale_xsl_lang = 'NL'
AND tmp_lcl.fac_locale_xsl_label = flx.fac_locale_xsl_label);
AND tmp_lcl.fac_locale_xsl_label = flx.fac_locale_xsl_label
AND tmp_lcl.fac_locale_xsl_module = flx.fac_locale_xsl_module);
COMMIT;
INSERT INTO fac_locale_xsl (fac_locale_xsl_module,
fac_locale_xsl_label,
@@ -7563,7 +7564,8 @@ INSERT INTO fac_locale_xsl (fac_locale_xsl_module,
(SELECT fac_locale_xsl_label
FROM fac_locale_xsl flx
WHERE fac_locale_xsl_lang = 'EN'
AND tmp_lcl.fac_locale_xsl_label = flx.fac_locale_xsl_label);
AND tmp_lcl.fac_locale_xsl_label = flx.fac_locale_xsl_label
AND tmp_lcl.fac_locale_xsl_module = flx.fac_locale_xsl_module);
COMMIT;
BEGIN

22
FAC/FAC_PACX.SRC
View File

@@ -91,7 +91,7 @@ AS
PROCEDURE create_prs_bedrijf_node (p_bedrijf_key IN NUMBER, p_nodename IN VARCHAR2, p_concise IN BOOLEAN);
PROCEDURE create_prs_bedrijf_bedrijf_node (p_key IN NUMBER);
PROCEDURE create_prs_bedrijf_bdr_node (p_key IN NUMBER);
PROCEDURE create_prs_kostenpltsgrp_node (p_key IN NUMBER);
@@ -1984,7 +1984,7 @@ AS
END IF;
END;
PROCEDURE create_prs_bedrijf_bedrijf_node (p_key IN NUMBER)
PROCEDURE create_prs_bedrijf_bdr_node (p_key IN NUMBER)
AS
v_prs_bedrijf_bedrijf_key prs_bedrijf_bedrijf.prs_bedrijf_bedrijf_key%TYPE;
v_prs_bedrijf_key1 prs_bedrijf_bedrijf.prs_bedrijf_key1%TYPE;
@@ -1993,11 +1993,11 @@ AS
v_prs_bedrijf_key2 prs_bedrijf_bedrijf.prs_bedrijf_key2%TYPE;
v_prs_bedrijf_externid2 prs_bedrijf_bedrijf.prs_bedrijf_externid2%TYPE;
v_prs_bedrijf_externsyncdate2 prs_bedrijf_bedrijf.prs_bedrijf_externsyncdate2%TYPE;
v_prs_bedrijf_bedrijf_startdatum prs_bedrijf_bedrijf.prs_bedrijf_bedrijf_startdatum%TYPE;
v_prs_bedrijf_bedrijf_einddatum prs_bedrijf_bedrijf.prs_bedrijf_bedrijf_einddatum%TYPE;
v_prs_bedrijf_bedrijf_startdtm prs_bedrijf_bedrijf.prs_bedrijf_bedrijf_startdatum%TYPE;
v_prs_bedrijf_bedrijf_einddtm prs_bedrijf_bedrijf.prs_bedrijf_bedrijf_einddatum%TYPE;
v_prs_bedrijf_bedrijf_status prs_bedrijf_bedrijf.prs_bedrijf_bedrijf_status%TYPE;
v_prs_bedrijf_bedrijf_charged prs_bedrijf_bedrijf.prs_bedrijf_bedrijf_charged%TYPE;
v_prs_bedrijf_bedrijf_chargemode prs_bedrijf_bedrijf.prs_bedrijf_bedrijf_chargemode%TYPE;
v_prs_bedrijf_bdr_chargemode prs_bedrijf_bedrijf.prs_bedrijf_bedrijf_chargemode%TYPE;
v_prs_bedrijf_bedrijf_fee1 prs_bedrijf_bedrijf.prs_bedrijf_bedrijf_fee1%TYPE;
v_prs_bedrijf_bedrijf_fee2 prs_bedrijf_bedrijf.prs_bedrijf_bedrijf_fee2%TYPE;
v_prs_bedrijf_bedrijf_fee3 prs_bedrijf_bedrijf.prs_bedrijf_bedrijf_fee3%TYPE;
@@ -2033,11 +2033,11 @@ AS
v_prs_bedrijf_key2,
v_prs_bedrijf_externid2,
v_prs_bedrijf_externsyncdate2,
v_prs_bedrijf_bedrijf_startdatum,
v_prs_bedrijf_bedrijf_einddatum,
v_prs_bedrijf_bedrijf_startdtm,
v_prs_bedrijf_bedrijf_einddtm,
v_prs_bedrijf_bedrijf_status,
v_prs_bedrijf_bedrijf_charged,
v_prs_bedrijf_bedrijf_chargemode,
v_prs_bedrijf_bdr_chargemode,
v_prs_bedrijf_bedrijf_fee1,
v_prs_bedrijf_bedrijf_fee2,
v_prs_bedrijf_bedrijf_fee3,
@@ -2053,11 +2053,11 @@ AS
createxmltagvalue ('bedrijf_key2', v_prs_bedrijf_key2);
createxmltagvalue ('externid2', v_prs_bedrijf_externid2);
mydatetochar ('externsyncdate2', v_prs_bedrijf_externsyncdate2);
mydatetochar ('startdatum', v_prs_bedrijf_bedrijf_startdatum);
mydatetochar ('einddatum', v_prs_bedrijf_bedrijf_einddatum);
mydatetochar ('startdatum', v_prs_bedrijf_bedrijf_startdtm);
mydatetochar ('einddatum', v_prs_bedrijf_bedrijf_einddtm);
createxmltagvalue ('status', v_prs_bedrijf_bedrijf_status);
createxmltagvalue ('charged', v_prs_bedrijf_bedrijf_charged);
createxmltagvalue ('chargemode', v_prs_bedrijf_bedrijf_chargemode);
createxmltagvalue ('chargemode', v_prs_bedrijf_bdr_chargemode);
createxmltagvalue ('fee1', v_prs_bedrijf_bedrijf_fee1);
createxmltagvalue ('fee2', v_prs_bedrijf_bedrijf_fee2);
createxmltagvalue ('fee3', v_prs_bedrijf_bedrijf_fee3);

2
INS/INS_SEQ.SRC
View File

@@ -22,7 +22,7 @@ CREATE SEQUENCE ins_s_ins_deelkoppeling_key MINVALUE 1;
CREATE SEQUENCE ins_s_ins_compositie_key MINVALUE 1;
CREATE SEQUENCE ins_s_ins_srtdeel_comp_key MINVALUE 1;
CREATE SEQUENCE ins_s_ins_deel_state_hist_key MINVALUE 1;
CREATE SEQUENCE ins_s_ins_deel_state_histall_key MINVALUE 1;
CREATE SEQUENCE ins_s_ins_deel_st_histall_key MINVALUE 1;
CREATE SEQUENCE ins_s_ins_scenario_key MINVALUE 10;
CREATE SEQUENCE ins_s_ins_srtcontrole_key MINVALUE 10;

4
INS/INS_TRI.SRC
View File

@@ -556,11 +556,11 @@ BEGIN
END;
/
CREATE_TRIGGER(ins_t_ins_deel_state_histall_B_I)
CREATE_TRIGGER(ins_t_ins_deel_st_histall_B_I)
BEFORE INSERT ON ins_deel_state_history_all
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(ins_deel_state_history_all_key,ins_s_ins_deel_state_histall_key);
UPDATE_PRIMARY_KEY(ins_deel_state_history_all_key,ins_s_ins_deel_st_histall_key);
END;
/

40
MLD/MLD_PAC.SRC
View File

@@ -1363,7 +1363,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
l_prs_perslid_key prs_perslid.prs_perslid_key%TYPE;
l_mld_stdmelding_key mld_stdmelding.mld_stdmelding_key%TYPE;
l_mld_disc_params_opdr_kosten NUMBER;
l_mld_stdmelding_autoorderamount mld_stdmelding.mld_stdmelding_autoorderamount%TYPE;
l_mld_stdmelding_autoorderamnt mld_stdmelding.mld_stdmelding_autoorderamount%TYPE;
l_mld_disc_params_pgb mld_disc_params.mld_disc_params_pgb%TYPE;
l_prs_kostenplaats_key prs_kostenplaats.prs_kostenplaats_key%TYPE;
l_prs_kostensoort_key prs_kostensoort.prs_kostensoort_key%TYPE;
@@ -1380,7 +1380,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
l_mld_typeopdr_gvs mld_typeopdr.mld_typeopdr_gvs%TYPE;
l_mld_typeopdr_isofferte mld_typeopdr.mld_typeopdr_isofferte%TYPE;
l_mld_typeopdr_kosten mld_typeopdr.mld_typeopdr_kosten%TYPE;
l_mld_typeopdr_kosten_verplicht NUMBER;
l_mld_typeopdr_kst_verplicht NUMBER;
l_mld_typeopdr_slamode mld_typeopdr.mld_typeopdr_slamode%TYPE;
l_exceeds_pgb BOOLEAN;
l_exceeds_agb BOOLEAN;
@@ -1424,7 +1424,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
, l_prs_perslid_key
, l_mld_stdmelding_key
, l_mld_disc_params_opdr_kosten
, l_mld_stdmelding_autoorderamount
, l_mld_stdmelding_autoorderamnt
, l_mld_disc_params_pgb
, l_prs_kostenplaats_key
, l_prs_kostensoort_key
@@ -1496,7 +1496,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
, l_mld_typeopdr_gvs
, l_mld_typeopdr_isofferte
, l_mld_typeopdr_kosten
, l_mld_typeopdr_kosten_verplicht
, l_mld_typeopdr_kst_verplicht
, l_mld_typeopdr_slamode
FROM mld_stdmelding sm
, mld_typeopdr mto
@@ -1511,7 +1511,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
END;
-- Moet er gefiatteerd worden?
IF l_mld_stdmelding_autoorderamount < l_mld_typeopdr_fvs
IF l_mld_stdmelding_autoorderamnt < l_mld_typeopdr_fvs
THEN
l_for_approval := FALSE;
ELSIF l_mld_disc_params_pgb > 0
@@ -1519,8 +1519,8 @@ CREATE OR REPLACE PACKAGE BODY mld AS
-- Persoonlijk Gebonden Budget (PGB) en Afdeling Gebonden Budget (AGB) controle
-- Fiatteringsproces moet gevolgd worden op de naam van de user
-- var exceeds_pgb = mld.exceeds_pgb(tot_kosten, user_key, disc_key)
l_exceeds_pgb := fac.exceeds_pgb(l_mld_stdmelding_autoorderamount, l_prs_perslid_key, l_ins_discipline_key, l_mld_disc_params_pgb);
l_exceeds_agb := fac.exceeds_agb(l_mld_stdmelding_autoorderamount, l_prs_kostenplaats_key, l_ins_discipline_key, l_mld_disc_params_pgb);
l_exceeds_pgb := fac.exceeds_pgb(l_mld_stdmelding_autoorderamnt, l_prs_perslid_key, l_ins_discipline_key, l_mld_disc_params_pgb);
l_exceeds_agb := fac.exceeds_agb(l_mld_stdmelding_autoorderamnt, l_prs_kostenplaats_key, l_ins_discipline_key, l_mld_disc_params_pgb);
IF l_exceeds_pgb OR l_exceeds_agb
THEN
-- Voor melding opdrachten heb je altijd BO rechten nodig.
@@ -1540,8 +1540,8 @@ CREATE OR REPLACE PACKAGE BODY mld AS
-- Wel even checken of er een fiatteur gevonden kan worden.
IF l_for_approval OR
(fac.getsetting('mld_use_order_approval') = 1 AND
l_mld_stdmelding_autoorderamount > 0 AND
(l_mld_stdmelding_autoorderamount > fac.getsetting('can_selfapprove'))) -- Ik kan niet zelf fiatteren of kosten overschrijden het profiel.
l_mld_stdmelding_autoorderamnt > 0 AND
(l_mld_stdmelding_autoorderamnt > fac.getsetting('can_selfapprove'))) -- Ik kan niet zelf fiatteren of kosten overschrijden het profiel.
THEN
l_for_approval := TRUE;
-- Wie moet op verzoek goedkeuren voor deze kostenplaats, terwijl het bedrag wellicht onbekend is?
@@ -1549,7 +1549,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
-- Alleen de melder van de melding mag niet zelf goedkeuren boven het bedrag can_selfapprove.
-- Bij een kpg fiatteur moeten we de volgende hebben en niet de laatste, daarom (fiatbedrag >= 0) meegeven.
-- prs.getfiatteur (pkostenplaats_key, pexcludekey, pondergrens, pdisckey, pfiatbedrag)
SELECT prs.getfiatteur (l_prs_kostenplaats_key, -1, l_mld_stdmelding_autoorderamount, l_ins_discipline_key, -1)
SELECT prs.getfiatteur (l_prs_kostenplaats_key, -1, l_mld_stdmelding_autoorderamnt, l_ins_discipline_key, -1)
INTO l_approver_key
FROM DUAL;
END IF;
@@ -1557,14 +1557,14 @@ CREATE OR REPLACE PACKAGE BODY mld AS
-- Standaard fiatteringscontrole
-- De opdrachtaanmaker, Melder van de melding/BO-medewerker, contactpersoon enz, zijn allemaal de gelijk, namelijk de meldingaanmaker.
IF (fac.getsetting('mld_use_order_approval') = 1 AND
l_mld_stdmelding_autoorderamount > 0 AND
(l_mld_stdmelding_autoorderamount > fac.getsetting('can_selfapprove') OR
fac.exceeds_profiel(l_mld_stdmelding_autoorderamount, l_prs_perslid_key, l_ins_discipline_key))) -- Ik kan niet zelf fiatteren of kosten overschrijden het profiel.
l_mld_stdmelding_autoorderamnt > 0 AND
(l_mld_stdmelding_autoorderamnt > fac.getsetting('can_selfapprove') OR
fac.exceeds_profiel(l_mld_stdmelding_autoorderamnt, l_prs_perslid_key, l_ins_discipline_key))) -- Ik kan niet zelf fiatteren of kosten overschrijden het profiel.
THEN
l_for_approval := TRUE;
-- prs.getfiatteur (pkostenplaats_key, pexcludekey, pondergrens, pdisckey, pfiatbedrag)
SELECT prs.getfiatteur (l_prs_kostenplaats_key, -1, l_mld_stdmelding_autoorderamount, l_ins_discipline_key, -1)
SELECT prs.getfiatteur (l_prs_kostenplaats_key, -1, l_mld_stdmelding_autoorderamnt, l_ins_discipline_key, -1)
INTO l_approver_key
FROM DUAL;
END IF;
@@ -1705,9 +1705,9 @@ CREATE OR REPLACE PACKAGE BODY mld AS
-- Opdrachttype: mld_typeopdr_kosten_verplicht (typeopdr kosten): 0 = Niet verplicht, 1 = Save + 2 = Afmelden, 4 = Afronden.
-- Vakgroep: mld_disc_params_opdr_kosten (opdracht kosten): 0 = Niet verplicht, 7 = Aanmaak, 6 = Afmelden, 4 = Afronden.
-- Nieuwe opdracht, dus ik hoef alleen te kijken naar Save (mld_typeopdr_kosten_verplicht) en Aanmaak (mld_disc_params_opdr_kosten).
IF ((BITAND(l_mld_typeopdr_kosten_verplicht, 1) = 1
OR (l_mld_typeopdr_kosten_verplicht = 0 AND BITAND(l_mld_disc_params_opdr_kosten, 1) = 1)) -- Zijn de kosten verplicht voor nieuwe opdracht?
AND l_mld_stdmelding_autoorderamount IS NOT NULL) -- Totale kosten bij autoorder.
IF ((BITAND(l_mld_typeopdr_kst_verplicht, 1) = 1
OR (l_mld_typeopdr_kst_verplicht = 0 AND BITAND(l_mld_disc_params_opdr_kosten, 1) = 1)) -- Zijn de kosten verplicht voor nieuwe opdracht?
AND l_mld_stdmelding_autoorderamnt IS NOT NULL) -- Totale kosten bij autoorder.
THEN
-- Internal error; The costs must be filled in.
RETURN;
@@ -1823,7 +1823,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
l_prs_perslid_key,
l_prs_kostenplaats_key,
l_prs_kostensoort_key,
l_mld_stdmelding_autoorderamount,
l_mld_stdmelding_autoorderamnt,
l_prs_bedrijf_uurloon,
0,
'MLD',
@@ -1833,11 +1833,11 @@ CREATE OR REPLACE PACKAGE BODY mld AS
-- Status en tracking altijd met de functie setopdrachtstatus
-- Zetten van de status van een nieuwe opdracht op nieuw en afhandelen van de tracking (status + uitvoerende tracking) en daarmee notificatie.
IF l_mld_stdmelding_autoorderamount > l_mld_disc_params_bestellimiet OR l_mld_stdmelding_autoorderamount > l_mld_typeopdr_gvs
IF l_mld_stdmelding_autoorderamnt > l_mld_disc_params_bestellimiet OR l_mld_stdmelding_autoorderamnt > l_mld_typeopdr_gvs
THEN
mld.setopdrachtstatus(l_new_opdr_key, 10, NULL); -- Ter goedkeuring.
ELSE
IF l_mld_stdmelding_autoorderamount < l_mld_typeopdr_fvs -- fvs is eigenlijk al eerder afgehandeld
IF l_mld_stdmelding_autoorderamnt < l_mld_typeopdr_fvs -- fvs is eigenlijk al eerder afgehandeld
THEN
-- Hoge fiat vrijstelling, fiattering toch niet nodig.
mld.setopdrachtstatus(l_new_opdr_key, 5, NULL); -- Uitgegeven.

2
_UP/DB39to40.src
View File

@@ -420,7 +420,7 @@ CREATE_TABLE(ins_deel_state_history_all, 0)
NUMBER
);
CREATE SEQUENCE ins_s_ins_deel_state_histall_key MINVALUE 1;
CREATE SEQUENCE ins_s_ins_deel_st_histall_key MINVALUE 1;
/////////////////////////////////////////////////////////////////////////////////////////// FCLT#65180
ALTER TABLE fac_import_app ADD fac_import_app_delimiter VARCHAR(2);