<%
Function HojyoboUrikaikakekintyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, RouteType, AutoFlg, PrintFlg)

											Dim Query
											Dim Content

	Dim TorihikisakiCD
	TorihikisakiCD = BunsyoNaiyoCD
	Dim Label
	Dim Mode
	Dim PageType
	If BunsyoSyuruiCD = "ME" Then
		Label = "売掛金元帳"
		Mode = "AC"
		PageType = "Urikake"
	Else
		Label = "買掛金元帳"
		Mode = "AD"
		PageType = "Kaikake"
	End If

	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 KarikataKingakuTotal
	Dim KashikataKingakuTotal 
	KarikataKingakuTotal = 0
	KashikataKingakuTotal = 0


	'記帳の有無を確認するフラグ（照会集計画面用）
	Dim KichoFlg
	Set KichoFlg = Server.CreateObject("Scripting.Dictionary")
	'記帳の有無を確認するフラグ（照会集計画面用）
	Query = ""
	Query = Query & "  "
	Query = Query & " SELECT 取引先CD, COUNT(" & Label & "CD) AS 記帳数 "
	Query = Query & " FROM TSK補助簿_" & Label & "F "
	Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & GB_KaisyaCD & "' "
	Query = Query & " GROUP BY 取引先CD "
	Query = Query & "  "
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		'        引数は確実に文字列指定しないとダメ
		KichoFlg("" & Content.Fields("取引先CD")) = "" & Content.Fields("記帳数")
		Content.MoveNext
	Loop


	If Label = "売掛金元帳" Then
		If AutoFlg = "2" Then
			If InStr(Request.ServerVariables("URL"), "fm_tyohyo_") > 0 And TorihikisakiCD = "" Then
				Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & Mode & "', 'ALLALLALLALLALLALL', '', ''"
			Else
				'記帳の有無を確認するフラグ（照会集計画面用）
				Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & Mode & "', 'ALLALLALLALLALLALL', '', ''"
				Set Content = OpenQuery(Query)
				Do While Not(Content.BOF Or Content.EOF)
					If "" & Content.Fields("取引先名称") = "" Then
						'        引数は確実に文字列指定しないとダメ
						KichoFlg("SJ4KOURIHANBAI") = "1" '小売販売は名称NULLで取得されるので「SJ4KOURIHANBAI」名称にしておく
					Else
						'        引数は確実に文字列指定しないとダメ
						KichoFlg("" & Content.Fields("取引先名称")) = "1" '名称しか取得できないので名称基準
					End If
					Content.MoveNext
				Loop
				Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & Mode & "', '" & TorihikisakiCD & "', '', ''"
			End If
			Label = Label & "（自動）"
		ElseIf TorihikisakiCD <> "" Then
			Query = "exec SPK補助簿_売掛金元帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & TorihikisakiCD & "'"
		Else
			Query = "exec SPK補助簿_売掛金元帳取得_取引先別残高一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
		End If
	Else
		If AutoFlg = "2" Then
			If InStr(Request.ServerVariables("URL"), "fm_tyohyo_") > 0 And TorihikisakiCD = "" Then
				Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & Mode & "', 'ALLALLALLALLALLALL', '', ''"
			Else
				'記帳の有無を確認するフラグ（照会集計画面用）
				Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & Mode & "', 'ALLALLALLALLALLALL', '', ''"
				Set Content = OpenQuery(Query)
				Do While Not(Content.BOF Or Content.EOF)
					'        引数は確実に文字列指定しないとダメ
					KichoFlg("" & Content.Fields("取引先名称")) = "1" '名称しか取得できないので名称基準
					Content.MoveNext
				Loop
				Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & Mode & "', '" & TorihikisakiCD & "', '', ''"
			End If
			Label = Label & "（自動）"
		ElseIf TorihikisakiCD <> "" Then
			Query = "exec SPK補助簿_買掛金元帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & TorihikisakiCD & "'"
		Else
			Query = "exec SPK補助簿_買掛金元帳取得_取引先別残高一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
		End If
	End If
'Response.Write(Query)
'Exit Function
	Set Content = OpenQuery(Query)

	If PrintFlg = 0 Then
%>
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" STYLE="BORDER:0px solid #000000" WIDTH="660" HEIGHT="100%"><tr><td>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="100%" HEIGHT="100%"><tr><td>
<%
	End If

	For Page = 1 To MaxPage
		If Page <> 1 Then
			Response.Write(PageBreakBefore)
		End If
