<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim Query, Content Dim Hojyobo Dim InputShiwaketyo, InputShiwakeShukeihyo, InputGokeiZandakaShisanhyo, InputSokanjyoMototyo Dim InputTaisyakuTaisyohyo, InputSonekiKeisansyo, InputHachiketaSeisanhyo, InputStockholderEquity Dim AutoShiwaketyo, AutoShiwakeShukeihyo, AutoGokeiZandakaShisanhyo, AutoSokanjyoMototyo Dim AutoTaisyakuTaisyohyo, AutoSonekiKeisansyo, AutoHachiketaSeisanhyo, AutoStockholderEquity Dim RiyoDenpyoSu Dim InputHojyobo Dim SokanjyomototyoHyojyunshiki Dim InputGenkinSuitotyo Dim InputKoguchiSuitocho Dim InputTouzayokinSuitotyo Dim InputUriagetyo Dim InputShiiretyo Dim InputUrikakekinMototyo Dim InputKaikakekinMototyo Dim InputUketoriTegatatyo Dim InputShiharaiTegatatyo Dim InputSyohinAridakatyo Dim InputShiwaketyoKyuVersionRiyo Dim AutoGenkinSuitotyo Dim AutoTouzayokinSuitotyo Dim AutoUriagetyo Dim AutoShiiretyo Dim AutoUrikakekinMototyo Dim AutoKaikakekinMototyo Dim AutoUketoriTegatatyo Dim AutoShiharaiTegatatyo Dim AutoSyohinAridakatyo Dim AutoInputToggle Dim GenkaKaikeiRiyo Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then RiyoDenpyoSu = Content.Fields("利用伝票数区分") InputHojyobo = Content.Fields("手動補助簿表示") InputShiwaketyo = Content.Fields("手動仕訳帳表示") InputShiwakeShukeihyo = Content.Fields("手動仕訳集計表表示") InputGokeiZandakaShisanhyo = Content.Fields("手動合計残高試算表表示") InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示") InputTaisyakuTaisyohyo = Content.Fields("手動貸借対照表表示") InputSonekiKeisansyo = Content.Fields("手動損益計算書表示") InputHachiketaSeisanhyo = Content.Fields("手動8桁精算表表示") InputStockholderEquity = Content.Fields("手動株主資本等変動計算書表示") AutoShiwaketyo = Content.Fields("自動転記仕訳帳表示") AutoShiwakeShukeihyo = Content.Fields("自動転記仕訳集計表表示") AutoGokeiZandakaShisanhyo = Content.Fields("自動転記合計残高試算表表示") AutoSokanjyoMototyo = Content.Fields("自動転記総勘定元帳表示") AutoTaisyakuTaisyohyo = Content.Fields("自動転記貸借対照表表示") AutoSonekiKeisansyo = Content.Fields("自動転記損益計算書表示") AutoHachiketaSeisanhyo = Content.Fields("自動転記8桁精算表表示") AutoStockholderEquity = Content.Fields("自動転記株主資本等変動計算書表示") SokanjyomototyoHyojyunshiki = Content.Fields("総勘定元帳標準式利用") InputGenkinSuitotyo = "" & Content.Fields("現金出納帳表示") InputKoguchiSuitocho = "" & Content.Fields("小口現金出納帳表示") InputTouzayokinSuitotyo = "" & Content.Fields("当座預金出納帳表示") InputUriagetyo = "" & Content.Fields("売上帳表示") InputShiiretyo = "" & Content.Fields("仕入帳表示") InputUrikakekinMototyo = "" & Content.Fields("売掛金元帳表示") InputKaikakekinMototyo = "" & Content.Fields("買掛金元帳表示") InputUketoriTegatatyo = "" & Content.Fields("受取手形記入帳表示") InputShiharaiTegatatyo = "" & Content.Fields("支払手形記入帳表示") InputSyohinAridakatyo = "" & Content.Fields("商品有高帳表示") AutoGenkinSuitotyo = "" & Content.Fields("自動転記現金出納帳表示") AutoTouzayokinSuitotyo = "" & Content.Fields("自動転記当座預金出納帳表示") AutoUriagetyo = "" & Content.Fields("自動転記売上帳表示") AutoShiiretyo = "" & Content.Fields("自動転記仕入帳表示") AutoUrikakekinMototyo = "" & Content.Fields("自動転記売掛金元帳表示") AutoKaikakekinMototyo = "" & Content.Fields("自動転記買掛金元帳表示") AutoUketoriTegatatyo = "" & Content.Fields("自動転記受取手形記入帳表示") AutoShiharaiTegatatyo = "" & Content.Fields("自動転記支払手形記入帳表示") AutoSyohinAridakatyo = "" & Content.Fields("自動転記商品有高帳表示") AutoInputToggle = "" & Content.Fields("帳簿手入力自動トグル") InputShiwaketyoKyuVersionRiyo = Content.Fields("手入力仕訳帳旧バージョン利用") GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用") End If %> <% = HtmlHeader("") %> <% If InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HtmlDesign(2)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HttpL2("帳簿ウィンドウ" ,"", "", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "帳簿", "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("帳簿", "")) Response.Write(HttpL5("演習の設定により利用できない機能があります")) %> <% = HtmlFooter %> <% End Sub %>