<% Function ZairyoShiirecho(EnshuCD, KaisyaCD, SakuseiKaisyaCD, Yobi1, Yobi2, Yobi3, Yobi4, Yobi5, Yobi6, Yobi7, Yobi8, Yobi9, Yobi10, AutoFlg, PrintFlg) Dim PageType ' If BunsyoSyuruiCD = "MC" Then PageType = "Þ—¿Žd“ü’ " ' Else ' PageType = "”„ã’ " ' End If Dim RowBreakNum, RowCount Dim Page RowCount = 0 If PrintFlg = 1 Then RowBreakNum = 35 Else RowBreakNum = MaxRowBreakNum MaxPage = 1 End If Dim DbKarikataKingakuTotal Dim DbKashikataKingakuTotal DbKarikataKingakuTotal = 0 DbKashikataKingakuTotal = 0 Dim SyoruiMei If AutoFlg = 2 Then If BunsyoSyuruiCD = "MC" Then Query = "exec SPKŽ©“®“]‹L•â••ëƉï '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'AH', '%', '', ''" SyoruiMei = "Žd“ü’ iŽ©“®j" Else Query = "exec SPKŽ©“®“]‹L•â••ëƉï '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'AG', '%', '', ''" SyoruiMei = "”„ã’ iŽ©“®j" End If ElseIf AutoFlg = 1 Then If BunsyoSyuruiCD = "MC" Then Query = "exec SPRŽd“ü”„ãŽÀÑ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','SC','SS','SX',''" SyoruiMei = "“üŒÉŽÀÑ" Else Query = "exec SPRŽd“ü”„ãŽÀÑ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','SU', 'SY', '',''" SyoruiMei = "oŒÉŽÀÑ" End If Else ' If BunsyoSyuruiCD = "MC" Then Query = "exec SPK•â••ë_Þ—¿Žd“ü’ Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" SyoruiMei = "Þ—¿Žd“ü’ " ' Else ' Query = "exec SPK•â••ë_”„ã’ Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" ' SyoruiMei = "”„ã’ " ' End If End If 'Response.Write(Query) Set Content = OpenQuery(Query) If PrintFlg = 0 Then %>
<% End If '•\Ž¦‚ƈóü‚ŃTƒCƒY‰Â•Ï Dim WidthTorihikibi, WidthKingaku, WidthMotocho, WidthParent, WidthParent2 Dim HeightCell If PrintFlg = 0 Then HeightCell = 23 WidthTorihikibi = 82 WidthKingaku = 91 WidthMotocho = 40 WidthParent = 822 WidthParent2 = 802 Else HeightCell = 21 WidthTorihikibi = 68 WidthKingaku = 68 WidthMotocho = 48 WidthParent = 668 WidthParent2 = 666 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 %>
<% = SetStringInsertSpace(SyoruiMei) %> <% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ƒy[ƒW<% End If %>
Žæˆø“ú “E@@@@@@—v ŽØ@@@@@@@•û Œ³
’š		 ‘Ý@@@@•û
‘f@@Þ ”ƒ “ü •” •i HêÁ–Õ•i ”ƒ@Š|@‹à ”@@Œû
<% If PrintFlg <> 1 Then %>
<% End If %> <% Dim Query Dim Content Dim ii, jj ii = 0 Dim Gokei1, Gokei2, Gokei3, Gokei4, Gokei5 Gokei1 = 0 Gokei2 = 0 Gokei3 = 0 Gokei4 = 0 Gokei5 = 0 Do While Not(Content.BOF Or Content.EOF) Dim Torihikibi, Tekiyo, Motocho, Kingaku1, Kingaku2, Kingaku3, Kingaku4, Kingaku5 If AutoFlg = 2 Then ElseIf AutoFlg = 1 Then Else Torihikibi = SetTimeYYYYMMDD(Content.Fields("Žæˆø“ú")) Tekiyo = Content.Fields("“E—v") Motocho = Content.Fields("Œ³’š") Kingaku1 = Content.Fields("‘fÞ") Kingaku2 = Content.Fields("”ƒ“ü•”•i") Kingaku3 = Content.Fields("HêÁ–Õ•i") Kingaku4 = Content.Fields("”ƒŠ|‹à") Kingaku5 = Content.Fields("”Œû") If "" & Kingaku1 <> "" Then Gokei1 = Gokei1 + Kingaku1 If "" & Kingaku2 <> "" Then Gokei2 = Gokei2 + Kingaku2 If "" & Kingaku3 <> "" Then Gokei3 = Gokei3 + Kingaku3 If "" & Kingaku4 <> "" Then Gokei4 = Gokei4 + Kingaku4 If "" & Kingaku5 <> "" Then Gokei5 = Gokei5 + Kingaku5 End If RowCount = RowCount + 1 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ii = ii + 1 Content.MoveNext If RowCount <> 0 And (RowCount Mod RowBreakNum = 0) Then Exit Do End If Loop For jj = RowCount + 1 To Max(17, 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) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Next %>
" & Torihikibi & "" & Tekiyo & "" & ConvIntToMoney(Kingaku1, false, false) & "" & ConvIntToMoney(Kingaku2, false, false) & "" & ConvIntToMoney(Kingaku3, false, false) & "" & Motocho & "" & ConvIntToMoney(Kingaku4, false, false) & "" & ConvIntToMoney(Kingaku5, false, false) & "
   
<% If PrintFlg <> 1 Then %>
<% End If %>
    <% = ConvIntToMoney(Gokei1, false, true) %> <% = ConvIntToMoney(Gokei2, false, true) %> <% = ConvIntToMoney(Gokei3, false, true) %>   <% = ConvIntToMoney(Gokei4, false, true) %> <% = ConvIntToMoney(Gokei5, false, true) %>
<% 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 %>