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

<%
'<!--
'################################################
'	名称	:商品一覧
'	作成日	:2002/9/6
'	作成者	:徳田
'	目的	:商品Mの一覧画面を表示する。
'	概要	:
'			:[080314小野]材料マスタモードを追加
'			:[080318小野]製造部商品開発モードを追加
'################################################
'-->
%>
<%
main()
Sub main()
	Dim KanriKubun
	Dim EnshuName
	Dim GenkaKaikeiRiyo
	Dim Query
	Dim Content, SyohinCD2
	Dim SyohinKubun

	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim ShijoCD
	ShijoCD = Request("ShijoCD")

	SyohinCD2 = Request("SyohinCD")
	SyohinKubun = Request("SyohinKubun")

	Dim RouteType
	RouteType = Request("RouteType")

	Dim PageType
	PageType = Request("PageType")

	Dim Mode
	Mode = Request("Mode")

	Dim Kubun
	Kubun = Request("Kubun")

	Dim MasterEnshu
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" 
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		MasterEnshu = Content.Fields("マスター演習")
		EnshuName = Content.Fields("演習名称")
		GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用")
	End If

%>


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type="text/javascript" src="../../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!--
var lsURL="#"
function syokaibtn()
{
	if(lsURL == "#")
	{
		alert("選択されていません");
	}
	else
	{
		tblbtn(lsURL + "&RouteType=<% = RouteType %>&PageType=<% = PageType %>&ShijoCD=<% = ShijoCD %>&Mode=<% = Mode %>&Kubun=<% = Kubun %>");
	}
}

//TRselect & URLset
function celsel(rw,selURL)
{
	var trw;
	trw=rw;
	lsURL=selURL;
	for (k=0; k<document.all['SyoukaiList'].rows.length; k++)
	{
		document.all['SyoukaiList'].rows[k].style.backgroundColor ="";
	}//セル色クリア
	document.all['SyoukaiList'].rows[rw].style.backgroundColor ="#ffcdde";//選択行色変更
}

//-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	method="POST" name="form1" >
<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
<input type="hidden" name="KanriKubun" value="<% = KanriKubun %>">
<input type="hidden" name="SyohinCD" value="<% = SyohinCD2 %>">
<input type="hidden" name="Mode" value="<% = Mode %>">

