<% Function DenpyoNyusyukin(EnshuCD, KaisyaCD, SakuseiKaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, PrintFlg) DenpyoKubun = UCase(DenpyoKubun) Dim Torihikibi, DenpyoTekiyo Dim KanjyoCD(10) Dim Kanjyomei(10) Dim Kingaku(10) Dim TekiyoCD(10) Dim Tekiyo(10) Dim Gokei,i Dim Query Dim Content Dim Genkin, Toza Dim GakuseiShimei Dim SakujyoFlg Dim GakuseiBango 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 GenkinKanjyoCD If GB_Gyosyu <> "B" Then Query = "exec SPMŠ¨’θ‰Θ–ΪŽζ“Ύ“Α•ΚŠ¨’θ '" & GB_SystemCD & "','" & EnshuCD & "', 'DA'" Else Query = "exec SPMŠ¨’θ‰Θ–ΪŽζ“Ύ“Α•ΚŠ¨’θ '" & GB_SystemCD & "','" & EnshuCD & "', 'DT'" End If Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) GenkinKanjyoCD = Content.Fields("Š¨’θCD") Content.MoveNext Loop Dim RouteType RouteType = Request("RouteType") Genkin = 0 Toza = 0 Gokei = 0 SakujyoFlg = 0 Dim Title, SenColor If DenpyoKubun = "D1" Then Title = "“ό‹ΰ“`•[" SenColor = "#FF2211" 'Τ Else Title = "o‹ΰ“`•[" SenColor = "#1133FF" 'Β End If ' If PrintFlg = 1 Then ' SenColor = "#000000" ' End If If DenpyoNo <> "" Then '/////// ‚PDu“`•[vƒwƒbƒ_•”E–ΎΧ•”‚Μƒf[ƒ^‚πŽζ“ΎB If DenpyoKubun = "D1" Then Query = "exec SPK“`•[_“ό‹ΰ“`•[Žζ“Ύ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'" Else Query = "exec SPK“`•[_o‹ΰ“`•[Žζ“Ύ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'" End If Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Torihikibi = SetTimeYYYYMMDD(Content.Fields("Žζˆψ“ϊ")) DenpyoTekiyo = Content.Fields("“`•[“E—v") SakujyoFlg = Content.Fields("νœƒtƒ‰ƒO") GakuseiShimei = Content.Fields("Ž–Ό") GakuseiBango = Content.Fields("ŠwΆ”ԍ†") i = 0 Do While Not(Content.BOF Or Content.EOF) Dim DenpyoSEQ DenpyoSEQ = Content.Fields("“`•[SEQ") If Content.Fields("Š¨’θCD") <> GenkinKanjyoCD Then i = i + 1 KanjyoCD(i) = Content.Fields("Š¨’θCD") Kanjyomei(i) = Content.Fields("Š¨’θ–ΌΜ") If DenpyoKubun = "D1" Then Kingaku(i) = Content.Fields("‘έ•ϋ‹ΰŠz") Gokei = Gokei + Content.Fields("‘έ•ϋ‹ΰŠz") Else Kingaku(i) = Content.Fields("ŽΨ•ϋ‹ΰŠz") Gokei = Gokei + Content.Fields("ŽΨ•ϋ‹ΰŠz") End If Tekiyo(i) = Content.Fields("“E—v") TekiyoCD(i) = Content.Fields("“E—v‰οŽΠ–ΌΜ") '¬”„”Μ”„ If Content.Fields("“E—vCD") = "SJ4KOURIHANBAI" Then TekiyoCD(i) = ConvKaisyaMeisyo(Content.Fields("“E—vCD")) End If End if Content.MoveNext Loop End If End If %>
<% If PrintFlg > 0 Then '˜A‘±ˆσό—p’Η‰Αi070606¬–μjPrintFlg = 2‚̏ꍇ‚Ν‰όƒy[ƒW If PrintFlg = 2 Then Response.Write(PageBreakBefore) End if Response.Write(PrintHeader(AutoFlg, "")) End if %>
<% = Left(title, 1) %> ‹ΰ “` •[<% If "" & SakujyoFlg = "1" Then Response.Write("
¦νœΟ‚έ
") End If %>
Žζˆψ“ϊF <% = Torihikibi %>
“`•[”ԍ†F <% = DenpyoNo %>
“`•[“E—vF <% = DenpyoTekiyo %>
<% = LabelSoumu %> <% = LabelTanto %> <% = LabelKakari %>
@ @ <% = ConvShimeiRyakuMeisyo(GakuseiBango) %>
Š¨’θƒR[ƒh Š¨’θ–ΌΜ Žζˆψζ –ΎΧ“E—v ‹ΰ@Šz
<% = KanjyoCD(1) %>@ <% = Kanjyomei(1) %>@ <% = HardWrap(TekiyoCD(1)) %> <% = HardWrap(Tekiyo(1)) %> <% = SetMoney(Kingaku(1), false, true) %>@
<% = KanjyoCD(2) %>@ <% = Kanjyomei(2) %>@ <% = HardWrap(TekiyoCD(2)) %> <% = HardWrap(Tekiyo(2)) %> <% = SetMoney(Kingaku(2), false, true) %>@
<% = KanjyoCD(3) %>@ <% = Kanjyomei(3) %>@ <% = HardWrap(TekiyoCD(3)) %> <% = HardWrap(Tekiyo(3)) %> <% = SetMoney(Kingaku(3), false, true) %>@
<% = KanjyoCD(4) %>@ <% = Kanjyomei(4) %>@ <% = HardWrap(TekiyoCD(4)) %> <% = HardWrap(Tekiyo(4)) %> <% = SetMoney(Kingaku(4), false, true) %>@
<% = KanjyoCD(5) %>@ <% = Kanjyomei(5) %>@ <% = HardWrap(TekiyoCD(5)) %> <% = HardWrap(Tekiyo(5)) %> <% = SetMoney(Kingaku(5), false, true) %>@
‡@@Œv <% = SetMoney(Gokei, false, true) %>@
<% If PrintFlg > 0 Then Response.Write(PrintFooter()) '˜A‘±ˆσό—p’Η‰Αi070606¬–μj Response.Write("
" & vbCrLf) End if %>
<% End Function %>