<% Function HojyobokoguchiSuitohyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg) 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 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 '表示と印刷でサイズ可変 Dim WidthTorihikibi, WidthKingakuWide, WidthKingakuNarrow, WidthParent, WidthParent2, WidthTekiyo Dim HeightCell If PrintFlg = 0 Then HeightCell = 23 WidthTorihikibi = 82 WidthKingakuWide = 92 WidthKingakuNarrow = 72 WidthParent = 842 WidthParent2 = 822 WidthTekiyo = 187 Else HeightCell = 21 WidthTorihikibi = 68 WidthKingakuWide = 78 WidthKingakuNarrow = 62 WidthParent = 700 WidthParent2 = 680 WidthTekiyo = 157 End If Dim GokeiSyunyu Dim GokeiShisyutsu Dim GokeiKingaku1 Dim GokeiKingaku2 Dim GokeiKingaku3 Dim GokeiKingaku4 Dim GokeiKingaku5 GokeiSyunyu = 0 GokeiShisyutsu = 0 GokeiKingaku1 = 0 GokeiKingaku2 = 0 GokeiKingaku3 = 0 GokeiKingaku4 = 0 GokeiKingaku5 = 0 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 = "" 'exit function Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 Dim Torihikibi, Tekiyo, Syunyu, Shisyutsu, Kingaku1, Kingaku2, Kingaku3, Kingaku4, Kingaku5 '自動現金出納帳(伝票集計) If AutoFlg = 2 Then Torihikibi = 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 = Content.Fields("取引日") Syunyu = Content.Fields("受入") Shisyutsu = Content.Fields("支払") Tekiyo = Content.Fields("摘要") Kingaku1 = Content.Fields("通信費") Kingaku2 = Content.Fields("交通費") Kingaku3 = Content.Fields("消耗品費") Kingaku4 = Content.Fields("水道光熱費") Kingaku5 = Content.Fields("その他") If "" & Syunyu <> "" Then GokeiSyunyu = GokeiSyunyu + Syunyu End If If "" & Shisyutsu <> "" Then GokeiShisyutsu = GokeiShisyutsu + Shisyutsu End If If "" & Kingaku1 <> "" Then GokeiKingaku1 = GokeiKingaku1 + Kingaku1 End If If "" & Kingaku2 <> "" Then GokeiKingaku2 = GokeiKingaku2 + Kingaku2 End If If "" & Kingaku3 <> "" Then GokeiKingaku3 = GokeiKingaku3 + Kingaku3 End If If "" & Kingaku4 <> "" Then GokeiKingaku4 = GokeiKingaku4 + Kingaku4 End If If "" & Kingaku5 <> "" Then GokeiKingaku5 = GokeiKingaku5 + Kingaku5 End If 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) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" &vbCrLf) 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("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") Next %>
  " & ConvIntToMoney(DbKarikataKingakuTotal , false, true) & "" & ConvIntToMoney(DbKashikataKingakuTotal, false, true) & " 
" & ConvIntToMoney(Syunyu , false, true) & "" & Torihikibi & "" & HardWrap(Tekiyo) & "" & ConvIntToMoney(Shisyutsu , false, true) & "" & ConvIntToMoney(Kingaku1 , false, true) & "" & ConvIntToMoney(Kingaku2 , false, true) & "" & ConvIntToMoney(Kingaku3 , false, true) & "" & ConvIntToMoney(Kingaku4 , false, true) & "" & ConvIntToMoney(Kingaku5 , false, true) & "
         
<% If PrintFlg <> 1 Then %>
<% End If %>
<% = ConvIntToMoney(GokeiSyunyu, false, true) %>   合    計 <% = ConvIntToMoney(GokeiShisyutsu, false, true) %> <% = ConvIntToMoney(GokeiKingaku1, false, true) %> <% = ConvIntToMoney(GokeiKingaku2, false, true) %> <% = ConvIntToMoney(GokeiKingaku3, false, true) %> <% = ConvIntToMoney(GokeiKingaku4, false, true) %> <% = ConvIntToMoney(GokeiKingaku5, 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 %>