110 lines
3.8 KiB
Plaintext
110 lines
3.8 KiB
Plaintext
<%@language = "javascript" %>
|
|
<% /*
|
|
$Revision$
|
|
$Id$
|
|
|
|
File: get_bes_info.asp
|
|
Description: Levert de discipline key en omschrijving op van de onderliggende srtgroep.
|
|
Parameters:
|
|
srtgroep_key Srtgroep key
|
|
srtdeel_key Srtdeel key
|
|
deel_key Deel key
|
|
*/ %>
|
|
|
|
<%
|
|
var JSON_Result = true;
|
|
%>
|
|
|
|
<!-- #include file="../Shared/common.inc" -->
|
|
|
|
<%
|
|
/***** Get webform parameters *****/
|
|
var srtgroep_key = getQParamInt("srtgroep_key", -1);
|
|
var srtdeel_key = -1;
|
|
var deel_key = -1
|
|
|
|
if (srtgroep_key == -1)
|
|
srtdeel_key = getQParamInt("srtdeel_key", -1);
|
|
if (srtgroep_key == -1 && srtdeel_key == -1)
|
|
deel_key = getQParamInt("deel_key");
|
|
// Geen autorisatie check nodig
|
|
/***** End get webform parameters *****/
|
|
|
|
var sql_where = ""
|
|
if (srtgroep_key > 0)
|
|
sql_where = " AND sg.bes_srtgroep_key = " + srtgroep_key;
|
|
else if (srtdeel_key > 0)
|
|
sql_where = " AND sg.bes_srtgroep_key = sd.bes_srtgroep_key"
|
|
+ " AND sd.bes_srtdeel_key = " + srtdeel_key;
|
|
else
|
|
sql_where = " AND sg.bes_srtgroep_key = sd.bes_srtgroep_key"
|
|
+ " AND sd.bes_srtdeel_key = d.bes_srtdeel_key"
|
|
+ " AND d.bes_deel_key = " + deel_key;
|
|
|
|
var sql = "SELECT td.ins_discipline_key"
|
|
+ " , CASE "
|
|
+ " WHEN sdis.ins_srtdiscipline_prefix IS NULL"
|
|
+ " THEN ''"
|
|
+ " ELSE sdis.ins_srtdiscipline_prefix || '-'"
|
|
+ " END || " + lcl.xsql('td.ins_discipline_omschrijving', 'td.ins_discipline_key') + " disc_omschr"
|
|
+ " , sg.bes_srtgroep_key"
|
|
+ " , " + lcl.xsqla('sg.bes_srtgroep_omschrijving', 'sg.bes_srtgroep_key')
|
|
+ (srtgroep_key == -1 && srtdeel_key == -1
|
|
? " , sd.bes_srtdeel_key"
|
|
+ " , COALESCE(sd.bes_srtdeel_nr, '') ||"
|
|
+ " CASE"
|
|
+ " WHEN sd.bes_srtdeel_nr IS NULL"
|
|
+ " THEN ''"
|
|
+ " ELSE sd.bes_srtdeel_nr || ' '"
|
|
+ " END ||"
|
|
+ lcl.xsqla('sd.bes_srtdeel_omschrijving', 'sd.bes_srtdeel_key')
|
|
: " , ''")
|
|
+ (srtgroep_key == -1
|
|
? " , bes_srtdeel_image"
|
|
: "")
|
|
+ " FROM ins_srtdiscipline sdis"
|
|
+ " , ins_tab_discipline td"
|
|
+ " , bes_disc_params idp"
|
|
+ " , bes_v_aanwezigsrtgroep sg"
|
|
+ (srtgroep_key == -1
|
|
? " , bes_srtdeel sd"
|
|
: "")
|
|
+ (srtgroep_key == -1 && srtdeel_key == -1
|
|
? " , bes_v_aanwezigdeel d"
|
|
: "")
|
|
+ " WHERE td.ins_srtdiscipline_key = sdis.ins_srtdiscipline_key(+)" // Alleen bij MLD is de ins_srtdiscipline_key (altijd) ingevuld
|
|
+ " AND td.ins_discipline_key = idp.bes_ins_discipline_key"
|
|
+ " AND sg.ins_discipline_key = td.ins_discipline_key"
|
|
+ sql_where;
|
|
var oRs = Oracle.Execute(sql);
|
|
var srtdeel_omschr = ""
|
|
|
|
var imagePath = null;
|
|
if (srtgroep_key == -1)
|
|
{
|
|
srtdeel_image = oRs("bes_srtdeel_image").Value;
|
|
if (srtdeel_image)
|
|
imagePath = S("bes_image_path") + srtdeel_image;
|
|
}
|
|
|
|
if (srtgroep_key == -1 && srtdeel_key == -1)
|
|
{
|
|
srtdeel_key = oRs("bes_srtdeel_key").Value;
|
|
srtdeel_omschr = oRs("bes_srtdeel_omschrijving").Value;
|
|
}
|
|
var disc_key = oRs("ins_discipline_key").Value;
|
|
var disc_omschr = oRs("disc_omschr").Value;
|
|
var srtgroep_key = oRs("bes_srtgroep_key").Value;
|
|
var srtgroep_omschr = oRs("bes_srtgroep_omschrijving").Value;
|
|
|
|
var result = { disc_key: disc_key,
|
|
disc_omschr: disc_omschr,
|
|
srtgroep_key : srtgroep_key,
|
|
srtgroep_omschr: srtgroep_omschr,
|
|
srtdeel_key: srtdeel_key,
|
|
srtdeel_omschr: srtdeel_omschr,
|
|
imagePath: imagePath };
|
|
Response.Write(JSON.stringify(result));
|
|
%>
|
|
<% ASPPAGE_END(); %>
|