<% ' 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") %> <% = HtmlHeader("") %> <% 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("" & ErrMsg & "")) End If %>

演習名称

<% = EnshuName %>

演習コード

<% = EnshuCD %>

<% If 0 = 1 Then %> <% Else %> <% End If %>

販売可能な商品種を制限する	<% If HanbaiShuruiSeigen > 0 Then Response.Write("制限しない") Else Response.Write("制限しない") End If %>　 <% If HanbaiShuruiSeigen < 1 Then Response.Write("制限する") Else Response.Write("制限する") End If %>　 <% If HanbaiShuruiSeigen > 0 Then Response.Write("制限数 " & HanbaiShuruiSeigen & "") End If %>
一度に販売可能な商品の総数量を制限する	<% If HanbaiSuryoSeigen > 0 Then Response.Write("制限しない") Else Response.Write("制限しない") End If %>　 <% If HanbaiSuryoSeigen < 1 Then Response.Write("制限する") Else Response.Write("制限する") End If %>　 <% If HanbaiSuryoSeigen > 0 Then Response.Write("制限数 " & HanbaiSuryoSeigen & "") End If %>
販売単価の算出基準	<% If HanbaiTankaKijun > 0 Then Response.Write("標準仕入単価") Else Response.Write("標準仕入単価") End If %>　 <% If HanbaiTankaKijun < 1 Then Response.Write("標準販売単価") Else Response.Write("標準販売単価") End If %>
設定段階1の先着人数を制限する	<% If SeitoSu1 > 0 Then Response.Write("制限しない") Else Response.Write("制限しない") End If %>　 <% If SeitoSu1 < 1 Then Response.Write("制限する") Else Response.Write("制限する") End If %>　 <% If SeitoSu1 > 0 Then Response.Write("制限人数 " & SeitoSu1 & "") End If %>
設定段階1の商品販売単価掛け率	掛け率上限 <% = KakeritsuTop1 %>％　掛け率下限 <% = KakeritsuBot1 %>％
設定段階2の先着人数を制限する	<% If SeitoSu2 > 0 Then Response.Write("制限しない") Else Response.Write("制限しない") End If %>　 <% If SeitoSu2 < 1 Then Response.Write("制限する") Else Response.Write("制限する") End If %>　 <% If SeitoSu2 > 0 Then Response.Write("制限人数 " & SeitoSu2 & "") End If %>
設定段階2の商品販売単価掛け率	掛け率上限 <% = KakeritsuTop2 %>％　掛け率下限 <% = KakeritsuBot2 %>％
設定段階3の先着人数を制限する	<% If SeitoSu3 > 0 Then Response.Write("制限しない") Else Response.Write("制限しない") End If %>　 <% If SeitoSu3 < 1 Then Response.Write("制限する") Else Response.Write("制限する") End If %>　 <% If SeitoSu3 > 0 Then Response.Write("制限人数 " & SeitoSu3 & "") End If %>
設定段階3の商品販売単価掛け率	掛け率上限 <% = KakeritsuTop3 %>％　掛け率下限 <% = KakeritsuBot3 %>％
設定段階4の先着人数を制限する	<% If SeitoSu4 > 0 Then Response.Write("制限しない") Else Response.Write("制限しない") End If %>　 <% If SeitoSu4 < 1 Then Response.Write("制限する") Else Response.Write("制限する") End If %>　 <% If SeitoSu4 > 0 Then Response.Write("制限人数 " & SeitoSu4 & "") End If %>
設定段階4の商品販売単価掛け率	掛け率上限 <% = KakeritsuTop4 %>％　掛け率下限 <% = KakeritsuBot4 %>％
設定段階5の先着人数を制限する	<% If SeitoSu5 > 0 Then Response.Write("制限しない") Else Response.Write("制限しない") End If %>　 <% If SeitoSu5 < 1 Then Response.Write("制限する") Else Response.Write("制限する") End If %>　 <% If SeitoSu5 > 0 Then Response.Write("制限人数 " & SeitoSu5 & "") End If %>
設定段階5の商品販売単価掛け率	掛け率上限 <% = KakeritsuTop5 %>％　掛け率下限 <% = KakeritsuBot5 %>％
商品販売単価掛け率	掛け率上限 <% = KakeritsuTop1 %>％　掛け率下限 <% = KakeritsuBot1 %>％

<% = HtmlFooter %> <% End Sub %>