<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim PageType Dim KozaKubun, KozaBango, BackGinkoCD BackGinkoCD = Request("BackGinkoCD") KozaKubun = Request("KozaKubun") KozaBango = Request("KozaBango") Dim GinkoCD If Left(GB_GyosyuKubun, 1) = "B" Then GinkoCD = KaisyaCD PageType = "口座入出金一覧" Else GinkoCD = Request("GinkoCD") PageType = "口座残高照会" End If %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Dim RowBreakNum, RowCount Dim Page RowBreakNum = 36 RowCount = 0 Dim Zandaka Zandaka = 0 Dim Query Dim Content Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '', '" & GinkoCD & "', '" & KozaKubun & "', '" & KozaBango & "'" Set Content = OpenQuery(Query) For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) End If %>

<% Response.Write(PrintHeader(Page, PageType)) Response.Write("" & ConvKubunMeisyo("口座区分", KozaKubun) & "：" & KozaBango & "" & vbCrLf) %> <% Dim ii, jj ii = 0 Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If Right(Content.Fields("銀行取引区分"), 1) = "N" Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If "" & Content.Fields("金額") <> "" Then Zandaka = Zandaka + Content.Fields("金額") End If Else Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If "" & Content.Fields("金額") <> "" Then Zandaka = Zandaka - Content.Fields("金額") End If End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") Content.MoveNext If (RowCount Mod RowBreakNum = 0) Then Exit Do End If Loop %> 取引日 出金 入金 残高 取引内訳 摘要 " & SetTimeYYYYMMDD(Content.Fields("処理日")) & "   " & ConvIntToMoney(Content.Fields("金額"), false ,false) & "  " & ConvIntToMoney(Content.Fields("金額"), false ,false) & "    " & ConvIntToMoney(Zandaka , false ,false) & "  " & ConvKubunMeisyo("銀行取引区分", Content.Fields("銀行取引区分")) & " " & Content.Fields("摘要") & " <% Response.Write(PrintFooter()) %>

<% If (Content.BOF Or Content.EOF) Then Exit For End If Next %> <% End Sub %>