<% Function TyoboSonekiKeisansyoHanbaiKanrihi(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg, Param1, Param2, Param3) Dim Query, Content Dim PageType PageType = "”Ì”„ŠÇ—”ïˆê——" Dim RouteType RouteType = Request("RouteType") Dim Kaishibi, Syuryobi Kaishibi = Param1 Syuryobi = Param2 Dim RowBreakNum, RowCount Dim Page RowBreakNum = 35 RowCount = 0 If PrintFlg = 0 Then RowBreakNum = MaxRowBreakNum End If Dim KarikataZandakaTotal, KashikataZandakaTotal Dim KarikataKingakuTotal, KashikataKingakuTotal KarikataZandakaTotal = 0 KashikataZandakaTotal = 0 KarikataKingakuTotal = 0 KashikataKingakuTotal = 0 Dim ii, jj Query = "exec SPKŽ©“®“]‹L’ •ë_‡ŒvŽc‚ŽŽŽZ•\Ɖï '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Kaishibi & "','" & Syuryobi & "', 9, ''" Set Content = OpenQuery(Query) Dim KarikataZandaka, KarikataKingaku Dim KanjyoCD, KanjyoKamoku Dim KashikataZandaka, KashikataKingaku Dim Persent Do While Not(Content.BOF Or Content.EOF) If Content.Fields("•ªÍ—p‹æ•ª") = "DC" Then KarikataZandaka = Content.Fields("ŽØ•ûŽc‚") KarikataKingaku = Content.Fields("ŽØ•û‹àŠz") KanjyoCD = Content.Fields("Š¨’èCD") KanjyoKamoku = Content.Fields("Š¨’è–¼Ì") KashikataKingaku = Content.Fields("‘Ý•û‹àŠz") KashikataZandaka = Content.Fields("‘Ý•ûŽc‚") If IsNUll(KarikataZandaka) or (KarikataZandaka="") Then Else KarikataZandakaTotal = KarikataZandakaTotal + KarikataZandaka End If If IsNUll(KarikataKingaku) or (KarikataKingaku="") Then Else KarikataKingakuTotal = KarikataKingakuTotal + KarikataKingaku End If If IsNUll(KashikataZandaka) or (KashikataZandaka="") Then Else KashikataZandakaTotal = KashikataZandakaTotal + KashikataZandaka End If If IsNUll(KashikataKingaku) or (KashikataKingaku="") Then Else KashikataKingakuTotal = KashikataKingakuTotal + KashikataKingaku End If End If Content.MoveNext Loop Set Content = OpenQuery(Query) If PrintFlg = 0 Then %>
<% End If For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) End If %>
<% If PrintFlg = 1 Then Response.Write(PrintHeader1(AutoFlg)) End if %>
<% If Content.BOF Or Content.EOF Then %> <% End If %>
<% If GB_CSS = "EC" Then %> <% End If %>
<% = SetStringInsertSpace("”Ì”„”ï‹y‚шê”ÊŠÇ—”ï‚Ì“à–ó") %> <% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ƒy[ƒW<% End If %>
<% = Spacer(1, 7) %>
Š¨’è‰È–Ú ‡Œv \¬”ä
<% If PrintFlg <> 1 Then %>
<% End If %> <% ii = 0 Do While Not(Content.BOF Or Content.EOF) If Content.Fields("•ªÍ—p‹æ•ª") = "DC" Then ii = ii + 1 RowCount = RowCount + 1 KarikataZandaka = Content.Fields("ŽØ•ûŽc‚") KarikataKingaku = Content.Fields("ŽØ•û‹àŠz") KanjyoCD = Content.Fields("Š¨’èCD") KanjyoKamoku = Content.Fields("Š¨’è–¼Ì") KashikataKingaku = Content.Fields("‘Ý•û‹àŠz") KashikataZandaka = Content.Fields("‘Ý•ûŽc‚") If KarikataZandakaTotal <> 0 Then Persent = CInt(KarikataZandaka * 1000 / KarikataZandakaTotal) / 10 & "“" Else Persent = "ŽZo•s‰Â" End If Response.Write("" & vbCrLf) Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("" & vbCrLf) End If Content.MoveNext If RowCount > 0 And (RowCount Mod RowBreakNum = 0) Then Exit Do End If Loop If 1 = 1 Then For jj = RowCount + 1 To Max(35, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Next End if %>
" & KanjyoCD & "" & KanjyoKamoku & "" & ConvIntToMoney(KarikataZandaka, false, true) & "" & Persent & "
<% If PrintFlg <> 1 Then %>
<% End If %>
<% Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) %>
@" & ConvIntToMoney(KarikataZandakaTotal, false, true) & "100“
<% If PrintFlg = 1 Then Response.Write(PrintFooter()) End If %>
<% If (Content.BOF Or Content.EOF) Then Exit For End If Next If PrintFlg = 0 Then %>
<% End if End Function %>