%
'
%>
<%
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 AutoStockholderEquity
Dim ZaimuTaishaku
Dim ZaimuSoneki
Dim ZaimuCashflow
Dim ZaimuStockholder
Dim BunsekiSonekijisseki
Dim BunsekiAnzensei
Dim BunsekiShuekisei
Dim BunsekiSonekibunki
Query = "exec SPM‰‰KŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
RiyoDenpyoSu = Content.Fields("—˜—p“`•[”‹æ•ª")
InputShiwaketyo = Content.Fields("Žè“®Žd–ó’ •\Ž¦")
InputShiwakeShukeihyo = Content.Fields("Žè“®Žd–óWŒv•\•\Ž¦")
InputGokeiZandakaShisanhyo = Content.Fields("Žè“®‡ŒvŽc‚ŽŽŽZ•\•\Ž¦")
InputSokanjyoMototyo = Content.Fields("Žè“®‘Š¨’茳’ •\Ž¦")
InputTaisyakuTaisyohyo = Content.Fields("Žè“®‘ÝŽØ‘ÎÆ•\•\Ž¦")
InputSonekiKeisansyo = Content.Fields("Žè“®‘¹‰vŒvŽZ‘•\Ž¦")
InputHachiketaSeisanhyo = Content.Fields("Žè“®8Œ…¸ŽZ•\•\Ž¦")
AutoShiwaketyo = Content.Fields("Ž©“®“]‹LŽd–ó’ •\Ž¦")
AutoShiwakeShukeihyo = Content.Fields("Ž©“®“]‹LŽd–óWŒv•\•\Ž¦")
AutoGokeiZandakaShisanhyo = Content.Fields("Ž©“®“]‹L‡ŒvŽc‚ŽŽŽZ•\•\Ž¦")
AutoSokanjyoMototyo = Content.Fields("Ž©“®“]‹L‘Š¨’茳’ •\Ž¦")
AutoTaisyakuTaisyohyo = Content.Fields("Ž©“®“]‹L‘ÝŽØ‘ÎÆ•\•\Ž¦")
AutoSonekiKeisansyo = Content.Fields("Ž©“®“]‹L‘¹‰vŒvŽZ‘•\Ž¦")
AutoHachiketaSeisanhyo = Content.Fields("Ž©“®“]‹L8Œ…¸ŽZ•\•\Ž¦")
AutoStockholderEquity = Content.Fields("Ž©“®“]‹LŠ”ŽåŽ‘–{“™•Ï“®ŒvŽZ‘•\Ž¦")
ZaimuTaishaku = "" & Content.Fields("à–±”•\‘ÝŽØ‘ÎÆ•\•\Ž¦")
ZaimuSoneki = "" & Content.Fields("à–±”•\‘¹‰vŒvŽZ‘•\Ž¦")
ZaimuCashflow = "" & Content.Fields("à–±”•\ƒLƒƒƒbƒVƒ…ƒtƒ[ŒvŽZ‘•\Ž¦")
ZaimuStockholder = "" & Content.Fields("à–±”•\Š”ŽåŽ‘–{“™•Ï“®ŒvŽZ‘•\Ž¦")
BunsekiSonekijisseki = "" & Content.Fields("à–±•ªÍ‘¹‰vŽÀÑ•\Ž¦")
BunsekiAnzensei = "" & Content.Fields("à–±•ªÍŽû‰v«•\Ž¦")
BunsekiShuekisei = "" & Content.Fields("à–±•ªÍˆÀ‘S«•\Ž¦")
BunsekiSonekibunki = "" & Content.Fields("à–±•ªÍ‘¹‰v•ªŠò“_•\Ž¦")
End If
'‰‰K‰ïŽÐƒƒOƒCƒ“Žž‚Í‘S‚ÄON ‰‰KŠÇ—ŽÒ‚ÍŠÇ—‰‰K‚Å‚Ì‚Ý‘S‚ÄON
If Session(HomeAlias & "AutoLoginButton") = "1" And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then
ZaimuTaishaku = "1"
ZaimuSoneki = "1"
ZaimuCashflow = "1"
ZaimuStockholder = "1"
BunsekiSonekijisseki = "1"
BunsekiAnzensei = "1"
BunsekiShuekisei = "1"
BunsekiSonekibunki = "1"
End If
%>
<% = AppTitle %>
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(3))
Response.Write(HttpL2("‰ïŽÐ‘I‘ð" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "ŽÐ’·ŽºE‘–±•”", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "à–±”•\", "", "", "", "", ""))
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("à–±”•\", ""))
%>
@ |
|
@ |
@ |
<% If ShachoZaimu = 1 Then %>
<% If AutoShiwaketyo = "1" Then %>
<% End If %>
|
<% If AutoShiwakeShukeihyo = "1" Then %>
<% End If %>
|
<% If AutoGokeiZandakaShisanhyo = "1" Then %>
<% End If %>
|
<% If AutoSokanjyoMototyo = "1" Then %>
<% End If %>
|
<% If AutoHachiketaSeisanhyo = "1" Then %>
<% End If %>
|
<% If AutoTaisyakuTaisyohyo = "1" Then %>
<% End If %>
|
<% If AutoSonekiKeisansyo = "1" Then %>
<% End If %>
|
<% If AutoTaisyakuTaisyohyo = "1" Then %>
<% End If %>
|
<% If AutoSonekiKeisansyo = "1" Then %>
<% End If %>
|
<% ElseIf GB_Gyosyu <> "B" Then %>
<% If ZaimuTaishaku = "1" Then %>
<% End If %>
|
<% If ZaimuSoneki = "1" Then %>
<% End If %>
|
<% Else '‹âs %>
|
<% End If %>
<% If ZaimuStockholder = "1" Then %>
<% End If %>
|
<% If GB_Gyosyu = "B" Then '‹âs %>
|
<% End If %>
<% If ZaimuCashflow = "1" Then %>
<% End If %>
|
<% If GB_Gyosyu = "B" Then '‹âs %>
|
<% 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
%>