%
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim RouteType
RouteType = Request("RouteType")
Dim MenuType
MenuType = Request("MenuType")
Dim Label
Label = "Žè“ü—Í’ •ë"
If MenuType = "Jido" Then
Label = "Ž©“®“]‹L’ •ë"
End If
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 AutoGenkinSuitotyo
Dim AutoTouzayokinSuitotyo
Dim AutoUriagetyo
Dim AutoShiiretyo
Dim AutoUrikakekinMototyo
Dim AutoKaikakekinMototyo
Dim AutoUketoriTegatatyo
Dim AutoShiharaiTegatatyo
Dim AutoSyohinAridakatyo
Query = "exec SPM‰‰KŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
RiyoDenpyoSu = Content.Fields("—˜—p“`•[”‹æ•ª")
InputHojyobo = Content.Fields("Žè“®•â••ë•\Ž¦")
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•\•\Ž¦")
InputStockholderEquity = "" & Content.Fields("Žè“®Š”ŽåŽ‘–{“™•Ï“®ŒvŽ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‘•\Ž¦")
SokanjyomototyoHyojyunshiki = Content.Fields("‘Š¨’茳’ •W€Ž®—˜—p")
InputGenkinSuitotyo = "" & Content.Fields("Œ»‹ào”[’ •\Ž¦")
InputKoguchiSuitocho = "" & Content.Fields("¬ŒûŒ»‹ào”[’ •\Ž¦")
InputTouzayokinSuitotyo = "" & Content.Fields("“–À—a‹ào”[’ •\Ž¦")
InputUriagetyo = "" & Content.Fields("”„ã’ •\Ž¦")
InputShiiretyo = "" & Content.Fields("Žd“ü’ •\Ž¦")
InputUrikakekinMototyo = "" & Content.Fields("”„Š|‹àŒ³’ •\Ž¦")
InputKaikakekinMototyo = "" & Content.Fields("”ƒŠ|‹àŒ³’ •\Ž¦")
InputUketoriTegatatyo = "" & Content.Fields("ŽóŽæŽèŒ`‹L“ü’ •\Ž¦")
InputShiharaiTegatatyo = "" & Content.Fields("Žx•¥ŽèŒ`‹L“ü’ •\Ž¦")
InputSyohinAridakatyo = "" & Content.Fields("¤•i—L‚’ •\Ž¦")
AutoGenkinSuitotyo = "" & Content.Fields("Ž©“®“]‹LŒ»‹ào”[’ •\Ž¦")
AutoTouzayokinSuitotyo = "" & Content.Fields("Ž©“®“]‹L“–À—a‹ào”[’ •\Ž¦")
AutoUriagetyo = "" & Content.Fields("Ž©“®“]‹L”„ã’ •\Ž¦")
AutoShiiretyo = "" & Content.Fields("Ž©“®“]‹LŽd“ü’ •\Ž¦")
AutoUrikakekinMototyo = "" & Content.Fields("Ž©“®“]‹L”„Š|‹àŒ³’ •\Ž¦")
AutoKaikakekinMototyo = "" & Content.Fields("Ž©“®“]‹L”ƒŠ|‹àŒ³’ •\Ž¦")
AutoUketoriTegatatyo = "" & Content.Fields("Ž©“®“]‹LŽóŽæŽèŒ`‹L“ü’ •\Ž¦")
AutoShiharaiTegatatyo = "" & Content.Fields("Ž©“®“]‹LŽx•¥ŽèŒ`‹L“ü’ •\Ž¦")
AutoSyohinAridakatyo = "" & Content.Fields("Ž©“®“]‹L¤•i—L‚’ •\Ž¦")
End If
%>
<% = HtmlHeader("") %>
<%
If InStr(RouteType, "HojyoboOnly") > 0 Then
Response.Write(HtmlDesign(2))
Else
Response.Write(HtmlDesign(1))
End If
Response.Write(HttpL1(3))
Response.Write(HttpL2("ƒƒCƒ“ƒƒjƒ…[" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", Label, "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4(Label, ""))
Response.Write(HttpL5(""))
%>
@ |
@ |
@ |
|
@ |
@ |
480<% Else %>360<% End If %>" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="120">
<% If MenuType = "Jido" And AutoSokanjyoMototyo = "1" Then %>
<% If SokanjyomototyoHyojyunshiki = "1" Then %>
<% Else %>
<% ElseIf MenuType <> "Jido" And InputSokanjyoMototyo = "1" Then %>
<% If SokanjyomototyoHyojyunshiki = "1" Then %>
<% Else %>
<% End If %>
<% If MenuType = "Jido" And AutoShiwakeShukeihyo = "1" Then %>
<% ElseIf MenuType <> "Jido" And InputShiwakeShukeihyo = "1" Then %>
<% End If %>
|
<% If MenuType = "Jido" And AutoGokeiZandakaShisanhyo = "1" Then %>
<% ElseIf MenuType <> "Jido" And InputGokeiZandakaShisanhyo = "1" Then %>
<% End If %>
|
<% If RiyoDenpyoSu > 0 And MenuType = "Jido" And AutoShiwaketyo = "1" Then %>
|
<% End If %>
<% If MenuType = "Jido" And AutoTaisyakuTaisyohyo = "1" Then %>
<% ElseIf MenuType <> "Jido" And InputTaisyakuTaisyohyo = "1" Then %>
<% End If %>
|
<% If MenuType = "Jido" And AutoSonekiKeisansyo = "1" Then %>
<% ElseIf MenuType <> "Jido" And InputSonekiKeisansyo = "1" Then %>
<% End If %>
|
<% If MenuType = "Jido" And AutoHachiketaSeisanhyo = "1" Then %>
<% ElseIf MenuType <> "Jido" And InputHachiketaSeisanhyo = "1" Then %>
<% End If %>
|
@ |
@ |
@ |
@ |
|
@ |
| @ |
@ |
@ |
|
@ |
@ |
<% If MenuType = "Jido" And AutoGenkinSuitotyo = "1" Then %>
<% ElseIf MenuType <> "Jido" And InputGenkinSuitotyo = "1" Then %>
<% End If %>
|
<% If MenuType = "Jido" And AutoTouzayokinSuitotyo = "1" Then %>
<% ElseIf MenuType <> "Jido" And InputTouzayokinSuitotyo = "1" Then %>
<% End If %>
|
<% If MenuType = "Jido" And AutoUriagetyo = "1" Then %>
<% ElseIf MenuType <> "Jido" And InputUriagetyo = "1" Then %>
<% End If %>
|
<% If MenuType = "Jido" And AutoShiiretyo = "1" Then %>
<% ElseIf MenuType <> "Jido" And InputShiiretyo = "1" Then %>
<% End If %>
|
<% If MajorVersion => 5 Then %>
<% If MenuType <> "Jido" And InputKoguchiSuitocho = "1" Then %>
<% End If %>
<% End If %>
|
<% If MenuType = "Jido" And AutoUrikakekinMototyo = "1" Then %>
<% ElseIf MenuType <> "Jido" And InputUrikakekinMototyo = "1" Then %>
<% End If %>
|
<% If MenuType = "Jido" And AutoKaikakekinMototyo = "1" Then %>
<% ElseIf MenuType <> "Jido" And InputKaikakekinMototyo = "1" Then %>
<% End If %>
|
<% If MenuType = "Jido" And AutoSyohinAridakatyo = "1" Then %>
<% End If %>
<% If MenuType <> "Jido" And InputSyohinAridakatyo = "1" Then %>
<% End If %>
|
<% If MenuType = "Jido" And AutoUketoriTegatatyo = "1" Then %>
<% ElseIf MenuType <> "Jido" And InputUketoriTegatatyo = "1" Then %>
<% End If %>
|
<% If MenuType = "Jido" And AutoShiharaiTegatatyo = "1" Then %>
<% ElseIf MenuType <> "Jido" And InputShiharaiTegatatyo = "1" Then %>
<% End If %>
|
|
@ |
@ |
@ |
@ |
| @ |
|
|
<% = HtmlFooter %>
<%
End Sub
%>
| |