<% Function HojyoboTozaYokinSuitohyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg, Param1, Param2, Param3) Dim GinkoCD GinkoCD = BunsyoNaiyoCD Dim RowBreakNum, RowCount Dim Page RowCount = 0 If PrintFlg = 1 Then RowBreakNum = 33 Else RowBreakNum = MaxRowBreakNum MaxPage = 1 End If Dim DbKarikataKingakuTotal Dim DbKashikataKingakuTotal DbKarikataKingakuTotal = 0 DbKashikataKingakuTotal = 0 Dim KozaKubun, KozaBango KozaKubun = Param1 KozaBango = Param2 If KozaKubun = "" Then KozaKubun = "T" End If '記帳の有無を確認するフラグ（照会集計画面用） Dim KichoFlg Set KichoFlg = Server.CreateObject("Scripting.Dictionary") Query = "" Query = Query & " " Query = Query & " SELECT 銀行CD, COUNT(当座預金出納帳CD) AS 記帳数 " Query = Query & " FROM TSK補助簿_当座預金出納帳F " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & GB_KaisyaCD & "' " Query = Query & " GROUP BY 銀行CD " Query = Query & " " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ' 引数は確実に文字列指定しないとダメ KichoFlg("" & Content.Fields("銀行CD")) = "" & Content.Fields("記帳数") Content.MoveNext Loop Dim SyoruiMei If AutoFlg = 2 Then '記帳の有無を確認するフラグ（照会集計画面用） Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'AB', 'ALLALLALLALLALLALL', '', ''" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ' 引数は確実に文字列指定しないとダメ KichoFlg("" & Content.Fields("取引先名称")) = "1" '名称しか取得できないので名称基準 Content.MoveNext Loop Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'AB', '" & GinkoCD & "', '', ''" SyoruiMei = "当座預金出納帳（自動）" ElseIf AutoFlg = 1 Then Query = "exec SPB銀行口座入出金一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & GinkoCD & "', '" & KozaKubun & "', '" & KozaBango & "'" SyoruiMei = "預金入出金履歴" Else '記帳の有無を確認するフラグ（照会集計画面用） Query = "" Query = Query & " " Query = Query & " SELECT 銀行CD, COUNT(当座預金出納帳CD) AS 記帳数 " Query = Query & " FROM TSK補助簿_当座預金出納帳F " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & GB_KaisyaCD & "' " Query = Query & " GROUP BY 銀行CD " Query = Query & " " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ' 引数は確実に文字列指定しないとダメ KichoFlg("" & Content.Fields("銀行CD")) = "" & Content.Fields("記帳数") Content.MoveNext Loop Query = "exec SPK補助簿_当座預金出納帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & GinkoCD & "'" SyoruiMei = "当座預金出納帳" End If Set Content = OpenQuery(Query) If PrintFlg = 0 Then %>
<% End If For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) End If %>
<% If PrintFlg = 1 Then Response.Write(PrintHeader1(AutoFlg)) End if %>
<% If (Content.BOF Or Content.EOF) Then %> <% End If %>
<% = SetStringInsertSpace(SyoruiMei) %> <% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ページ<% End If %>
銀行名 ： <% If (AutoFlg = 2 Or Param3 = "ViewOnly") And PrintFlg <> 1 And InStr(Request.ServerVariables("URL"), "fm_tyohyo_main.asp") < 1 Then If AutoFlg = 2 Then Response.Write("" & vbCrLf) End If If AutoFlg = 0 Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If Dim ContentGinko Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & GakuseiNo & "'" Set ContentGinko = OpenQuery(Query) Do While Not(ContentGinko.BOF Or ContentGinko.EOF) 'サイバー会計モードでは全会社を表示（091005小野） If PackageMode = 1 Or ContentGinko.Fields("業種CD") = "B" Then '照会集計画面では記帳の存在する科目に絞り込む 引数は確実に文字列指定しないとダメ If AutoFlg = 1 Or (AutoFlg = 2 And KichoFlg("" & ContentGinko.Fields("会社名称")) <> "") Or (AutoFlg <> 1 And AutoFlg <> 2 And "" & KichoFlg("" & ContentGinko.Fields("会社CD")) <> "") Then Response.Write("" & vbCrLf) End If End If ContentGinko.MoveNext Loop Response.Write("" & vbCrLf) Else Response.Write(ConvKaisyaMeisyoDx(EnshuCD, GinkoCD)) End If %>
取引日 摘　要 小切手NO 預　入 引　出 貸借 残　高
<% 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) RowCount = RowCount + 1 Dim TouzaYokinSuitotyoCD, Torihikibi, Tekiyo, KogitteNO, Azukeire, Hikidasi, Taisyaku, Zandaka Azukeire = "" Hikidasi = "" If AutoFlg = 0 Then Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日")) KogitteNO = Content.Fields("小切手NO") Azukeire = Content.Fields("預入金額") Hikidasi = Content.Fields("払出金額") Taisyaku = Content.Fields("貸借略名称") Zandaka = Content.Fields("残高") Tekiyo = Content.Fields("摘要") '預金入出金履歴（預金集計） ElseIf AutoFlg = 1 Then Torihikibi = Content.Fields("処理日") If Right(Content.Fields("銀行取引区分"), 1) = "N" Then Azukeire = Content.Fields("金額") Zandaka = Zandaka + Azukeire Else Hikidasi = Content.Fields("金額") Zandaka = Zandaka - Hikidasi End If If Zandaka >= 0 Then Taisyaku = "借" Else Taisyaku = "貸" End If Tekiyo = Content.Fields("摘要") '自動当座預金出納帳（伝票集計） Else Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日")) Azukeire = Content.Fields("借方金額") Hikidasi = Content.Fields("貸方金額") Zandaka = Zandaka + Azukeire - Hikidasi If Zandaka >= 0 Then Taisyaku = "借" Else Taisyaku = "貸" End If Tekiyo = "" & Content.Fields("伝票摘要") If Tekiyo = "" Then Tekiyo = Content.Fields("摘要") End If End If If "" & Azukeire <> "" Then DbKarikataKingakuTotal = DbKarikataKingakuTotal + Azukeire End If If "" & Hikidasi <> "" Then DbKashikataKingakuTotal = DbKashikataKingakuTotal + Hikidasi End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) 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 ' End If For jj = RowCount + 1 To Max(30, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg) 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 & "" & HardWrap(Tekiyo) & "" & KogitteNO & "" & ConvIntToMoney(Azukeire , false, false) & "" & ConvIntToMoney(Hikidasi, false, false) & "" & Taisyaku & "" & ConvIntToMoney(Zandaka, false, false) & "
<% If PrintFlg <> 1 Then %>
<% End If %>
合計 <% = ConvIntToMoney(DbKarikataKingakuTotal, false, true) %> <% = ConvIntToMoney(DbKashikataKingakuTotal, false, true) %> 　
<% If PrintFlg = 1 Then Response.Write(PrintFooter()) End If %>
<% If (Content.BOF Or Content.EOF) Then Exit For End If Next If PrintFlg = 0 Then %>
<% End if End Function %>