<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	:原価計算表
'	作成日	:2016/02/2
'	作成者	:小野
'	概要	:
'################################################
'-->
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim Cnt


	Dim PageType
	PageType = Request("PageType")

	Dim Label
	If PageType = "Uriage" Then
		Label = "売上帳"
	Else
		Label = "仕入帳"
	End If

	Label = "原価計算表"

	Dim RouteType
	RouteType = Request("RouteType")

	Dim BunsyoNaiyoCD
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")

	Dim Mode
	Mode = Request("Mode")

	Dim ii, jj
	Dim Query
	Dim Content
	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 AutoZandakaNyuryoku
'	AutoZandakaNyuryoku = GetEnshuParam(EnshuCD, "残高自動計算")

%>
<html>
<% = HtmlHeader("sj3tyobored11") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 2;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	 method="POST" action="fk_genkakeisanhyo_bin.asp" name="form1" autocomplete="off">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="PageType" value="<% = PageType %>">
<input type="hidden" name="BunsyoNaiyoCD" value="<% = BunsyoNaiyoCD %>">
<input type="hidden" name="Mode" value="<% = Mode %>">
<input type="hidden" name="SendValue" value="">
<%
	If InStr(RouteType, "HojyoboOnly") > 0 Then
		Response.Write(HtmlDesign(2))
	Else
		Response.Write(HtmlDesign(1))
	End If

	Response.Write(HttpL1(3))

	If InStr(RouteType, "HojyoboOnly") > 0 Then
		Response.Write(HttpL2("補助簿ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp?RouteType=" & RouteType & "')", Label, "", "", "", "", "","", "", "", ""))
	ElseIf PackageMode = 1 Then
		Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "手入力帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac3.asp')", Label, "", "", "", "", "", "", ""))
	Else
'		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp')", Label, "", "", ""))
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", Label, "", "", "", "", ""))
	End If
	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

'	Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);", "行の挿入", "SpreadInsertItem(document.vaSpread1);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", ""))
	If GB_IEmode = "1" Then
		'※HttpL3_1にボタンを追加する事前処理(210107小野)
'		Call HttpL3_1_AddBtn( "", "", "", "", "", "", "", "", "", "")
		Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);", "行の挿入", "SpreadInsertItem(document.vaSpread1);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", ""))
	Else
		'※HttpL3_1にボタンを追加する事前処理(210107小野)
