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

MARX#54166 API api_opdrsoap.asp ondersteunt geen type R (referentie kenmerk)

Browse Source 
svn path=/Website/trunk/; revision=38849
This commit is contained in:
Alex Tiehuis
2018-08-17 10:53:48 +00:00
parent 5c03f5981d
commit 2929eb99ce
1 changed files with 40 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
APPL/API/api_opdrsoap.asp
View File

@@ -765,7 +765,7 @@ for (i=0; i < opdrachten.length; i++)
var kenmerk_waarde = "";
//Response.Write(kenmerk_naam);
//Response.Write(kenmerk_waarde);
ksql = "SELECT k.mld_kenmerk_key, sk.mld_srtkenmerk_kenmerktype, sk.mld_srtkenmerk_lengte "
ksql = "SELECT k.mld_kenmerk_key, sk.mld_srtkenmerk_kenmerktype, sk.mld_srtkenmerk_lengte, sk.fac_kenmerkdomein_key "
+ " FROM mld_kenmerk k, mld_srtkenmerk sk "
+ " WHERE k.mld_typeopdr_key = " + topdr_key
+ " AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key "
@@ -778,6 +778,7 @@ for (i=0; i < opdrachten.length; i++)
var kenmerk_key = oRs("mld_kenmerk_key").value;
var kenmerk_type = oRs("mld_srtkenmerk_kenmerktype").value;
var kenmerk_lengte = oRs("mld_srtkenmerk_lengte").value;
var kenmerkdomein_key = oRs("fac_kenmerkdomein_key").value;
ksql = "SELECT ko.mld_kenmerkopdr_key "
+ " FROM mld_kenmerkopdr ko "
@@ -787,6 +788,44 @@ for (i=0; i < opdrachten.length; i++)
switch (kenmerk_type)
{
case 'R':
{
// read reference fields
if (kenmerk_waarde != "") {
ksql = "SELECT fac_kenmerkdomein_objectnaam,"
+ "fac_kenmerkdomein_kolomnaam,"
+ "fac_kenmerkdomein_kolomtxt,"
+ "fac_kenmerkdomein_verval,"
+ "fac_usrtab_key"
+ " FROM fac_kenmerkdomein"
+ " WHERE fac_kenmerkdomein_key = " + kenmerkdomein_key
+ " AND fac_kenmerkdomein_verwijder IS NULL";
var oRs_kd = Oracle.Execute(ksql);
if (!oRs_kd.eof) {
var kenmerkdomein_verval = oRs_kd("fac_kenmerkdomein_verval").value;
if (oRs_kd("fac_kenmerkdomein_objectnaam").Value == "FAC_USRDATA" && oRs_kd("fac_usrtab_key").Value) {
ksql = "SELECT fac_usrdata_key"
+ " FROM fac_usrdata"
+ " WHERE fac_usrtab_key=" + oRs_kd("fac_usrtab_key").value
+ " AND UPPER(fac_usrdata_omschr)=" + safe.quoted_sql_upper(kenmerk_waarde)
+ " AND (fac_usrdata_vervaldatum IS NULL OR fac_usrdata_vervaldatum > SYSDATE)";
} else {
ksql = "SELECT " + oRs_kd("fac_kenmerkdomein_kolomnaam").value + " fac_usrdata_key"
+ " FROM " + oRs_kd("fac_kenmerkdomein_objectnaam").value
+ " WHERE UPPER(" + oRs_kd("fac_kenmerkdomein_kolomtxt").value + ") = " + safe.quoted_sql_upper(kenmerk_waarde)
+ (kenmerkdomein_verval != null ? " AND ( " + kenmerkdomein_verval + " IS NULL OR " + kenmerkdomein_verval + " > SYSDATE)" : "");
}
var oRs_ud = Oracle.Execute(ksql);
if (!oRs_ud.eof) {
kenmerk_waarde = String(oRs_ud("fac_usrdata_key").value);
} else {
break;
}
} else {
break;
}
}
}
case 'C':
case 'X':
case 'N':