<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query, Content Dim InputShiwaketyo, InputShiwakeShukeihyo, InputGokeiZandakaShisanhyo, InputSokanjyoMototyo Dim InputTaisyakuTaisyohyo, InputSonekiKeisansyo, InputHachiketaSeisanhyo Dim AutoShiwaketyo, AutoShiwakeShukeihyo, AutoGokeiZandakaShisanhyo, AutoSokanjyoMototyo Dim AutoTaisyakuTaisyohyo, AutoSonekiKeisansyo, AutoHachiketaSeisanhyo Dim RiyoDenpyoSu Dim AutoGenkinNyusyukinRireki, AutoYokinNyusyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran Dim SokanjyomototyoHyojyunshiki Dim Kitakuriyou Dim KinkoHyoji Dim YTegataHyoji Dim KTegataHyoji Dim TegataHyoji TegataHyoji = "1" Dim AutoGenkinSuitotyo Dim AutoTouzayokinSuitotyo Dim AutoUriagetyo Dim AutoShiiretyo Dim AutoUrikakekinMototyo Dim AutoKaikakekinMototyo Dim AutoUketoriTegatatyo Dim AutoShiharaiTegatatyo Dim AutoSyohinAridakatyo Dim InputGenkinSuitotyo Dim InputKoguchiSuitocho Dim InputTouzayokinSuitotyo Dim InputUriagetyo Dim InputShiiretyo Dim InputUrikakekinMototyo Dim InputKaikakekinMototyo Dim InputUketoriTegatatyo Dim InputShiharaiTegatatyo Dim InputSyohinAridakatyo Dim ZaimuTaishaku Dim ZaimuSoneki Dim ZaimuCashflow Dim ZaimuStockholder Dim BunsekiSonekijisseki Dim BunsekiAnzensei Dim BunsekiShuekisei Dim BunsekiSonekibunki Dim InputShiwaketyoKyuVersionRiyo '注文請書確認要不要トグル Dim UkeshoKakunin UkeshoKakunin = 1 Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then RiyoDenpyoSu = Content.Fields("利用伝票数区分") InputShiwaketyo = Content.Fields("手動仕訳帳表示") InputShiwakeShukeihyo = Content.Fields("手動仕訳集計表表示") InputGokeiZandakaShisanhyo = Content.Fields("手動合計残高試算表表示") InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示") InputTaisyakuTaisyohyo = Content.Fields("手動貸借対照表表示") InputSonekiKeisansyo = Content.Fields("手動損益計算書表示") InputHachiketaSeisanhyo = Content.Fields("手動8桁精算表表示") AutoShiwaketyo = Content.Fields("自動転記仕訳帳表示") AutoShiwakeShukeihyo = Content.Fields("自動転記仕訳集計表表示") AutoGokeiZandakaShisanhyo = Content.Fields("自動転記合計残高試算表表示") AutoSokanjyoMototyo = Content.Fields("自動転記総勘定元帳表示") AutoTaisyakuTaisyohyo = Content.Fields("自動転記貸借対照表表示") AutoSonekiKeisansyo = Content.Fields("自動転記損益計算書表示") AutoHachiketaSeisanhyo = Content.Fields("自動転記8桁精算表表示") SokanjyomototyoHyojyunshiki = Content.Fields("総勘定元帳標準式利用") Dim YobiA YobiA = Content.Fields("履歴表示") AutoGenkinNyusyukinRireki = Mid(YobiA, 1, 1) AutoYokinNyusyukinRireki = Mid(YobiA, 2, 1) AutoNyukoJisseki = Mid(YobiA, 3, 1) AutoSyukoJisseki = Mid(YobiA, 4, 1) AutoSyohinZaiko = Mid(YobiA, 5, 1) AutoUketoriTegataIchiran = Mid(YobiA, 6, 1) AutoShiaraiTegataIchiran = Mid(YobiA, 7, 1) Kitakuriyou = "" & Content.Fields("寄託倉庫利用") KinkoHyoji = "" & Content.Fields("金庫表示") YTegataHyoji = "" & Content.Fields("約束手形表示") KTegataHyoji = "" & Content.Fields("為替手形表示") If YTegataHyoji <> "1" And KTegataHyoji <> "1" Then TegataHyoji = "0" End If 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("自動転記商品有高帳表示") 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("商品有高帳表示") ZaimuTaishaku = "" & Content.Fields("財務諸表貸借対照表表示") ZaimuSoneki = "" & Content.Fields("財務諸表損益計算書表示") ZaimuCashflow = "" & Content.Fields("財務諸表キャッシュフロー計算書表示") ZaimuStockholder = "" & Content.Fields("財務諸表株主資本等変動計算書表示") BunsekiSonekijisseki = "" & Content.Fields("財務分析損益実績表示") BunsekiAnzensei = "" & Content.Fields("財務分析収益性表示") BunsekiShuekisei = "" & Content.Fields("財務分析安全性表示") BunsekiSonekibunki = "" & Content.Fields("財務分析損益分岐点表示") UkeshoKakunin = Content.Fields("注文請書確認利用") InputShiwaketyoKyuVersionRiyo = Content.Fields("手入力仕訳帳旧バージョン利用") End If If "" & UkeshoKakunin = "" Then UkeshoKakunin = 1 End If '寄託利用状態を整数化(070207小野) If Kitakuriyou = "1" Then Kitakuriyou = 1 Else Kitakuriyou = 0 End If '演習会社ログイン時は自動帳簿を全てON 演習管理者は管理演習でのみ全てON ※151217の改修以降誤って無効になってしまっていたのでこの機能は廃止(200612) If 0=1 And Session(HomeAlias & "AutoLoginButton") = "1" And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then AutoShiwaketyo = "1" AutoShiwakeShukeihyo = "1" AutoGokeiZandakaShisanhyo = "1" AutoSokanjyoMototyo = "1" AutoTaisyakuTaisyohyo = "1" AutoSonekiKeisansyo = "1" AutoHachiketaSeisanhyo = "1" AutoGenkinNyusyukinRireki = "1" AutoYokinNyusyukinRireki = "1" AutoNyukoJisseki = "1" AutoSyukoJisseki = "1" AutoSyohinZaiko = "1" AutoUketoriTegataIchiran = "1" AutoShiaraiTegataIchiran = "1" AutoGenkinSuitotyo = "1" AutoTouzayokinSuitotyo = "1" AutoUriagetyo = "1" AutoShiiretyo = "1" AutoUrikakekinMototyo = "1" AutoKaikakekinMototyo = "1" AutoUketoriTegatatyo = "1" AutoShiharaiTegatatyo = "1" AutoSyohinAridakatyo = "1" ZaimuTaishaku = "1" ZaimuSoneki = "1" ZaimuCashflow = "1" ZaimuStockholder = "1" BunsekiSonekijisseki = "1" BunsekiAnzensei = "1" BunsekiShuekisei = "1" BunsekiSonekibunki = "1" End If %> <% = HtmlHeader("") %> <% Response.Write(HtmlDesign(4)) Response.Write(HttpL1(3)) Response.Write(HttpL2("照会・集計ウィンドウ" ,"", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "","" ,"", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("照会・集計ウィンドウ", "")) %>