<%
End If
'表示と印刷でサイズ可変
Dim WidthTorihikibi, WidthKingakuWide, WidthKingakuNarrow, WidthParent, WidthParent2, WidthTekiyo
Dim HeightCell
If PrintFlg = 0 Then
HeightCell = 23
WidthTorihikibi = 82
WidthKingakuWide = 92
WidthKingakuNarrow = 72
WidthParent = 842
WidthParent2 = 822
WidthTekiyo = 187
Else
HeightCell = 21
WidthTorihikibi = 68
WidthKingakuWide = 78
WidthKingakuNarrow = 62
WidthParent = 700
WidthParent2 = 680
WidthTekiyo = 157
End If
Dim GokeiSyunyu
Dim GokeiShisyutsu
Dim GokeiKingaku1
Dim GokeiKingaku2
Dim GokeiKingaku3
Dim GokeiKingaku4
Dim GokeiKingaku5
GokeiSyunyu = 0
GokeiShisyutsu = 0
GokeiKingaku1 = 0
GokeiKingaku2 = 0
GokeiKingaku3 = 0
GokeiKingaku4 = 0
GokeiKingaku5 = 0
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 = ""
'exit function
Do While Not(Content.BOF Or Content.EOF)
RowCount = RowCount + 1
Dim Torihikibi, Tekiyo, Syunyu, Shisyutsu, Kingaku1, Kingaku2, Kingaku3, Kingaku4, Kingaku5
'自動現金出納帳(伝票集計)
If AutoFlg = 2 Then
Torihikibi = 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 = Content.Fields("取引日")
Syunyu = Content.Fields("受入")
Shisyutsu = Content.Fields("支払")
Tekiyo = Content.Fields("摘要")
Kingaku1 = Content.Fields("通信費")
Kingaku2 = Content.Fields("交通費")
Kingaku3 = Content.Fields("消耗品費")
Kingaku4 = Content.Fields("水道光熱費")
Kingaku5 = Content.Fields("その他")
If "" & Syunyu <> "" Then
GokeiSyunyu = GokeiSyunyu + Syunyu
End If
If "" & Shisyutsu <> "" Then
GokeiShisyutsu = GokeiShisyutsu + Shisyutsu
End If
If "" & Kingaku1 <> "" Then
GokeiKingaku1 = GokeiKingaku1 + Kingaku1
End If
If "" & Kingaku2 <> "" Then
GokeiKingaku2 = GokeiKingaku2 + Kingaku2
End If
If "" & Kingaku3 <> "" Then
GokeiKingaku3 = GokeiKingaku3 + Kingaku3
End If
If "" & Kingaku4 <> "" Then
GokeiKingaku4 = GokeiKingaku4 + Kingaku4
End If
If "" & Kingaku5 <> "" Then
GokeiKingaku5 = GokeiKingaku5 + Kingaku5
End If
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("" & ConvIntToMoney(Syunyu , false, true) & " | " & vbCrLf)
Response.Write("" & Torihikibi & " | " & vbCrLf)
Response.Write("" & HardWrap(Tekiyo) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Shisyutsu , false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku1 , false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku2 , false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku3 , false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku4 , false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku5 , false, true) & " | " & vbCrLf)
Response.Write(" " &vbCrLf)
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(" | " & 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(GokeiSyunyu, false, true) %> |
|
合 計 |
<% = ConvIntToMoney(GokeiShisyutsu, false, true) %> |
<% = ConvIntToMoney(GokeiKingaku1, false, true) %> |
<% = ConvIntToMoney(GokeiKingaku2, false, true) %> |
<% = ConvIntToMoney(GokeiKingaku3, false, true) %> |
<% = ConvIntToMoney(GokeiKingaku4, false, true) %> |
<% = ConvIntToMoney(GokeiKingaku5, 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
%>
|
|