<% Function HojyoboGenkinSuitohyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg) 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 SyoruiMei If AutoFlg = 2 Then Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'AA', '%', '', ''" SyoruiMei = "現金出納帳(自動)" ElseIf AutoFlg = 1 Then Query = "exec SPK現金入出金履歴一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" SyoruiMei = "入出金履歴" Else Query = "exec SPK補助簿_現金出納帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" SyoruiMei = "現金出納帳" End If 'response.write(Query) 'Exit function 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 GB_IEmode <> "1" Then %>
<% = Spacer(1, 7) %>
<% End If %>
取引日 摘 要 収 入 支 出 残 高
<% If PrintFlg <> 1 Then %>
<% End If %> <% Dim Query Dim Content Dim ii, jj ii = 0 '月計表示のため現在の月を保持する変数(110509小野) Dim TmpMonth TmpMonth = "" Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 Dim Torihikibi, Tekiyo, Syunyu, Shisyutsu, Zandaka '自動現金出納帳(伝票集計) If AutoFlg = 2 Then Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日")) Syunyu = Content.Fields("借方金額") Shisyutsu = Content.Fields("貸方金額") Zandaka = Zandaka + Syunyu - Shisyutsu Tekiyo = "" & Content.Fields("伝票摘要") If Tekiyo = "" Then Tekiyo = Content.Fields("摘要") End If '自動現金入出金履歴(現物集計) ElseIf AutoFlg = 1 Then Torihikibi = Content.Fields("処理日") If Content.Fields("現金取引区分") = "GN" Then Syunyu = Content.Fields("金額") Shisyutsu = 0 ElseIf Content.Fields("現金取引区分") = "GS" Then Syunyu = 0 Shisyutsu = Content.Fields("金額") Else Syunyu = Content.Fields("金額") Shisyutsu = Content.Fields("金額") End If Zandaka = Zandaka + Syunyu - Shisyutsu Tekiyo = Content.Fields("摘要") Else Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日")) Syunyu = Content.Fields("収入金額") Shisyutsu = Content.Fields("支出金額") Zandaka = Content.Fields("残高") Tekiyo = Content.Fields("摘要") End If '月計表示(110509小野)(とりあえず保留) If 0=1 And TmpMonth <> "" And Mid(Torihikibi, 6, 2) <> TmpMonth Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) DbKarikataKingakuTotal = 0 'リセット DbKashikataKingakuTotal = 0 'リセット '発生行のためMoveNextせず改ページ判定する If (RowCount Mod RowBreakNum = 0) Then Exit Do End If End If TmpMonth = Mid(Torihikibi, 6, 2) If "" & Syunyu <> "" Then DbKarikataKingakuTotal = DbKarikataKingakuTotal + Syunyu End If If "" & Shisyutsu <> "" Then DbKashikataKingakuTotal = DbKashikataKingakuTotal + Shisyutsu End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If Zandaka <> 0 Then Response.Write("" & vbCrLf) Else 'Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If Response.Write("") ii = ii + 1 Content.MoveNext If (RowCount Mod RowBreakNum = 0) Then Exit Do End If Loop 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("") Next %>
  " & ConvIntToMoney(DbKarikataKingakuTotal , false, true) & "" & ConvIntToMoney(DbKashikataKingakuTotal, false, true) & " 
" & Torihikibi & "" & HardWrap(Tekiyo) & "" & ConvIntToMoney(Syunyu , false, true) & "" & ConvIntToMoney(Shisyutsu, false, true) & "" & ConvIntToMoney(Zandaka, false, true) & "" & Zandaka & " 
<% 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 %>