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

IVET#18349

Browse Source 
svn path=/Website/trunk/; revision=2074
This commit is contained in:
Maykel Geerdink
2010-08-05 14:14:02 +00:00
parent a723276dea
commit 09180e875e
6 changed files with 256 additions and 264 deletions
Download Patch File Download Diff File Expand all files Collapse all files

371
APPL/BES/details.inc
View File

@@ -1,19 +1,18 @@
<% /*
$Revision: 8 $
$Modtime: 25-03-10 14:54 $
$Revision: 9 $
$Modtime: 5-08-10 11:12 $
File: details.inc
Status: 80% (new style)
Description: Bepaalt een clientside array details_Items met bestelregels
Daar wordt clientside in sel_items_tab.js dan weer HTML van gemaakt
Parameters: veelal globalen
Context: Include van bes_edit_bestelling.asp
Note: Wordt gebruikt voor bestaande bestellingen en voor (net terug van) punch-out
File: details.inc
Description: Bepaalt een clientside array details_Items met bestelregels
Daar wordt clientside in sel_items_tab.js dan weer HTML van gemaakt
Parameters: veelal globalen
Context: Include van bes_edit_bestelling.asp
Note: Wordt gebruikt voor bestaande bestellingen en voor (net terug van) punch-out
*/ %>
<script type="text/javascript" >
details_Items = new Array();
details_Items = new Array();
</script>
<%
@@ -21,195 +20,191 @@
// of voor binnenkomst punchout (bes_key==-1 en psrt_keys, pamounts arrays met keys en aantallen)
function generateDetails(bes_key, this_bes, psrt_keys, pamounts)
{
if (bes_key > 0)
{
// retrieve info about the objects
sql = "SELECT ins_discipline_key"
+ ", i.ins_srtdeel_key"
+ ", s.ins_srtdeel_nr"
+ ", s.ins_srtdeel_omschrijving"
+ ", i.bes_bestelling_item_aantal"
+ ", g.ins_srtgroep_omschrijving"
+ ((bes_key>0 && !this_bes.canItemsLower)
? ", i.bes_bestelling_item_prijs" // pak bestelling prijs inclusief kortingen
: ", s.ins_srtdeel_prijs") // pak catalogus prijs
+ " prijs "
+ ", s.ins_srtdeel_veelvoud"
+ ", bes_bestelling_item_aantalontv"
+ ", i.bes_bestelling_item_key"
+ ", s.ins_srtdeel_eenheid"
+ ", (SELECT COALESCE(ABS(SUM(bi.bes_bestelling_item_aantal)), 0)"
+ " FROM bes_bestelling b"
+ ", bes_bestelling_item bi"
+ " WHERE b.bes_bestelling_key = bi.bes_bestelling_key"
+ " AND b.bes_bestelling_retourvan_key = i.bes_bestelling_key) retour"
+ " , CASE WHEN bst.bes_staffeltabel_groep = 0"
+ " THEN 0" // artikelkorting
+ " WHEN bst.bes_staffeltabel_groep = 1"
+ " THEN bst.bes_staffeltabel_key" // groepskorting
+ " ELSE -1" // geen staffelkorting
+ " END staffelgroep"
+ ", s.ins_srtdeel_minimum"
+ ", s.ins_srtdeel_opmerking"
+ " FROM bes_bestelling_item i"
+ ", ins_srtdeel s"
+ ", ins_srtgroep g"
+ ", bes_bestelling b"
+ ", bes_staffeltabel bst"
+ " WHERE i.bes_bestelling_key = " + bes_key
+ " AND i.ins_srtdeel_key = s.ins_srtdeel_key"
+ " AND b.bes_bestelling_key = i.bes_bestelling_key"
+ " AND s.ins_srtgroep_key = g.ins_srtgroep_key"
+ " AND bst.bes_staffeltabel_key(+) = s.bes_staffeltabel_key"
+ " ORDER BY ins_srtdeel_nr, ins_srtdeel_upper";
}
else // punchout data heeft niets met staffels o.i.d.
{
sql = "SELECT ins_discipline_key"
+ ", s.ins_srtdeel_key"
+ ", s.ins_srtdeel_nr"
+ ", s.ins_srtdeel_omschrijving"
// + ", 0 bes_bestelling_item_aantal" // komt straks uit pamounts
+ ", g.ins_srtgroep_omschrijving"
+ ", s.ins_srtdeel_prijs prijs "
+ ", s.ins_srtdeel_veelvoud"
+ ", -1 bes_bestelling_item_aantalontv"
+ ", -ROWNUM-1 bes_bestelling_item_key" // uniek maar niet bestaand
+ ", s.ins_srtdeel_eenheid"
+ ", 0 retour"
+ ", -1 staffelgroep"
+ ", s.ins_srtdeel_minimum"
+ ", s.ins_srtdeel_opmerking"
+ " FROM ins_srtdeel s"
+ ", ins_srtgroep g"
+ ", bes_staffeltabel bst"
+ " WHERE s.ins_srtdeel_key IN (" + psrt_keys.join(",") + ")"
+ " AND s.ins_srtgroep_key = g.ins_srtgroep_key"
+ " AND bst.bes_staffeltabel_key(+) = s.bes_staffeltabel_key"
+ " ORDER BY ins_srtdeel_nr, ins_srtdeel_upper";
}
oRs = Oracle.Execute(sql);
if (bes_key > 0)
{
// retrieve info about the objects
sql = "SELECT ins_discipline_key"
+ " , i.ins_srtdeel_key"
+ " , s.ins_srtdeel_nr"
+ " , s.ins_srtdeel_omschrijving"
+ " , i.bes_bestelling_item_aantal"
+ " , g.ins_srtgroep_omschrijving"
+ ((bes_key > 0 && !this_bes.canItemsLower)
? " , i.bes_bestelling_item_prijs" // pak bestelling prijs inclusief kortingen
: " , s.ins_srtdeel_prijs") // pak catalogus prijs
+ " prijs "
+ " , s.ins_srtdeel_veelvoud"
+ " , bes_bestelling_item_aantalontv"
+ " , i.bes_bestelling_item_key"
+ " , s.ins_srtdeel_eenheid"
+ " , (SELECT COALESCE(ABS(SUM(bi.bes_bestelling_item_aantal)), 0)"
+ " FROM bes_bestelling b"
+ " , bes_bestelling_item bi"
+ " WHERE b.bes_bestelling_key = bi.bes_bestelling_key"
+ " AND b.bes_bestelling_retourvan_key = i.bes_bestelling_key) retour"
+ " , CASE WHEN bst.bes_staffeltabel_groep = 0"
+ " THEN 0" // artikelkorting
+ " WHEN bst.bes_staffeltabel_groep = 1"
+ " THEN bst.bes_staffeltabel_key" // groepskorting
+ " ELSE -1" // geen staffelkorting
+ " END staffelgroep"
+ " , s.ins_srtdeel_minimum"
+ " , s.ins_srtdeel_opmerking"
+ " FROM bes_bestelling_item i"
+ " , ins_srtdeel s"
+ " , ins_srtgroep g"
+ " , bes_bestelling b"
+ " , bes_staffeltabel bst"
+ " WHERE i.bes_bestelling_key = " + bes_key
+ " AND i.ins_srtdeel_key = s.ins_srtdeel_key"
+ " AND b.bes_bestelling_key = i.bes_bestelling_key"
+ " AND s.ins_srtgroep_key = g.ins_srtgroep_key"
+ " AND bst.bes_staffeltabel_key(+) = s.bes_staffeltabel_key"
+ " ORDER BY ins_srtdeel_nr, ins_srtdeel_upper";
}
else // punchout data heeft niets met staffels o.i.d.
{
sql = "SELECT ins_discipline_key"
+ " , s.ins_srtdeel_key"
+ " , s.ins_srtdeel_nr"
+ " , s.ins_srtdeel_omschrijving"
// + " , 0 bes_bestelling_item_aantal" // komt straks uit pamounts
+ " , g.ins_srtgroep_omschrijving"
+ " , s.ins_srtdeel_prijs prijs "
+ " , s.ins_srtdeel_veelvoud"
+ " , -1 bes_bestelling_item_aantalontv"
+ " , -ROWNUM-1 bes_bestelling_item_key" // uniek maar niet bestaand
+ " , s.ins_srtdeel_eenheid"
+ " , 0 retour"
+ " , -1 staffelgroep"
+ " , s.ins_srtdeel_minimum"
+ " , s.ins_srtdeel_opmerking"
+ " FROM ins_srtdeel s"
+ " , ins_srtgroep g"
+ " , bes_staffeltabel bst"
+ " WHERE s.ins_srtdeel_key IN (" + psrt_keys.join(",") + ")"
+ " AND s.ins_srtgroep_key = g.ins_srtgroep_key"
+ " AND bst.bes_staffeltabel_key(+) = s.bes_staffeltabel_key"
+ " ORDER BY ins_srtdeel_nr, ins_srtdeel_upper";
}
oRs = Oracle.Execute(sql);
%>
<script language="javascript">
var i = 0;
var i = 0;
<%
while (!oRs.eof)
{
sql = " SELECT k.bes_kenmerk_key"
+ ", sk.bes_srtkenmerk_omschrijving"
+ ", sk.bes_srtkenmerk_kenmerktype"
+ ", r.bes_refsrtkenmerk_objectnaam"
+ ", r.bes_refsrtkenmerk_kolomnaam"
+ ", r.bes_refsrtkenmerk_kolomtxt"
+ ", r.fac_usrtab_key"
+ ", sk.bes_srtkenmerk_lengte"
+ ", sk.bes_srtkenmerk_dec"
+ ", sk.bes_srtkenmerk_nmin"
+ ", sk.bes_srtkenmerk_nmax"
+ ", (SELECT v.bes_kenmerkbesteli_waarde"
+ " FROM bes_kenmerkbesteli v"
+ " WHERE v.bes_bestelling_item_key = " + oRs("bes_bestelling_item_key").Value // 83 84
+ " AND v.bes_kenmerk_key = k.bes_kenmerk_key"
+ " AND v.bes_kenmerkbesteli_verwijder IS NULL) waarde" // 11
+ ", k.bes_kenmerk_verplicht"
+ ", k.bes_kenmerk_default"
+ ", k.bes_srtinstallatie_key"
+ " FROM bes_srtkenmerk sk"
+ ", bes_kenmerk k"
+ ", bes_refsrtkenmerk r"
+ ", bes_kenmerkbesteli kbi"
+ " WHERE k.bes_kenmerk_verwijder IS NULL"
+ " AND kbi.bes_kenmerk_key = k.bes_kenmerk_key"
+ " AND kbi.bes_bestelling_item_key IN (" + oRs("bes_bestelling_item_key").Value + ")"
+ " AND k.bes_srtkenmerk_key = sk.bes_srtkenmerk_key"
+ " AND sk.bes_srtkenmerk_verwijder IS NULL"
+ " AND sk.bes_refsrtkenmerk_key = r.bes_refsrtkenmerk_key(+)"
+ " AND k.bes_kenmerk_type = 'I'"
+ " ORDER BY k.bes_kenmerk_volgnummer, sk.bes_srtkenmerk_omschrijving";
oRs1 = Oracle.Execute(sql);
%>
var objFlex = new Array;
objFlex[0] = new Array(); // bes_kenmerk_key
objFlex[1] = new Array(); // bes_kenmerkbestell_waarde
objFlex[2] = new Array(); // flexkenmerk omschrijving
objFlex[3] = new Array(); // flexkenmerkwaarde omschrijving
i = 0;
<%
while (!oRs1.eof)
while (!oRs.eof)
{
var ktype = oRs1(2).Value;
if ( ktype == 'R' ) {
val = oRs1(11).Value;
var FAC_USRTAB_KEY = oRs1(6).Value;
if( oRs1(3).Value == "FAC_USRDATA" && FAC_USRTAB_KEY ) where = "FAC_USRTAB_KEY="+FAC_USRTAB_KEY;
sql = "select "+oRs1(4).Value+","+oRs1(5).Value+" waarde from "+oRs1(3).Value
+ " WHERE " + oRs1(4).Value+"="+val
+ " AND FAC_USRDATA_KEY = " + oRs1("waarde").Value;
oRs2 = Oracle.Execute(sql);
if (!oRs2.eof) {
sql = " SELECT k.bes_kenmerk_key"
+ ", sk.bes_srtkenmerk_omschrijving"
+ ", sk.bes_srtkenmerk_kenmerktype"
+ ", r.bes_refsrtkenmerk_objectnaam"
+ ", r.bes_refsrtkenmerk_kolomnaam"
+ ", r.bes_refsrtkenmerk_kolomtxt"
+ ", r.fac_usrtab_key"
+ ", sk.bes_srtkenmerk_lengte"
+ ", sk.bes_srtkenmerk_dec"
+ ", sk.bes_srtkenmerk_nmin"
+ ", sk.bes_srtkenmerk_nmax"
+ ", (SELECT v.bes_kenmerkbesteli_waarde"
+ " FROM bes_kenmerkbesteli v"
+ " WHERE v.bes_bestelling_item_key = " + oRs("bes_bestelling_item_key").value // 83 84
+ " AND v.bes_kenmerk_key = k.bes_kenmerk_key"
+ " AND v.bes_kenmerkbesteli_verwijder IS NULL) waarde" // 11
+ ", k.bes_kenmerk_verplicht"
+ ", k.bes_kenmerk_default"
+ ", k.bes_srtinstallatie_key"
+ " FROM bes_srtkenmerk sk"
+ ", bes_kenmerk k"
+ ", bes_refsrtkenmerk r"
+ ", bes_kenmerkbesteli kbi"
+ " WHERE k.bes_kenmerk_verwijder IS NULL"
+ " AND kbi.bes_kenmerk_key = k.bes_kenmerk_key"
+ " AND kbi.bes_bestelling_item_key IN (" + oRs("bes_bestelling_item_key").value + ")"
+ " AND k.bes_srtkenmerk_key = sk.bes_srtkenmerk_key"
+ " AND sk.bes_srtkenmerk_verwijder IS NULL"
+ " AND sk.bes_refsrtkenmerk_key = r.bes_refsrtkenmerk_key(+)"
+ " AND k.bes_kenmerk_type = 'I'"
+ " ORDER BY k.bes_kenmerk_volgnummer, sk.bes_srtkenmerk_omschrijving";
oRs1 = Oracle.Execute(sql);
%>
objFlex[0][i] = <% = oRs1("bes_kenmerk_key").Value %>;
objFlex[1][i] = "<% = safe.jsstring(oRs1("waarde").Value) %>";
objFlex[2][i] = "<% = safe.jsstring(oRs1("bes_srtkenmerk_omschrijving").Value) %>";
objFlex[3][i] = "<% = safe.jsstring(oRs2("waarde").Value) %>";
i++;
var objFlex = new Array;
objFlex[0] = new Array(); // bes_kenmerk_key
objFlex[1] = new Array(); // bes_kenmerkbestell_waarde
objFlex[2] = new Array(); // flexkenmerk omschrijving
objFlex[3] = new Array(); // flexkenmerkwaarde omschrijving
i = 0;
<%
while (!oRs1.eof)
{
var ktype = oRs1("bes_srtkenmerk_kenmerktype").value;
if (ktype == 'R' || ktype == 'S')
{
val = oRs1("waarde").value;
var FAC_USRTAB_KEY = oRs1("fac_usrtab_key").value;
if (oRs1("bes_refsrtkenmerk_objectnaam").value == "FAC_USRDATA" && FAC_USRTAB_KEY)
where = "FAC_USRTAB_KEY = " + FAC_USRTAB_KEY;
sql = "SELECT " + oRs1("bes_refsrtkenmerk_kolomnaam").value + "," + oRs1("bes_refsrtkenmerk_kolomtxt").value + " waarde"
+ " FROM " + oRs1("bes_refsrtkenmerk_objectnaam").value
+ " WHERE " + oRs1("bes_refsrtkenmerk_kolomnaam").value + " = " + val;
oRs2 = Oracle.Execute(sql);
if (!oRs2.eof)
{ %>
objFlex[0][i] = <%=oRs1("bes_kenmerk_key").value%>;
objFlex[1][i] = "<%=safe.jsstring(oRs1("waarde").value)%>";
objFlex[2][i] = "<%=safe.jsstring(oRs1("bes_srtkenmerk_omschrijving").value)%>";
objFlex[3][i] = "<%=safe.jsstring(oRs2("waarde").value)%>";
i++;
<% }
}
else
{ %>
objFlex[0][i] = <%=oRs1("bes_kenmerk_key").value%>;
objFlex[1][i] = "<%=safe.jsstring(oRs1("waarde").value)%>";
objFlex[2][i] = "<%=safe.jsstring(oRs1("bes_srtkenmerk_omschrijving").value)%>";
objFlex[3][i] = "<%=safe.jsstring(oRs1("waarde").value)%>";
i++;
<% }
oRs1.moveNext();
}
var amount = 0;
if (bes_key > 0)
amount = oRs("bes_bestelling_item_aantal").value;
else // punch_out
{
for (var i=0; i < psrt_keys.length; i++)
{
if (psrt_keys[i] == oRs("ins_srtdeel_key").value)
{
amount = pamounts[i];
}
}
}
else {
%>
objFlex[0][i] = <% = oRs1("bes_kenmerk_key").Value %>;
objFlex[1][i] = "<% = safe.jsstring(oRs1("waarde").Value) %>";
objFlex[2][i] = "<% = safe.jsstring(oRs1("bes_srtkenmerk_omschrijving").Value) %>";
objFlex[3][i] = "<% = safe.jsstring(oRs1("waarde").Value) %>";
i++;
details_Items[<%=oRs("bes_bestelling_item_key").value%>] = { srtdeel_key: <%=oRs("ins_srtdeel_key").value%>,
srtdeel_nr: "<%=safe.jsstring(oRs("ins_srtdeel_nr").value)%>",
srtdeel_omschrijving: "<%=safe.jsstring(oRs("ins_srtdeel_omschrijving").value)%>",
srtgroup_text: "<%=safe.jsstring(oRs("ins_srtgroep_omschrijving").value)%>",
amount: <%=amount%>,
price: <%=safe.jsfloat(oRs("prijs").value || 0)%>,
eenheid: "<%=safe.jsstring(oRs("ins_srtdeel_eenheid").value)%>",
veelvoud: <%=oRs("ins_srtdeel_veelvoud").value || 1%>,
received: <%=oRs("bes_bestelling_item_aantalontv").value || 0%>,
retour: <%=oRs("retour").value%>,
item_key: <%=oRs("bes_bestelling_item_key").value%>,
objFlex: objFlex,
// staffelgroep (-1=geen staffelgroep, 0=artikelkorting, >0=groepskorting met key van staffelgroep)
staffelgroep: <%=oRs("staffelgroep").value%>,
bestelminimum: <%=oRs("ins_srtdeel_minimum").value || 0%>,
opmerking: "<%=safe.jsstring(oRs("ins_srtdeel_opmerking").value || "")%>"
};
<%
}
oRs1.moveNext();
oRs.moveNext();
}
var amount = 0;
if (bes_key > 0)
amount = oRs("bes_bestelling_item_aantal").Value;
else // punch_out
{
for (var i=0; i<psrt_keys.length; i++)
{
if (psrt_keys[i]==oRs("ins_srtdeel_key").Value)
{
amount = pamounts[i];
}
}
}
oRs.close();
%>
details_Items[<% = oRs("bes_bestelling_item_key").Value %>] =
{ srtdeel_key: <%= oRs("ins_srtdeel_key").Value %>,
srtdeel_nr: "<%= safe.jsstring(oRs("ins_srtdeel_nr").Value)%>",
srtdeel_omschrijving: "<%=safe.jsstring(oRs("ins_srtdeel_omschrijving").Value)%>",
srtgroup_text: "<%= safe.jsstring(oRs("ins_srtgroep_omschrijving").Value)%>",
amount: <%= amount %>,
price: <%= safe.jsfloat(oRs("prijs").Value||0) %>,
eenheid: "<%= safe.jsstring(oRs("ins_srtdeel_eenheid").Value)%>",
veelvoud: <%= oRs("ins_srtdeel_veelvoud").Value||1%>,
received: <%= oRs("bes_bestelling_item_aantalontv").Value||0%>,
retour: <%= oRs("retour").Value %>,
item_key: <%= oRs("bes_bestelling_item_key").Value%>,
objFlex: objFlex,
staffelgroep: <%= oRs("staffelgroep").Value%>, // staffelgroep (-1=geen staffelgroep 0=artikelkorting >0=groepskorting met key van staffelgroep)
bestelminimum: <%= oRs("ins_srtdeel_minimum").Value||0 %>,
opmerking: "<%= safe.jsstring(oRs("ins_srtdeel_opmerking").Value||"")%>"
};
<%
oRs.moveNext();
}
oRs.close();
%> </script> <%
</script> <%
}
%>

31
APPL/INS/ins_history_list.asp
View File

@@ -1,17 +1,16 @@
<%@ language="javascript"%>
<% /*
$Revision: 2 $
$Modtime: 1/12/10 5:17p $
$Revision: 3 $
$Modtime: 5-08-10 12:38 $
File: ins_history_list.asp (was ins_info.asp)
Status: 98%
Description: show the history of edited flex properties.
Parameters: ins_key
Context:
Note:
*/ %>
<!-- #include file="../../cust/install.inc"-->
<!-- #include file="../Shared/json2.js" -->
<!-- #include file="../Shared/resultset_table_v2.inc" -->
@@ -37,8 +36,7 @@ var autfunction = "";
// De functie checkAutorisation(autfunction) geeft een Response.End indien er geen autorisatie voor autfunction wordt gevonden
var autfunction = urole == "fo"? "WEB_INSFOF" : "WEB_INSMAN";
var authparams = user.checkAutorisation(autfunction);
var authparams = user.checkAutorisation(autfunction);
%>
<html>
@@ -49,7 +47,6 @@ var autfunction = urole == "fo"? "WEB_INSFOF" : "WEB_INSMAN";
</head>
<body id="listbody">
<form name=u2 action="ins_history.asp" method=get>
<% sql = "SELECT kd.ins_kenmerkdeel_aanmaak"
+ ", sk.ins_srtkenmerk_omschrijving"
+ ", CASE sk.ins_srtkenmerk_kenmerktype"
@@ -79,27 +76,27 @@ var autfunction = urole == "fo"? "WEB_INSFOF" : "WEB_INSMAN";
function fnValue(oRs)
{ // Kolom met de waarde
content = oRs("kenmerkdeelwaarde").Value;
if (oRs("ins_srtkenmerk_kenmerktype").Value == 'X')
content = oRs("kenmerkdeelwaarde").value;
if (oRs("ins_srtkenmerk_kenmerktype").value == 'X')
{
content = '<a href="'
+ image_path_virtual + escape_js(content)
+ '" target="_new">' + content + '</a>';
}
else if (oRs("ins_srtkenmerk_kenmerktype").Value == 'R')
else if (oRs("ins_srtkenmerk_kenmerktype").value == 'R' || oRs("ins_srtkenmerk_kenmerktype").value == 'S')
{
sql2 = "SELECT ins_f_getrefwaarde(" + oRs("ins_srtkenmerk_key").Value + ", " + oRs("ins_kenmerkdeel_waarde").Value + ") FROM DUAL";
sql2 = "SELECT ins_f_getrefwaarde(" + oRs("ins_srtkenmerk_key").value + ", " + oRs("ins_kenmerkdeel_waarde").value + ") sql FROM DUAL";
oRs2 = Oracle.Execute(sql2);
if (!oRs2.eof)
{
sql3 = oRs2("ins_kenmerkdeel_aanmaak").Value;
sql3 = oRs2("sql").value;
oRs3 = Oracle.Execute(sql3);
if (!oRs3.eof)
{
content = '' + oRs3("ins_kenmerkdeel_aanmaak").Value
+ ((oRs("ins_srtkenmerk_dimensie").Value == 'null')
? ""
: (" (" + oRs("ins_srtkenmerk_dimensie").Value + ")"));
content = '' + oRs3(0).value
+ ((oRs("ins_srtkenmerk_dimensie").value)
? (" (" + oRs("ins_srtkenmerk_dimensie").value + ")")
: "");
}
}
@@ -117,7 +114,7 @@ var autfunction = urole == "fo"? "WEB_INSFOF" : "WEB_INSMAN";
oRs = Oracle.Execute(sql_omschr);
var insdeeldescr = oRs("ins_deel_omschrijving").Value;
var insdeeldescr = oRs("ins_deel_omschrijving").value;
oRs.Close();

23
APPL/INS/ins_verbruik_history.asp
View File

@@ -1,8 +1,7 @@
<%@ language="javascript"%>
<% /*
$Revision: 4 $
$Modtime: 1/18/10 3:35p $
Status: 95%
$Revision: 5 $
$Modtime: 5-08-10 13:10 $
*/ %>
<%
noCharSet = true;
@@ -171,27 +170,27 @@ if (!oRs.eof)
function fnValue(oRs)
{ // Kolom met de waarde
content = oRs("kenmerkdeelwaarde").Value;
if (oRs("ins_srtkenmerk_kenmerktype").Value == 'X')
content = oRs("kenmerkdeelwaarde").value;
if (oRs("ins_srtkenmerk_kenmerktype").value == 'X')
{
content = '<a href="'
+ image_path_virtual + escape_js(content)
+ '" target="_new">' + content + '</a>';
}
else if (oRs("ins_srtkenmerk_kenmerktype").Value == 'R')
else if (oRs("ins_srtkenmerk_kenmerktype").value == 'R' || oRs("ins_srtkenmerk_kenmerktype").value == 'S')
{
sql2 = "SELECT ins_f_getrefwaarde(" + oRs("ins_srtkenmerk_key").Value + ", " + oRs("ins_kenmerkdeel_waarde").Value + ") FROM DUAL";
sql2 = "SELECT ins_f_getrefwaarde(" + oRs("ins_srtkenmerk_key").value + ", " + oRs("ins_kenmerkdeel_waarde").value + ") sql FROM DUAL";
oRs2 = Oracle.Execute(sql2);
if (!oRs2.eof)
{
sql3 = oRs2("ins_kenmerkdeel_aanmaak").Value;
sql3 = oRs2("sql").value;
oRs3 = Oracle.Execute(sql3);
if (!oRs3.eof)
{
content = '' + oRs3("ins_kenmerkdeel_aanmaak").Value
+ ((oRs("ins_srtkenmerk_dimensie").Value == 'null')
? ""
: (" (" + oRs("ins_srtkenmerk_dimensie").Value + ")"));
content = '' + oRs3(0).value
+ ((oRs("ins_srtkenmerk_dimensie").value)
? (" (" + oRs("ins_srtkenmerk_dimensie").value + ")")
: "");
}
}
oRs3.Close();

25
APPL/INS/ins_verbruik_search.asp
View File

@@ -1,7 +1,7 @@
<%@ LANGUAGE = JavaScript %>
<% /*
$Revision: 2 $
$Modtime: 1/13/10 2:16p $
$Revision: 3 $
$Modtime: 5-08-10 12:51 $
*/ %>
<!-- #include file="../../cust/install.inc" -->
@@ -37,21 +37,22 @@ var autosearch = getQParam("autosearch", -1);
whenEmpty: lcl_search_generic // want filter
});
sql = " SELECT s.ins_srtdeel_key"
sql = " SELECT DISTINCT s.ins_srtdeel_key"
+ ", s.ins_srtdeel_code || ' ' || s.ins_srtdeel_omschrijving"
+ ", s.ins_srtdeel_upper"
+ " FROM ins_v_aanwezigsrtdeel s"
+ ", ins_v_aanwezigsrtgroep g"
+ ", INS_V_SRTDEEL_KENMERK sk "
+ ", ins_v_srtdeel_kenmerk sk "
+ " WHERE s.ins_srtgroep_key = g.ins_srtgroep_key"
+ " AND sk.ins_srtdeel_key = s.ins_srtdeel_key"
+ " AND sk.ins_kenmerk_meetwaarde = 1"
+ " AND g.INS_DISCIPLINE_KEY IN (SELECT gb.INS_DISCIPLINE_KEY"
+ " FROM fac_v_webgebruiker gb, fac_functie f"
+ " WHERE prs_perslid_key = " + user_key
+ " AND fac_functie_code = '" + autfunction + "'"
+ " AND f.fac_functie_key = gb.fac_functie_key"
+ " and gb.FAC_GEBRUIKER_ALG_LEVEL_READ<9)"
+ " AND sk.ins_srtdeel_key = s.ins_srtdeel_key"
+ " AND sk.ins_kenmerk_meetwaarde = 1"
+ " AND g.ins_discipline_key IN (SELECT gb.ins_discipline_key"
+ " FROM fac_v_webgebruiker gb"
+ ", fac_functie f"
+ " WHERE prs_perslid_key = " + user_key
+ " AND fac_functie_code = '" + autfunction + "'"
+ " AND f.fac_functie_key = gb.fac_functie_key"
+ " AND gb.FAC_GEBRUIKER_ALG_LEVEL_READ < 9)"
+ " ORDER BY 3";
FCLTselector("srt",

6
APPL/MLD/mld_edit_opdr.asp
View File

@@ -1,7 +1,7 @@
<%@language = "javascript" %>
<% /*
$Revision: 41 $
$Modtime: 26-07-10 14:58 $
$Revision: 42 $
$Modtime: 5-08-10 8:25 $
File: mld_edit_opdr.asp (formerly order_input.asp;142)
Description: Muteerscherm voor opdrachten bij meldingen
@@ -242,7 +242,7 @@ function getFlexSummary(melding_key)
{
var ktype = oRs("mld_srtkenmerk_kenmerktype").value;
var val = val.toString();
if (ktype == 'R')
if (ktype == 'R' || ktype == 'S')
{
var FAC_USRTAB_KEY = oRs("fac_usrtab_key").value;
var where = '';

64
APPL/Shared/resultset_flex.inc
View File

@@ -1,6 +1,6 @@
<% /*
$Revision: 5 $
$Modtime: 7-07-10 8:46 $
$Revision: 6 $
$Modtime: 5-08-10 9:10 $
*/ %>
<%
@@ -22,10 +22,10 @@ function getSqlFlex(flexModule, flexId)
+ " WHERE ak.alg_kenmerk_verwijder IS NULL";
sqlFlex = "SELECT k.alg_kenmerk_omschrijving omschrijving"
+ ", CASE k.alg_kenmerk_kenmerktype"
+ " WHEN 'R'"
+ ", CASE"
+ " WHEN k.alg_kenmerk_kenmerktype = 'R' OR k.alg_kenmerk_kenmerktype = 'S'"
+ " THEN FAC.getrefwaarde('" + flexModule + "', k.alg_kenmerk_key, COALESCE(ka.alg_onrgoedkenmerk_waarde, '0'))" // LET OP: Gebruik COALESCE(waarde, '0')
+ " WHEN 'D'"
+ " WHEN k.alg_kenmerk_kenmerktype = 'D'"
+ " THEN TO_CHAR(fac.safe_To_Date(ka.alg_onrgoedkenmerk_waarde, 'DD-MM-YYYY'), 'DD-MM-YYYY')"
+ " ELSE ka.alg_onrgoedkenmerk_waarde"
+ " END waarde"
@@ -66,10 +66,10 @@ function getSqlFlex(flexModule, flexId)
+ " AND bsk.bes_srtkenmerk_verwijder IS NULL";
sqlFlex = "SELECT sk.bes_srtkenmerk_omschrijving omschrijving"
+ ", CASE sk.bes_srtkenmerk_kenmerktype"
+ " WHEN 'R'"
+ ", CASE"
+ " WHEN sk.bes_srtkenmerk_kenmerktype = 'R' OR sk.bes_srtkenmerk_kenmerktype = 'S'"
+ " THEN FAC.getrefwaarde('" + flexModule + "', sk.bes_srtkenmerk_key, COALESCE(kb.bes_kenmerkbestell_waarde, '0'))" // LET OP: Gebruik COALESCE(waarde, '0')
+ " WHEN 'D'"
+ " WHEN sk.bes_srtkenmerk_kenmerktype = 'D'"
+ " THEN TO_CHAR(fac.safe_To_Date(kb.bes_kenmerkbestell_waarde, 'DD-MM-YYYY'), 'DD-MM-YYYY')"
+ " ELSE kb.bes_kenmerkbestell_waarde"
+ " END waarde"
@@ -98,10 +98,10 @@ function getSqlFlex(flexModule, flexId)
+ " WHERE bk.bez_kenmerk_verwijder IS NULL";
sqlFlex = "SELECT k.bez_kenmerk_omschrijving omschrijving"
+ ", CASE k.bez_kenmerk_kenmerktype"
+ " WHEN 'R'"
+ ", CASE"
+ " WHEN k.bez_kenmerk_kenmerktype = 'R' OR k.bez_kenmerk_kenmerktype = 'S'"
+ " THEN FAC.getrefwaarde('" + flexModule + "', k.bez_kenmerk_key, COALESCE(kb.bez_kenmerkwaarde_waarde, '0'))" // LET OP: Gebruik COALESCE(waarde, '0')
+ " WHEN 'D'"
+ " WHEN k.bez_kenmerk_kenmerktype = 'D'"
+ " THEN TO_CHAR(fac.safe_To_Date(kb.bez_kenmerkwaarde_waarde, 'DD-MM-YYYY'), 'DD-MM-YYYY')"
+ " ELSE kb.bez_kenmerkwaarde_waarde"
+ " END waarde"
@@ -134,10 +134,10 @@ function getSqlFlex(flexModule, flexId)
+ " AND csk.cnt_srtkenmerk_verwijder IS NULL";
sqlFlex = "SELECT sk.cnt_srtkenmerk_omschrijving omschrijving"
+ ", CASE sk.cnt_srtkenmerk_kenmerktype"
+ " WHEN 'R'"
+ ", CASE"
+ " WHEN sk.cnt_srtkenmerk_kenmerktype = 'R' OR sk.cnt_srtkenmerk_kenmerktype = 'S'"
+ " THEN FAC.getrefwaarde('" + flexModule + "', sk.cnt_srtkenmerk_key, COALESCE(kc.cnt_kenmerkcontract_waarde, '0'))" // LET OP: Gebruik COALESCE(waarde, '0')
+ " WHEN 'D'"
+ " WHEN sk.cnt_srtkenmerk_kenmerktype = 'D'"
+ " THEN TO_CHAR(fac.safe_To_Date(kc.cnt_kenmerkcontract_waarde, 'DD-MM-YYYY'), 'DD-MM-YYYY')"
+ " ELSE kc.cnt_kenmerkcontract_waarde"
+ " END waarde"
@@ -166,10 +166,10 @@ function getSqlFlex(flexModule, flexId)
+ " WHERE fk.fin_kenmerk_verwijder IS NULL";
sqlFlex = "SELECT k.fin_kenmerk_omschrijving omschrijving"
+ ", CASE k.fin_kenmerk_kenmerktype"
+ " WHEN 'R'"
+ ", CASE"
+ " WHEN k.fin_kenmerk_kenmerktype = 'R' OR k.fin_kenmerk_kenmerktype = 'S'"
+ " THEN FAC.getrefwaarde('" + flexModule + "', k.fin_kenmerk_key, COALESCE(kf.fin_kenmerkfactuur_waarde, '0'))" // LET OP: Gebruik COALESCE(waarde, '0')
+ " WHEN 'D'"
+ " WHEN k.fin_kenmerk_kenmerktype = 'D'"
+ " THEN TO_CHAR(fac.safe_To_Date(kf.fin_kenmerkfactuur_waarde, 'DD-MM-YYYY'), 'DD-MM-YYYY')"
+ " ELSE kf.fin_kenmerkfactuur_waarde"
+ " END waarde"
@@ -186,11 +186,11 @@ function getSqlFlex(flexModule, flexId)
}
case "INS": {
sqlFlex = "SELECT sk.ins_srtkenmerk_omschrijving omschrijving"
+ ", CASE sk.ins_srtkenmerk_kenmerktype"
+ " WHEN 'R'"
+ ", CASE"
+ " WHEN sk.ins_srtkenmerk_kenmerktype = 'R' OR sk.ins_srtkenmerk_kenmerktype = 'S'"
+ " THEN FAC.getrefwaarde('" + flexModule + "', sk.ins_srtkenmerk_key, COALESCE(kd.ins_kenmerkdeel_waarde, '0'))" // LET OP: Gebruik COALESCE(waarde, '0')
//+ " THEN kd.ins_kenmerkdeel_waarde" //FAC.getrefwaarde('INS', sk.ins_srtkenmerk_key, kd.ins_kenmerkdeel_waarde)"
+ " WHEN 'D'"
+ " WHEN sk.ins_srtkenmerk_kenmerktype = 'D'"
//+ " THEN " + GetDateTime("fac.safe_To_Date(kd.ins_kenmerkdeel_waarde,'DD-MM-YYYY')", false)
+ " THEN TO_CHAR(fac.safe_To_Date(kd.ins_kenmerkdeel_waarde, 'DD-MM-YYYY'), 'DD-MM-YYYY')"
+ " ELSE kd.ins_kenmerkdeel_waarde"
@@ -279,10 +279,10 @@ SELECT DISTINCT ik.ins_kenmerk_key,
+ " AND msk.mld_srtkenmerk_verwijder IS NULL";
sqlFlex = "SELECT sk.mld_srtkenmerk_omschrijving omschrijving"
+ ", CASE sk.mld_srtkenmerk_kenmerktype"
+ " WHEN 'R'"
+ ", CASE"
+ " WHEN sk.mld_srtkenmerk_kenmerktype = 'R' OR sk.mld_srtkenmerk_kenmerktype = 'S'"
+ " THEN FAC.getrefwaarde('" + flexModule + "', sk.mld_srtkenmerk_key, COALESCE(km.mld_kenmerkmelding_waarde, '0'))" // LET OP: Gebruik COALESCE(waarde, '0')
+ " WHEN 'D'"
+ " WHEN sk.mld_srtkenmerk_kenmerktype = 'D'"
+ " THEN TO_CHAR(fac.safe_To_Date(km.mld_kenmerkmelding_waarde, 'DD-MM-YYYY'), 'DD-MM-YYYY')"
+ " ELSE km.mld_kenmerkmelding_waarde"
+ " END waarde"
@@ -318,10 +318,10 @@ SELECT DISTINCT ik.ins_kenmerk_key,
+ " AND msk.mld_srtkenmerk_verwijder IS NULL";
sqlFlex = "SELECT sk.mld_srtkenmerk_omschrijving omschrijving"
+ ", CASE sk.mld_srtkenmerk_kenmerktype"
+ " WHEN 'R'"
+ ", CASE"
+ " WHEN sk.mld_srtkenmerk_kenmerktype = 'R' OR sk.mld_srtkenmerk_kenmerktype = 'S'"
+ " THEN FAC.getrefwaarde('MLD', sk.mld_srtkenmerk_key, COALESCE(ko.mld_kenmerkopdr_waarde, '0'))" // LET OP: Gebruik COALESCE(waarde, '0') en 'MLD' aan getrefwaarde() meegegeven i.v.m. dezelfde kenmerk tabellen.
+ " WHEN 'D'"
+ " WHEN sk.mld_srtkenmerk_kenmerktype = 'D'"
+ " THEN TO_CHAR(fac.safe_To_Date(ko.mld_kenmerkopdr_waarde, 'DD-MM-YYYY'), 'DD-MM-YYYY')"
+ " ELSE ko.mld_kenmerkopdr_waarde"
+ " END waarde"
@@ -350,10 +350,10 @@ SELECT DISTINCT ik.ins_kenmerk_key,
+ " WHERE pk.prs_kenmerk_verwijder IS NULL";
sqlFlex = "SELECT k.prs_kenmerk_omschrijving omschrijving"
+ ", CASE k.prs_kenmerk_kenmerktype"
+ " WHEN 'R'"
+ ", CASE"
+ " WHEN k.prs_kenmerk_kenmerktype = 'R' OR k.prs_kenmerk_kenmerktype = 'S'"
+ " THEN FAC.getrefwaarde('" + flexModule + "', k.prs_kenmerk_key, COALESCE(kp.prs_kenmerklink_waarde, '0'))" // LET OP: Gebruik COALESCE(waarde, '0')
+ " WHEN 'D'"
+ " WHEN k.prs_kenmerk_kenmerktype = 'D'"
+ " THEN TO_CHAR(fac.safe_To_Date(kp.prs_kenmerklink_waarde, 'DD-MM-YYYY'), 'DD-MM-YYYY')"
+ " ELSE kp.prs_kenmerklink_waarde"
+ " END waarde"
@@ -389,10 +389,10 @@ SELECT DISTINCT ik.ins_kenmerk_key,
+ " AND rsk.res_srtkenmerk_verwijder IS NULL";
sqlFlex = "SELECT sk.res_srtkenmerk_omschrijving omschrijving"
+ ", CASE sk.res_srtkenmerk_kenmerktype"
+ " WHEN 'R'"
+ ", CASE"
+ " WHEN sk.res_srtkenmerk_kenmerktype = 'R' OR sk.res_srtkenmerk_kenmerktype = 'S'"
+ " THEN FAC.getrefwaarde('" + flexModule + "', sk.res_srtkenmerk_key, COALESCE(kr.res_kenmerkreservering_waarde, '0'))" // LET OP: Gebruik COALESCE(waarde, '0')
+ " WHEN 'D'"
+ " WHEN sk.res_srtkenmerk_kenmerktype = 'D'"
+ " THEN TO_CHAR(fac.safe_To_Date(kr.res_kenmerkreservering_waarde, 'DD-MM-YYYY'), 'DD-MM-YYYY')"
+ " ELSE kr.res_kenmerkreservering_waarde"
+ " END waarde"