<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim EnshuCD, EnshuName, FromYmd, ToYmd, EnshuKubun, TaxRate Dim DenpyoKubun, GinkoKozaToza, GinkoKozaFutu, GinkoKozaBetsudan, GinkoKozaTsumitate, GinkoKozaTeiki Dim SeiriKinyuKeishikiKubun, MotoEnshuCD Dim MasterEnshu Dim ErrMsg Dim MotoTaxRate EnshuCD = Request("EnshuCD") If EnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Dim YobiB EnshuName = Content.Fields("演習名称") EnshuKubun = Content.Fields("演習区分") FromYmd = Content.Fields("会計開始日") ToYmd = Content.Fields("会計終了日") TaxRate = Content.Fields("消費税") DenpyoKubun = Content.Fields("利用伝票数区分") YobiB = Content.Fields("利用銀行口座種類") GinkoKozaToza = Mid(YobiB , 1, 1) GinkoKozaFutu = Mid(YobiB , 2, 1) GinkoKozaBetsudan = Mid(YobiB , 3, 1) GinkoKozaTsumitate = Mid(YobiB , 4, 1) GinkoKozaTeiki = Mid(YobiB , 5, 1) SeiriKinyuKeishikiKubun = Content.Fields("整理記入精算表利用") MasterEnshu = Content.Fields("マスター演習") End If Else FromYmd = DateSerial(Year(Date()), 4, 1) ToYmd = DateSerial(Year(DateAdd("yyyy", 1, Date())), 3, 31) End If 'サイバー会計での新規作成時デフォルト値 '（サイバートレード連動ではGになっているのでそのまま） If EnshuKubun <> "G" Then EnshuKubun = "P" End If Dim RouteType RouteType = Request("RouteType") %> <% = AppTitle %>
<% 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("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) If GB_Admin = 1 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) End If If EnshuCD = "" then Response.Write(HttpL4("演習管理", "追加")) Else Response.Write(HttpL4("演習管理", "高度な設定")) End If Response.Write(HttpL5("" & ErrMsg & "")) %>
<% = HtmlFooter %> <% End Sub %>