<% Function TyoboShiwakeSyukeihyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg, BunsyoNaiyoCD2, Param2, Param3) Dim RowBreakNum, RowCount Dim Page RowCount = 0 Dim Content2 If PrintFlg = 1 Then RowBreakNum = 32 Else RowBreakNum = MaxRowBreakNum MaxPage = 1 End If Dim RouteType RouteType = Request("RouteType") Dim DbKarikataKingakuTotal, DbKashikataKingakuTotal DbKarikataKingakuTotal = 0 DbKashikataKingakuTotal = 0 Dim Torihikibi Dim Torihikibi2 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 ' Torihikibi = KaikeiKaishibi If BunsyoNaiyoCD <> "" Then Torihikibi = BunsyoNaiyoCD End If If BunsyoNaiyoCD2 <> "" Then Torihikibi2 = BunsyoNaiyoCD2 End If Dim SyoruiMei If AutoFlg = 0 Then Query = "exec SPK帳簿_仕訳集計表取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & Torihikibi & "'" SyoruiMei = "仕訳集計表" ElseIf AutoFlg = 1 Then If Torihikibi2 <> "" Then Query = "exec SPK自動転記帳簿_仕訳集計表照会FromTo '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & Torihikibi & "', '" & Torihikibi2 & "'" Else Query = "exec SPK自動転記帳簿_仕訳集計表照会FromTo '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & Torihikibi & "', '" & Torihikibi & "'" ' Query = "exec SPK自動転記帳簿_仕訳集計表照会 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & Torihikibi & "'" End If SyoruiMei = "仕訳集計表（自動）" Else Query = "SELECT * FROM TC1システムM WHERE 1 = 0" SyoruiMei = "仕訳集計表" End If Set Content = OpenQuery(Query) If PrintFlg = 0 Then %>

<% End If Dim HeightCell Dim WidthCell1 '金額 Dim WidthCell2 '元丁/勘定CD Dim WidthCell3 '勘定科目 Dim WidthCell4 '摘要 Dim WidthParent ' If PrintFlg = 0 Then HeightCell = 23 WidthCell1 = 92 WidthCell2 = 50 WidthCell3 = 152 WidthCell4 = 160 WidthParent = 624 ' Else ' HeightCell = 20 ' WidthCell1 = 82 ' WidthCell2 = 43 ' WidthCell3 = 132 ' WidthCell4 = 132 ' WidthParent = 600 ' 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 Response.Write(SetDate(Torihikibi, 2)) If Torihikibi2 <> "" Then Response.Write(" ～ " & SetDate(Torihikibi2, 2)) End If Else Response.Write("日付：" & vbCrLf) ' Response.Write(SetDate(Torihikibi, 2)) End If %>

借方金額

元丁

勘定科目

摘要

貸方金額

<% If PrintFlg <> 1 Then %>

<% End If %> <% Dim Query Dim Content Dim ii, jj ii = 0 Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 Dim DbSokanjyoMototyoCD Dim DbKanjyoCD, DbMototyo, DbTekiyo Dim DbKarikataKingaku, DbKashikataKingaku Dim DbKanjyoMeisyo DbKanjyoCD = Content.Fields("勘定CD") DbKanjyoMeisyo = Content.Fields("勘定名称") DbKarikataKingaku = Content.Fields("借方金額") DbKashikataKingaku = Content.Fields("貸方金額") If AutoFlg = 1 Then ' DbSokanjyoMototyoCD = Content.Fields("総勘定元帳CD") DbMototyo = "" ' If Not(IsNull(DbSokanjyoMototyoCD )) Then DbMototyo = DbKanjyoCD ' End If '''''''''' DbTekiyo = ConvTekiyoMeisyoDx(EnshuCD, KaisyaCD, Content.Fields("摘要CD")) & Content.Fields("摘要") Else DbMototyo = Content.Fields("元丁") DbTekiyo = Content.Fields("摘要") End If If DbKarikataKingaku <> "" Then DbKarikataKingakuTotal = DbKarikataKingakuTotal + DbKarikataKingaku End If If DbKashikataKingaku <> "" Then DbKashikataKingakuTotal = DbKashikataKingakuTotal + DbKashikataKingaku End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If AutoFlg = 1 Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") ii = ii + 1 Content.MoveNext If (RowCount Mod RowBreakNum = 0) Then Exit Do End If Loop If 1 = 1 Then For jj = RowCount + 1 To Max(19, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If AutoFlg = 1 Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") Next End if %>

" & ConvIntToMoney(DbKarikataKingaku, false, true) & "	" & DbMototyo & "	" & DbKanjyoMeisyo & "	" & DbKanjyoCD & "	" & DbKanjyoMeisyo & "	" & DbTekiyo & "	" & ConvIntToMoney(DbKashikataKingaku, false, true) & "

<% If PrintFlg <> 1 Then %>

<% End If %>

<% = SetMoney(DbKarikataKingakuTotal, false, true) %>

合計

<% = SetMoney(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 %>