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

PNBR#52691 Bij kopieren standaardmelding is behandelgroep leeg

Browse Source 
svn path=/Website/branches/v2017.3/; revision=37432
This commit is contained in:
Erik Groener
2018-03-21 08:31:01 +00:00
parent 5a201fefb7
commit 1766b1ac8e
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
APPL/API2/model_mld_stdmelding.inc
View File

@@ -529,19 +529,22 @@ function model_mld_stdmelding()
if (obj.id == -1)
obj.canrefer = {id:-1, name:null};
obj.canrefer = translate_canrefer(obj.canrefer, null);
var srtdisc_key = -1;;
var srtdisc_key = -1;
var disc_key = -1;
if (obj.id > 0)
obj._is_clone = getQParamInt("scf_clone", 0);
var stdm_id = (obj._is_clone == 1 ? getQParamInt("id", -1) : obj.id);
if (stdm_id > 0)
{
stdm_info = mld.mld_stdmeldinginfo(obj.id);
stdm_info = mld.mld_stdmeldinginfo(stdm_id);
srtdisc_key = stdm_info.ins_srtdiscipline_key;
disc_key = stdm_info.ins_discipline_key;
// Hier hebben we echt de waarde van mld_stdmelding_directklaar nodig,
// en niet de defaultwaarde uit mld_disc_params_directklaar.
var sql = "SELECT mld_stdmelding_directklaar"
+ " FROM mld_stdmelding"
+ " WHERE mld_stdmelding_key = " + obj.id;
+ " WHERE mld_stdmelding_key = " + stdm_id;
var oRs = Oracle.Execute(sql);
stdm_info.directklaar = oRs("mld_stdmelding_directklaar").Value;
oRs.Close();