<% ' ' ' %> <% main() Sub main() Dim Kaishibi Dim Syuryobi Dim Query Dim Content Dim ii, jj Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If %> <% If PrintMarginControl > 0 Then %> <% = ScriptXObject() %> <% Else %> <% End If %>

<% Response.Write(PrintHeader(0, "キャッシュフロー計算書")) %> 対象期間 <% = Kaishibi %> 〜 <% = Syuryobi %> 勘 定 項 目 金 額 <% Dim RowCount, RowBreakNum ii = 0 RowCount = 0 RowBreakNum = 5 Query = "exec SPKキャッシュフロー '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 Response.Write("" & vbCrLf) ' Response.Write("") Response.Write("") Response.Write("") ' Response.Write("") ' Response.Write("" & vbCrLf) ii = ii + 1 Content.MoveNext Loop %> " & Content.Fields("勘定名称") & " ") Response.Write("") Response.Write("") Response.Write(" " & Content.Fields("分類名称") & " " & Content.Fields("勘定名称") & " " & ConvIntToMoney(Content.Fields("金額左"), false, true) & " " & ConvIntToMoney(Content.Fields("金額右"), false, false) & " <% Response.Write(PrintFooter()) %>

<% End Sub %>