<%
End If
'•\Ž¦‚ƈóü‚ŃTƒCƒY‰Â•Ï
Dim WidthTorihikibi, WidthTekiyo, WidthKingaku, WidthParent, WidthParent2
Dim HeightCell
If PrintFlg = 0 Then
HeightCell = 23
WidthTorihikibi = 40
WidthTekiyo = 56
WidthKingaku = 82
WidthParent = 922
WidthParent2 = 902
Else
HeightCell = 21
WidthTorihikibi = 32
WidthTekiyo = 40
WidthKingaku = 68
WidthParent = 724
WidthParent2 = 722
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 %> |
|
»‘¢Žw}‘
|
”<% = BunsyoNaiyoCD %>
|
» •i –¼
|
<% = ShohinMeisho %>
|
|
’…Žè“ú
|
<% = SetDate(Syoribi, 3) %>
|
Š®¬“ú
|
<% = SetDate(Kanryobi, 3) %>
|
|
–½—ß”—Ê
|
<% = SeizoLot %> ƒƒbƒg
|
Š®¬”—Ê
|
<% If Kanryobi <> "" Then %>
<% = SeizoLot %> ƒƒbƒg
<% Else %>
<% End If %>
|
|
|
’¼ÚÞ—¿”ï |
’¼Ú˜J–±”ï |
’¼ÚŒo”ï |
»‘¢ŠÔÚ”ï |
W@@@Œv |
“ú•t |
“E—v |
‹àŠz |
“ú•t |
“E—v |
‹àŠz |
“ú•t |
“E—v |
‹àŠz |
“ú•t |
“E—v |
‹àŠz |
“E@@—v |
‹àŠz |
|
<% If PrintFlg <> 1 Then %>
<% End If %>
<%
Dim Query
Dim Content
Dim ii, jj
ii = 0
Dim PageRowCnt
PageRowCnt = 0
Dim Gokei1, Gokei2, Gokei3, Gokei4
Gokei1 = 0
Gokei2 = 0
Gokei3 = 0
Gokei4 = 0
Dim Bottom
Bottom = 0
If Not(Content.BOF Or Content.EOF) Then
Do While Not(Content.BOF Or Content.EOF)
Bottom = Bottom + 1
If "" & Content.Fields("’¼ÚÞ—¿”ï") <> "" Then
Gokei1 = Gokei1 + Content.Fields("’¼ÚÞ—¿”ï")
End If
If "" & Content.Fields("’¼Ú˜J–±”ï") <> "" Then
Gokei2 = Gokei2 + Content.Fields("’¼Ú˜J–±”ï")
End If
If "" & Content.Fields("’¼ÚŒo”ï") <> "" Then
Gokei3 = Gokei3 + Content.Fields("’¼ÚŒo”ï")
End If
If "" & Content.Fields("»‘¢ŠÔÚ”ï") <> "" Then
Gokei4 = Gokei4 + Content.Fields("»‘¢ŠÔÚ”ï")
End If
Content.MoveNext
Loop
Content.MoveFirst
End If
PageRowCnt = 0
Do While Not(Content.BOF Or Content.EOF)
Dim Torihikibi1, Torihikibi2, Torihikibi3, Torihikibi4, Tekiyo1, Tekiyo2, Tekiyo3, Tekiyo4, Kingaku1, Kingaku2, Kingaku3, Kingaku4
If AutoFlg = 2 Then
ElseIf AutoFlg = 1 Then
Else
Torihikibi1 = SetTimeMMDD(Content.Fields("’¼ÚÞ—¿”ï“ú•t"))
Torihikibi2 = SetTimeMMDD(Content.Fields("’¼Ú˜J–±”ï“ú•t"))
Torihikibi3 = SetTimeMMDD(Content.Fields("’¼ÚŒo”ï“ú•t"))
Torihikibi4 = SetTimeMMDD(Content.Fields("»‘¢ŠÔÚ”ï“ú•t"))
Tekiyo1 = Content.Fields("’¼ÚÞ—¿”ï“E—v")
Tekiyo2 = Content.Fields("’¼Ú˜J–±”ï“E—v")
Tekiyo3 = Content.Fields("’¼ÚŒo”ï“E—v")
Tekiyo4 = Content.Fields("»‘¢ŠÔÚ”ï“E—v")
Kingaku1 = Content.Fields("’¼ÚÞ—¿”ï")
Kingaku2 = Content.Fields("’¼Ú˜J–±”ï")
Kingaku3 = Content.Fields("’¼ÚŒo”ï")
Kingaku4 = Content.Fields("»‘¢ŠÔÚ”ï")
End If
RowCount = RowCount + 1
PageRowCnt = PageRowCnt + 1
Response.Write("" & vbCrLf)
If RowCount = Bottom + 1 Then
Response.Write("" & Torihikibi1 & " | " & vbCrLf)
Else
Response.Write("" & Torihikibi1 & " | " & vbCrLf)
End If
Response.Write("" & Tekiyo1 & " | " & vbCrLf)
If RowCount = Bottom Then
Response.Write("" & ConvIntToMoney(Kingaku1, false, false) & " | " & vbCrLf)
ElseIf RowCount = Bottom + 1 Then
Response.Write("" & ConvIntToMoney(Gokei1, false, false) & " | " & vbCrLf)
Else
Response.Write("" & ConvIntToMoney(Kingaku1, false, false) & " | " & vbCrLf)
End If
If RowCount = Bottom + 1 Then
Response.Write("" & Torihikibi2 & " | " & vbCrLf)
Else
Response.Write("" & Torihikibi2 & " | " & vbCrLf)
End If
Response.Write("" & Tekiyo2 & " | " & vbCrLf)
If RowCount = Bottom Then
Response.Write("" & ConvIntToMoney(Kingaku2, false, false) & " | " & vbCrLf)
ElseIf RowCount = Bottom + 1 Then
Response.Write("" & ConvIntToMoney(Gokei2, false, false) & " | " & vbCrLf)
Else
Response.Write("" & ConvIntToMoney(Kingaku2, false, false) & " | " & vbCrLf)
End If
If RowCount = Bottom + 1 Then
Response.Write("" & Torihikibi3 & " | " & vbCrLf)
Else
Response.Write("" & Torihikibi3 & " | " & vbCrLf)
End If
Response.Write("" & Tekiyo3 & " | " & vbCrLf)
If RowCount = Bottom Then
Response.Write("" & ConvIntToMoney(Kingaku3, false, false) & " | " & vbCrLf)
ElseIf RowCount = Bottom + 1 Then
Response.Write("" & ConvIntToMoney(Gokei3, false, false) & " | " & vbCrLf)
Else
Response.Write("" & ConvIntToMoney(Kingaku3, false, false) & " | " & vbCrLf)
End If
If RowCount = Bottom + 1 Then
Response.Write("" & Torihikibi4 & " | " & vbCrLf)
Else
Response.Write("" & Torihikibi4 & " | " & vbCrLf)
End If
Response.Write("" & Tekiyo4 & " | " & vbCrLf)
If RowCount = Bottom Then
Response.Write("" & ConvIntToMoney(Kingaku4, false, false) & " | " & vbCrLf)
ElseIf RowCount = Bottom + 1 Then
Response.Write("" & ConvIntToMoney(Gokei4, false, false) & " | " & vbCrLf)
Else
Response.Write("" & ConvIntToMoney(Kingaku4, false, false) & " | " & vbCrLf)
End If
If PageRowCnt = 1 Then
Response.Write("’¼ÚÞ—¿”ï | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei1, false, false) & " | " & vbCrLf)
ElseIf PageRowCnt = 2 Then
Response.Write("’¼Ú˜J–±”ï | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei2, false, false) & " | " & vbCrLf)
ElseIf PageRowCnt = 3 Then
Response.Write("’¼ Ú Œo ”ï | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei3, false, false) & " | " & vbCrLf)
ElseIf PageRowCnt = 4 Then
Response.Write("»‘¢ŠÔÚ”ï | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei4, false, false) & " | " & vbCrLf)
ElseIf PageRowCnt = 5 Then
Response.Write("» ‘¢ Œ´ ‰¿ | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei1 + Gokei2 + Gokei3 + Gokei4, false, false) & " | " & vbCrLf)
Else
Response.Write("
| " & vbCrLf)
Response.Write("
| " & vbCrLf)
End If
Response.Write(" " & vbCrLf)
ii = ii + 1
Content.MoveNext
If RowCount <> 0 And (RowCount Mod RowBreakNum = 0) Then
Exit Do
End If
Loop
PageRowCnt = PageRowCnt + 1
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei1, false, false) & " | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei2, false, false) & " | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei3, false, false) & " | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei4, false, false) & " | " & vbCrLf)
If PageRowCnt = 1 Then
Response.Write("’¼ÚÞ—¿”ï | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei1, false, false) & " | " & vbCrLf)
ElseIf PageRowCnt = 2 Then
Response.Write("’¼Ú˜J–±”ï | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei2, false, false) & " | " & vbCrLf)
ElseIf PageRowCnt = 3 Then
Response.Write("’¼ Ú Œo ”ï | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei3, false, false) & " | " & vbCrLf)
ElseIf PageRowCnt = 4 Then
Response.Write("»‘¢ŠÔÚ”ï | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei4, false, false) & " | " & vbCrLf)
ElseIf PageRowCnt = 5 Then
Response.Write("» ‘¢ Œ´ ‰¿ | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei1 + Gokei2 + Gokei3 + Gokei4, false, false) & " | " & vbCrLf)
Else
Response.Write("
| " & vbCrLf)
Response.Write("
| " & vbCrLf)
End If
For jj = RowCount + 1 To Max(30, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg)
PageRowCnt = PageRowCnt + 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)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
If PageRowCnt = 1 Then
Response.Write("’¼ÚÞ—¿”ï | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei1, false, false) & " | " & vbCrLf)
ElseIf PageRowCnt = 2 Then
Response.Write("’¼Ú˜J–±”ï | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei2, false, false) & " | " & vbCrLf)
ElseIf PageRowCnt = 3 Then
Response.Write("’¼ Ú Œo ”ï | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei3, false, false) & " | " & vbCrLf)
ElseIf PageRowCnt = 4 Then
Response.Write("»‘¢ŠÔÚ”ï | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei4, false, false) & " | " & vbCrLf)
ElseIf PageRowCnt = 5 Then
Response.Write("» ‘¢ Œ´ ‰¿ | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Gokei1 + Gokei2 + Gokei3 + Gokei4, false, false) & " | " & vbCrLf)
Else
Response.Write("
| " & vbCrLf)
Response.Write("
| " & vbCrLf)
End If
Response.Write(" " & vbCrLf)
Next
%>
<% If PrintFlg <> 1 Then %>
<% 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
%>
|
|