<%@ LANGUAGE="JavaScript" %> <% /* $Revision$ $Id$ File: Bes/PrsStaffelInfo.asp Description: Toont een lijst met bedrijfstaffels Parameters: prs_bedrijf_key prs_bedrijf_key van bedrijf Context: Van de leverancier worden de bedrijfstaffel regels getoond in een popup scherm Note: Wordt getoond in een popup scherm */ %> var prs_bedrijf_key = getQParamInt("prs_bedrijf_key"); var sql = "SELECT b.prs_bedrijf_naam bedrijfnaam" + " FROM prs_bedrijf b" + " WHERE b.prs_bedrijf_key = " + prs_bedrijf_key; var oRs = Oracle.Execute(sql); var staffeltext = "

" + L("lcl_bes_staffel_company") + ": " + oRs("bedrijfnaam").value + "
" var sql = "SELECT ps.prs_staffel_grenswaarde grenswaarde" + ", ps.prs_staffel_korting korting" + " FROM prs_staffel ps" + " WHERE ps.prs_bedrijf_key = " + prs_bedrijf_key + " ORDER BY 1"; oRs = Oracle.Execute(sql); var start = 0; var kleur; var toeslagkorting = ""; while (!oRs.eof) { if (oRs("korting").value < 0) kleur = "red"; else if (oRs("korting").value > 0) kleur = "green"; else kleur = "black"; // percentage if (parseFloat(oRs("korting").value) < 0) toeslagkorting = oRs("korting").value + "% " + L("lcl_bes_extra_charge"); // ...% toeslag else if (parseFloat(oRs("korting").value) > 0) toeslagkorting = oRs("korting").value + "% " + L("lcl_bes_discount"); // ...% korting else toeslagkorting = ""; tdspan_begin = "
"; staffeltext += "
"; tdspan_eind = "
" + tdspan_begin + L("lcl_bes_staffel") + (oRs("grenswaarde").value // Is er een grenswaarde ? tdspan_eind + tdspan_begin + L("lcl_bes_of") // van + tdspan_eind + tdspan_begin + (start? start : "0") + tdspan_eind + tdspan_begin + L("lcl_bes_until") // tot + tdspan_eind + tdspan_begin + (oRs("grenswaarde").value? oRs("grenswaarde").value : " ") + tdspan_eind + tdspan_begin : tdspan_eind + "
" + L("lcl_bes_for") + " " + start // voor x eenheid of meer ... + " " + L("lcl_bes_or_more") //+ L("lcl_bes_for_more_than") + " " + start // voor meer dan ... + tdspan_eind + tdspan_begin) //+ eenheid //+ tdspan_eind + tdspan_begin + toeslagkorting + tdspan_eind + "
" start = oRs("grenswaarde").value; oRs.MoveNext(); } staffeltext += "

"; // Maximaal ongeveer 25 korting regels kunnen via header verstuurd worden. Moet genoeg zijn voor 4.82. %>

<%=staffeltext%>