<%
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 %>ページ<% End If %> |
<% If GB_IEmode <> "1" Then %>
<% = Spacer(1, 7) %>
<% End If %>
|
|
|
<% If PrintFlg <> 1 Then %>
<% End If %>
<%
Dim Query
Dim Content
Dim ii, jj
ii = 0
'月計表示のため現在の月を保持する変数(110509小野)
Dim TmpMonth
TmpMonth = ""
Do While Not(Content.BOF Or Content.EOF)
RowCount = RowCount + 1
Dim Torihikibi, Tekiyo, Syunyu, Shisyutsu, Zandaka
'自動現金出納帳(伝票集計)
If AutoFlg = 2 Then
Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
Syunyu = Content.Fields("借方金額")
Shisyutsu = Content.Fields("貸方金額")
Zandaka = Zandaka + Syunyu - Shisyutsu
Tekiyo = "" & Content.Fields("伝票摘要")
If Tekiyo = "" Then
Tekiyo = Content.Fields("摘要")
End If
'自動現金入出金履歴(現物集計)
ElseIf AutoFlg = 1 Then
Torihikibi = Content.Fields("処理日")
If Content.Fields("現金取引区分") = "GN" Then
Syunyu = Content.Fields("金額")
Shisyutsu = 0
ElseIf Content.Fields("現金取引区分") = "GS" Then
Syunyu = 0
Shisyutsu = Content.Fields("金額")
Else
Syunyu = Content.Fields("金額")
Shisyutsu = Content.Fields("金額")
End If
Zandaka = Zandaka + Syunyu - Shisyutsu
Tekiyo = Content.Fields("摘要")
Else
Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
Syunyu = Content.Fields("収入金額")
Shisyutsu = Content.Fields("支出金額")
Zandaka = Content.Fields("残高")
Tekiyo = Content.Fields("摘要")
End If
'月計表示(110509小野)(とりあえず保留)
If 0=1 And TmpMonth <> "" And Mid(Torihikibi, 6, 2) <> TmpMonth Then
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write("" & ConvIntToMoney(DbKarikataKingakuTotal , false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(DbKashikataKingakuTotal, false, true) & " | " & vbCrLf)
Response.Write(" | " & vbCrLf)
DbKarikataKingakuTotal = 0 'リセット
DbKashikataKingakuTotal = 0 'リセット
'発生行のためMoveNextせず改ページ判定する
If (RowCount Mod RowBreakNum = 0) Then
Exit Do
End If
End If
TmpMonth = Mid(Torihikibi, 6, 2)
If "" & Syunyu <> "" Then
DbKarikataKingakuTotal = DbKarikataKingakuTotal + Syunyu
End If
If "" & Shisyutsu <> "" Then
DbKashikataKingakuTotal = DbKashikataKingakuTotal + Shisyutsu
End If
Response.Write("" & vbCrLf)
Response.Write("" & Torihikibi & " | " & vbCrLf)
Response.Write("" & HardWrap(Tekiyo) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Syunyu , false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Shisyutsu, false, true) & " | " & vbCrLf)
If Zandaka <> 0 Then
Response.Write("" & ConvIntToMoney(Zandaka, false, true) & " | " & vbCrLf)
Else
'Response.Write("" & Zandaka & " | " & vbCrLf)
Response.Write(" | " & vbCrLf)
End If
Response.Write(" ")
ii = ii + 1
Content.MoveNext
If (RowCount Mod RowBreakNum = 0) Then
Exit Do
End If
Loop
For jj = RowCount + 1 To Max(30, 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(" ")
Next
%>
<% If PrintFlg <> 1 Then %>
<% End If %>
|
<% If (Content.BOF Or Content.EOF) Then %>
合計 |
<% = ConvIntToMoney(DbKarikataKingakuTotal, false, true) %> |
<% = ConvIntToMoney(DbKashikataKingakuTotal, 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
%>
|
|