<% = AppTitle %>

<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Kaishibi, Syuryobi Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim PageType PageType = "キャッシュフロー計算書" Dim RouteType RouteType = Request("RouteType") %> <% = AppTitle %>

<% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/sj4web/user/bk/menu_s_viewonly.asp')", "社長室・総務部", "", "財務集計", "", PageType, "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/sj4web/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/sj4web/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/sj4web/user/bk/menu_s4.asp')", "財務諸表", "tblbtn( '/sj4web/user/bk/menu_s41.asp')", "キャッシュフロー", "tblbtn( 'rm_caseflow.asp')", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, "")) %>

<% = SetStringInsertSpace(PageType) %>

対象期間 <% = Kaishibi %> ～ <% = Syuryobi %>
勘定項目	金額

<% Dim Query Dim Content Dim i Dim RowCount, RowBreakNum Dim ii, jj 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) & "

<% = HtmlFooter %> <% End Sub %>