'		Call HttpL3_1_AddBtn( "", "", "", "", "", "", "", "", "", "")
		Response.Write(HttpL3_1("保存", "SubmitCheck()", "行挿入", "SpRowInsert();", "行削除", "SpRowDelete();", "行↑", "SpRowShift('Up');", "行↓", "SpRowShift('Dn');"))
	End If

	Response.Write(HttpL3_2("照会", "tblbtn('fk_genkakeisanhyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType & "&Mode=" & Mode & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "戻る", "tblbtn('" & HomeAliasSL & "user/bk/shiireuriage/fd_seizosashizusho_ichiran.asp?RouteType=" & RouteType & "&Mode=" & Mode & "&GenkaHyo=1')", "", "", "", "", "", ""))

	Response.Write(HttpL4(Label, ""))
%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
	<tr>
		<td align="center" valign="middle">
			<table width="720" height="100%" border="0" cellspacing="5" cellpadding="15" bgcolor="#ffffff" style="border:1px solid #000000">
				<tr>
					<td align="center">
<% If GB_IEmode = "1" Then %>
						<table width="700" height="100%" border="0" cellspacing="0" cellpadding="0">
							<tr>
								<td valign="top" align="center" height="30">
									<table border="0" width="798" cellspacing="0" cellpadding="0">
										<tr>
											<td width="330" class="tx1416" align="left" nowrap>
											</td>
											<td class="tx1618" align="center" style="border-bottom: 1px solid black;" nowrap><% = SetStringInsertSpace(Label) %></td>
											<td width="330" class="tx1416" align="right" nowrap>
											</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 black;" 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 black;" 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 black;" nowrap>
															&nbsp;<% = SetDate(Syoribi, 3) %>&nbsp;
														</td>
													</tr>
													<tr>
														<td class="tx1416" nowrap>
															完成日&nbsp;
														</td>
														<td class="tx1416" style="border-bottom: 1px solid black;" 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 black;" nowrap>
															&nbsp;<% = SeizoLot %>&nbsp;ロット&nbsp;
														</td>
													</tr>
													<tr>
														<td class="tx1416" nowrap>
															完成数量&nbsp;
														</td>
														<td class="tx1416" style="border-bottom: 1px solid black;" nowrap>
														<% If Kanryobi <> "" Then %>
															&nbsp;<% = SeizoLot %>&nbsp;ロット&nbsp;
														<% Else %>
															&nbsp;
														<% End If %>
														</td>
													</tr>
												</table>
											</td>
										</tr>
									</table>
								</td>
							</tr>
							<tr>
								<td valign="middle" align="center">
									<object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
										<param name="lpkpath" value="spread6.lpk">
									</object>
									<object width="925" height="100%" onMouseOver="SubmitFlg=1" classid="clsid:41f841c1-ae16-11d5-8817-0050da6ef5e5" codebase="/<% = HomeAlias %>/binx/spr32x60.cab#version=1,1,1,1" id="vaSpread1" border="0">
									</object>
								</td>
							</tr>
						</table>
<% Else %>
<%
	Dim WidthTorihikibi, WidthTekiyo, WidthKingaku, WidthParent, WidthParent2
	Dim HeightCell
	HeightCell = 22
	WidthTorihikibi = 78
	WidthTekiyo = 57
	WidthKingaku = 86
	WidthParent = 928
'	WidthParent2 = 902
	Dim SpreadCls
	SpreadCls = "Spread4"
%>
						<TABLE WIDTH="<% = WidthParent %>" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
							<tr>
								<td valign="top" align="center" height="30">
									<table border="0" 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"></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 HEIGHT="20" BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt3" STYLE="border-collapse: collapse">
										<TR ALIGN="CENTER" HEIGHT="22">
											<TD class="br3b1" colspan="3">直接材料費</TD>
											<TD class="br3b1" colspan="3">直接労務費</TD>
											<TD class="br3b1" colspan="3">直接経費</TD>
											<TD class="bb1" colspan="3">製造間接費</TD>
										</TR>
										<TR ALIGN="CENTER" HEIGHT="22">
											<TD WIDTH="<% = WidthTorihikibi %>" class="br1b1">日付</TD>
											<TD WIDTH="<% = WidthTekiyo %>" class="br3b1">摘要</TD>
											<TD WIDTH="<% = WidthKingaku %>" class="br3b1">金額</TD>
											<TD WIDTH="<% = WidthTorihikibi %>" class="br1b1">日付</TD>
											<TD WIDTH="<% = WidthTekiyo %>" class="br3b1">摘要</TD>
											<TD WIDTH="<% = WidthKingaku %>" class="br3b1">金額</TD>
											<TD WIDTH="<% = WidthTorihikibi %>" class="br1b1">日付</TD>
											<TD WIDTH="<% = WidthTekiyo %>" class="br3b1">摘要</TD>
											<TD WIDTH="<% = WidthKingaku %>" class="br3b1">金額</TD>
											<TD WIDTH="<% = WidthTorihikibi %>" class="br1b1">日付</TD>
											<TD WIDTH="<% = WidthTekiyo %>" class="br3b1">摘要</TD>
											<TD WIDTH="<% = WidthKingaku %>" class="bb1">金額</TD>
										</TR>
									</TABLE>
								</TD>
							</TR>
							<TR>
								<TD HEIGHT="1" VALIGN="BOTTOM"></TD><!--これがないと見出しのボトムラインが消える-->
							</TR>
							<TR>
								<TD VALIGN="TOP">
									<DIV ID="Layer1" STYLE="position:relative; left:0px; top:-1px; width:<% = WidthParent %>px; height:100%; z-index:1; overflow: auto;"> 
										<TABLE ID="SyoukaiList" BORDER="0" CELLSPACING="0" CELLPADDING="0" CLASS="tx1416" STYLE="border-collapse: collapse">
										<%

	'スプレッドシート定義 ※全行共通なのでループ外
	Dim SpMaxRow
	Dim SpRowCnt
	Dim SpMaxCol
	SpRowCnt = 0
	SpMaxRow = SpRowCnt
	'フォーム名
	SpFormName = "SpCell" '
	'行定義
	SpRowHeight = HeightCell '高さ(pixel指定)
	SpRowCls = "" '行スタイルclass
	SpRowStyle = "" '行スタイル
	'列1定義
	SpCellType(1) = "0" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(1) = WidthTorihikibi 'セル幅(pixel指定)
	SpCellCls(1) = "br1" 'セルスタイルclass
	SpCellStyle(1) = "" 'セルスタイル
	SpInputCls(1) = SpreadCls & "C" 'フォームスタイルclass
	SpInputStyle(1) = "" 'フォームスタイル
	SpInputFocus(1) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(1) = "SetDate(this, 1, true);" 'onBlurで作動させるスクリプト
	SpInputChange(1) = "" 'onChangeで作動させるスクリプト
	SpInputRO(1) = "" 'フォームreadonlyフラグ("1")
	'列2定義
	SpCellType(2) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(2) = WidthTekiyo 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(2) = "br3" 'セルスタイルclass
	SpCellStyle(2) = "" 'セルスタイル
	SpInputCls(2) = SpreadCls & "L" 'フォームスタイルclass
	SpInputStyle(2) = "" 'フォームスタイル
	SpInputFocus(2) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(2) = "FormStrLeftIME(this,20,true);" 'onBlurで作動させるスクリプト
	SpInputChange(2) = "" 'onChangeで作動させるスクリプト
	SpInputRO(2) = "" 'フォームreadonlyフラグ("1")
	'列3定義
	SpCellType(3) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(3) = WidthKingaku 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(3) = "br3" 'セルスタイルclass
	SpCellStyle(3) = "" 'セルスタイル
	SpInputCls(3) = SpreadCls & "R" 'フォームスタイルclass
	SpInputStyle(3) = "" 'フォームスタイル
	SpInputFocus(3) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(3) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
	SpInputChange(3) = "" 'onChangeで作動させるスクリプト
	SpInputRO(3) = "" 'フォームreadonlyフラグ("1")
	'列4定義
	SpCellType(4) = "0" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(4) = WidthTorihikibi 'セル幅(pixel指定)
	SpCellCls(4) = "br1" 'セルスタイルclass
	SpCellStyle(4) = "" 'セルスタイル
	SpInputCls(4) = SpreadCls & "C" 'フォームスタイルclass
	SpInputStyle(4) = "" 'フォームスタイル
	SpInputFocus(4) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(4) = "SetDate(this, 1, true);" 'onBlurで作動させるスクリプト
	SpInputChange(4) = "" 'onChangeで作動させるスクリプト
	SpInputRO(4) = "" 'フォームreadonlyフラグ("1")
	'列5定義
	SpCellType(5) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(5) = WidthTekiyo 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(5) = "br3" 'セルスタイルclass
	SpCellStyle(5) = "" 'セルスタイル
	SpInputCls(5) = SpreadCls & "L" 'フォームスタイルclass
	SpInputStyle(5) = "" 'フォームスタイル
	SpInputFocus(5) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(5) = "FormStrLeftIME(this,20,true);" 'onBlurで作動させるスクリプト
	SpInputChange(5) = "" 'onChangeで作動させるスクリプト
	SpInputRO(5) = "" 'フォームreadonlyフラグ("1")
	'列6定義
	SpCellType(6) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(6) = WidthKingaku 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(6) = "br3" 'セルスタイルclass
	SpCellStyle(6) = "" 'セルスタイル
	SpInputCls(6) = SpreadCls & "R" 'フォームスタイルclass
	SpInputStyle(6) = "" 'フォームスタイル
	SpInputFocus(6) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(6) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
	SpInputChange(6) = "" 'onChangeで作動させるスクリプト
	SpInputRO(6) = "" 'フォームreadonlyフラグ("1")
	'列7定義
	SpCellType(7) = "0" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(7) = WidthTorihikibi 'セル幅(pixel指定)
	SpCellCls(7) = "br1" 'セルスタイルclass
	SpCellStyle(7) = "" 'セルスタイル
	SpInputCls(7) = SpreadCls & "C" 'フォームスタイルclass
	SpInputStyle(7) = "" 'フォームスタイル
	SpInputFocus(7) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(7) = "SetDate(this, 1, true);" 'onBlurで作動させるスクリプト
	SpInputChange(7) = "" 'onChangeで作動させるスクリプト
	SpInputRO(7) = "" 'フォームreadonlyフラグ("1")
	'列8定義
	SpCellType(8) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(8) = WidthTekiyo 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(8) = "br3" 'セルスタイルclass
	SpCellStyle(8) = "" 'セルスタイル
	SpInputCls(8) = SpreadCls & "L" 'フォームスタイルclass
	SpInputStyle(8) = "" 'フォームスタイル
	SpInputFocus(8) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(8) = "FormStrLeftIME(this,20,true);" 'onBlurで作動させるスクリプト
	SpInputChange(8) = "" 'onChangeで作動させるスクリプト
	SpInputRO(8) = "" 'フォームreadonlyフラグ("1")
	'列9定義
	SpCellType(9) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(9) = WidthKingaku 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(9) = "br3" 'セルスタイルclass
	SpCellStyle(9) = "" 'セルスタイル
	SpInputCls(9) = SpreadCls & "R" 'フォームスタイルclass
	SpInputStyle(9) = "" 'フォームスタイル
	SpInputFocus(9) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(9) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
	SpInputChange(9) = "" 'onChangeで作動させるスクリプト
	SpInputRO(9) = "" 'フォームreadonlyフラグ("1")
	'列10定義
	SpCellType(10) = "0" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(10) = WidthTorihikibi 'セル幅(pixel指定)
	SpCellCls(10) = "br1" 'セルスタイルclass
	SpCellStyle(10) = "" 'セルスタイル
	SpInputCls(10) = SpreadCls & "C" 'フォームスタイルclass
	SpInputStyle(10) = "" 'フォームスタイル
	SpInputFocus(10) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(10) = "SetDate(this, 1, true);" 'onBlurで作動させるスクリプト
	SpInputChange(10) = "" 'onChangeで作動させるスクリプト
	SpInputRO(10) = "" 'フォームreadonlyフラグ("1")
	'列11定義
	SpCellType(11) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(11) = WidthTekiyo 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(11) = "br3" 'セルスタイルclass
	SpCellStyle(11) = "" 'セルスタイル
	SpInputCls(11) = SpreadCls & "L" 'フォームスタイルclass
	SpInputStyle(11) = "" 'フォームスタイル
	SpInputFocus(11) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(11) = "FormStrLeftIME(this,20,true);" 'onBlurで作動させるスクリプト
	SpInputChange(11) = "" 'onChangeで作動させるスクリプト
	SpInputRO(11) = "" 'フォームreadonlyフラグ("1")
	'列12定義
	SpCellType(12) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(12) = WidthKingaku 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(12) = "b0" 'セルスタイルclass
	SpCellStyle(12) = "" 'セルスタイル
	SpInputCls(12) = SpreadCls & "R" 'フォームスタイルclass
	SpInputStyle(12) = "" 'フォームスタイル
	SpInputFocus(12) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(12) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
	SpInputChange(12) = "" 'onChangeで作動させるスクリプト
	SpInputRO(12) = "" 'フォームreadonlyフラグ("1")

											ii = 0
											Dim Gokei1, Gokei2, Gokei3, Gokei4
											Gokei1 = 0
											Gokei2 = 0
											Gokei3 = 0
											Gokei4 = 0
											Query = "exec SPK補助簿_原価計算表取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & BunsyoNaiyoCD & "'"
											Set Content = OpenQuery(Query)
											If 0=1 And 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
											Do While Not(Content.BOF Or Content.EOF)
												Dim Torihikibi1, Torihikibi2, Torihikibi3, Torihikibi4, Tekiyo1, Tekiyo2, Tekiyo3, Tekiyo4, Kingaku1, Kingaku2, Kingaku3, Kingaku4
												Torihikibi1 = SetTimeYYYYMMDD(Content.Fields("直接材料費日付"))
												Torihikibi2 = SetTimeYYYYMMDD(Content.Fields("直接労務費日付"))
												Torihikibi3 = SetTimeYYYYMMDD(Content.Fields("直接経費日付"))
												Torihikibi4 = SetTimeYYYYMMDD(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("製造間接費")

	'スプレッドシート行生成 ※此処で値のみ代入
	SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映)
	SpMaxRow = SpRowCnt
	SpInputValue(1) = Torihikibi1 'フォーム初期値
	SpInputValue(2) = Tekiyo1 'フォーム初期値
	SpInputValue(3) = ConvIntToMoney(Kingaku1, false, false) 'フォーム初期値
	SpInputValue(4) = Torihikibi2 'フォーム初期値
	SpInputValue(5) = Tekiyo2 'フォーム初期値
	SpInputValue(6) = ConvIntToMoney(Kingaku2, false, false) 'フォーム初期値
	SpInputValue(7) = Torihikibi3 'フォーム初期値
	SpInputValue(8) = Tekiyo3 'フォーム初期値
	SpInputValue(9) = ConvIntToMoney(Kingaku3, false, false) 'フォーム初期値
	SpInputValue(10) = Torihikibi4 'フォーム初期値
	SpInputValue(11) = Tekiyo4 'フォーム初期値
	SpInputValue(12) = ConvIntToMoney(Kingaku4, false, false) 'フォーム初期値
	'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
	Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される

If 0=1 Then
												Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1"">" & Torihikibi1 & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3"">" & Tekiyo1 & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Kingaku1, false, false) & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1"">" & Torihikibi2 & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3"">" & Tekiyo2 & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Kingaku2, false, false) & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1"">" & Torihikibi3 & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3"">" & Tekiyo3 & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Kingaku3, false, false) & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1"">" & Torihikibi4 & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3"">" & Tekiyo4 & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Kingaku4, false, false) & "</TD>" & vbCrLf)
												Response.Write("</TR>" & vbCrLf)
