|
|
<%
Dim Query
Dim Content
Dim ii, jj, iiDef, NyuSyu
Dim Total
Total = 0
ii = 0
iiDef = -1
Query = "exec SPK現金入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
''''''' 型を統一する為、ダミー演算を行う（int → Char）
Nyusyu = "" & Content.Fields("現金入出金CD")
If GenkinNyusyukinCD = NyuSyu Then
iiDef = ii
End If
If Content.Fields("現金取引区分") = GenkinTorihikiKubun Or GenkinTorihikiKubun = "" Then
If Content.Fields("処理時期区分") = 1 Then
Response.Write("" & vbCrLf)
Response.Write("| " & SetTimeYYYYMMDD(Content.Fields("処理日")) & " | " & vbCrLf)
Response.Write(" " & Content.Fields("摘要") & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Content.Fields("金額"), false, false) & " | " & vbCrLf)
Response.Write(" ")
Total = Total + Content.Fields("金額")
ii = ii + 1
End If
End If
Content.MoveNext
Loop
For jj = ii To 20
Response.Write("" & vbCrLf)
Response.Write("| | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" ")
ii = ii + 1
Next
For jj = ii To 14 '高さ調節
Response.Write("" & vbCrLf)
Response.Write("| | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" ")
Next
%>
|
| |
合 計 |
<% = ConvIntToMoney(Total, false, false) %> |
|
|
|
|