<% Function TyoboSokanjyoMototyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg, Param1, Param2, Param3) Dim RowBreakNum, RowCount Dim Page RowCount = 0 '複数ページプリント時に合計金額が、初期化されるバグ修正のためループより移動 'BY Hamada 2006/10/26 Dim ZandakaTotal,KarikataKingakuTotal,KashikataKingakuTotal Dim KarikataMonthTotal,KashikataMonthTotal KarikataMonthTotal = 0 KashikataMonthTotal = 0 '改ページ制御のためのフラグ '※月計と累計の間では改行させないよう改ページ判定時にフラグを利用する '※フラグが立っている際は下部空白行を表示しないようにする（印刷用） Dim RowBrakeFlg RowBrakeFlg = 0 If PrintFlg = 1 Then RowBreakNum = 38 Else RowBreakNum = MaxRowBreakNum MaxPage = 1 End If Dim KanjyoCD KanjyoCD = BunsyoNaiyoCD Dim Query Dim Content Dim ii, jj ii = 0 '伝票番号表示モード Dim ShichoDenpyo Dim JidoBangoDenpyo '月計累計表示フラグ Dim MonthTotalHyoji Dim KaikeiKaishibi, KaikeiSyuryobi Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then JidoBangoDenpyo = "" & Content.Fields("自動番号伝票") ShichoDenpyo = "" & Content.Fields("自動転記総勘定元帳仕丁表示") KaikeiKaishibi = Content.Fields("会計開始日") KaikeiSyuryobi = Content.Fields("会計終了日") MonthTotalHyoji = "" & Content.Fields("総勘定元帳月計累計利用") End If If MonthTotalHyoji = "" Then MonthTotalHyoji = "0" End If 'MonthTotalHyoji = "2" 'ShichoDenpyo = "1" If ShichoDenpyo = "" Or AutoFlg <> 1 Then ShichoDenpyo = "0" End If If Param2 <> "" Then KaikeiSyuryobi = Param2 End If Dim SyoruiMei If AutoFlg = 0 Then Query = "exec SPK帳簿_総勘定元帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KanjyoCD & "'" SyoruiMei = "総勘定元帳" ElseIf AutoFlg = 1 Then Query = "exec SPK自動転記帳簿_総勘定元帳照会 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & KanjyoCD & "','" & Param1 & "','" & KaikeiKaishibi & "','" & KaikeiSyuryobi & "'" SyoruiMei = "総勘定元帳（自動）" Else Query = "SELECT * FROM TC1システムM WHERE 1 = 0" SyoruiMei = "総勘定元帳" End If Set Content = OpenQuery(Query) If PrintFlg = 0 Then %>
<% End If '↓ウィンドウ幅 Dim WidthParent, WidthParent2 Dim WidthCell1, WidthCell2, WidthCell3, WidthCell4, WidthCell5, WidthCell6, WidthCell7 Dim HeightCell If PrintFlg = 0 Then HeightCell = 23 WidthCell7 = 82 WidthCell3 = 77 WidthCell4 = 108 WidthCell1 = 50 WidthCell5 = 137 WidthCell2 = 91 WidthCell6 = 18 ' WidthParent2 = 811 WidthParent = 831 Else HeightCell = 19 WidthCell7 = 70 WidthCell3 = 69 WidthCell4 = 95 WidthCell1 = 40 WidthCell5 = 122 WidthCell2 = 79 WidthCell6 = 16 ' WidthParent2 = 706 WidthParent = 708 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 (MonthTotalHyoji <> "2" Or PrintFlg = 0) And (Content.BOF Or Content.EOF) Then %> <% End If %>
<% = SetStringInsertSpace(SyoruiMei) %> <% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ページ<% End If %>
 <% = ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KanjyoCD) %>  No.<% = KanjyoCD %>
