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

TWYN#51452 naam in header (niet login)

Browse Source 
svn path=/Database/trunk/; revision=36235
This commit is contained in:
Peter Feij
2017-12-06 11:29:02 +00:00
parent f61d1c5356
commit 4c77331215
1 changed files with 16 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
FAC/FAC_PACX.SRC
View File

@@ -656,9 +656,10 @@ AS
-- *
PROCEDURE createheadernode (p_custid IN VARCHAR2)
AS
l_custid fac_version.fac_version_cust%TYPE;
l_otap fac_version.fac_version_otap%TYPE;
l_oslogin prs_perslid.prs_perslid_oslogin%TYPE;
l_custid fac_version.fac_version_cust%TYPE;
l_otap fac_version.fac_version_otap%TYPE;
l_naam_full prs_v_perslid_fullnames_all.prs_perslid_naam_full%TYPE;
l_naam_friendly prs_v_perslid_fullnames_all.prs_perslid_naam_friendly%TYPE;
BEGIN
createopentagattributes ('header',
'revision',
@@ -669,17 +670,24 @@ AS
NULL,
NULL,
NULL);
SELECT prs_perslid_oslogin
INTO l_oslogin
FROM prs_perslid
WHERE prs_perslid_key = sys_context('USERENV', 'CLIENT_IDENTIFIER');
BEGIN
SELECT prs_perslid_naam_full, prs_perslid_naam_friendly
INTO l_naam_full, l_naam_friendly
FROM prs_v_perslid_fullnames_all
WHERE prs_perslid_key = sys_context('USERENV', 'CLIENT_IDENTIFIER');
EXCEPTION
WHEN NO_DATA_FOUND -- for putorders a.o. this is unknown
THEN NULL;
END;
createxmltagvalue ('dateTime',
TO_CHAR (SYSDATE, 'dd-mm-yyyy hh24:mi:ss'));
createxmltagvalue ('dateDay', TO_CHAR (SYSDATE, 'dd'));
createxmltagvalue ('dateMonth', TO_CHAR (SYSDATE, 'mm'));
createxmltagvalue ('dateYear', TO_CHAR (SYSDATE, 'yyyy'));
createxmltagvalue ('user', USER);
createxmltagvalue ('username', l_oslogin);
createxmltagvalue ('usernamefull', l_naam_full);
createxmltagvalue ('usernamefriendly', l_naam_friendly);
SELECT fac_version_cust, fac_version_otap
INTO l_custid, l_otap
FROM fac_version;