%>
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="660" HEIGHT="100%">
	<TR>
		<TD ALIGN="CENTER" valign="top">
		<%
			If PrintFlg = 1 Then
				Response.Write(PrintHeader1(AutoFlg))
			End if
		%>
			<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="5" BGCOLOR="#FFFFFF" WIDTH="100%" HEIGHT="100%">
				<TR>
					<TD ALIGN="CENTER" valign="top">
						<TABLE WIDTH="626" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
							<tr>
								<td valign="top" align="center" height="30">
									<table border="0" width="100%" cellspacing="0" cellpadding="0">
										<tr>
											<td align="left" width="35%" nowrap></td>
											<td align="center" width="30%" class="bb2" nowrap><% = SetStringInsertSpace(Label) %></td>
											<td align="right" width="35%" nowrap class="tx1214"><% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ページ<% End If %></td>
										</tr>
									</table>
								</td>
							</tr>
							<TR>
<% If PrintFlg = "1" And AutoFlg <> "2" And TorihikisakiCD = "" Then %>
								<TD height="30" align="center" CLASS="tx1618">取引先別残高一覧</TD>
<% ElseIf AutoFlg = "2" Or RouteType = "ViewOnly" Then %>
								<TD height="30" align="center" CLASS="tx1618">取引先：<%
												If (AutoFlg = 2 Or RouteType = "ViewOnly") And PrintFlg <> 1 And InStr(Request.ServerVariables("URL"), "fm_tyohyo_main.asp") < 1 Then
													If AutoFlg = 2 Then
														Response.Write("<select size=""1"" name=""TorihikisakiCD"" onChange=""tblbtn('rm_hojobo.asp?RouteType=" & RouteType & "&PageType=" & Mode & "&TorihikisakiCD=' + this.value);"" class=""tbox4_w"">" & vbCrLf)
														Response.Write("<option value="""">取引先が未指定の仕訳</option>" & vbCrLf)
													Else
														Response.Write("<select size=""1"" name=""TorihikisakiCD"" onChange=""tblbtn('fk_urikaikakekintyo_view.asp?RouteType=ViewOnly&PageType=" & PageType & "&TorihikisakiCD=' + this.value);"" class=""tbox4_w"">" & vbCrLf)
														Response.Write("<option value="""">＜取引先別残高一覧＞</option>" & vbCrLf)
													End If
													Dim ContentTorisaki
													Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & GakuseiNo & "'"
													Set ContentTorisaki = OpenQuery(Query)
													Do While Not(ContentTorisaki.BOF Or ContentTorisaki.EOF)
														If ContentTorisaki.Fields("会社CD") <> KaisyaCD And ContentTorisaki.Fields("業種CD") <> "B" Then	'銀行を除外
															'照会集計画面では記帳の存在する科目に絞り込む  引数は確実に文字列指定しないとダメ
															If (AutoFlg = "2" And KichoFlg("" & ContentTorisaki.Fields("会社名称")) <> "") Or "" & (AutoFlg <> "2" And KichoFlg("" & ContentTorisaki.Fields("会社CD")) <> "") Then
																Response.Write("<option value=""" & ContentTorisaki.Fields("会社CD") & """")
																If ContentTorisaki.Fields("会社CD") = TorihikisakiCD Then
																	Response.Write(" selected")
																End If
																Response.Write(">" & ContentTorisaki.Fields("会社名称") & "</option>" & vbCrLf)
															End If
														End If
														ContentTorisaki.MoveNext
													Loop
													'小売販売
													If KourihanbaiRiyo() > 0 And PageType = "Urikake" Then '売掛金元帳のみ
														'照会集計画面では記帳の存在する科目に絞り込む
														If "" & KichoFlg("SJ4KOURIHANBAI") <> "" Then
															Response.Write("<option value=""SJ4KOURIHANBAI""")
															If TorihikisakiCD = "SJ4KOURIHANBAI" Then
																Response.Write(" selected")
															End If
															Response.Write(">" & ConvKaisyaMeisyo("SJ4KOURIHANBAI") & "</option>" & vbCrLf)
														End If
													End If
													Response.Write("</select>" & vbCrLf)
												Else
													Response.Write(ConvKaisyaMeisyoDx(EnshuCD, TorihikisakiCD))
												End If
											%></TD>
<% ElseIf TorihikisakiCD <> "" Then %>
								<TD height="30" align="center" CLASS="tx1618">取引先：<% =ConvKaisyaMeisyoDx(EnshuCD, TorihikisakiCD) %></TD>
