%
'
'
%>
<%
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("照会・集計ウィンドウ", ""))
%>
<% If PackageMode = 1 Then %>
<% Else %>
<% End If %>
 |
 |
<% If PackageMode = 1 Then %>
=入力項目= |
<% Else %>
=経理部= |
<% End If %>
 |
 |
 |
<% If PackageMode = 1 Then %>仕訳<% Else %>伝票<% End If %> |
 |
<% If RiyoDenpyoSu = "5" Or RiyoDenpyoSu = "3" Then %>
・入金伝票 |
<% End If %>
<% If RiyoDenpyoSu = "5" Or RiyoDenpyoSu = "3" Then %>
・出金伝票 |
<% End If %>
<% If RiyoDenpyoSu = "5" Or RiyoDenpyoSu = "3" Or RiyoDenpyoSu = "1" Then %>
・振替伝票 |
<% End If %>
<% If RiyoDenpyoSu = "5" Then %>
・仕入伝票 |
<% End If %>
<% If RiyoDenpyoSu = "5" Then %>
・売上伝票 |
<% End If %>
<% If RiyoDenpyoSu = "0" Then %>
・仕訳帳 |
<% End If %>
 |
帳簿(手入力) |
 |
<% If PackageMode = "1" Then %>
<% ElseIf InputShiwaketyo = "1" Then %>
<% If InputShiwaketyoKyuVersionRiyo = "1" Then %>
・仕訳帳 |
<% Else %>
・仕訳帳 |
<% End If %>
<% End If %>
<% If InputShiwakeShukeihyo = "1" Then %>
・仕訳集計表 |
<% End If %>
<% If InputSokanjyoMototyo = "1" Then %>
<% If SokanjyomototyoHyojyunshiki = "1" Then %>
・総勘定元帳 |
<% Else %>
・総勘定元帳 |
<% End If %>
<% End If %>
<% If InputGokeiZandakaShisanhyo = "1" Then %>
・合計残高試算表 |
<% End If %>
<% If InputTaisyakuTaisyohyo = "1" Then %>
・貸借対照表(残高式) |
<% End If %>
<% If InputSonekiKeisansyo = "1" Then %>
・損益計算書(残高式) |
<% End If %>
<% If InputHachiketaSeisanhyo = "1" Then %>
・八桁精算表 |
<% End If %>
 |
補助簿(手入力) |
 |
<% If InputGenkinSuitotyo = "1" Then %>
・現金出納帳 |
<% End If %>
<% If InputTouzayokinSuitotyo = "1" Then %>
・当座預金出納帳 |
<% End If %>
<% If InputUriagetyo = "1" Then %>
・売上帳 |
<% End If %>
<% If InputShiiretyo = "1" Then %>
・仕入帳 |
<% End If %>
<% If InputSyohinAridakatyo = "1" Then %>
・商品有高帳 |
<% End If %>
<% If InputUrikakekinMototyo = "1" Then %>
・売掛金元帳 |
<% End If %>
<% If InputKaikakekinMototyo = "1" Then %>
・買掛金元帳 |
<% End If %>
<% If InputUketoriTegatatyo = "1" Then %>
・受取手形記入帳 |
<% End If %>
<% If InputShiharaiTegatatyo = "1" Then %>
・支払手形記入帳 |
<% End If %>
<% If MajorVersion => 5 And InputKoguchiSuitocho = "1" Then %>
・小口現金出納帳 |
<% End If %>
|
 |
 |
 |
 |
|
|
 |
=自動集計帳簿= |
 |
 |
 |
自動転記帳簿 |
 |
<% If RiyoDenpyoSu <> "0" And AutoShiwaketyo = "1" Then %>
・仕訳帳 |
<% End If %>
<% If AutoShiwakeShukeihyo = "1" Then %>
・仕訳集計表 |
<% End If %>
<% If AutoSokanjyoMototyo = "1" Then %>
<% If SokanjyomototyoHyojyunshiki = "1" Then %>
・総勘定元帳 |
<% Else %>
・総勘定元帳 |
<% End If %>
<% End If %>
<% If AutoGokeiZandakaShisanhyo = "1" Then %>
・合計残高試算表 |
<% End If %>
<% If AutoTaisyakuTaisyohyo = "1" Then %>
・貸借対照表(残高式) |
<% End If %>
<% If AutoSonekiKeisansyo = "1" Then %>
・損益計算書(残高式) |
<% End If %>
<% If AutoHachiketaSeisanhyo = "1" Then %>
・八桁精算表 |
<% End If %>
<% If AutoGenkinSuitotyo = "1" Or AutoTouzayokinSuitotyo = "1" Or AutoUriagetyo = "1" Or AutoShiiretyo = "1" Or AutoUrikakekinMototyo = "1" Or AutoKaikakekinMototyo = "1" Or AutoUketoriTegatatyo = "1" Or AutoShiharaiTegatatyo = "1" Or AutoSyohinAridakatyo = "1" Then %>
 |
