<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：演習管理<小売販売設定>
' 作成日 ：2007/1/31
' 作成者 ：小野
' 目的 ：演習管理<小売販売設定>の設定画面を表示する
' 概要 ：
'###############################################
'-->
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim EnshuName, EnshuID, EnshuPassword
Dim ErrMsg
Dim Query
Dim Content
EnshuCD = Request("EnshuCD")
Dim HanbaiShuruiSeigen
Dim HanbaiSuryoSeigen
Dim HanbaiTankaKijun
Dim SeitoSu1
Dim SeitoSu2
Dim SeitoSu3
Dim SeitoSu4
Dim SeitoSu5
Dim KakeritsuTop1
Dim KakeritsuTop2
Dim KakeritsuTop3
Dim KakeritsuTop4
Dim KakeritsuTop5
Dim KakeritsuBot1
Dim KakeritsuBot2
Dim KakeritsuBot3
Dim KakeritsuBot4
Dim KakeritsuBot5
Dim MasterEnshu
If EnshuCD <> "" Then
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
EnshuName = Content.Fields("演習名称")
MasterEnshu = Content.Fields("マスター演習")
End If
Query = "exec SPM演習取得_小売販売 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
HanbaiShuruiSeigen = Content.Fields("販売種類制限")
HanbaiSuryoSeigen = Content.Fields("販売数量制限")
HanbaiTankaKijun = Content.Fields("販売単価算出基準")
SeitoSu1 = Content.Fields("生徒数1")
SeitoSu2 = Content.Fields("生徒数2")
SeitoSu3 = Content.Fields("生徒数3")
SeitoSu4 = Content.Fields("生徒数4")
SeitoSu5 = Content.Fields("生徒数5")
KakeritsuTop1 = Content.Fields("掛け率上限1")
KakeritsuTop2 = Content.Fields("掛け率上限2")
KakeritsuTop3 = Content.Fields("掛け率上限3")
KakeritsuTop4 = Content.Fields("掛け率上限4")
KakeritsuTop5 = Content.Fields("掛け率上限5")
KakeritsuBot1 = Content.Fields("掛け率下限1")
KakeritsuBot2 = Content.Fields("掛け率下限2")
KakeritsuBot3 = Content.Fields("掛け率下限3")
KakeritsuBot4 = Content.Fields("掛け率下限4")
KakeritsuBot5 = Content.Fields("掛け率下限5")
End If
Else
End If
Dim RouteType
RouteType = Request("RouteType")
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 1;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="DbEnshuCD" value="<% = EnshuCD%>">
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(4))
If Request("RouteType") = "Kantan" Then
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu1.asp')", "演習管理", "", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "", "", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
If MasterEnshu <> "1" Then
'Response.Write(HttpL3_1("修正", "tblbtn('fm_kourihanbai.asp?EnshuCD=" & EnshuCD & "')", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", "", "", ""))
Response.Write(HttpL3_1("修正", "tblbtn('fm_kourihanbai.asp?EnshuCD=" & EnshuCD & "')", "演習操作", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control');", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", ""))
Else
'Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1(" 演習操作 ", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control')", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin')", "", "", "", "", "", ""))
End If
If GB_Admin = 1 Then
Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "前のページ", "tblbtn('fm_enshu4_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu4_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL4("演習管理", "小売販売設定"))
If MasterEnshu = "1" Then
Response.Write(HttpL5("マスター演習は設定を変更出来ません"))
Else
Response.Write(HttpL5("<font color=""#FF0000"">" & ErrMsg & "</font>"))
End If
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%">
<tr>
<TD ALIGN="CENTER">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="5" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="740" HEIGHT="100%">
<TR>
<TD HEIGHT="30" VALIGN="TOP" ALIGN="left" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
<TABLE WIDTH="800" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse" width="740">
<tr>
<td height="24" align="center" bgcolor="#FFEE88">演習名称</td>
<td height="24"><% = EnshuName %></td>
<td height="24" align="center" bgcolor="#FFEE88">演習コード</td>
<td height="24"><% = EnshuCD %></td>
</tr>
</table>
<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
<TABLE WIDTH="740" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<tr>
<td valign="top">
<TABLE WIDTH="800" HEIGHT="100%" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<tr>
<td WIDTH="290" height="24" bgcolor="#FFEE88">販売可能な商品種を制限する</td>
<td WIDTH="510">
<% If HanbaiShuruiSeigen > 0 Then Response.Write("<font color=""#888888"">制限しない</font>") Else Response.Write("制限しない") End If %>
<% If HanbaiShuruiSeigen < 1 Then Response.Write("<font color=""#888888"">制限する</font>") Else Response.Write("制限する") End If %>
<% If HanbaiShuruiSeigen > 0 Then Response.Write("制限数 " & HanbaiShuruiSeigen & "</font>") End If %>
</td>
</tr>
<tr>
<td height="24" bgcolor="#FFEE88">一度に販売可能な商品の総数量を制限する</td>
<td>
<% If HanbaiSuryoSeigen > 0 Then Response.Write("<font color=""#888888"">制限しない</font>") Else Response.Write("制限しない") End If %>
<% If HanbaiSuryoSeigen < 1 Then Response.Write("<font color=""#888888"">制限する</font>") Else Response.Write("制限する") End If %>
<% If HanbaiSuryoSeigen > 0 Then Response.Write("制限数 " & HanbaiSuryoSeigen & "</font>") End If %>
</td>
</tr>
<tr>
<td height="24" bgcolor="#FFEE88">販売単価の算出基準</td>
<td>
<% If HanbaiTankaKijun > 0 Then Response.Write("<font color=""#888888"">標準仕入単価</font>") Else Response.Write("標準仕入単価") End If %>
<% If HanbaiTankaKijun < 1 Then Response.Write("<font color=""#888888"">標準販売単価</font>") Else Response.Write("標準販売単価") End If %>
</td>
</tr>
<% If 0 = 1 Then %>
<tr>
<td height="24" bgcolor="#FFEE88">設定段階1の先着人数を制限する</td>
<td>
<% If SeitoSu1 > 0 Then Response.Write("<font color=""#888888"">制限しない</font>") Else Response.Write("制限しない") End If %>
<% If SeitoSu1 < 1 Then Response.Write("<font color=""#888888"">制限する</font>") Else Response.Write("制限する") End If %>
<% If SeitoSu1 > 0 Then Response.Write("制限人数 " & SeitoSu1 & "</font>") End If %>
</td>
</tr>
<tr>
<td height="24" bgcolor="#FFEE88">設定段階1の商品販売単価掛け率</td>
<td>
掛け率上限 <% = KakeritsuTop1 %>％
掛け率下限 <% = KakeritsuBot1 %>％
</td>
</tr>
<tr>
<td height="24" bgcolor="#FFEE88">設定段階2の先着人数を制限する</td>
<td>
<% If SeitoSu2 > 0 Then Response.Write("<font color=""#888888"">制限しない</font>") Else Response.Write("制限しない") End If %>
<% If SeitoSu2 < 1 Then Response.Write("<font color=""#888888"">制限する</font>") Else Response.Write("制限する") End If %>
<% If SeitoSu2 > 0 Then Response.Write("制限人数 " & SeitoSu2 & "</font>") End If %>
</td>
</tr>
<tr>
<td height="24" bgcolor="#FFEE88">設定段階2の商品販売単価掛け率</td>
<td>
掛け率上限 <% = KakeritsuTop2 %>％
掛け率下限 <% = KakeritsuBot2 %>％
</td>
</tr>
<tr>
<td height="24" bgcolor="#FFEE88">設定段階3の先着人数を制限する</td>
<td>
<% If SeitoSu3 > 0 Then Response.Write("<font color=""#888888"">制限しない</font>") Else Response.Write("制限しない") End If %>
<% If SeitoSu3 < 1 Then Response.Write("<font color=""#888888"">制限する</font>") Else Response.Write("制限する") End If %>
<% If SeitoSu3 > 0 Then Response.Write("制限人数 " & SeitoSu3 & "</font>") End If %>
</td>
</tr>
<tr>
<td height="24" bgcolor="#FFEE88">設定段階3の商品販売単価掛け率</td>
<td>
掛け率上限 <% = KakeritsuTop3 %>％
掛け率下限 <% = KakeritsuBot3 %>％
</td>
</tr>
<tr>
<td height="24" bgcolor="#FFEE88">設定段階4の先着人数を制限する</td>
<td>
<% If SeitoSu4 > 0 Then Response.Write("<font color=""#888888"">制限しない</font>") Else Response.Write("制限しない") End If %>
<% If SeitoSu4 < 1 Then Response.Write("<font color=""#888888"">制限する</font>") Else Response.Write("制限する") End If %>
<% If SeitoSu4 > 0 Then Response.Write("制限人数 " & SeitoSu4 & "</font>") End If %>
</td>
</tr>
<tr>
<td height="24" bgcolor="#FFEE88">設定段階4の商品販売単価掛け率</td>
<td>
掛け率上限 <% = KakeritsuTop4 %>％
掛け率下限 <% = KakeritsuBot4 %>％
</td>
</tr>
<tr>
<td height="24" bgcolor="#FFEE88">設定段階5の先着人数を制限する</td>
<td>
<% If SeitoSu5 > 0 Then Response.Write("<font color=""#888888"">制限しない</font>") Else Response.Write("制限しない") End If %>
<% If SeitoSu5 < 1 Then Response.Write("<font color=""#888888"">制限する</font>") Else Response.Write("制限する") End If %>
<% If SeitoSu5 > 0 Then Response.Write("制限人数 " & SeitoSu5 & "</font>") End If %>
</td>
</tr>
<tr>
<td height="24" bgcolor="#FFEE88">設定段階5の商品販売単価掛け率</td>
<td>
掛け率上限 <% = KakeritsuTop5 %>％
掛け率下限 <% = KakeritsuBot5 %>％
</td>
</tr>
<% Else %>
<tr>
<td height="24" bgcolor="#FFEE88">商品販売単価掛け率</td>
<td>
掛け率上限 <% = KakeritsuTop1 %>％
掛け率下限 <% = KakeritsuBot1 %>％
</td>
</tr>
<% End If %>
</TABLE>
</td>
</tr>
</table>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</div>
</form>
</body>
<% = HtmlFooter %>
</html>
<SCRIPT LANGUAGE="JavaScript">
function SubmitCheck()
{
SubmitReal(form1);
return true;
}
</script>
<%
End Sub
%>