<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If '会社セッション初期化(演習状況記帳チェック後の対処) KaisyaCD = "" GB_KaisyaCD = "" KaisyaMeisyo = "" GB_KaisyaMeisyo = "" KaisyaRyakuMeisyo = "" GB_KaisyaRyakuMeisyo = "" Session(HomeAlias & "KaisyaCD") = "" Session(HomeAlias & "Gyosyu") = "" Session(HomeAlias & "GyosyuMeisyo") = "" Session(HomeAlias & "KaisyaMeisyo") = "" Session(HomeAlias & "KaisyaRyakuMeisyo") = "" Session(HomeAlias & "JisyaFlag") = "" Session(HomeAlias & "ShijyoCD") = "" ' Dim Query ' Dim Content If Request("EnshuCD") <> "" Then EnshuCD = Request("EnshuCD") End If Session(HomeAlias & "EnshuCD") = EnshuCD '演習管理者IDを再取得(書類一覧後の対処)(221201小野美) If GB_Admin = "2" And EnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Session(HomeAlias & "GakuseiNo") = "" & Content.Fields("演習管理者ID") GB_GakuseiNo = Session(HomeAlias & "GakuseiNo") GakuseiNo = GB_GakuseiNo End If End If Dim GenkaKaikeiRiyo Dim ShohizeiMode Dim ExchangeRateRiyo ShohizeiMode = TaxRateSelection 'include_stasicのグローバル変数 If EnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ExchangeRateRiyo = "" & Content.Fields("為替レート利用") GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用") If Content.Fields("消費税") <= 0 Then ShohizeiMode = 0 '内税の場合は消費税率マスタ非利用に上書き End If End If '表記名称マスタ取得 Query = "exec SPM表記名称取得 '" & GB_SystemCD & "', '" & EnshuCD & "', ''" '表記CD=NULLは一覧取得 Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Session(HomeAlias & "MHM" & Content.Fields("表記CD")) = "" & Content.Fields("表記名称") '表記CDの先頭に"MHM"を付加したセッション変数に格納 Content.MoveNext Loop Else '表記名称セッションクリア Query = "exec SPM表記名称取得 '" & GB_SystemCD & "', '', ''" '演習CD=NULLは全演習から取得し表記CDでグルーピング Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Session(HomeAlias & "MHM" & Content.Fields("表記CD")) = "" Content.MoveNext Loop End If 'サイバー会計モードは原価会計非利用 If PackageMode = 1 Then GenkaKaikeiRiyo = "0" End If Dim TableWidthPlus TableWidthPlus = 0 ' If GenkaKaikeiRiyo = "1" Then ' TableWidthPlus = 120 ' End If %> <% = HtmlHeader("") %>
"> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If GB_Admin >= 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("マスター管理", "演習指定")) Response.Write(HttpL5("対象演習を選び、マスターを選択して下さい" )) %>
<% = HtmlFooter %> <% End Sub %>