%
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
%>
|
<% = 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("" & Torihikibi & " | " & vbCrLf)
Response.Write("" & SashizuSho & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(HaifuRitsu, false, false) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(HaifuKijun, false, false) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(HaihuGaku, false, false) & " | " & vbCrLf)
Response.Write("" & Tekiyo & " | " & 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
%>
<% If PrintFlg <> 1 Then %>
<% End If %>
|
<% If Content.BOF Or Content.EOF Then %>
|
|
|
<% = ConvIntToMoney(Gokei2, false, true) %> |
<% = ConvIntToMoney(Gokei3, false, true) %> |
|
|
<% End If %>
<%
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
%>