<% Function TyoboGokeiZandakaShisanhyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg, Param1, Param2, Param3) Dim RowBreakNum, RowCount Dim Page RowCount = 0 If PrintFlg = 1 Then RowBreakNum = 30 Else RowBreakNum = MaxRowBreakNum MaxPage = 1 End If Dim Query Dim Content Dim Content2 Dim ii, jj ii = 0 Dim RouteType RouteType = Request("RouteType") Dim Torihikibi Torihikibi = Request("Torihikibi") If BunsyoNaiyoCD <> "" Then Torihikibi = BunsyoNaiyoCD End If Dim KaikeiKaishibi, KaikeiSyuryobi Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KaikeiKaishibi = Content.Fields("会計開始日") KaikeiSyuryobi = Content.Fields("会計終了日") End If If Param1 <> "" Then '「開始日;終了日」の形式で範囲指定出来るよう変更（120305小野） If InStr(Param1, ";") < 1 Then '終了日のみの場合 KaikeiSyuryobi = Param1 Else '「開始日;終了日」の場合 Dim FromTo FromTo = Split(Param1, ";") KaikeiKaishibi = FromTo(0) KaikeiSyuryobi = FromTo(1) End If End If If Param2 = "2" Then Param2 = "11" ElseIf Param2 = "1" Then Param2 = "10" Else Param2 = "9" End If Dim SyoruiMei If AutoFlg = 0 Then ' Query = "exec SPK帳簿_合計残高試算表取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Query = "exec SPK帳簿_合計残高試算表取得日付指定 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & Torihikibi & "'" SyoruiMei = "合計残高試算表" ElseIf AutoFlg = 1 Then Query = "exec SPK自動転記帳簿_合計残高試算表照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaikeiKaishibi & "', '" & KaikeiSyuryobi & "', " & Param2 & ", '" & Param3 & "'" SyoruiMei = "合計残高試算表（自動）" Else Query = "SELECT * FROM TC1システムM WHERE 1 = 0" SyoruiMei = "合計残高試算表" End If If AutoFlg = 1 Then If Param2 = "11" Then SyoruiMei = "決算残高試算表（自動）" ElseIf Param2 = "10" Then SyoruiMei = "修正後残高試算表（自動）" End If End If Set Content = OpenQuery(Query) Dim KarikataZandakaTotal, KashikataZandakaTotal Dim KarikataKingakuTotal, KashikataKingakuTotal KarikataZandakaTotal = 0 KashikataZandakaTotal = 0 KarikataKingakuTotal = 0 KashikataKingakuTotal = 0 If AutoFlg = 1 Then Torihikibi = KaikeiSyuryobi Else If Not(Content.BOF Or Content.EOF) Then Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日")) End IF End If 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 = - 1 Then Response.Write("　　　　年　　　　月　　　　日") ' 自動印刷運用管理の書類一覧 ElseIf AutoFlg = 1 Or PrintFlg = 1 Or InStr(Request.ServerVariables("SCRIPT_NAME"), "/admin/syokai/fm_tyohyo_main.asp") > 0 Then If KaikeiKaishibi <> GB_KaikeiKaishibi Then '集計開始日が指定された場合 Response.Write(SetDate(KaikeiKaishibi, 2) & " ～ ") End If Response.Write(SetDate(Torihikibi, 2)) Else Response.Write("日付：" & vbCrLf) ' Response.Write(SetDate(Torihikibi, 2)) End If %>

借方		勘定科目	貸方
残高	合計		合計	残高

<% If PrintFlg <> 1 Then %>

<% End If %> <% Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 Dim KarikataZandaka, KarikataKingaku Dim KanjyoCD, KanjyoKamoku Dim KashikataZandaka, KashikataKingaku KarikataZandaka = Content.Fields("借方残高") KarikataKingaku = Content.Fields("借方金額") KanjyoCD = Content.Fields("勘定CD") KashikataKingaku = Content.Fields("貸方金額") KashikataZandaka = Content.Fields("貸方残高") If IsNull(KarikataZandaka) or (KarikataZandaka="") Then Else KarikataZandakaTotal = KarikataZandakaTotal + KarikataZandaka End If If IsNull(KarikataKingaku) or (KarikataKingaku="") Then Else KarikataKingakuTotal = KarikataKingakuTotal + KarikataKingaku End If If IsNull(KashikataZandaka) or (KashikataZandaka="") Then Else KashikataZandakaTotal = KashikataZandakaTotal + KashikataZandaka End If If IsNull(KashikataKingaku) or (KashikataKingaku="") Then Else KashikataKingakuTotal = KashikataKingakuTotal + KashikataKingaku End If 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 If 1 = 1 Then For jj = RowCount + 1 To Max(18, 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("") Next End if %>

" & ConvIntToMoney(Content.Fields("借方残高"), false, true) & "	" & ConvIntToMoney(Content.Fields("借方金額"), false, true) & "	" & Content.Fields("勘定CD") & "	" & Content.Fields("勘定名称") & "	" & ConvIntToMoney(Content.Fields("貸方金額"), false, true) & "	" & ConvIntToMoney(Content.Fields("貸方残高"), false, true) & "

<% If PrintFlg <> 1 Then %>

<% End If %>

<% = ConvIntToMoney(KarikataZandakaTotal, false, true) %>

<% = ConvIntToMoney(KarikataKingakuTotal, false, true) %>

合計

<% = ConvIntToMoney(KashikataKingakuTotal, false, true) %>

<% = ConvIntToMoney(KashikataZandakaTotal, 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 %>