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

PCHD#39096: 2016.3 AiAi aanmaken opdracht intern bedrijf.

Browse Source 
svn path=/Database/branches/DB30/; revision=32455
This commit is contained in:
Maykel Geerdink
2017-01-19 10:02:57 +00:00
parent 099dd89f1b
commit a8bb6c15af
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
FAC/FAC_PAC.SRC
View File

@@ -2804,7 +2804,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
lbenotify mld_disc_params.mld_disc_params_benotify%TYPE;
lworkflowstep_key mld_melding.mld_workflowstep_key%TYPE;
lstart_key mld_melding.mld_melding_start_key%TYPE;
lintern mld_v_uitvoerende.intern%TYPE;
luitvtype mld_v_uitvoerende.TYPE%TYPE;
lemail prs_bedrijf.prs_bedrijf_email%TYPE;
lemail3 alg_gebouw.alg_gebouw_email%TYPE;
lphone prs_bedrijf.prs_bedrijf_telefoon2%TYPE;
@@ -3008,14 +3008,14 @@ CREATE OR REPLACE PACKAGE BODY fac AS
FROM mld_opdr
WHERE mld_opdr_key = prefkey;
SELECT u.intern
INTO lintern
SELECT u.TYPE
INTO luitvtype
FROM mld_v_uitvoerende u
WHERE u.mld_uitvoerende_key = lreceiver;
IF lintern = 0 -- Extern
IF luitvtype = 'B'
THEN
-- Het gaat om een externe receiver
-- Het gaat om een bedrijf receiver
BEGIN
SELECT prs_bedrijf_email, prs_bedrijf_telefoon2
INTO lemail, lphone