<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim Content2 Dim EnshuName Dim MasterEnshu 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 Dim MSG MSG = Request("MSG") If MSG = "Update" Then MSG = "更新しました" End If Dim ii %> <% = HtmlHeader("") %>

<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '../../admenu_w.asp')", "マスター管理", "tblbtn( '../fm_master_select.asp')", "為替レートマスター", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) 'If MasterEnshu = "1" Then Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) 'Else ' If GB_Admin = 2 Then 'Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) ' Else ' Response.Write(HttpL3_1("保存", "SubmitCheck()", " 全演習に適用する ", "SubmitAll()", "", "", "", "", "", "")) '複雑過ぎてムリ ' End If 'End If Response.Write(HttpL3_2("戻る", "tblbtn('../fm_master_select.asp')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("為替レートマスター", "")) If MasterEnshu = "1" Then Response.Write(HttpL5("マスター演習に設定されているため変更できません")) Else Response.Write(HttpL5(MSG)) End If %>

対象演習名

<%= EnshuName %>

<% Query = "" Query = Query & " " Query = Query & " SELECT * " Query = Query & " FROM TDA為替レートM " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " ORDER BY 通貨CD " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) %> <% Content.MoveNext Loop %>

	通貨名	レート(円)	単位
新規

');">	" size="20" value="<% = Content.Fields("名称") %>" onBlur="FormStrLeftIME(this,20,true);" class="tbox4_ime">	" size="16" onKeyup="FormStrFloat(this,7,4);" onKeypress="FormStrFloat(this,7,4);" onBlur="FormStrFloatEdge(this,7,4,true);FormStrFloatCutoff(this);" onFocus="FormStrCommaReplace(this);" class="tbox7" value="<% = ConvIntToMoney("" & Content.Fields("金額") , false, false) %>">	" size="11" value="<% = Content.Fields("単位") %>" onBlur="FormStrLeftIME(this,10,true);" class="tbox4_ime">	');">	');">	');">

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