End If

												ii = ii + 1
												Content.MoveNext
											Loop

	'スプレッドシートの空白行を発生させる
	SpInputValue(1) = "" 'フォーム初期値
	SpInputValue(2) = "" 'フォーム初期値
	SpInputValue(3) = "" 'フォーム初期値
	SpInputValue(4) = "" 'フォーム初期値
	SpInputValue(5) = "" 'フォーム初期値
	SpInputValue(6) = "" 'フォーム初期値
	SpInputValue(7) = "" 'フォーム初期値
	SpInputValue(8) = "" 'フォーム初期値
	SpInputValue(9) = "" 'フォーム初期値
	SpInputValue(10) = "" 'フォーム初期値
	SpInputValue(11) = "" 'フォーム初期値
	SpInputValue(12) = "" 'フォーム初期値
	For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow
		'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
		Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される
		SpMaxRow = Cnt
	Next

										%>
										</TABLE>
									</DIV>
								</TD>
							</TR>
							<TR>
								<TD colspan="10" height="1" align="center" class="tx1214">
									※入力行が足りない場合は一度「保存」してください
								</td>
							</TR>
						</TABLE>
<% End If %>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>

</div>
</form>

</body>



<% If GB_IEmode <> "1" Then %>
<SCRIPT LANGUAGE="JavaScript">


	SpMinRow = 1;
	SpMaxRow = <% = SpMaxRow %>;
