%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim RouteType
RouteType = Request("RouteType")
Dim PageType
PageType = "‘¹‰vŽÀÑ"
Dim Shihonkin, ShihonkinRiekiRitsu, KazeiRitsu, Koteihi, UriagedakaRiekiRitsu
Dim Query, Content
Query = "exec SPR•ªÍ_‘¹‰vŒv‰æŽæ“¾"
Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '‰‰KCD
Query = Query & ",'" & KaisyaCD & "'" '‰ïŽÐCD
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Shihonkin = Content.Fields("Ž‘–{‹à")
ShihonkinRiekiRitsu = Content.Fields("Ž‘–{‹àƒ—˜‰v—¦")
KazeiRitsu = Content.Fields("‰ÛÅ—¦")
Koteihi = Content.Fields("΁Տӕ")
UriagedakaRiekiRitsu = Content.Fields("”„ã‚‘—˜‰v—¦")
End If
Dim MokuhyoUriageDaka, UriagedakaHi, UriageGenka, UriageGenkaHi, Sorieki, SoriekiHi, KoteihiHi, ZeibikimaeRieki, ZeibikimaeRiekiHi
Dim Jyunriekigaku, SonekiBunkitenUriage
Dim JissekiMokuhyoUriageDaka, JissekiUriagedakaHi, JissekiUriageGenka, JissekiUriageGenkaHi, JissekiSorieki, JissekiSoriekiHi, JissekiKoteihiHi, JissekiZeibikimaeRieki, JissekiZeibikimaeRiekiHi, JissekiKoteihi
Dim HiritsuMokuhyoUriageDaka, HiritsuUriageGenka, HiritsuSorieki, HiritsuKoteihi, HiritsuZeibikimaeRieki
Jyunriekigaku = Shihonkin * ShihonkinRiekiRitsu
If KazeiRitsu <> 1 Then
ZeibikimaeRieki = Int(Jyunriekigaku / ( 1 - KazeiRitsu ))
If UriagedakaRiekiRitsu <> 0 Then
MokuhyoUriageDaka = Int((Int(Koteihi) + Int(ZeibikimaeRieki)) * 10 / UriagedakaRiekiRitsu) / 10
SonekiBunkitenUriage = Int(Koteihi * 10 / UriagedakaRiekiRitsu) / 10
SoriekiHi = Int(UriagedakaRiekiRitsu * 100 * 10) / 10
UriageGenkaHi = Int((100 - SoriekiHi) * 10) / 10
If UriagedakaRiekiRitsu <> "" Then
KoteihiHi = Int(Koteihi * 100 / MokuhyoUriageDaka)
ZeibikimaeRiekiHi = SoriekiHi - KoteihiHi
Sorieki = Int(Koteihi) + Int(ZeibikimaeRieki)
UriageGenka = MokuhyoUriageDaka - Sorieki
MokuhyoUriageDaka = ConvIntToMoney(Int(MokuhyoUriageDaka), false, false)
UriageGenka = ConvIntToMoney(Int(UriageGenka), false, false)
Sorieki = ConvIntToMoney(Int(Sorieki), false, false)
Koteihi = ConvIntToMoney(Int(Koteihi), false, false)
ZeibikimaeRieki = ConvIntToMoney(Int(ZeibikimaeRieki), false, false)
End If
End If
End If
JissekiMokuhyoUriageDaka = 0
JissekiUriagedakaHi = 0
JissekiUriageGenka = 0
JissekiUriageGenkaHi = 0
JissekiSorieki = 0
JissekiSoriekiHi = 0
JissekiKoteihi = 0
JissekiKoteihiHi = 0
JissekiZeibikimaeRieki = 0
JissekiZeibikimaeRiekiHi = 0
HiritsuMokuhyoUriageDaka = 0
HiritsuUriageGenka = 0
HiritsuSorieki = 0
HiritsuKoteihi = 0
HiritsuZeibikimaeRieki = 0
Query = "exec SPR•ªÍ_‘¹‰vŽÀю擾"
Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '‰‰KCD
Query = Query & ",'" & KaisyaCD & "'" '‰ïŽÐCD
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Dim Meisyo
Meisyo = Content.Fields("–¼Ì")
If Meisyo = "΁Տӕ" Then
JissekiKoteihi = Content.Fields("‹àŠz")
ElseIf Meisyo = "•Ï“®”ï" Then
JissekiUriageGenka = UriageGenkaSyutoku(GB_KaikeiSyuryobi) + Content.Fields("‹àŠz")
ElseIf Meisyo = "”„ã‚" Then
JissekiMokuhyoUriageDaka = Content.Fields("‹àŠz")
ElseIf Meisyo = "•Ï“®”ï" Then
End If
Content.MoveNext
Loop
JissekiSorieki = JissekiMokuhyoUriageDaka - JissekiUriageGenka
JissekiZeibikimaeRieki = JissekiSorieki - JissekiKoteihi
JissekiUriagedakaHi = 100
If JissekiMokuhyoUriageDaka <> 0 Then
JissekiUriageGenkaHi = Int(JissekiUriageGenka * 100 * 10 / JissekiMokuhyoUriageDaka) / 10
JissekiSoriekiHi = Int(JissekiSorieki * 100 * 10 / JissekiMokuhyoUriageDaka) / 10
JissekiKoteihiHi = Int(JissekiKoteihi * 100 * 10 / JissekiMokuhyoUriageDaka) / 10
JissekiZeibikimaeRiekiHi = Int(JissekiZeibikimaeRieki * 100 * 10 / JissekiMokuhyoUriageDaka) / 10
JissekiMokuhyoUriageDaka = ConvIntToMoney(Int(JissekiMokuhyoUriageDaka), false, false)
JissekiUriageGenka = ConvIntToMoney(Int(JissekiUriageGenka), false, false)
JissekiSorieki = ConvIntToMoney(Int(JissekiSorieki), false, false)
JissekiKoteihi = ConvIntToMoney(Int(JissekiKoteihi), false, false)
JissekiZeibikimaeRieki = ConvIntToMoney(Int(JissekiZeibikimaeRieki), false, false)
End If
If MokuhyoUriageDaka <> 0 Then
HiritsuMokuhyoUriageDaka = Int(JissekiMokuhyoUriageDaka * 100 / MokuhyoUriageDaka)
End If
If UriageGenka <> 0 Then
HiritsuUriageGenka = Int(JissekiUriageGenka * 100 / UriageGenka)
End If
If Sorieki <> 0 Then
HiritsuSorieki = Int(JissekiSorieki * 100 / Sorieki)
End If
If Koteihi <> 0 Then
HiritsuKoteihi = Int(JissekiKoteihi * 100 / Koteihi)
End If
If ZeibikimaeRieki <> 0 Then
HiritsuZeibikimaeRieki = Int(JissekiZeibikimaeRieki * 100 / ZeibikimaeRieki)
End If
%>
<% = HtmlHeader("") %>
<%
If InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HtmlDesign(4))
Else
Response.Write(HtmlDesign(1))
End If
Response.Write(HttpL1(3))
If InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HttpL2("ƉïEWŒvƒEƒBƒ“ƒhƒE" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "ŽÐ’·ŽºE‘–±•”", "", "à–±WŒv", "", PageType, "", "", "", "", ""))
ElseIf PackageMode = 1 Then
Response.Write(HttpL2("ƒƒCƒ“ƒƒjƒ…[" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "à–±”•\", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac5.asp')", PageType, "", "", "", "", "", "", ""))
Else
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')", "à–±”•\", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s41.asp')", PageType, "", "", ""))
End If
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("ˆóü", "PrintoutReal()", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4(PageType, ""))
%>
@ |
‘¹‰vŒv‰æ |
‘¹‰vŽÀÑ |
Œv‰æŽÀÑ”ä(%) |
€–Ú |
‹àŠz |
\¬”ä(%) |
‹àŠz |
\¬”ä(%) |
”„ã‚ |
<% = MokuhyoUriageDaka %> |
100 |
<% = JissekiMokuhyoUriageDaka %> |
100 |
<% = HiritsuMokuhyoUriageDaka %> |
|
•Ï“®”ï |
<% = UriageGenka %> |
<% = UriageGenkaHi %> |
<% = JissekiUriageGenka %> |
<% = JissekiUriageGenkaHi %> |
<% = HiritsuUriageGenka %> |
ŒÀŠE—˜‰v |
<% = Sorieki %> |
<% = SoriekiHi %> |
<% = JissekiSorieki %> |
<% = JissekiSoriekiHi %> |
<% = HiritsuSorieki %> |
|
΁Տӕ |
<% = Koteihi %> |
<% = KoteihiHi %> |
<% = JissekiKoteihi %> |
<% = JissekiKoteihiHi %> |
<% = HiritsuKoteihi %> |
Œoí—˜‰v |
<% = ZeibikimaeRieki %> |
<% = ZeibikimaeRiekiHi %> |
<% = JissekiZeibikimaeRieki %> |
<% = JissekiZeibikimaeRiekiHi %> |
<% = HiritsuZeibikimaeRieki %> |
|
|
|
|
<% = HtmlFooter %>
<%
End Sub
%>