<% Function HojyoboTozaYokinSuitohyoTutyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg, Param1, Param2, Param3) '期中口座開設の有無を確認するフラグ Dim KichuKaisetsu KichuKaisetsu = false Dim GinkoCD GinkoCD = BunsyoNaiyoCD Dim RowBreakNum, RowCount Dim Page RowCount = 0 If PrintFlg = 1 Then RowBreakNum = 35 Else RowBreakNum = MaxRowBreakNum MaxPage = 1 End If Dim DbKarikataKingakuTotal Dim DbKashikataKingakuTotal DbKarikataKingakuTotal = 0 DbKashikataKingakuTotal = 0 Dim KozaKubun, KozaBango KozaKubun = Param1 KozaBango = Param2 Dim SyoruiMei If AutoFlg = 1 Then 'Query = "exec SPB銀行口座入出金一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & GinkoCD & "', '" & Param1 & "', '" & Param2 & "'" Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '', '" & GinkoCD & "', '" & Param1 & "', '" & Param2 & "'" SyoruiMei = "預金通帳(未完成)" Else Query = "exec SPK補助簿_当座預金出納帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & GinkoCD & "'" SyoruiMei = "当座預金出納帳" End If Set Content = OpenQuery(Query) If 0=1 And PrintFlg = 0 Then %>
<% End If For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) End If %>
<% If PrintFlg = 0 Then %> <% Else %>
<% End If %>
<% If PrintFlg = 1 Then Response.Write(PrintHeader1(AutoFlg)) End if %> <% If PrintFlg = 0 Then %> <% Else %>
<% End If %>
<% =ConvKaisyaRyakuMeisyoDx(EnshuCD, GinkoCD) %>  <% = ConvKubunMeisyo("口座区分", KozaKubun) & "預金" %>  <% = KozaBango %>  <% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ページ<% End If %>
  年月日 お支払金額 お預り金額 差引残高 取引内訳 摘要
<% If PrintFlg <> 1 Then %>
<% End If %> <% Dim Query Dim Content Dim ii, jj ii = 0 If GinkoCD <> "" Then Do While Not(Content.BOF Or Content.EOF) '期中に口座開設が行われている場合は繰越金額0のゴミレコードを表示しない If Not(KichuKaisetsu) Or Content.Fields("処理時期区分") <> 0 Or Content.Fields("金額") > 0 Then RowCount = RowCount + 1 Dim TouzaYokinSuitotyoCD, Torihikibi, Tekiyo, KogitteNO, Azukeire, Hikidasi, Taisyaku, Zandaka Azukeire = "" Hikidasi = "" Dim Torihiki Torihiki = "" & Content.Fields("銀行取引区分名称") If Torihiki = "証明書手数料" Then Torihiki = "証明手数料" End If If AutoFlg = 0 Then Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日")) KogitteNO = Content.Fields("小切手NO") Azukeire = Content.Fields("預入金額") Hikidasi = Content.Fields("払出金額") Taisyaku = Content.Fields("貸借略名称") Zandaka = Content.Fields("残高") Else If Content.Fields("処理時期区分") <> 0 And "" & Content.Fields("結果通知種類CD") = "BN" Then '期中に口座開設が行われている場合にフラグを立てる KichuKaisetsu = True End If Torihikibi = SetTimeYYYYMMDD(Content.Fields("処理日")) If Right(Content.Fields("銀行取引区分"), 1) = "N" Then Azukeire = Content.Fields("金額") '金額NULLの例外対策(110112小野) If "" & Azukeire <> "" Then Zandaka = Zandaka + Azukeire End If Else Hikidasi = Content.Fields("金額") '金額NULLの例外対策(110112小野) If "" & Hikidasi <> "" Then Zandaka = Zandaka - Hikidasi End If End If If Zandaka >= 0 Then Taisyaku = "借" Else Taisyaku = "貸" End If End If Tekiyo = Content.Fields("摘要") 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("") ii = ii + 1 Content.MoveNext If (RowCount Mod RowBreakNum = 0) Then Exit Do End If Else Content.MoveNext End If Loop End If For jj = RowCount + 1 To Max(35, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg) ' For jj = ii To RowBreakNum 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 %>
 
" & Torihikibi & "
" & ConvIntToMoney(Hikidasi, false, false) & "
" & ConvIntToMoney(Azukeire, false, false) & "
" & ConvIntToMoney(Zandaka, false, false) & "
" & Torihiki & "
" & Tekiyo & "
<% If PrintFlg <> 1 Then %>
<% End If %>
<% If PrintFlg = 1 Then Response.Write(PrintFooter()) End If %>
<% If (Content.BOF Or Content.EOF) Then Exit For End If Next If 0=1 And PrintFlg = 0 Then %>
<% End if End Function %>