<% Else %>
								<TD height="30" align="center" CLASS="tx1618">取引先別残高一覧</TD>
<% End If %>
							</TR>
							<TR>
								<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600">
									<TABLE WIDTH="626" HEIGHT="20" BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt3" STYLE="border-collapse: collapse">
										<TR ALIGN="CENTER">
<% If AutoFlg = "2" And InStr(Request.ServerVariables("URL"), "fm_tyohyo_") > 0 And TorihikisakiCD = "" Then %>
											<TD HEIGHT="23" class="br3b1">取引先</TD>
<% ElseIf AutoFlg = "2" Or TorihikisakiCD <> "" Then %>
											<TD WIDTH="83" HEIGHT="23" class="br1b1">取引日</TD>
											<TD HEIGHT="23" class="br3b1">摘要</TD>
<% Else %>
											<TD HEIGHT="23" class="br3b1">取引先</TD>
<% End If %>
											<TD WIDTH="94" HEIGHT="23" class="br3b1">借方金額</TD>
											<TD WIDTH="94" HEIGHT="23" class="br3b1">貸方金額</TD>
											<TD WIDTH="26" HEIGHT="23" class="br3b1"><span class="tx1214">貸借</span></TD>
											<TD WIDTH="94" HEIGHT="23" class="bb1">残高</TD>
										</TR>
									</TABLE>
								</TD>
							</TR>
							<TR>
								<TD VALIGN="TOP">
								<% If PrintFlg <> 1 Then %>
									<DIV ID="Layer1" STYLE="position:relative; left:0px; top:-1px; width:646px; height:100%; z-index:1; overflow: auto;"> 
								<% End If %>
										<TABLE ID="SyoukaiList" WIDTH="626" BORDER="0" CELLSPACING="0" CELLPADDING="0" CLASS="tx1416" STYLE="border-collapse: collapse">
										<%
											Dim ii,jj

											ii = 0

