<%
Function GenkaKeisanhyo(EnshuCD, KaisyaCD, BunsyoNaiyoCD, Yobi1, Yobi2, Yobi3, Yobi4, Yobi5, Yobi6, Yobi7, Yobi8, Yobi9, Yobi10, AutoFlg, PrintFlg)
	
	Dim PageType
'	If BunsyoSyuruiCD = "MC" Then
		PageType = "材料仕入帳"
'	Else
'		PageType = "売上帳"
'	End If

	Dim RowBreakNum, RowCount
	Dim Page
	RowCount = 0
	
	If PrintFlg = 1 Then
		RowBreakNum = 30
	Else
		RowBreakNum = MaxRowBreakNum
		MaxPage = 1
	End If

	Dim Content2

	Dim SyohinKubun
	Dim SyohinKubunMei
	Dim SyohinCD
	Dim ShohinMeisho
	Dim Lot
	Dim Tani
	Dim SeizoLot
	Dim SoSeizoSu
	Dim SyohinTanka
	Dim Syoribi
	Dim Kanryobi
	Dim SeizouKubun
	Dim ZBunsyoNaiyoCD
	Dim RoumuHi
	Dim KeiHi
	Dim GokeiKingaku
	Query = "exec SPD製造指図書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & BunsyoNaiyoCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		SyohinCD = Content.Fields("商品CD")
		KeiHi = Content.Fields("経費")
		RoumuHi = Content.Fields("労務費")
'Response.Write(SyohinCD)
'Exit Function
'		Lot = 1	'ゼロ除算例外対策
		If Left(Content.Fields("製造状況区分"), 1) = "P" Or Left(Content.Fields("製造状況区分"), 1) = "M" Then
			SyohinKubun = "S"
			SyohinKubunMei = "商品"
			Query = "exec SPM商品取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & SyohinCD & "'"
			Set Content2 = OpenQuery(Query)
			If Not(Content2.BOF Or Content2.EOF) Then
				ShohinMeisho = Content2.Fields("商品名称")
				Lot = Content2.Fields("ロット")
				Tani = Content2.Fields("単位")
			End If
		Else
			SyohinKubun = "Z"
			SyohinKubunMei = "材料"
			Query = "exec SPM材料取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & SyohinCD & "'"
			Set Content2 = OpenQuery(Query)
			If Not(Content2.BOF Or Content2.EOF) Then
				ShohinMeisho = Content2.Fields("材料名称")
				Lot = Content2.Fields("ロット")
				Tani = Content2.Fields("単位")
			End If
		End If
		SeizoLot = Content.Fields("商品数量")
		If Lot <> 0 Then
			SeizoLot = SeizoLot / Lot
		End If
		SoSeizoSu = Content.Fields("商品数量")
		SyohinTanka = Content.Fields("商品単価")
		Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
		Kanryobi = SetTimeYYYYMMDD(Content.Fields("完了日"))
		SeizouKubun = Content.Fields("製造状況区分")
		ZBunsyoNaiyoCD = Content.Fields("材料出庫CD")
	End If
	If "" & KeiHi = "" Then
		KeiHi = 0
	End If
	If "" & RoumuHi = "" Then
		RoumuHi = 0
	End If
	GokeiKingaku = 0


	Dim DbKarikataKingakuTotal
	Dim DbKashikataKingakuTotal 
	DbKarikataKingakuTotal = 0
	DbKashikataKingakuTotal = 0

	Dim SyoruiMei
	If AutoFlg = 2 Then
		If BunsyoSyuruiCD = "MC" Then
			Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'AH', '%', '', ''"
			SyoruiMei = "仕入帳(自動)"
		Else
			Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'AG', '%', '', ''"
			SyoruiMei = "売上帳(自動)"
		End If
	ElseIf AutoFlg = 1 Then
		If BunsyoSyuruiCD = "MC" Then
			Query = "exec SPR仕入売上実績 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','SC','SS','SX',''"
			SyoruiMei = "入庫実績"
		Else
			Query = "exec SPR仕入売上実績 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','SU', 'SY', '',''"
			SyoruiMei = "出庫実績"
		End If
	Else
'		If BunsyoSyuruiCD = "MC" Then
			Query = "exec SPK補助簿_原価計算表取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & BunsyoNaiyoCD & "'"
			SyoruiMei = "原価計算表"
'		Else
'			Query = "exec SPK補助簿_売上帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
'			SyoruiMei = "売上帳"
'		End If
	End If

