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

FCLT#83767 Data-roundtrip via Excel/CSV voor bulkdata aanvulling (evt mutaties)

Browse Source 
svn path=/Database/trunk/; revision=66172
This commit is contained in:
Erik Groener
2024-09-11 10:06:17 +00:00
parent 536d882f0e
commit 273e9abf51
2 changed files with 63 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
MLD/MLD_PAC.SRC
View File

@@ -33,6 +33,7 @@ CREATE OR REPLACE PACKAGE mld AS
,p_user_key IN NUMBER DEFAULT NULL);
FUNCTION getlowestobjectuitvoer (p_melding_key IN NUMBER) RETURN NUMBER;
FUNCTION uitvoertijd_to_char (uitvoertijd IN MLD_T_UITVOERTIJD) RETURN VARCHAR;
FUNCTION uitvoertijd_to_unit (tijd MLD_T_UITVOERTIJD, eenheid VARCHAR2) RETURN NUMBER;
FUNCTION geteinddatum (startdate IN DATE,
stdm_key IN NUMBER,
prio IN NUMBER,
@@ -3245,6 +3246,26 @@ CREATE OR REPLACE PACKAGE BODY mld AS
RETURN '(' || uitvoertijd.tijdsduur || '; ' || uitvoertijd.eenheid || ')';
END;
FUNCTION uitvoertijd_to_unit (tijd MLD_T_UITVOERTIJD, eenheid VARCHAR2)
RETURN NUMBER
AS
duur NUMBER;
BEGIN
IF (tijd.tijdsduur IS NOT NULL AND tijd.tijdsduur != 0)
THEN
duur := tijd.tijdsduur;
IF (eenheid = 'D' AND tijd.eenheid = 'U')
THEN
duur := tijd.tijdsduur / 24;
END IF;
IF (eenheid = 'U' AND tijd.eenheid = 'D')
THEN
duur := tijd.tijdsduur * 24;
END IF;
END IF;
RETURN duur;
END;
-- bereken de SLA-einddatum gegeven onderstaande info
FUNCTION geteinddatum (startdate IN DATE,
stdm_key IN NUMBER,