自動転記補助簿 |
 |
<% If AutoGenkinSuitotyo = "1" Then %>
・現金出納帳 |
<% End If %>
<% If AutoTouzayokinSuitotyo = "1" Then %>
・当座預金出納帳 |
<% End If %>
<% If AutoUriagetyo = "1" Then %>
・売上帳 |
<% End If %>
<% If AutoShiiretyo = "1" Then %>
・仕入帳 |
<% End If %>
<% If AutoSyohinAridakatyo = "1" And RiyoDenpyoSu = "5" Then %>
・商品有高帳 |
<% End If %>
<% If AutoUrikakekinMototyo = "1" Then %>
・売掛金元帳 |
<% End If %>
<% If AutoKaikakekinMototyo = "1" Then %>
・買掛金元帳 |
<% End If %>
<% If AutoUketoriTegatatyo = "1" Then %>
・受取手形記入帳 |
<% End If %>
<% If AutoShiharaiTegatatyo = "1" Then %>
・支払手形記入帳 |
<% End If %>
<% End If %>
|
 |
 |
 |
 |
|
|
<% If PackageMode = 1 Then %>
<% Else %>
<% End If %>
<% If PackageMode = 1 Or (Kitakuriyou > 0 And GB_Gyosyu = "U" Or Kitakuriyou > 0 And GB_Gyosyu = "K") Then 'サイバー会計及び寄託利用演習の管理部・運輸倉庫は仕入部・販売部を利用できない %>
<% Else %>
 |
=仕入部= |
 |
 |
 |
仕入書類 |
 |
・見積依頼書 |
・注文書 |
<% If UkeshoKakunin > 0 Then %>
・先方注文請書確認 |
<% End If %>
・物品受領書 |
 |
仕入問合せ |
 |
|
|
 |
 |
 |
|
 |
=販売部= |
 |
 |
 |
販売書類 |
 |
<% If Kourihanbairiyo() > 0 Then %>
 |
小売販売 |
 |
<% End If %>
|
 |
 |
 |
 |
|
<% End If %>
<% If PackageMode = 1 Or (Kitakuriyou > 0 And GB_Gyosyu = "U" Or Kitakuriyou > 0 And GB_Gyosyu = "K") Then 'サイバー会計及び寄託利用演習の管理部・運輸倉庫は仕入部・販売部を利用できない %>
<% Else %>
<% End If %>
<% If PackageMode = 1 Then %>
<% Else %>
<% End If %>
 |
<% If PackageMode = 1 Then %>
=財務諸表= |
<% Else %>
=社長室・総務部= |
<% End If %>
 |
 |
<% If PackageMode = 1 Then %>
<% Else %>
<% End If %>
<% If PackageMode = 1 Then %>
<% Else %>
 |
現物出入履歴 |
 |
<% If KinkoHyoji = "1" Then %>
<% If AutoGenkinNyusyukinRireki = "1" Then %>
・現金入出金履歴 |
<% End If %>
<% End If %>
<% If AutoYokinNyusyukinRireki = "1" Then %>
・預金入出金履歴 |
<% End If %>
<% If Kitakuriyou > 0 And GB_Gyosyu = "U" Or Kitakuriyou > 0 And GB_Gyosyu = "K" Then %>
<% Else %>
<% If AutoNyukoJisseki = "1" Then %>
・商品入庫履歴 |
<% End If %>
<% If AutoSyukoJisseki = "1" Then %>
・商品出庫履歴 |
<% End If %>
<% If AutoSyohinZaiko = "1" Then %>
・商品在庫(商品有高帳) |
<% End If %>
<% End If %>
<% If TegataHyoji = "1" Then %>
<% If AutoUketoriTegataIchiran = "1" Then %>
・受取手形履歴 |
<% End If %>
<% If AutoShiaraiTegataIchiran = "1" Then %>
・支払手形履歴 |
<% End If %>
<% End If %>
|
|
<% End If %>
 |
財務諸表 |
 |
<% If ZaimuTaishaku = "1" Then %>
・貸借対照表(報告書形式) |
<% End If %>
<% If ZaimuSoneki = "1" Then %>
・損益計算書(報告書形式) |
<% End If %>
<% If ZaimuCashflow = "1" Then %>
・キャッシュフロー計算書 |
<% End If %>
<% If ZaimuStockholder = "1" Then %>
・株主資本等変動計算書 |
<% End If %>
 |
財務分析 |
 |
<% If BunsekiSonekijisseki = "1" Then %>
・損益実績 |
<% End If %>
<% If BunsekiShuekisei = "1" Then %>
・収益性の分析 |
<% End If %>
<% If BunsekiAnzensei = "1" Then %>
・安全性の分析 |
<% End If %>
<% If BunsekiSonekibunki = "1" Then %>
・損益分岐点分析 |
<% End If %>
|
|
 |
 |
 |
 |
|
|
<% = HtmlFooter %>
<%
End Sub
%>
| |