%
Function DenpyoFurikae(EnshuCD, KaisyaCD, SakuseiKaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, PrintFlg)
If DenpyoNo = "9999999" Or DenpyoNo = "AAAAAAA" Then
Exit Function
End If
Dim LabelSoumu
Dim LabelTanto
Dim LabelKakari
LabelSoumu = ""
LabelTanto = ""
LabelKakari = "W@σ"
If MHMINRANLEFT <> "" Then LabelSoumu = MHMINRANLEFT End If
If MHMINRANCENTER <> "" Then LabelTanto = MHMINRANCENTER End If
If MHMINRANRIGHT <> "" Then LabelKakari = MHMINRANRIGHT End If
Dim Torihikibi, DenpyoTekiyo
Dim KanjyoCD(10)
Dim Kanjyomei(10)
Dim Kingaku(10)
Dim TekiyoCD(10)
Dim Tekiyo(10)
Dim KarikataGokei, KashikataGokei
Dim Title
Dim TmpGyosyu
If DenpyoKubun = "D8" Then
Title = "»’"
TmpGyosyu = "G"
Else
Title = ""
TmpGyosyu = ConvKaisyaGyosyuKubun(KaisyaCD)
End If
Dim Query
Dim Content
Dim Shimei
Dim SakujyoFlg
Dim GakuseiBango
Dim RouteType
RouteType = Request("RouteType")
KashikataGokei = 0
KarikataGokei = 0
SakujyoFlg = 0
Dim SenColor
If PrintFlg > 0 Then
SenColor = "#000000"
Else
SenColor = "#5522FF"
End If
SenColor = "#5522FF"
Dim NextDenpyoNo, PrevDenpyoNo
NextDenpyoNo = ""
PrevDenpyoNo = ""
If DenpyoNo <> "" Then
Query = "exec SPK`[_UΦ`[ζΎ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & DenpyoNo & "', '" & TmpGyosyu & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Torihikibi = SetTimeYYYYMMDD(Content.Fields("ζψϊ"))
DenpyoTekiyo = Content.Fields("`[Ev")
SakujyoFlg = Content.Fields("νtO")
Shimei = Content.Fields("Ό")
GakuseiBango = Content.Fields("wΆΤ")
Do While Not(Content.BOF Or Content.EOF)
Dim DenpyoSEQ
DenpyoSEQ = Content.Fields("`[SEQ")
KanjyoCD(DenpyoSEQ) = Content.Fields("¨θCD")
Kanjyomei(DenpyoSEQ) = ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, Content.Fields("¨θCD"))
If DenpyoSEQ mod 2 = 0 Then
Kingaku(DenpyoSEQ) = Content.Fields("έϋΰz")
KashikataGokei = KashikataGokei + Content.Fields("έϋΰz")
Else
Kingaku(DenpyoSEQ) = Content.Fields("Ψϋΰz")
KarikataGokei = KarikataGokei + Content.Fields("Ψϋΰz")
End If
TekiyoCD(DenpyoSEQ) = Content.Fields("EvοΠΌΜ")
Tekiyo(DenpyoSEQ) = Content.Fields("Ev")
'¬Μ
If Content.Fields("EvCD") = "SJ4KOURIHANBAI" Then
TekiyoCD(DenpyoSEQ) = ConvKaisyaMeisyo(Content.Fields("EvCD"))
End If
Content.MoveNext
Loop
Query = "exec SPK`[Τ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & DenpyoKubun & "', '1', '" & Torihikibi & "', '" & DenpyoNo & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
NextDenpyoNo = Content.Fields("`[Τ")
End If
Query = "exec SPK`[OΤ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & DenpyoKubun & "', '1', '" & Torihikibi & "', '" & DenpyoNo & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
PrevDenpyoNo = Content.Fields("`[Τ")
End If
End If
End If
Dim Gyousu
Query = "exec SPMKζΎ '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Gyousu = Content.Fields("UΦ`[\¦s")
End If
If Gyousu = 0 Or "" & Gyousu = "" Then
Gyousu = 5
End If
'Gyousu = 2
Dim GyouHeight
Dim GyouHeight2
Dim GyouHeight3
Dim GyouHaichi
If Gyousu = 1 Then
GyouHeight = 250
GyouHeight2 = 20
GyouHeight3 = 230
GyouHaichi = "middle"
GyouHeight = 125
GyouHeight2 = 20
GyouHeight3 = 105
GyouHaichi = "middle"
ElseIf Gyousu = 2 Then
GyouHeight = 125
GyouHeight2 = 20
GyouHeight3 = 105
GyouHaichi = "middle"
ElseIf Gyousu = 3 Then
GyouHeight = 83
GyouHeight2 = 20
GyouHeight3 = 63
GyouHaichi = "middle"
ElseIf Gyousu = 4 Then
GyouHeight = 62
GyouHeight2 = 20
GyouHeight3 = 42
GyouHaichi = "bottom"
Else
GyouHeight = 50
GyouHeight2 = 20
GyouHeight3 = 30
GyouHaichi = "bottom"
End If
%>
<%
If PrintFlg > 0 Then
'A±σόpΗΑi070606¬μjPrintFlg = 2ΜκΝόy[W
If PrintFlg = 2 Then
Response.Write(PageBreakBefore)
End if
End if
%>
<%
If PrintFlg > 0 Then
Response.Write(PrintHeader(AutoFlg, ""))
End if
%>
<% 'DenpyoKubun = "D8" %>
<% If DenpyoKubun = "D8" Then %>»’UΦ`[<% Else %>U Φ ` [<% End If %><% If "" & SakujyoFlg = "1" Then Response.Write(" ¦νΟέ ") End If %> |
ζψϊF |
<% = Torihikibi %> |
|
`[ΤF |
<% = DenpyoNo %> |
`[EvF |
<% = DenpyoTekiyo %> |
|
<% = LabelSoumu %> |
<% = LabelTanto %> |
<% = LabelKakari %> |
@ |
@ |
<% = ConvShimeiRyakuMeisyo(GakuseiBango) %> |
|
|
Ψ@@ϋ |
1113<% Else %>1214<% End If %>">¨θR[h |
¨θΌΜ |
ΰ@z |
|
<% = KanjyoCD(1) %> |
<% = Kanjyomei(1) %> |
<% = SetMoney(Kingaku(1), false, true) %> |
<% = HardWrap(TekiyoCD(1)) %> |
<% = HardWrap(Tekiyo(1)) %> |
|
<% If Gyousu > 1 Then %>
<% = KanjyoCD(3) %> |
<% = Kanjyomei(3) %> |
<% = SetMoney(Kingaku(3), false, true) %> |
<% = HardWrap(TekiyoCD(3)) %> |
<% = HardWrap(Tekiyo(3)) %> |
|
<% End If %>
<% If Gyousu > 2 Then %>
<% = KanjyoCD(5) %> |
<% = Kanjyomei(5) %> |
<% = SetMoney(Kingaku(5), false, true) %> |
<% = HardWrap(TekiyoCD(5)) %> |
<% = HardWrap(Tekiyo(5)) %> |
|
<% End If %>
<% If Gyousu > 3 Then %>
<% = KanjyoCD(7) %> |
<% = Kanjyomei(7) %> |
<% = SetMoney(Kingaku(7), false, true) %> |
<% = HardWrap(TekiyoCD(7)) %> |
<% = HardWrap(Tekiyo(7)) %> |
|
<% End If %>
<% If Gyousu > 4 Then %>
<% = KanjyoCD(9) %> |
<% = Kanjyomei(9) %> |
<% = SetMoney(Kingaku(9), false, true) %> |
<% = HardWrap(TekiyoCD(9)) %> |
<% = HardWrap(Tekiyo(9)) %> |
|
<% End If %>
Ψϋv |
<% = SetMoney(KarikataGokei, false, true) %> |
|
|
έ@@ϋ |
1113<% Else %>1214<% End If %>">¨θR[h |
¨θΌΜ |
ΰ@z |
|
<% = KanjyoCD(2) %> |
<% = Kanjyomei(2) %> |
<% = SetMoney(Kingaku(2), false, true) %> |
<% = HardWrap(TekiyoCD(2)) %> |
<% = HardWrap(Tekiyo(2)) %> |
|
<% If Gyousu > 1 Then %>
<% = KanjyoCD(4) %> |
<% = Kanjyomei(4) %> |
<% = SetMoney(Kingaku(4), false, true) %> |
<% = HardWrap(TekiyoCD(4)) %> |
<% = HardWrap(Tekiyo(4)) %> |
|
<% End If %>
<% If Gyousu > 2 Then %>
<% = KanjyoCD(6) %> |
<% = Kanjyomei(6) %> |
<% = SetMoney(Kingaku(6), false, true) %> |
<% = HardWrap(TekiyoCD(6)) %> |
<% = HardWrap(Tekiyo(6)) %> |
|
<% End If %>
<% If Gyousu > 3 Then %>
<% = KanjyoCD(8) %> |
<% = Kanjyomei(8) %> |
<% = SetMoney(Kingaku(8), false, true) %> |
<% = HardWrap(TekiyoCD(8)) %> |
<% = HardWrap(Tekiyo(8)) %> |
|
<% End If %>
<% If Gyousu > 4 Then %>
<% = KanjyoCD(10) %> |
<% = Kanjyomei(10) %> |
<% = SetMoney(Kingaku(10), false, true) %> |
<% = HardWrap(TekiyoCD(10)) %> |
<% = HardWrap(Tekiyo(10)) %> |
|
<% End If %>
έϋv |
<% = SetMoney(KashikataGokei, false, true) %> |
|
|
|
<%
If PrintFlg > 0 Then
Response.Write(PrintFooter())
'A±σόpΗΑi070606¬μj
Response.Write("![]() " & vbCrLf)
End if
%>
|
<%
End Function
%>