<!-- #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 = " バーコード印刷 "
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"> <% = Shohinmei %> </td>
<td align="center" width="170"> <%= ShohinRyakumei %> </td>
<td align="right" width="110"> <% = HanbaiTanka %> </td>
<%
If TaxRateSelection Then
%>
<td align="right" width="70"> <% = TaxRate %> ％ </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 %> <% 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
%>