取引日 取引先 明細摘要 相手勘定科目 仕丁 借方金額 貸方金額 貸
借		 残高
<% If PrintFlg <> 1 Then %>
<% End If %> <% '月計表示のため現在の月を保持する変数（110509小野） Dim TmpMonth TmpMonth = "" RowBrakeFlg = 0 '複数ページプリント時に合計金額が、初期化されるバグ修正のため初期化廃止 'BY Hamada 2006/10/26 'ZandakaTotal = 0 'KarikataKingakuTotal = 0 'KashikataKingakuTotal = 0 Do While Not(Content.BOF Or Content.EOF) Dim DbTorihikibi, DbShityo, DbKarikataKingaku, DbKashikataKingaku, DbTekiyo, DbTaisyakuKubun, DbZandaka Dim DbAiteKanjyo Dim DbTekiyoCD Dim DbTekiyoMeisyo, DbAiteKanjyoMeisyo DbTorihikibi = SetTimeYYYYMMDD(Content.Fields("取引日")) If TmpMonth = "" Then TmpMonth = Mid(Content.Fields("取引日"), 6, 2) End If DbShityo = Content.Fields("仕丁") If ShichoDenpyo = "1" And AutoFlg = 1 Then DbShityo = "" & Content.Fields("伝票番号") If JidoBangoDenpyo = "1" Then DbShityo = Left(DbShityo, 7) '自動伝票番号の枝番切り落とし End If DbShityo = Right(DbShityo, 5) '下5桁で切り落とし End If DbKarikataKingaku = Content.Fields("借方金額") DbKashikataKingaku = Content.Fields("貸方金額") DbTekiyo = "" & Content.Fields("摘要") If AutoFlg = 1 And DbTekiyo = "" Then DbTekiyo = "" & Content.Fields("伝票摘要") End If DbAiteKanjyo = Content.Fields("相手勘定CD") DbTekiyoMeisyo = Content.Fields("摘要会社名称") DbAiteKanjyoMeisyo = Content.Fields("相手勘定名称") '小売販売 If Content.Fields("摘要CD") = "SJ4KOURIHANBAI" Then DbTekiyoMeisyo = ConvTekiyoMeisyo(Content.Fields("摘要CD")) End If Dim Tekiyo, TaisyakuKubun, Zandaka If AutoFlg = 0 Then DbTaisyakuKubun = Content.Fields("貸借略名称") DbZandaka = Content.Fields("残高") Zandaka = DbZandaka TaisyakuKubun = DbTaisyakuKubun End If '月替わりでbottom罫線の色をトグルするため事前に次行の判定を行う Content.MoveNext Dim BottomLine BottomLine = "" If MonthTotalHyoji <> "0" Then '月末行の下線を赤にするための判定 If Not(Content.BOF Or Content.EOF) Then If TmpMonth <> "" And Mid(Content.Fields("取引日"), 6, 2) <> TmpMonth Then BottomLine = "b1" End If Else BottomLine = "b1" End If End If If DbZandaka = "" Then If Not(IsNull(DbKarikataKingaku)) Then ZandakaTotal = ZandakaTotal + DbKarikataKingaku End If If Not(IsNull(DbKashikataKingaku)) Then ZandakaTotal = ZandakaTotal - DbKashikataKingaku End If If ZandakaTotal >= 0 Then TaisyakuKubun = "借" Else TaisyakuKubun = "貸" End If Zandaka = Abs(ZandakaTotal) End If If IsNull(DbKarikataKingaku) or (DbKarikataKingaku="") Then Else KarikataKingakuTotal = KarikataKingakuTotal + DbKarikataKingaku KarikataMonthTotal = KarikataMonthTotal + DbKarikataKingaku End If If IsNull(DbKashikataKingaku) or (DbKashikataKingaku="") Then Else KashikataKingakuTotal = KashikataKingakuTotal + DbKashikataKingaku KashikataMonthTotal = KashikataMonthTotal + DbKashikataKingaku End If '↓↓↓明細摘要 桁数上限での切捨て処理（061027小野） ' If AscLen(DbTekiyo) > 11 Then ' DbTekiyo = AscLeft(DbTekiyo,11) ' End If '↑↑↑明細摘要 桁数上限での切捨て処理（061027小野） 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) Response.Write("" & vbCrLf) Response.Write("") RowCount = RowCount + 1 If (RowCount Mod RowBreakNum = 0) Then RowBrakeFlg = 1 '累計表示を行うので此処ではフラグだけ立てる End If '月計累計表示（110509小野） If BottomLine = "b1" Then If MonthTotalHyoji <> "0" Then '月計の下線を赤にするための判定（月計あり累計無しの場合） Dim MonthBottomLine If MonthTotalHyoji <> "2" Then MonthBottomLine = BottomLine End If '月計 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") KarikataMonthTotal = 0 'リセット KashikataMonthTotal = 0 'リセット '発生行のためMoveNextせず改ページ判定する RowCount = RowCount + 1 If (RowCount Mod RowBreakNum = 0) Then RowBrakeFlg = 1 '累計表示を行うので此処ではフラグだけ立てる End If End If If MonthTotalHyoji = "2" Then '累計 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") RowCount = RowCount + 1 If (RowCount Mod RowBreakNum = 0) Then RowBrakeFlg = 1 End If End If End If If RowBrakeFlg = 1 Then Exit Do End If If Not(Content.BOF Or Content.EOF) Then TmpMonth = Mid(Content.Fields("取引日"), 6, 2) End If Loop '月計累計表示の場合は印刷時に空白行を表示しない If MonthTotalHyoji <> "2" Or PrintFlg = 0 Then For jj = RowCount + 1 To Max(17, 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("" & vbCrLf) Response.Write("") Next End If %>
" & DbTorihikibi & "" & DbTekiyoMeisyo & "" & HardWrap(DbTekiyoMeisyo) & "" & HardWrap(DbTekiyo) & "" & DbAiteKanjyo & "" & DbAiteKanjyoMeisyo & "" & DbShityo & "" & ConvIntToMoney(DbKarikataKingaku, false, true) & "" & ConvIntToMoney(DbKashikataKingaku, false, true) & "" & TaisyakuKubun & " "b1" Then Response.Write("0") End If Response.Write("" & BottomLine & """>" & ConvIntToMoney(Zandaka, false, false) & "
　月計" & ConvIntToMoney(KarikataMonthTotal, false, true) & "" & ConvIntToMoney(KashikataMonthTotal, false, true) & " "b1" Then Response.Write("0") End If Response.Write("" & MonthBottomLine & """>　
　累計" & ConvIntToMoney(KarikataKingakuTotal, false, true) & "" & ConvIntToMoney(KashikataKingakuTotal, false, true) & "　
<% If PrintFlg <> 1 Then %>
<% End If %>
　 合計 <% = ConvIntToMoney(KarikataKingakuTotal, false, true) %> <% = ConvIntToMoney(KashikataKingakuTotal, 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 %>