<%
	'最大セル番号を取得
	SpMaxCol = 0
	For Cnt = 1 To UBound(SpCellType)
		If "" & SpCellType(Cnt) <> "" Then
			SpMaxCol = Cnt
		End If
	Next
%>
	SpMaxCol = <% = SpMaxCol %>;


	function SubmitCheck() {
//alert("SubmitCheck");
		form1.SendValue.value = ""
		for (jj = SpMinRow; jj <= SpMaxRow; jj++) {
			Target = "SpCell" + jj + "_" //セル番号を除くフォーム名
			var RowText;
			RowText = "";
			var bCheck;
			bCheck = Array();
			var Kingaku1, Kingaku2, Kingaku3, Kingaku4 ;
			for (ii = 1; ii <= SpMaxCol; ii++) {
				//金額の0入力はクリア(onBlurで処理しているが念のため)
				if ((ii == 3 || ii == 6 || ii == 9 || ii == 12) && form1[Target + ii].value == "0") {
					form1[Target + ii].value = "";
				}
				var Text1;
				Text1 = form1[Target + ii].value;
//alert("SubmitCheck");
				//通貨のカンマ区切りを外す
				if (ii == 3 || ii == 6 || ii == 9 || ii == 12) {
					Text1 = ReplaceStr(Text1, ",", "");
				}
				//文字型フィールドの半角カンマ・セミコロンを代替文字に変換する処理
				Text1 = ReplaceStr(Text1, ",", "CommammoC")
				Text1 = ReplaceStr(Text1, ";", "SemicolonolocimeS")
				RowText = RowText + Text1;
				RowText = RowText + ",";
				bCheck[ii] = 0;
				if (Text1 == "") {
					bCheck[ii] = 1;
				}
			}
			if (ReplaceStr(RowText, ",", "") != "") {
				if (bCheck[1] == 1 && bCheck[4] == 1 && bCheck[7] == 1 && bCheck[10] == 1) {
//					alert("日付を入力してください");
//					form1[Target + 1].focus();
//					return;
				}
				if (bCheck[3] == 1 && bCheck[6] == 1 && bCheck[9] == 1 && bCheck[12] == 1) {
//					alert("金額を入力してください ");
//					form1[Target + 3].focus();
//					return;
				}
				form1.SendValue.value = form1.SendValue.value + RowText + ";"
			}
		}
//alert(form1.SendValue.value);
		SubmitReal(form1);
		return true;
	}