'Response.Write(Query)

	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

	'表示と印刷でサイズ可変
	Dim WidthTorihikibi, WidthTekiyo, WidthKingaku, WidthParent, WidthParent2
	Dim HeightCell
	If PrintFlg = 0 Then
		HeightCell = 23
		WidthTorihikibi = 40
		WidthTekiyo = 56
		WidthKingaku = 82
		WidthParent = 922
		WidthParent2 = 902
	Else
		HeightCell = 21
		WidthTorihikibi = 32
		WidthTekiyo = 40
		WidthKingaku = 68
		WidthParent = 724
		WidthParent2 = 722
	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="0" CELLPADDING="<% If PrintFlg = 1 Then %>0<% Else %>10<% End If %>" BGCOLOR="#FFFFFF" WIDTH="100%" HEIGHT="100%">
				<TR>
					<TD ALIGN="CENTER" valign="top">
						<TABLE WIDTH="<% = WidthParent %>" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
							<tr>
								<td valign="top" align="center" height="30">
									<table border="0" width="<% = WidthParent2 %>" cellspacing="0" cellpadding="0">
										<tr>
											<td align="left" width="35%" nowrap></td>
											<td align="center" width="30%" class="bb2" nowrap><% = SetStringInsertSpace(SyoruiMei) %></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>
								<td valign="top" align="center" height="30">
									<table border="0" width="700" cellspacing="0" cellpadding="0">
										<tr>
											<td class="tx1416" align="left" nowrap>
												<table border="0" cellspacing="4" cellpadding="0">
													<tr>
														<td class="tx1416" nowrap>
															製造指図書&nbsp;
														</td>
														<td class="tx1416" style="border-bottom: 1px solid red;" nowrap>
															&nbsp;#<% = BunsyoNaiyoCD %>&nbsp;
														</td>
													</tr>
													<tr>
														<td class="tx1416" nowrap>
															製&nbsp;&nbsp;&nbsp;品&nbsp;&nbsp;&nbsp;名&nbsp;
														</td>
														<td class="tx1416" style="border-bottom: 1px solid red;" nowrap>
															&nbsp;<% = ShohinMeisho %>&nbsp;
														</td>
													</tr>
												</table>
											</td>
											<td class="tx1618" align="center" nowrap>
												<table border="0" cellspacing="4" cellpadding="0">
													<tr>
														<td class="tx1416" nowrap>
															着手日&nbsp;
														</td>
														<td class="tx1416" style="border-bottom: 1px solid red;" nowrap>
															&nbsp;<% = SetDate(Syoribi, 3) %>&nbsp;
														</td>
													</tr>
													<tr>
														<td class="tx1416" nowrap>
															完成日&nbsp;
														</td>
														<td class="tx1416" style="border-bottom: 1px solid red;" nowrap>
															&nbsp;<% = SetDate(Kanryobi, 3) %>&nbsp;
														</td>
													</tr>
												</table>
											</td>
											<td class="tx1416" align="right" nowrap>
												<table border="0" cellspacing="4" cellpadding="0">
													<tr>
														<td class="tx1416" nowrap>
															命令数量&nbsp;
														</td>
														<td class="tx1416" style="border-bottom: 1px solid red;" nowrap>
															&nbsp;<% = SeizoLot %>&nbsp;ロット&nbsp;
														</td>
													</tr>
													<tr>
														<td class="tx1416" nowrap>
															完成数量&nbsp;
														</td>
														<td class="tx1416" style="border-bottom: 1px solid red;" nowrap>
														<% If Kanryobi <> "" Then %>
															&nbsp;<% = SeizoLot %>&nbsp;ロット&nbsp;
														<% Else %>
															&nbsp;
														<% End If %>
														</td>
													</tr>
												</table>
											</td>
										</tr>
									</table>
								</td>
							</tr>
							<TR>
								<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600">
									<TABLE WIDTH="<% = WidthParent2 %>" HEIGHT="20" BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt3" STYLE="border-collapse: collapse">
										<TR ALIGN="CENTER">
											<TD class="br3b1" colspan="3">直接材料費</TD>
											<TD class="br3b1" colspan="3">直接労務費</TD>
											<TD class="br3b1" colspan="3">直接経費</TD>
											<TD class="br3b1" colspan="3">製造間接費</TD>
											<TD class="bb1" colspan="2">集   計</TD>
										</TR>
										<TR ALIGN="CENTER">
											<TD WIDTH="<% = WidthTorihikibi %>" HEIGHT="<% = HeightCell %>" class="br1b1">日付</TD>
											<TD WIDTH="<% = WidthTekiyo %>" HEIGHT="<% = HeightCell %>" class="br3b1">摘要</TD>
											<TD WIDTH="<% = WidthKingaku %>" HEIGHT="<% = HeightCell %>" class="br3b1">金額</TD>
											<TD WIDTH="<% = WidthTorihikibi %>" HEIGHT="<% = HeightCell %>" class="br1b1">日付</TD>
											<TD WIDTH="<% = WidthTekiyo %>" HEIGHT="<% = HeightCell %>" class="br3b1">摘要</TD>
											<TD WIDTH="<% = WidthKingaku %>" HEIGHT="<% = HeightCell %>" class="br3b1">金額</TD>
											<TD WIDTH="<% = WidthTorihikibi %>" HEIGHT="<% = HeightCell %>" class="br1b1">日付</TD>
											<TD WIDTH="<% = WidthTekiyo %>" HEIGHT="<% = HeightCell %>" class="br3b1">摘要</TD>
											<TD WIDTH="<% = WidthKingaku %>" HEIGHT="<% = HeightCell %>" class="br3b1">金額</TD>
											<TD WIDTH="<% = WidthTorihikibi %>" HEIGHT="<% = HeightCell %>" class="br1b1">日付</TD>
											<TD WIDTH="<% = WidthTekiyo %>" HEIGHT="<% = HeightCell %>" class="br3b1">摘要</TD>
											<TD WIDTH="<% = WidthKingaku %>" HEIGHT="<% = HeightCell %>" class="br3b1">金額</TD>
											<TD HEIGHT="<% = HeightCell %>" class="br3b1">摘  要</TD>
											<TD WIDTH="<% = WidthKingaku %>" HEIGHT="<% = HeightCell %>" 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:<% = WidthParent %>px; height:100%; z-index:1; overflow: auto;"> 
								<% End If %>
										<TABLE ID="SyoukaiList" WIDTH="<% = WidthParent2 %>" BORDER="0" CELLSPACING="0" CELLPADDING="0" CLASS="tx1416" STYLE="border-collapse: collapse">
										<%
											Dim Query
											Dim Content
											Dim ii, jj
											ii = 0

											Dim PageRowCnt
											PageRowCnt = 0

											Dim Gokei1, Gokei2, Gokei3, Gokei4
											Gokei1 = 0
											Gokei2 = 0
											Gokei3 = 0
											Gokei4 = 0
											Dim Bottom
											Bottom = 0
											If Not(Content.BOF Or Content.EOF) Then
												Do While Not(Content.BOF Or Content.EOF)
													Bottom = Bottom + 1
													If "" & Content.Fields("直接材料費") <> "" Then
														Gokei1 = Gokei1 + Content.Fields("直接材料費")
													End If
													If "" & Content.Fields("直接労務費") <> "" Then
														Gokei2 = Gokei2 + Content.Fields("直接労務費")
													End If
													If "" & Content.Fields("直接経費") <> "" Then
														Gokei3 = Gokei3 + Content.Fields("直接経費")
													End If
													If "" & Content.Fields("製造間接費") <> "" Then
														Gokei4 = Gokei4 + Content.Fields("製造間接費")
													End If
													Content.MoveNext
												Loop
												Content.MoveFirst
											End If

											PageRowCnt = 0

											Do While Not(Content.BOF Or Content.EOF)

												Dim Torihikibi1, Torihikibi2, Torihikibi3, Torihikibi4, Tekiyo1, Tekiyo2, Tekiyo3, Tekiyo4, Kingaku1, Kingaku2, Kingaku3, Kingaku4

												If AutoFlg = 2 Then
												ElseIf AutoFlg = 1 Then
												Else
													Torihikibi1 = SetTimeMMDD(Content.Fields("直接材料費日付"))
													Torihikibi2 = SetTimeMMDD(Content.Fields("直接労務費日付"))
													Torihikibi3 = SetTimeMMDD(Content.Fields("直接経費日付"))
													Torihikibi4 = SetTimeMMDD(Content.Fields("製造間接費日付"))
													Tekiyo1 = Content.Fields("直接材料費摘要")
													Tekiyo2 = Content.Fields("直接労務費摘要")
													Tekiyo3 = Content.Fields("直接経費摘要")
													Tekiyo4 = Content.Fields("製造間接費摘要")
													Kingaku1 = Content.Fields("直接材料費")
													Kingaku2 = Content.Fields("直接労務費")
													Kingaku3 = Content.Fields("直接経費")
													Kingaku4 = Content.Fields("製造間接費")
												End If

												RowCount = RowCount + 1
												PageRowCnt = PageRowCnt + 1
												Response.Write("<TR ALIGN=""CENTER"" class=""br1"">" & vbCrLf)
												If RowCount = Bottom + 1 Then
													Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1b3"">" & Torihikibi1 & "</TD>" & vbCrLf)
												Else
													Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1"">" & Torihikibi1 & "</TD>" & vbCrLf)
												End If
												Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3"">" & Tekiyo1 & "</TD>" & vbCrLf)
												If RowCount = Bottom Then
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b1"">" & ConvIntToMoney(Kingaku1, false, false) & "</TD>" & vbCrLf)
												ElseIf RowCount = Bottom + 1 Then
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b3"">" & ConvIntToMoney(Gokei1, false, false) & "</TD>" & vbCrLf)
												Else
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Kingaku1, false, false) & "</TD>" & vbCrLf)
												End If
												If RowCount = Bottom + 1 Then
													Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1b3"">" & Torihikibi2 & "</TD>" & vbCrLf)
												Else
													Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1"">" & Torihikibi2 & "</TD>" & vbCrLf)
												End If
												Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3"">" & Tekiyo2 & "</TD>" & vbCrLf)
												If RowCount = Bottom Then
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b1"">" & ConvIntToMoney(Kingaku2, false, false) & "</TD>" & vbCrLf)
												ElseIf RowCount = Bottom + 1 Then
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b3"">" & ConvIntToMoney(Gokei2, false, false) & "</TD>" & vbCrLf)
												Else
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Kingaku2, false, false) & "</TD>" & vbCrLf)
												End If
												If RowCount = Bottom + 1 Then
													Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1b3"">" & Torihikibi3 & "</TD>" & vbCrLf)
												Else
													Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1"">" & Torihikibi3 & "</TD>" & vbCrLf)
												End If
												Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3"">" & Tekiyo3 & "</TD>" & vbCrLf)
												If RowCount = Bottom Then
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b1"">" & ConvIntToMoney(Kingaku3, false, false) & "</TD>" & vbCrLf)
												ElseIf RowCount = Bottom + 1 Then
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b3"">" & ConvIntToMoney(Gokei3, false, false) & "</TD>" & vbCrLf)
												Else
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Kingaku3, false, false) & "</TD>" & vbCrLf)
												End If
												If RowCount = Bottom + 1 Then
													Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1b3"">" & Torihikibi4 & "</TD>" & vbCrLf)
												Else
													Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1"">" & Torihikibi4 & "</TD>" & vbCrLf)
												End If
												Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3"">" & Tekiyo4 & "</TD>" & vbCrLf)
												If RowCount = Bottom Then
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b1"">" & ConvIntToMoney(Kingaku4, false, false) & "</TD>" & vbCrLf)
												ElseIf RowCount = Bottom + 1 Then
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b3"">" & ConvIntToMoney(Gokei4, false, false) & "</TD>" & vbCrLf)
												Else
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Kingaku4, false, false) & "</TD>" & vbCrLf)
												End If
												If PageRowCnt = 1 Then
													Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直接材料費</TD>" & vbCrLf)
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei1, false, false) & "</TD>" & vbCrLf)
												ElseIf PageRowCnt = 2 Then
													Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直接労務費</TD>" & vbCrLf)
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei2, false, false) & "</TD>" & vbCrLf)
												ElseIf PageRowCnt = 3 Then
													Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直 接 経 費</TD>" & vbCrLf)
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei3, false, false) & "</TD>" & vbCrLf)
												ElseIf PageRowCnt = 4 Then
													Response.Write("<TD ALIGN=""CENTER"" class=""br3"">製造間接費</TD>" & vbCrLf)
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei4, false, false) & "</TD>" & vbCrLf)
												ElseIf PageRowCnt = 5 Then
													Response.Write("<TD ALIGN=""CENTER"" class=""br3"">製 造 原 価</TD>" & vbCrLf)
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei1 + Gokei2 + Gokei3 + Gokei4, false, false) & "</TD>" & vbCrLf)
												Else
													Response.Write("<TD ALIGN=""CENTER"" class=""br3""><br></TD>" & vbCrLf)
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0""><br></TD>" & vbCrLf)
												End If
												Response.Write("</TR>" & vbCrLf)
												ii = ii + 1

												Content.MoveNext
												If RowCount <> 0 And (RowCount Mod RowBreakNum = 0) Then
													Exit Do
												End If
											Loop

											PageRowCnt = PageRowCnt + 1
											Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1b3""></TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3""></TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b3"">" & ConvIntToMoney(Gokei1, false, false) & "</TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1b3""></TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3""></TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b3"">" & ConvIntToMoney(Gokei2, false, false) & "</TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1b3""></TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3""></TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b3"">" & ConvIntToMoney(Gokei3, false, false) & "</TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1b3""></TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3""></TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b3"">" & ConvIntToMoney(Gokei4, false, false) & "</TD>" & vbCrLf)
											If PageRowCnt = 1 Then
												Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直接材料費</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei1, false, false) & "</TD>" & vbCrLf)
											ElseIf PageRowCnt = 2 Then
												Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直接労務費</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei2, false, false) & "</TD>" & vbCrLf)
											ElseIf PageRowCnt = 3 Then
												Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直 接 経 費</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei3, false, false) & "</TD>" & vbCrLf)
											ElseIf PageRowCnt = 4 Then
												Response.Write("<TD ALIGN=""CENTER"" class=""br3"">製造間接費</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""bb1"">" & ConvIntToMoney(Gokei4, false, false) & "</TD>" & vbCrLf)
											ElseIf PageRowCnt = 5 Then
												Response.Write("<TD ALIGN=""CENTER"" class=""br3"">製 造 原 価</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""bb3"">" & ConvIntToMoney(Gokei1 + Gokei2 + Gokei3 + Gokei4, false, false) & "</TD>" & vbCrLf)
											Else
												Response.Write("<TD ALIGN=""CENTER"" class=""br3""><br></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0""><br></TD>" & vbCrLf)
											End If

											For jj = RowCount + 1 To Max(15, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg)
												PageRowCnt = PageRowCnt + 1
												Response.Write("<TR ALIGN=""CENTER"" class=""br1"">" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1"">&nbsp;</TD>" & vbCrLf)
												Response.Write("<TD ALIGN=""LEFT"" class=""br3""></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3"">&nbsp;</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1"">&nbsp;</TD>" & vbCrLf)
												Response.Write("<TD ALIGN=""LEFT"" class=""br3""></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3"">&nbsp;</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1"">&nbsp;</TD>" & vbCrLf)
												Response.Write("<TD ALIGN=""LEFT"" class=""br3""></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3"">&nbsp;</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1"">&nbsp;</TD>" & vbCrLf)
												Response.Write("<TD ALIGN=""LEFT"" class=""br3""></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3"">&nbsp;</TD>" & vbCrLf)
												If PageRowCnt = 1 Then
													Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直接材料費</TD>" & vbCrLf)
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei1, false, false) & "</TD>" & vbCrLf)
												ElseIf PageRowCnt = 2 Then
													Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直接労務費</TD>" & vbCrLf)
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei2, false, false) & "</TD>" & vbCrLf)
												ElseIf PageRowCnt = 3 Then
													Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直 接 経 費</TD>" & vbCrLf)
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei3, false, false) & "</TD>" & vbCrLf)
												ElseIf PageRowCnt = 4 Then
													Response.Write("<TD ALIGN=""CENTER"" class=""br3"">製造間接費</TD>" & vbCrLf)
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""bb1"">" & ConvIntToMoney(Gokei4, false, false) & "</TD>" & vbCrLf)
												ElseIf PageRowCnt = 5 Then
													Response.Write("<TD ALIGN=""CENTER"" class=""br3"">製 造 原 価</TD>" & vbCrLf)
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""bb3"">" & ConvIntToMoney(Gokei1 + Gokei2 + Gokei3 + Gokei4, false, false) & "</TD>" & vbCrLf)
												Else
													Response.Write("<TD ALIGN=""CENTER"" class=""br3""><br></TD>" & vbCrLf)
													Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0""><br></TD>" & vbCrLf)
												End If
												Response.Write("</TR>" & vbCrLf)
											Next
										%>

										</TABLE>
								<% If PrintFlg <> 1 Then %>
									</DIV>
								<% End If %>
								</TD>
							</TR>
						</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
%>