FSN#33999: Realisatie TMJ module voor TobiasAX obv Inspectiemodule.

svn path=/Website/trunk/; revision=30413

APPL/Shared/get_ctr_info.asp

@@ -0,0 +1,45 @@
+<%@language = "javascript" %>
+<% /*
+     $Revision$
+     $Id$
+
+     File:               get_ctr_info.asp
+     Description:        Levert de discipline gegevens op van de ctr discipline.
+     Parameters:
+        ctr_disc         ctr discipline key
+*/ %>
+
+<%
+var JSON_Result = true;
+%>
+
+<!-- #include file="../Shared/common.inc" -->
+<!-- #include file="../Shared/json2.js" -->
+
+<%
+/***** Get webform parameters *****/
+var ctr_disc = getQParamInt("ctr_disc", -1);
+// Geen autorisatie check nodig
+/***** End get webform parameters *****/
+
+var sql = "SELECT cd.ins_discipline_key"
+        + "     , cd.ins_discipline_omschrijving"
+        + "     , cdp.ctr_disc_params_controle_type"
+        + "     , cdp.ctr_disc_params_ismjob"
+        + "  FROM ctr_discipline cd"
+        + "     , ctr_disc_params cdp"
+        + " WHERE cd.ins_discipline_key = cdp.ctr_ins_discipline_key"
+        + "   AND cd.ins_discipline_key = " + ctr_disc;
+var oRs = Oracle.Execute(sql);
+
+var disc_key = oRs("ins_discipline_key").Value;
+var disc_omschr = oRs("ins_discipline_omschrijving").Value;
+var controle_type = oRs("ctr_disc_params_controle_type").Value;
+var ismjob = oRs("ctr_disc_params_ismjob").Value == 1;
+
+var result = { disc_key: ctr_disc,
+               disc_omschr: disc_omschr,
+               controle_type: controle_type,
+               ismjob: ismjob };
+Response.Write(JSON.stringify(result));
+%>