window.onload = function() {

	form1.SpCell<% = (SpRowCnt + 1) %>_1.focus();

}

</SCRIPT>



<% Else 'IEモード %>
<SCRIPT LANGUAGE="JavaScript">

	function SubmitCheck() {
		form1.SendValue.value = ""
		for (jj = 1; jj <= document.vaSpread1.MaxRows; jj++) {
			document.vaSpread1.Row = jj;
			var RowText;
			RowText = "";
			var TmpRowText;
			TmpRowText = "";
			var bCheck;
			bCheck = Array();
			var Kingaku1, Kingaku2, Kingaku3, Kingaku4 ;
			for (ii = 1; ii <= document.vaSpread1.MaxCols; ii++) {
				document.vaSpread1.Col = ii;

				//0入力はクリア
				if ((ii == 3 || ii == 6 || ii == 9 || ii == 12) && document.vaSpread1.Text == "0") {
					document.vaSpread1.Text = "";
				}

				bCheck[ii] = 0;

				var Text1;
				Text1 = document.vaSpread1.Text;

				//通貨型ならカンマ除去
				if (document.vaSpread1.ColID == 12) {
					Text1 = ReplaceStr(Text1, ",", "");
				}

				RowText = RowText + Text1;
				RowText = RowText + ",";

				if (Text1 == "") {
					bCheck[ii] = 1;
				}
				if (ii == 3) Kingaku1 = Math.floor(Text1);
				if (ii == 6) Kingaku2 = Math.floor(Text1);
				if (ii == 9) Kingaku3 = Math.floor(Text1);
				if (ii == 12) Kingaku4 = Math.floor(Text1);
			}

			if (ReplaceStr(RowText, ",", "") != "") {
				if (bCheck[1] == 1 && bCheck[4] == 1 && bCheck[7] == 1 && bCheck[10] == 1) {
//					alert("日付を入力してください ");
//					document.vaSpread1.SetActiveCell(1, jj);
//					document.vaSpread1.focus();
//					document.vaSpread1.EditMode = true;
//					return;
				}
				if (bCheck[3] == 1 && bCheck[6] == 1 && bCheck[9] == 1 && bCheck[12] == 1) {
//					alert("金額を入力してください ");
//					document.vaSpread1.SetActiveCell(3, jj);
//					document.vaSpread1.focus();
//					document.vaSpread1.EditMode = true;
//					return;
				}

				form1.SendValue.value = form1.SendValue.value + RowText + ";"
			}

		}

//alert(form1.SendValue.value);
//return false

		SubmitReal(form1);
		return true;
	}



	function SpreadInit(fpSpread)
	{
		fpSpread.MaxRows = 0;
//		return false; //作業中につき停止
<%
		ii = 0

		Query = "exec SPK補助簿_原価計算表取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)

		'選択行の色を変える動作を停止(090624小野)
		Response.Write("		SpreadRowColorMode = false;" & vbCrLf)
		Do While Not(Content.BOF Or Content.EOF)
			ii = ii + 1
			Response.Write("				SpreadAddItem(fpSpread);" & vbCrLf)
			Response.Write("				fpSpread.Row = " & ii & ";" & vbCrLf)
			Response.Write("				fpSpread.Col = 1;" & vbCrLf)
			Response.Write("				fpSpread.Text = """ & SetTimeYYYYMMDD(Content.Fields("直接材料費日付")) & """;" & vbCrLf)
			Response.Write("				fpSpread.Col = 2;" & vbCrLf)
			Response.Write("				fpSpread.Text = """ & Replace(Replace(Content.Fields("直接材料費摘要"), "\", "\\"), """", "”") & """;" & vbCrLf)
			Response.Write("				fpSpread.Col = 3;" & vbCrLf)
			Response.Write("				fpSpread.Text = """ & ConvIntToMoney(Content.Fields("直接材料費"), false ,false) & """;" & vbCrLf)
			Response.Write("				fpSpread.Col = 4;" & vbCrLf)
			Response.Write("				fpSpread.Text = """ & SetTimeYYYYMMDD(Content.Fields("直接労務費日付")) & """;" & vbCrLf)
			Response.Write("				fpSpread.Col = 5;" & vbCrLf)
			Response.Write("				fpSpread.Text = """ & Replace(Replace(Content.Fields("直接労務費摘要"), "\", "\\"), """", "”") & """;" & vbCrLf)
			Response.Write("				fpSpread.Col = 6;" & vbCrLf)
			Response.Write("				fpSpread.Text = """ & ConvIntToMoney(Content.Fields("直接労務費"), false ,false) & """;" & vbCrLf)
			Response.Write("				fpSpread.Col = 7;" & vbCrLf)
			Response.Write("				fpSpread.Text = """ & SetTimeYYYYMMDD(Content.Fields("直接経費日付")) & """;" & vbCrLf)
			Response.Write("				fpSpread.Col = 8;" & vbCrLf)
			Response.Write("				fpSpread.Text = """ & Replace(Replace(Content.Fields("直接経費摘要"), "\", "\\"), """", "”") & """;" & vbCrLf)
			Response.Write("				fpSpread.Col = 9;" & vbCrLf)
			Response.Write("				fpSpread.Text = """ & ConvIntToMoney(Content.Fields("直接経費"), false ,false) & """;" & vbCrLf)
			Response.Write("				fpSpread.Col = 10;" & vbCrLf)
			Response.Write("				fpSpread.Text = """ & SetTimeYYYYMMDD(Content.Fields("製造間接費日付")) & """;" & vbCrLf)
			Response.Write("				fpSpread.Col = 11;" & vbCrLf)
			Response.Write("				fpSpread.Text = """ & Replace(Replace(Content.Fields("製造間接費摘要"), "\", "\\"), """", "”") & """;" & vbCrLf)
			Response.Write("				fpSpread.Col = 12;" & vbCrLf)
			Response.Write("				fpSpread.Text = """ & ConvIntToMoney(Content.Fields("製造間接費"), false ,false) & """;" & vbCrLf)
			Response.Write("				fpSpread.Col = 0;" & vbCrLf)
			Response.Write("				fpSpread.Text = "" "";" & vbCrLf)
			Content.MoveNext
		Loop

		'空白行を5行追加し1行目を選択状態にする(080620小野)
		ii = ii + 1
		Response.Write("		SpreadAddItem(fpSpread);" & vbCrLf)
		Response.Write("		SpreadAddItem(fpSpread);" & vbCrLf)
		Response.Write("		SpreadAddItem(fpSpread);" & vbCrLf)
		Response.Write("		SpreadAddItem(fpSpread);" & vbCrLf)
		Response.Write("		SpreadAddItem(fpSpread);" & vbCrLf)
		Response.Write("		document.vaSpread1.SetActiveCell(1, " & ii & ");" & vbCrLf)
		Response.Write("		fpSpread.EditMode=true;" & vbCrLf)
		'選択行の色を変える動作を再開(090624小野)
		Response.Write("		SpreadRowColorMode = true;" & vbCrLf)
		Response.Write("		SpreadRowColor(fpSpread);")	'選択行の色を変える(090624小野)

	%>
	}

</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="KeyDown(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript">
//	SpreadKeyDown(this, KeyAsciiCode, KeyShift);
</SCRIPT>
<SCRIPT FOR="vaSpread1" EVENT="KeyUp(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript">
	SpreadKeyUp(this, KeyAsciiCode, KeyShift);
</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="ScriptLeaveCell(ColNo, RowNo, NewColNo, NewRowNo, Cancel)" LANGUAGE="VBScript">
	Dim tmp
	tmp = SpreadChange(Me, ColNo, RowNo)
	If tmp = "ERR" Then
		Cancel = true
		SpreadReFocus(Me)
	Else
		Call SetRenewCell(Me, ColNo, RowNo)
	End If
</SCRIPT>

<SCRIPT LANGUAGE="JavaScript">
	function SetRenewCell(obj, ColNo, RowNo) {
	}
</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="Click(ColNo, RowNo)" LANGUAGE="JavaScript">
//	SpreadClick(this, ColNo, RowNo);
	this.Col = this.ActiveCol;
	this.Row = this.ActiveRow;
	this.EditMode = true;
</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="ComboCloseUp(ColNo, RowNo)" LANGUAGE="JavaScript">
	this.focus();
</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="EditMode(Col, Row, Mode, ChangeMade)" LANGUAGE="JavaScript">
	this.Col = Col;
	this.Row = Row;
	if(this.CellType == 12) {
		if(!Mode) {
			this.TypeCurrencyLeadingZero = 2;
		}
	}
	SpreadRowColor(this);	//選択行の色を変える(090624小野)
	this.focus();
</SCRIPT>

<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">
	if(typeof(form1.dummy) == "object")form1.dummy.focus();
	//	SpreadLoad 第 3n + 1 引数 (nは整数)
	//	0:日付型 1:文字型 8:コンボボックス型 10:チェックボックス型 12:通貨型 13:数値型 21:勘定科目 22:摘要
	document.vaSpread1.Redraw = false;
	//SpreadLoad(document.vaSpread1, "日付", 23, 9, "摘要", 22, 6, "金額", 12, 7.5, "日付", 23, 9, "摘要", 22, 6, "金額", 12, 7.5, "日付", 23, 9, "摘要", 22, 6, "金額", 12, 7.5, "日付", 23, 9, "摘要", 22, 6, "金額", 12, 7.4, "摘要", 22, 12, "金額", 12, 7.5);
	SpreadLoad(document.vaSpread1, "日付", 23, 9, "摘要", 22, 8, "金額", 12, 10.4, "日付", 23, 9, "摘要", 22, 8, "金額", 12, 10.4, "日付", 23, 9, "摘要", 22, 8, "金額", 12, 10.4, "日付", 23, 9, "摘要", 22, 8, "金額", 12, 10.4);

	document.vaSpread1.ScriptEnhanced = true;

	document.vaSpread1.Col = -1;
	document.vaSpread1.Row = -1;
	document.vaSpread1.FontSize = 10;
	document.vaSpread1.ColHeaderRows = 2;

	var SpreadHeader;
	SpreadHeader = -1000;
	document.vaSpread1.AddCellSpan( 1, SpreadHeader, 3, 1); //セル結合 第3・4引数が横・縦の結合数
	document.vaSpread1.AddCellSpan( 4, SpreadHeader, 3, 1);
	document.vaSpread1.AddCellSpan( 7, SpreadHeader, 3, 1);
	document.vaSpread1.AddCellSpan(10, SpreadHeader, 3, 1);
	document.vaSpread1.AddCellSpan(13, SpreadHeader, 2, 1);
	// ヘッダ1行目の設定
	document.vaSpread1.Row = SpreadHeader;
	document.vaSpread1.Col = 1;
	document.vaSpread1.Text = "直接材料費";
	document.vaSpread1.Col = 4;
	document.vaSpread1.Text = "直接労務費";
	document.vaSpread1.Col = 7;
	document.vaSpread1.Text = "直接経費";
	document.vaSpread1.Col = 10;
	document.vaSpread1.Text = "製造間接費";
	document.vaSpread1.Col = 13;
	document.vaSpread1.Text = "集    計";
	// ヘッダ2行目の設定
	document.vaSpread1.Row = SpreadHeader + 1;
	document.vaSpread1.Col = 1;
	document.vaSpread1.Text = "日付";
	document.vaSpread1.Col = 2;
	document.vaSpread1.Text = "摘要";
	document.vaSpread1.Col = 3;
	document.vaSpread1.Text = "金額";
	document.vaSpread1.Col = 4;
	document.vaSpread1.Text = "日付";
	document.vaSpread1.Col = 5;
	document.vaSpread1.Text = "摘要";
	document.vaSpread1.Col = 6;
	document.vaSpread1.Text = "金額";
	document.vaSpread1.Col = 7;
	document.vaSpread1.Text = "日付";
	document.vaSpread1.Col = 8;
	document.vaSpread1.Text = "摘要";
	document.vaSpread1.Col = 9;
	document.vaSpread1.Text = "金額";
	document.vaSpread1.Col = 10;
	document.vaSpread1.Text = "日付";
	document.vaSpread1.Col = 11;
	document.vaSpread1.Text = "摘要";
	document.vaSpread1.Col = 12;
	document.vaSpread1.Text = "金額";
	document.vaSpread1.Col = 13;
	document.vaSpread1.Text = "摘  要";
	document.vaSpread1.Col = 14;
	document.vaSpread1.Text = "金額";


	document.vaSpread1.RetainSelBlock = false;

	SpreadInit(document.vaSpread1);
	document.vaSpread1.Redraw = true;

</SCRIPT>
<% End If %>



<% = HtmlFooter %>
</html>
<%
End Sub
%>