%
'
%>
<%
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("演習の設定により利用できない機能があります"))
%>
|
|
|
|
|
|
<% If InputShiwaketyo = "1" Then %>
<% If InputShiwaketyoKyuVersionRiyo = "1" Then %>
<% Else %>
<% ElseIf AutoInputToggle = "1" And AutoShiwaketyo = "1" Then %>
<% End If %>
<% If InputShiwakeShukeihyo = "1" Then %>
<% ElseIf AutoInputToggle = "1" And AutoShiwakeShukeihyo = "1" Then %>
<% End If %>
|
<% If InputGokeiZandakaShisanhyo = "1" Then %>
<% ElseIf AutoInputToggle = "1" And AutoGokeiZandakaShisanhyo = "1" Then %>
<% End If %>
|
<% If InputSokanjyoMototyo = "1" Then %>
<% If SokanjyomototyoHyojyunshiki = "1" Then %>
<% Else %>
<% End If %>
<% ElseIf AutoInputToggle = "1" And AutoSokanjyoMototyo = "1" Then %>
<% If SokanjyomototyoHyojyunshiki = "1" Then %>
<% Else %>
<% End If %>
<% End If %>
|
<% If InputTaisyakuTaisyohyo = "1" Then %>
<% ElseIf AutoInputToggle = "1" And AutoTaisyakuTaisyohyo = "1" Then %>
<% End If %>
|
<% If InputSonekiKeisansyo = "1" Then %>
<% ElseIf AutoInputToggle = "1" And AutoSonekiKeisansyo = "1" Then %>
<% End If %>
|
<% If InputHachiketaSeisanhyo = "1" Then %>
<% ElseIf AutoInputToggle = "1" And AutoHachiketaSeisanhyo = "1" Then %>
<% End If %>
|
<% If InputStockholderEquity = "1" Then %>
<% End If %>
|
|
|
|
|
|
|
|
|
|
|
|
<% If Genkavariable > 0 And GenkaKaikeiRiyo = "1" Then %>
|
|
<% End If %>
|
|
|
|
|
<% If InputGenkinSuitotyo = "1" Then %>
<% ElseIf AutoInputToggle = "1" And AutoGenkinSuitotyo = "1" Then %>
<% End If %>
|
<% If InputTouzayokinSuitotyo = "1" Then %>
<% ElseIf AutoInputToggle = "1" And AutoTouzayokinSuitotyo = "1" Then %>
<% End If %>
|
<% If InputUriagetyo = "1" Then %>
<% ElseIf AutoInputToggle = "1" And AutoUriagetyo = "1" Then %>
<% End If %>
|
<% If InputShiiretyo = "1" Then %>
<% ElseIf AutoInputToggle = "1" And AutoShiiretyo = "1" Then %>
<% End If %>
|
<% If MajorVersion => 5 Then %>
<% If InputKoguchiSuitocho = "1" Then %>
<% End If %>
<% End If %>
|
<% If InputUrikakekinMototyo = "1" Then %>
<% ElseIf AutoInputToggle = "1" And AutoUrikakekinMototyo = "1" Then %>
<% End If %>
|
<% If InputKaikakekinMototyo = "1" Then %>
<% ElseIf AutoInputToggle = "1" And AutoKaikakekinMototyo = "1" Then %>
<% End If %>
|
<% If InputSyohinAridakatyo = "1" Then %>
<% ElseIf AutoInputToggle = "1" And AutoSyohinAridakatyo = "1" Then %>
<% End If %>
|
<% If InputUketoriTegatatyo = "1" Then %>
<% ElseIf AutoInputToggle = "1" And AutoUketoriTegatatyo = "1" Then %>
<% End If %>
|
<% If InputShiharaiTegatatyo = "1" Then %>
<% ElseIf AutoInputToggle = "1" And AutoShiharaiTegatatyo = "1" Then %>
<% End If %>
|
|
|
|
|
|
|
|
|
|
|
|
|
<% = HtmlFooter %>
<%
End Sub
%>
|