<%

	Dim Title
	Dim Barcode1
	Dim Barcode2
	If Mode = "Zairyo" Then
		Title = "材料"
	Else
		Title = "商品"
		If PackageMode = "1" Then
		Else
			Barcode1 = "&nbsp;バーコード印刷&nbsp;"
			Barcode2 = "PrintoutReal2()"
		End If
	End If

	Response.Write(HtmlDesign(1))

	If PageType = "Original" Or PageType = "SeizoBu" Then
		Response.Write(HttpL1(3))
	Else
		Response.Write(HttpL1(4))
	End If

	If PageType = "Original" Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "商品企画室", "tblbtn('/" & HomeAlias & "/user/bk/menu_s5.asp')", "オリジナル商品管理", "", "", "", "", ""))
		Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()", Barcode1, Barcode2, "", "", "", ""))
		Response.Write(HttpL3_2("追加", "tblbtn( 'fm_shohin.asp?Action=1&ShijoCD=" & ShijoCD & "&PageType=" & PageType & "')", "", "", "", "", "", "", "", ""))
	ElseIf PageType = "SeizoBu" Then
		If Mode = "BuhinTenkai" Or Mode = "KeihiRoumuhi" Then
			If Kubun = "K" Then
				Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "経費管理", "", "", "", "", ""))
			ElseIf Kubun = "R" Then
				Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "労務費管理", "", "", "", "", ""))
			Else
				Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "部品展開", "", "", "", "", ""))
			End If
			Response.Write(HttpL3_1("選択", "syokaibtn()", "", "", "", "", "", "", "", ""))
			Response.Write(HttpL3_2("戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "", "", "", "", "", "", "", ""))
		Else
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", Title & "開発", "", "", "", "", ""))
			Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()", Barcode1, Barcode2, "", "", "", ""))
			Response.Write(HttpL3_2("追加", "tblbtn( 'fm_shohin.asp?Action=1&ShijoCD=" & ShijoCD & "&PageType=" & PageType & "&Mode=" & Mode & "')", "", "", "", "", "", "", "", ""))
		End If
	ElseIf GB_Admin >= 1 Then
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", Title & "マスター", "", "", "", "", "", "", ""))
		Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
		Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()", Barcode1, Barcode2, "", "", "", ""))
		'SYSORIGNには追加出来ないよう修正(061114小野)マスター編集モードでは追加出来るよう修正(090219小野)
		If (EnshuCD <> "SYSORIGN" And MasterEnshu <> "1") Or DebugFlg > 1 Then
			Response.Write(HttpL3_2("追加", "tblbtn( 'fm_shohin.asp?Action=1&ShijoCD=" & ShijoCD & "&Mode=" & Mode & "')", "", "", "", "", "", "", "", ""))
		End If
	Else
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "マスター照会", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s43.asp')", Title & "マスター", "", "", ""))
		Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
		Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()", Barcode1, Barcode2, "", "", "", ""))
		Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
	End If

	If PageType = "Original" Then
		Response.Write(HttpL4("オリジナル商品管理", ""))
	ElseIf PageType = "SeizoBu" Then
		If Mode = "BuhinTenkai" Then
			Response.Write(HttpL4("部品展開", Title & "選択"))
		ElseIf Mode = "KeihiRoumuhi" Then
			If Kubun = "K" Then
				Response.Write(HttpL4("経費管理", Title & "選択"))
			Else
				Response.Write(HttpL4("労務費管理", Title & "選択"))
			End If
		Else
			Response.Write(HttpL4("開発" & Title, "一覧表示"))
		End If
	Else
		Response.Write(HttpL4(Title & "マスター", "一覧表示"))
	End If

	'↓↓↓SYSORIGNには追加出来ないよう修正(061114小野)デバッグモードでは追加出来るよう修正(070207小野)
	If EnshuCD = "SYSORIGN" And DebugFlg < 1 Then
		Response.Write(HttpL5("演習コード SYSORIGN の演習は" & Title & "を追加出来ません"))
	ElseIf MasterEnshu = "1" Then
		If PageType <> "SeizoBu" Then
			Response.Write(HttpL5("マスター演習に設定されているため" & Title & "を追加出来ません"))
		End If
	End If
	'↑↑↑SYSORIGNには追加出来ないよう修正(061114小野)デバッグモードでは追加出来るよう修正(070207小野)
%>


<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 valign="top">
			<table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%">
				<tr>
					<td align="CENTER" valign="MIDDLE">
						<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="15" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="660" HEIGHT="100%">
							<TR>
								<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
									<TABLE WIDTH="700" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
										<% If GB_Admin = 2 Then %>
										<TR>
											<TD HEIGHT="30" VALIGN="BOTTOM" WIDTH="600">
												<TABLE WIDTH="700" HEIGHT="30" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
													<TR ALIGN="CENTER">
														<TD WIDTH="220" HEIGHT="30">対象演習名</TD>
														<TD WIDTH="280" HEIGHT="30"><%= EnshuName %></TD>
													</TR>
												</TABLE>
											</TD>
										</TR>
										<TR>
											<TD HEIGHT="20"></TD>
										</TR>
										<% End If %>

<% 'PackageMode = "1" %>
<% 'TaxRateSelection = 1 %>
									<% If PackageMode = "1" Then %>
										<TR>
											<TD HEIGHT="30" VALIGN="BOTTOM" WIDTH="600">
												<TABLE WIDTH="700" HEIGHT="24" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="tx1416" STYLE="border-collapse: collapse">
													<TR ALIGN="CENTER">
														<td align="center" width="60"><% = Title %>CD</td>
														<td align="center"><% = Title %>名称</td>
														<td align="center" width="170"><% = Title %>略名称</td>
														<td align="center" width="110"><% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準販売単価") End If %></td>
														<td align="center" width="70">標準税率</td>
													</TR>
												</TABLE>
											</TD>
										</TR>
									<% Else %>
										<% If PageType <> "Original" And PageType <> "SeizoBu" Then %>
										<TR>
											<TD height="1" CLASS="tx1416">
												市場で絞り込む
												<select size="1" name="ShijoCD" class="tbox4" onChange="tblbtn('fm_shohin_ichiran.asp?PageType=<% = PageType %>&ShijoCD=' + this.value + '&SyohinKubun=<% = SyohinKubun %>&Mode=<% = Mode %>');">
													<option value="">全て表示</option>
													<%
														Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
														Set Content = OpenQuery(Query)
														Do While Not(Content.BOF Or Content.EOF)
															Response.Write("<option value=""" & Content.Fields("市場CD") & """")
															If "" & Content.Fields("市場CD") = ShijoCD Then
																Response.Write(" selected")
															End If
															Response.Write(">" & Content.Fields("市場名称") & "</option>" & vbCrLf)
															Content.MoveNext
														Loop
													%>
													<option value="higenteietnegih"<% If ShijoCD = "higenteietnegih" Then Response.Write(" selected") End If %>>市場非限定</option>
												</select>
											</TD>
										</TR>
										<% End If %>
									<% End If %>
										<TR>
											<TD VALIGN="TOP">
												<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:720px; height:100%; z-index:1; border: 1px none #000000; overflow: auto; cursor: hand;">
													<TABLE ID="SyoukaiList" WIDTH="700" BORDER="1" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="border-collapse: collapse" BORDERCOLOR="#0000FF" CLASS="tx1416">
<%
													Dim ImageFile, Tani
													Dim Lot
													Dim SyohinCD, Shohinmei , ShohinRyakumei				'商品コード、商品名称、商品略名称
													Dim HanbaiTanka , ShireTnanka , UnsoTanka		'標準販売単価、標準仕入単価、運送費単価
													Dim SokoryoTanka , Jyuryo , Yoseki			'倉庫料単価、重量、容積
													Dim Bikou						'備考
													Dim ShijyoCD, SyoyuKaisyaRyakuMeisyo, SyoyuKaisyaCD	'市場コード、所有会社略名、所有会社コード
													Dim TaxRate
													Dim ShijyoA, ShijyoB
													Dim ii, jj, iiDef
												
													ii = 0
													iiDef = -1

													Dim LoopFlg
													If Mode = "BuhinTenkai" Or Mode = "KeihiRoumuhi" Then
														'LoopFlg = 2
														LoopFlg = 1 '多段製造機能は廃止。部品展開・経費労務費の対象は製品のみ。
													Else
														LoopFlg = 1
													End If

													For jj = 1 To LoopFlg

														If jj = 2 Then
															Title = "材料"
														End If

														Query = "exec SPM" & Title & "一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
														Set Content = OpenQuery(Query)
'Response.Write(Query)
'Exit Sub

														Do While Not(Content.BOF Or Content.EOF)
															If ShijoCD = "" Or "" & Content.Fields("市場CD") = ShijoCD Or (ShijoCD = "higenteietnegih" And "" & Content.Fields("市場CD") = "") Then

															If (Mode <> "BuhinTenkai" And Mode <> "KeihiRoumuhi") Or (SyohinKubun = "S" And Title = "商品") Or (SyohinKubun = "Z" And Title = "材料") Then
																If SyohinCD2 = Content.Fields("" & Title & "CD") Then
																	iiDef = ii
																End If
															End If

															SyohinCD =  Content.Fields("" & Title & "CD")
															If GB_GakuseiNo <> "" Then
																SyohinCD = Replace(SyohinCD, "-" & GB_GakuseiNo, "")
															End If
															Shohinmei = Content.Fields("" & Title & "名称")
															ShohinRyakumei = Content.Fields("" & Title & "略名称")
															HanbaiTanka = ConvIntToMoney(Content.Fields("標準販売単価"),false,false)
															ShireTnanka = ConvIntToMoney(Content.Fields("標準仕入単価"),false,false)
															UnsoTanka = ConvIntToMoney(Content.Fields("運送料単価"),false,false)
															SokoryoTanka = ConvIntToMoney(Content.Fields("倉庫料単価"),false,false)
															Jyuryo = ConvIntToMoney(Content.Fields("" & Title & "重量"),false,false)
															Yoseki = ConvIntToMoney(Content.Fields("" & Title & "容積"),false,false)
															Bikou = Content.Fields("備考")
															ImageFile = ""
															If Content.Fields("画像ファイル") <> "" Then
																ImageFile = Fgoods & "/" & EnshuCD & "/" & Content.Fields("画像ファイル")
															End If
															Tani = Content.Fields("単位")
															Lot = Content.Fields("ロット")
															ShijyoCD = Content.Fields("市場CD")
															SyoyuKaisyaRyakuMeisyo = Content.Fields("所有会社略名称")
															SyoyuKaisyaCD = Content.Fields("所有会社CD")
															TaxRate = Content.Fields("標準消費税率")

															If ShijyoCD <> "" Then
																ShijyoA = "市場"
																ShijyoB = "" & Content.Fields("市場名称")
																If ShijyoB = "" Then
																	'ShijyoB = "<span class=""tx1012""><font color=""#ff0000"">設定された<BR>市場が存在<BR>しません</font></span>"
																	ShijyoB = "<span class=""tx1012""><font color=""#ff0000"">市場コード<BR>[ <B>" & ShijyoCD & "</B> ]<BR>の市場が<BR>存在しません</font></span>"
																End If
															Else
																ShijyoA = "製造会社"
																ShijyoB = SyoyuKaisyaRyakuMeisyo
															End If
	
																												'製造部では自社企画及びマスターを表示											'商品企画室では自社商品のみ表示
'															If (PageType <> "Original" And PageType <> "SeizoBu") Or (PageType = "SeizoBu" And (SyoyuKaisyaCD = KaisyaCD Or SyoyuKaisyaCD = "")) Or (PageType = "Original" And SyoyuKaisyaCD = KaisyaCD) Then
																												'製造部・商品企画室では自社商品・材料のみ表示
															If (PageType <> "Original" And PageType <> "SeizoBu") Or ((PageType = "SeizoBu" Or PageType = "Original") And SyoyuKaisyaCD = KaisyaCD) Then
																If Mode = "KeihiRoumuhi" Then
																	Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'/" & HomeAlias & "/user/bk/shiireuriage/fd_keihiroumuhi_view.asp?SyohinCD=" & Content.Fields("" & Title & "CD") & "&SyohinKubun=")
																	If Title = "材料" Then Response.Write("Z") Else Response.Write("S") End If
																	Response.Write("')"" onDblClick=""syokaibtn()"">" & vbCrLf)
																Else
																	Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'fm_")
																	If Mode = "BuhinTenkai" Then Response.Write("buhintenkai") Else Response.Write("shohin") End If
																	Response.Write("_view.asp?SyohinCD=" & Content.Fields("" & Title & "CD") & "&SyohinKubun=")
																	If Title = "材料" Then Response.Write("Z") Else Response.Write("S") End If
																	Response.Write("')"" onDblClick=""syokaibtn()"">" & vbCrLf)
																End If

																If PackageMode = "1" Then
%>
																			<td align="center" width="60"><% = SyohinCD %></td>
																			<td align="center" height="23">&nbsp;<% = Shohinmei %>&nbsp;</td>
																			<td align="center" width="170">&nbsp;<%= ShohinRyakumei %>&nbsp;</td>
																			<td align="right" width="110">&nbsp;<% = HanbaiTanka %>&nbsp;</td>
<%
																	If TaxRateSelection Then
%>
																			<td align="right" width="70">&nbsp;<% = TaxRate %>&nbsp;%&nbsp;</td>
<%
																	End If
																Else
%>
													<td>
														<table border="0" width="700" cellspacing="0" cellpadding="0">
<!--
															<tr>
																<td height="10" colspan="2" bgcolor="#CCCCCC">
																	<TABLE WIDTH="100%" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" CLASS="tx1214" STYLE="border-collapse: collapse">
																		<tr>
																			<td align="center" width="110"><% = Title %>コード</td>
																			<td align="center"><% = SyohinCD %></td>
																		</tr>
																	</table>
																</td>
															</tr>
-->
															<tr>
																<td>
																	<TABLE WIDTH="100%" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" CLASS="tx1416" STYLE="border-collapse: collapse">
																		<tr bgcolor="#dddddd">
																			<td align="center" height="27" CLASS="tx1214"><nobr><% = Title %>CD</nobr></td>
																			<td align="center" width="280"><% = Title %>名称</td>
																			<td align="center" width="140"><% = Title %>略名称</td>
																			<td align="center" width="100"><% = ShijyoA %></td>
																		</tr>
																		<tr>
																			<td align="center" height="31" CLASS="tx1214"><nobr><% = SyohinCD %></nobr></td>
																			<td align="center"><% = HardWrap(Shohinmei) %></nobr></td>
																			<td align="center"><nobr><%= ShohinRyakumei %></nobr></td>
																			<td align="center"><nobr><% = ShijyoB %></nobr></td>
																		</tr>
																	</table>
																</td>
																<td width="120" rowspan="2">
																	<TABLE width="122" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" CLASS="tx1416" STYLE="border-collapse: collapse">
																		<tr>
																			<td align="center" height="27" bgcolor="#dddddd"><% = Title %>画像</td>
																		</tr>
																		<tr>
																			<td width="120" height="91"><% If ImageFile <> "" Then %><img src="<% = ImageFile %>" width="120" height="90" border="0"><% Else %>&nbsp;<% End If %></td>
																		</tr>
																	</table>
																</td>
															</tr>
															<tr>
																<td>
																	<TABLE WIDTH="100%" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" CLASS="tx1315" STYLE="border-collapse: collapse">
																		<tr bgcolor="#dddddd">
																			<td align="center" height="26" width="16%"><% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準販売単価") End If %></td>
																		<% If TaxRateSelection = 1 Then %>
																			<td align="center" width="8%">税率</td>
																		<% End If %>
																			<td align="center" width="16%">標準仕入単価</td>
																			<td align="center" width="13%">運送料単価</td>
																			<td align="center" width="13%">倉庫料単価</td>
																			<td align="center" width="11%"><% = Title %>重量</td>
																			<td align="center" width="11%"><% = Title %>容積</td>
																			<td align="center">単位</td>
																		<% If PageType = "SeizoBu" Then %>
																			<td align="center" width="8%">ロット</td>
																		<% End If %>
																		</tr>
																		<tr>
																			<td align="right" height="31" width="16%"><% = HanbaiTanka %></td>
																		<% If TaxRateSelection = 1 Then %>
																			<td align="right"><% = TaxRate %>%</td>
																		<% End If %>
																			<td align="right"><% = ShireTnanka %></td>
																			<td align="right"><% = UnsoTanka %></td>
																			<td align="right"><% = SokoryoTanka %></td>
																			<td align="right"><% = Jyuryo %></td>
																			<td align="right"><% = Yoseki %></td>
																			<td align="center"><% = Tani %></td>
																		<% If PageType = "SeizoBu" Then %>
																			<td align="right" width="8%"><% = Lot %></td>
																		<% End If %>
																		</tr>
																	</table>
																</td>
															</tr>
															<tr>
																<td colspan="2">
																	<TABLE WIDTH="100%" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" CLASS="tx1416" STYLE="border-collapse: collapse">
																		<tr>
																			<td align="center" width="60" height="27" bgcolor="#dddddd">備考</td>
																			<td align="center"><% = Bikou %></td>
																		</tr>
																	</table>
																</td>
															</tr>
														</table>
													</td>
<%
																End If

																Response.Write("</tr>")
																ii = ii + 1
															End If
															End If
															Content.MoveNext
														Loop

													Next

%>
													</TABLE>
												</DIV>
											</TD>
										</TR>
									</TABLE>
								</TD>
							</TR>
						</TABLE>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
</div>
<% = iiDef %>
</form>

<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">
<%
' 2006.12.19 スクロールポジション対応
%>
<% If iiDef <> -1 Then %>
	celsel(<% = iiDef %>, "fm_shohin_view.asp?SyohinCD=<% = SyohinCD2 %>")
	Layer1.scrollTop = <% = (iiDef - 1) * 161 %>;
//	Layer1.scrollTop = <% = (iiDef - 5) * 20 %>;
<% End If %>

</script>


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