If AutoFlg = "2" And TorihikisakiCD = "" And InStr(Request.ServerVariables("URL"), "fm_tyohyo_") > 1 Then
	'書類一覧で取引先未指定の場合は取引先別集計
	Dim KaishaAry
	Dim KarikataAry
	Dim KashikataAry
	Redim KaishaAry(0)
	Redim KarikataAry(0)
	Redim KashikataAry(0)
	Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & GakuseiNo & "'"
	Set ContentTorisaki = OpenQuery(Query)
	Do While Not(ContentTorisaki.BOF Or ContentTorisaki.EOF)
		If ContentTorisaki.Fields("会社CD") <> "" And ContentTorisaki.Fields("会社CD") <> KaisyaCD And ContentTorisaki.Fields("業種CD") <> "B" Then	'銀行を除外
			Redim Preserve KaishaAry(UBound(KaishaAry) + 1)
			Redim Preserve KarikataAry(UBound(KaishaAry))
			Redim Preserve KashikataAry(UBound(KaishaAry))
			KaishaAry(UBound(KaishaAry)) = "" & ContentTorisaki.Fields("会社CD")
			KarikataAry(UBound(KaishaAry)) = 0
			KashikataAry(UBound(KaishaAry)) = 0
		End If
		ContentTorisaki.MoveNext
	Loop
	Dim KCnt
	Do While Not(Content.BOF Or Content.EOF)
		For KCnt = 1 To UBound(KaishaAry)
			If "" & Content.Fields("摘要CD") <> "" And KaishaAry(KCnt) = "" & Content.Fields("摘要CD") Then
				KarikataAry(KCnt) = KarikataAry(KCnt) + Content.Fields("借方金額")
				KashikataAry(KCnt) = KashikataAry(KCnt) + Content.Fields("貸方金額")
				Exit For
			End If
		Next
		Content.MoveNext
	Loop
	For KCnt = 1 To UBound(KaishaAry)
														If KarikataAry(KCnt) < KashikataAry(KCnt) Then
															TaisyakuName = "貸"
															Zandaka = KashikataAry(KCnt) - KarikataAry(KCnt)
														ElseIf KarikataAry(KCnt) > KashikataAry(KCnt) Then
															TaisyakuName = "借"
															Zandaka = KarikataAry(KCnt) - KashikataAry(KCnt)
														Else
															TaisyakuName = ""
															Zandaka = 0
														End If
														Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
														Response.Write("<TD HEIGHT=""23"" ALIGN=""LEFT"" class=""br3"">" & ConvKaisyaMeisyoDx(EnshuCD, KaishaAry(KCnt)) & "</TD>" & vbCrLf)
														Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(KarikataAry(KCnt), false, false) & "</TD>" & vbCrLf)
														Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(KashikataAry(KCnt), false, false) & "</TD>" & vbCrLf)
														Response.Write("<TD WIDTH=""26"" HEIGHT=""23"" ALIGN=""center"" class=""br3"">" & TaisyakuName & "</TD>" & vbCrLf)
														Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""b0"">" & ConvIntToMoney(Zandaka, false, false) & "</TD>" & vbCrLf)
	Next
											For jj = RowCount + 1 To Max(30, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg)
												Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
												Response.Write("<TD HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""26"" HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" CLASS=""b0""></TD>" & vbCrLf)
												Response.Write("</TR>")
											Next

Else
											'自動では仕入売上伝票の商品点数分だけ明細が取得されてしまうため
											'伝票番号単位で動作させるフラグで制御する
											Dim TmpDenpyoNo
											TmpDenpyoNo = ""
											Dim TmpOutputFlg

											Do While Not(Content.BOF Or Content.EOF)

												TmpOutputFlg = 0
												If AutoFlg = "2" Then
													'                      仕入売上伝票以外は全明細を取得する
													If (Content.Fields("伝票区分") <> "D3" And Content.Fields("伝票区分") <> "D4") Or TmpDenpyoNo <> "" & Content.Fields("伝票番号") Then
														TmpDenpyoNo = "" & Content.Fields("伝票番号")
														TmpOutputFlg = 1
													End If
												Else
													TmpOutputFlg = 1
												End If

												If TmpOutputFlg = 1 Then

													RowCount = RowCount + 1

													Dim UrikaikakekintyoCD, Torihikibi, Tekiyo, KarikataKingaku, KashikataKingaku,Taisyaku,Zandaka,TaisyakuName


													If AutoFlg = "2" Then
														TmpDenpyoNo = "" & Content.Fields("伝票番号")
														DbKarikataKingakuTotal = DbKarikataKingakuTotal + Content.Fields("借方金額")
														DbKashikataKingakuTotal = DbKashikataKingakuTotal + Content.Fields("貸方金額")
														If DbKarikataKingakuTotal < DbKashikataKingakuTotal Then
															TaisyakuName = "貸"
															Zandaka = DbKashikataKingakuTotal - DbKarikataKingakuTotal
														ElseIf DbKarikataKingakuTotal > DbKashikataKingakuTotal Then
															TaisyakuName = "借"
															Zandaka = DbKarikataKingakuTotal - DbKashikataKingakuTotal
														Else
															TaisyakuName = ""
															Zandaka = 0
														End If
														Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
														Tekiyo = "" & Content.Fields("伝票摘要")
														If Tekiyo = "" Then
															Tekiyo = "" & Content.Fields("摘要")
														End If
													ElseIf TorihikisakiCD <> "" Then
														If Label = "売掛金元帳" Then
															UrikaikakekintyoCD = Content.Fields("売掛金元帳CD")
														Else
															UrikaikakekintyoCD = Content.Fields("買掛金元帳CD")
														End If
														Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
														Tekiyo = Content.Fields("摘要")
														TaisyakuName = Content.Fields("貸借略区分名称")
														Zandaka = Content.Fields("残高")
													Else
														If Content.Fields("残高") < 0 Then
															TaisyakuName = "貸"
															Zandaka = Content.Fields("残高") * -1
														Else
															TaisyakuName = "借"
															Zandaka = Content.Fields("残高")
														End If
													End If
													KarikataKingaku = Content.Fields("借方金額")
													KashikataKingaku = Content.Fields("貸方金額")


													If AutoFlg = "2" Or TorihikisakiCD <> "" Then
														If "" & KarikataKingaku <> "" Then
															KarikataKingakuTotal = KarikataKingakuTotal + KarikataKingaku
														End If
														If "" & KashikataKingaku <> "" Then
															KashikataKingakuTotal = KashikataKingakuTotal + KashikataKingaku
														End If
													'ElseIf "" & Content.Fields("取引先CD") <> "" Then
													ElseIf "" & ConvKaisyaMeisyoDx(EnshuCD, Content.Fields("取引先CD")) <> "" Then
														If "" & KarikataKingaku <> "" Then
															KarikataKingakuTotal = KarikataKingakuTotal + KarikataKingaku
														End If
														If "" & KashikataKingaku <> "" Then
															KashikataKingakuTotal = KashikataKingakuTotal + KashikataKingaku
														End If
													End If


													If AutoFlg = "2" Or TorihikisakiCD <> "" Then
														Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
														Response.Write("<TD WIDTH=""83"" HEIGHT=""23"" ALIGN=""center"" class=""br1"">" & Torihikibi & "</TD>" & vbCrLf)
														Response.Write("<TD HEIGHT=""23"" ALIGN=""LEFT"" class=""br3""><span style=""width:222px; height:14px; overflow:hidden;"">" & HardWrap(Tekiyo) & "</span></TD>" & vbCrLf)
														Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(KarikataKingaku, false, true) & "</TD>" & vbCrLf)
														Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(KashikataKingaku, false, true) & "</TD>" & vbCrLf)
														Response.Write("<TD WIDTH=""26"" HEIGHT=""23"" ALIGN=""center"" class=""br3"">" & TaisyakuName & "</TD>" & vbCrLf)
														Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""b0"">" & ConvIntToMoney(Zandaka, false, true) & "</TD>" & vbCrLf)
													'ElseIf "" & Content.Fields("取引先CD") <> "" Then
													ElseIf "" & ConvKaisyaMeisyoDx(EnshuCD, Content.Fields("取引先CD")) <> "" Then
														Response.Write("<TR ALIGN=""CENTER"" style=""cursor:hand"" onClick=""tblbtn2('fk_urikaikakekintyo_view.asp?RouteType=&PageType=" & PageType & "&TorihikisakiCD=" & Content.Fields("取引先CD") & "');window.top.opener.ExitFlg=0;window.parent.close();"">" & vbCrLf)
														Response.Write("<TD HEIGHT=""23"" ALIGN=""LEFT"" class=""br3"">" & ConvKaisyaMeisyoDx(EnshuCD, Content.Fields("取引先CD")) & "</TD>" & vbCrLf)
														Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(KarikataKingaku, false, false) & "</TD>" & vbCrLf)
														Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(KashikataKingaku, false, false) & "</TD>" & vbCrLf)
														Response.Write("<TD WIDTH=""26"" HEIGHT=""23"" ALIGN=""center"" class=""br3"">" & TaisyakuName & "</TD>" & vbCrLf)
														Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""b0"">" & ConvIntToMoney(Zandaka, false, false) & "</TD>" & vbCrLf)
													End If
													ii = ii + 1
													Response.Write("</TR>")
												End If
												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("<TR ALIGN=""CENTER"">" & vbCrLf)
												If AutoFlg = "2" Or TorihikisakiCD <> "" Then
													Response.Write("<TD WIDTH=""83"" HEIGHT=""23"" CLASS=""br1""></TD>" & vbCrLf)
												End If
												Response.Write("<TD HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""26"" HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" CLASS=""b0""></TD>" & vbCrLf)
												Response.Write("</TR>")
											Next
End If
										%>

										</TABLE>
								<% If PrintFlg <> 1 Then %>
									</DIV>
								<% End If %>
								</TD>
							</TR>
							<% If (Content.BOF Or Content.EOF) Then %>
							<TR ALIGN="left">
								<TD HEIGHT="20" VALIGN="BOTTOM">
									<TABLE WIDTH="626" HEIGHT="20" BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt1" STYLE="border-collapse: collapse">
										<TR ALIGN="CENTER">
											<TD align="center" HEIGHT="22" class="br3">合計</TD>
											<TD align="right" WIDTH="94" class="br3"><% = ConvIntToMoney(KarikataKingakuTotal, false, true) %></TD>
											<TD align="right" WIDTH="94" class="br3"><% = ConvIntToMoney(KashikataKingakuTotal, false, true) %></TD>
											<!--<TD align="right" WIDTH="94" class="b0"><% = ConvIntToMoney(KarikataKingakuTotal - KashikataKingakuTotal, false, true) %></TD>-->
											<TD align="right" WIDTH="123" class="b0">　</TD>
										</TR>
									</TABLE>
								</TD>
							</TR>
							<% End If %>

						</TABLE>
						<%
							If PrintFlg = 1 Then
								Response.Write(PrintFooter())
							End If
						%>
					</TD>
				</TR>
			</TABLE>
		</TD>
	</TR>
</TABLE>
<%
		If (Content.BOF Or Content.EOF) Then
			Exit For
		End If
	Next

	If PrintFlg = 0 Then
%>
</td></tr></table>
</td></tr></table>
<%
	End if


End Function
%>