<% Function SeizoKansetsuHaifuhyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, Yobi1, Yobi2, Yobi3, Yobi4, Yobi5, Yobi6, Yobi7, Yobi8, Yobi9, Yobi10, AutoFlg, PrintFlg) Dim PageType ' If BunsyoSyuruiCD = "MC" Then PageType = "»‘¢ŠÔÚ”ï”z•Š•\" ' 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•â••ë_»‘¢ŠÔÚ”ï”z•Š•\Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" SyoruiMei = "»‘¢ŠÔÚ”ï”z•Š•\" ' 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, WidthSashizuSho, WidthParent, WidthParent2 Dim HeightCell If PrintFlg = 0 Then HeightCell = 23 WidthTorihikibi = 82 WidthKingaku = 91 WidthSashizuSho = 82 WidthParent = 722 WidthParent2 = 702 Else HeightCell = 21 WidthTorihikibi = 68 WidthKingaku = 68 WidthSashizuSho = 61 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 %>
“ú•t Žw}‘”Ô† ”z•Š—¦ ”z•ŠŠî€ ”z•ŠŠz ”õ@@@@@@l
<% 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 Do While Not(Content.BOF Or Content.EOF) Dim Torihikibi, SashizuSho, HaifuRitsu, HaifuKijun, HaihuGaku, Tekiyo If AutoFlg = 2 Then ElseIf AutoFlg = 1 Then Else Torihikibi = SetTimeYYYYMMDD(Content.Fields("Žæˆø“ú")) SashizuSho = Content.Fields("»‘¢Žw}‘") HaifuRitsu = Content.Fields("”z•Š—¦") HaifuKijun = Content.Fields("”z•ŠŠî€") HaihuGaku = Content.Fields("”z•ŠŠz") Tekiyo = Content.Fields("“E—v") 'If "" & HaifuRitsu <> "" Then Gokei1 = Gokei1 + HaifuRitsu If "" & HaifuKijun <> "" Then Gokei2 = Gokei2 + HaifuKijun If "" & HaihuGaku <> "" Then Gokei3 = Gokei3 + HaihuGaku 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) 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(18, 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) Next %>
" & Torihikibi & "" & SashizuSho & "" & ConvIntToMoney(HaifuRitsu, false, false) & "" & ConvIntToMoney(HaifuKijun, false, false) & "" & ConvIntToMoney(HaihuGaku, false, false) & "" & Tekiyo & "
   
<% If PrintFlg <> 1 Then %>
<% End If %>
  <% = ConvIntToMoney(Gokei2, false, true) %> <% = ConvIntToMoney(Gokei3, 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 %>