
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：商品情報設定
'	作成日	：2002/8/18
'	作成者	：徳田
'	目的	：商品情報入力画面を表示する。
'	概要	：
'			：[080314小野]材料マスタモードを追加
'			：[080318小野]製造部商品開発モードを追加
'################################################
'-->

main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim PageType
	PageType = Request("PageType")
	Dim NRflg , ErrMSG , Action, ErrMSG2

	Dim KanriKubun
	Dim EnshuName
	Dim GenkaKaikeiRiyo
	Dim SyohinCD , Shohinmei , ShohinRyakumei		'商品コード、商品名称、商品略名称
	Dim HanbaiTanka , ShireTnanka , UnsoTanka		'標準販売単価、標準仕入単価、運送費単価
	Dim SokoryoTanka , Jyuryo , Yoseki			'倉庫料単価、重量、容積
	Dim Bikou						'備考
	Dim GazoFile
	Dim Query
	Dim Content
	Dim Tani
	Dim Lot
	Dim ShijyoCD, SyoyuKaisyaCD
	Dim ShiireKaisyaCD
	Dim TaxRate
	Dim Category

	NRflg = Request("nr")
	Action = Request("Action")
	KanriKubun = Request("KanriKubun")
	SyohinCD = Request("SyohinCD")
	ErrMSG = Request("ErrMSG")
	ErrMSG2 = Request("ErrMSG2")

	Dim ShijoCD
	ShijoCD = Request("ShijoCD")

	Dim CopyMoto
	CopyMoto = Request("CopyMoto")

	Dim Mode
	Mode = Request("Mode")
	Dim Title
	Dim SubTitle
	If Mode = "Zairyo" Then
		Title = "材料"
		SubTitle = "商品"
	Else
		Title = "商品"
		SubTitle = "材料"
	End If

'演習名称ＧＥＴ
	Dim ShohizeiMode
	ShohizeiMode = TaxRateSelection 'include_stasicのグローバル変数
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		EnshuName = Content.Fields("演習名称")
		GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用")
		If Content.Fields("消費税") <= 0 Then
			ShohizeiMode = 0 '内税の場合は消費税率マスタ非利用に上書き
		End If
	End If

	If NRflg = "r" then
		Shohinmei = Request("Shohinmei")
		ShohinRyakumei = Request("ShohinRyakumei")
		HanbaiTanka = Request("HanbaiTanka")
		ShireTnanka = Request("ShireTnanka")
		UnsoTanka = Request("UnsoTanka")
		SokoryoTanka = Request("SokoryoTanka")
		Jyuryo = Request("Jyuryo")
		Yoseki = Request("Yoseki")
		Bikou = Request("Bikou")
		Tani = Request("Tani")
		Lot = Request("Lot")
		ShiireKaisyaCD = Request("ShiireKaisyaCD")
		TaxRate = Request("TaxRate")
		Category = Request("Category")
		ErrMsg = Request("ErrMsg")
	Else
		If CopyMoto <> "" Then
			'コピー元として追加
			Query = "exec SPM" & Title & "取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & CopyMoto & "'"
		Else
			'修正
			Query = "exec SPM" & Title & "取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & SyohinCD & "'"
		End If
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			ShijyoCD = Content.Fields("市場CD")
			Shohinmei = Content.Fields(Title & "名称")
			ShohinRyakumei = Content.Fields(Title & "略名称")
			HanbaiTanka = Content.Fields("標準販売単価")
			ShireTnanka = Content.Fields("標準仕入単価")
			UnsoTanka = Content.Fields("運送料単価")
			SokoryoTanka = Content.Fields("倉庫料単価")
			Jyuryo = Content.Fields(Title & "重量")
			Yoseki = Content.Fields(Title & "容積")
			Bikou = Content.Fields("備考")
			GazoFile = Content.Fields("画像ファイル")
			Tani = Content.Fields("単位")
			Lot = Content.Fields("ロット")
			SyoyuKaisyaCD = Content.Fields("所有会社CD")
			ShiireKaisyaCD = Content.Fields("仕入先CD")
			TaxRate = Content.Fields("標準消費税率")
			If PackageMode = 1 And Mode <> "Zairyo" Then
				Category = "" & Content.Fields("カテゴリ")
			End If
		End If
	End If

	Dim RouteType
	RouteType = Request("RouteType")


	'税率マスタを配列化
	Dim CurTax '現在の税率を保持する変数
	Dim CurTaxOut '現在の税率を出力するフラグ
	Dim CurTaxSel 'selectedするフラグ
	Dim TaxCnt 'ループカウンタ
	Dim TaxAry
	Dim TaxDef
	Dim TaxDefUnso
	ReDim TaxAry(0)
	ReDim TaxDef(0)
	ReDim TaxDefUnso(0)
	Query = ""
	Query = Query & "  "
	Query = Query & " SELECT * "
	Query = Query & " FROM TDA消費税率M "
	Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
	Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
	Query = Query & " ORDER BY 消費税率 DESC "
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		ReDim PreServe TaxAry(UBound(TaxAry) + 1) '配列+1
		ReDim PreServe TaxDef(UBound(TaxAry))
		ReDim PreServe TaxDefUnso(UBound(TaxAry))
		TaxAry(UBound(TaxAry)) = Content.Fields("消費税率")
		TaxDef(UBound(TaxAry)) = "" & Content.Fields("標準")
		TaxDefUnso(UBound(TaxAry)) = "" & Content.Fields("運送費標準")
		Content.MoveNext
	Loop

%>
<html>
<% = HtmlHeader("") %>
<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" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	method="POST" action="fm_shohin_bin.asp" name="form1" onSubmit="return SubmitCheck();" ENCTYPE="multipart/form-data" autocomplete="off">
<input type="hidden" name="Action" value="<% = Action %>">
<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
<input type="hidden" name="KanriKubun" value="<% = KanriKubun %>">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="PageType" value="<% = PageType %>">
<input type="hidden" name="ShijoCD" value="<% = ShijoCD %>">
<input type="hidden" name="Mode" value="<% = Mode %>">

<%
	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
		If PackageMode = 1 Then
			Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "自社商品マスター", "", "", "", "", "", "", "", "", ""))
		Else
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "商品企画室", "tblbtn('/" & HomeAlias & "/user/bk/menu_s5.asp')", "オリジナル商品管理", "", "", "", "", ""))
		End If
	ElseIf PageType = "SeizoBu" 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')", Title & "開発", "", "", "", "", ""))
	ElseIf GB_Admin >= 1 Then
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", Title & "マスター", "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", Title & "マスター", "", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_shohin_ichiran.asp?PageType=" & PageType & "&ShijoCD=" & ShijoCD & "&SyohinCD=" & SyohinCD & "&Mode=" & Mode & "')", "", "", "", "", "", "", "", ""))

	If PageType = "Original" Then
		If PackageMode = 1 Then
			Response.Write(HttpL4("自社商品管理", ""))
		Else
			Response.Write(HttpL4("オリジナル商品管理", ""))
		End If
	ElseIf PageType = "SeizoBu" Then
		Response.Write(HttpL4(Title & "開発", ""))
	ElseIf Action = 1 Then
		Response.Write(HttpL4(Title & "マスター", "追加"))
	Else
		Response.Write(HttpL4(Title & "マスター", "修正"))
	End If

	Response.Write(HttpL5(ErrMsg))


%>
<% 'PackageMode = "1" %>
<% 'TaxRateSelection = 0 %>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
	<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
		<tr>
			<td align="center">
				<table width="<% If PackageMode = "1" Then %>550<% Else %>700<% End If %>" height="1" border="0" cellspacing="5" cellpadding="15" bgcolor="#ffffff" style="border:1px solid #000000">
					<tr>
						<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"><!--薄青のチェックの背景-->
							<!--青線+タイトルの3x3の外側が幅、高さ20pxのテーブル-->
							<table border="0" cellspacing="5" cellpadding="0">
								<tr>
<!--3x3上段左	-->							<td>

										<TABLE WIDTH="<% If PackageMode = "1" Then %>600<% Else %>700<% End If %>" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
											<TR>
												<TD height="30" VALIGN="BOTTOM" class="tx1416">
													<TABLE WIDTH="<% If PackageMode = "1" Then %>620<% Else %>700<% End If %>" height="30" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1618" STYLE="border-collapse: collapse">
													<% If GB_Admin = "2" Then %>
														<TR ALIGN="CENTER">
															<TD height="30">対象演習名</TD>
															<TD height="30"><%= EnshuName %></TD>
														</TR>
													<% End If %>
														<tr>
															<td width="<% If PackageMode = "1" Then %>150<% Else %>200<% End If %>" height="30"><% = Title %>コード</td>
															<td height="30">
																<% If Action = 1 Then %>
																	<% If GB_Admin = "1" Then %>
																		<input type="text" name="SyohinCD" size="6" value="<% = SyohinCD %>" onkeyup="FormStrLeft(this,4,false,false)" onKeypress="FormStrLeft(this,4,false,false)" onBlur="FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);" class="tbox4">
																	<% Else %>
																		<input type="text" name="SyohinCD" size="6" value="<% = SyohinCD %>" onkeyup="FormStrLeft(this,4,false,false)" onKeypress="FormStrLeft(this,4,false,false)" onBlur="FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);" class="tbox4">-<% = GB_GakuseiNo %>
																	<% End If %>
																<% Else %>
																	<input type="text" name="SyohinCD" size="25" value="<% = SyohinCD %>" readonly class="tbox4_ro" tabindex="-1">
																<% End If %>
																<% If CopyMoto <> "" Then %>
																	コピー元の商品コード：<% = CopyMoto %>
																<% End If %>
															</td>
														</tr>
														<tr>
															<td height="30"><% = Title %>名称</td>
															<td height="30">
																<input type="text" name="Shohinmei" size="70" value="<% = Shohinmei %>" onBlur="FormStrLeftIME(this,40,true)" class="tbox4_ime">
															</td>
														</tr>
														<tr>
															<td height="30"><% = Title %>略名称</td>
															<td height="30">
																<input type="text" name="ShohinRyakumei" size="35" value="<% = ShohinRyakumei %>" onBlur="FormStrLeftIME(this,20,true)" class="tbox4_ime">
															</td>
														</tr>
													<% If PackageMode = 1 Then %>
														<input type="hidden" name="Tani" value="<% = Tani %>">
														<input type="hidden" name="Lot" value="<% = Lot %>">
													<% Else %>
														<tr>
															<td height="30"><nobr>出荷単位<span class="tx1416">(個・袋・箱・ダース等)</span></nobr></td>
															<td height="30">
																<input type="text" name="Tani" size="20" value="<% = Tani %>" onBlur="FormStrLeftIME(this,20,true);TaniView();" class="tbox4_ime">
															</td>
														</tr>
														<% If PageType = "SeizoBu" Then %>
														<tr>
															<td height="30">ロット(生産単位数量)</td>
															<td height="30" class="tx1214">
																<input type="text" name="Lot" size="15" value="<% = ConvIntToMoney(Lot, false, false) %>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);" onFocus="FormStrCommaReplace(this);" class="tbox5"><span id="LotTani"><% = Tani %></span>
															</td>
														</tr>
														<% Else %>
														<input type="hidden" name="Lot" value="<% = ConvIntToMoney(Lot, false, false) %>">
														<% End If %>
													<% End If %>
												<% If PackageMode = 1 Then %>
												<% Else %>
													</table>
													<TABLE WIDTH="700" height="30" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1618" STYLE="border-collapse: collapse">
												<% End If %>
														<tr>
															<td height="30"><% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準販売単価") End If %>(円)</td>
															<td height="30">
																<input type="text" name="HanbaiTanka" size="15" value="<% = ConvIntToMoney(HanbaiTanka, false, false) %>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
														<% If PackageMode = 1 Then %>
															<input type="hidden" name="ShireTnanka" value="<% = ShireTnanka %>">
														<% Else %>
															<td height="30">標準仕入単価(円)</td>
															<td height="30">
																<input type="text" name="ShireTnanka" size="15" value="<% = ConvIntToMoney(ShireTnanka, false, false) %>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
														<% End If %>
														</tr>
													<% If ShohizeiMode = 1 Then %>
														<tr>
															<td height="30">標準消費税率</td>
															<td height="30">
																<select size="1" name="TaxRate" class="tbox4">
																<%
																	CurTax = -1 '初期化（0未満なら出力されない）
																	CurTaxOut = False '初期化
																	CurTaxSel = False '初期化
																	If TaxRate <> "" And IsNumeric(TaxRate) Then
																		CurTax = CCur(TaxRate) '現在税率（小数あり）
																		CurTaxOut = True
																		CurTaxSel = True
																	End If
																	For TaxCnt = 1 To UBound(TaxAry)
																		If CurTaxOut And CurTax >= TaxAry(TaxCnt) Then 'CurTaxが配列以上なら出力（selected固定）
																			Response.Write("<option value=""" & CurTax & """ selected>" & CurTax & "</option>" & vbCrLf)
																			CurTaxOut = False '次回ループ以降は出力されない
																		End If
																		If TaxAry(TaxCnt) <> CurTax Then 'CurTaxと同じなら配列からは出力しない
																			Response.Write("<option value=""" & TaxAry(TaxCnt) & """")
																			If Not(CurTaxSel) And TaxDef(TaxCnt) = "1" Then 'CurTaxが存在しない場合のみselected
																				Response.Write(" selected")
																			End If
																			Response.Write(">" & TaxAry(TaxCnt) & "</option>" & vbCrLf)
																		End If
																	Next
																%>
																</select>％
															</td>
														</tr>
													<% Else %>
														<input type="hidden" name="TaxRate" value="<% = TaxRate %>">
													<% End If %>
													<% If PackageMode = 1 Then %>
														<tr>
															<td height="30">商品カテゴリ</td>
															<td height="30">
																<select size="1" name="Category" style="width:280px;" class="tbox4">
																	<option value="">＜カテゴリ未設定または新規カテゴリ＞</option>
																	<%
																		Query = ""
																		Query = Query & "  "
																		Query = Query & " SELECT カテゴリ "
																		Query = Query & " FROM TDA商品M "
																		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
																		Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
																		Query = Query & " 	AND カテゴリ <> '' AND カテゴリ IS NOT NULL "
																		Query = Query & " GROUP BY カテゴリ "
																		Query = Query & " ORDER BY カテゴリ "
																		Set Content = OpenQuery(Query)
																		Do While Not(Content.BOF Or Content.EOF)
																			Response.Write("<option value=""" & Content.Fields("カテゴリ") & """")
																			If Content.Fields("カテゴリ") = Category Then
																				Response.Write(" selected")
																			End If
																			Response.Write(">" & Content.Fields("カテゴリ") & "</option>" & vbCrLf)
																			Content.MoveNext
																		Loop
																	%>
																</select>
																<br>
																<nobr>
																<input type="text" name="CategoryNew" size="35" value="" onBlur="FormStrLeftIME(this,40,true)" class="tbox4_ime">
																<span class="tx1214">※新規カテゴリ名はこちらに入力してください</span>
																</nobr>
															</td>
														</tr>
													<% Else %>
														<input type="hidden" name="Category" value="<% = Category %>">
													<% End If %>
													<% If PackageMode = 1 Then %>
														<tr>
															<td height="30">仕入先</td>
															<%
																If PageType = "Original" Or PageType = "SeizoBu" Then
																	Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GB_GakuseiNo & "'"
																Else
																	Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', ''"
																End If
																Set Content = OpenQuery(Query)
															%>
															<td height="30" class="tx1214">
																<select size="1" name="ShiireKaisyaCD" class="tbox4">
																	<option value=""></option>
																	<%
																		Do While Not(Content.BOF Or Content.EOF)
'																			If Content.Fields("業種CD") = "S" Then			'商社で絞込み（061109小野）
																				Response.Write("<option value=""" & Content.Fields("会社CD") & """")
																				If Content.Fields("会社CD") = ShiireKaisyaCD Then
																					Response.Write(" selected")
																				End If
																				Response.Write(">" & Content.Fields("会社名称") & "</option>" & vbCrLf)
'																			End If							'商社で絞込み（061109小野）
																			Content.MoveNext
																		Loop
																	%>
																</select>
															</td>
														</tr>
														<input type="hidden" name="UnsoTanka" value="<% = UnsoTanka %>">
														<input type="hidden" name="SokoryoTanka" value="<% = SokoryoTanka %>">
														<input type="hidden" name="Jyuryo" value="<% = Jyuryo %>">
														<input type="hidden" name="Yoseki" value="<% = Yoseki %>">
														<% If PageType = "Original" Then %>
														<input type="hidden" name="ShijyoCD" value="">
														<input type="hidden" name="SyoyuKaisyaCD" value="<% = KaisyaCD %>">
														<% Else %>
														<input type="hidden" name="ShijyoCD" value="<% = ShijyoCD %>">
														<input type="hidden" name="SyoyuKaisyaCD" value="<% = SyoyuKaisyaCD %>">
														<% End If %>
														<input type="hidden" name="Bikou" value="<% = Bikou %>">
														<input type="hidden" name="GazoFile" value="<% = GazoFile %>">
														<input type="hidden" name="GazoFile1" value="<% = GazoFile %>">
													<% Else %>
														<tr>
															<td height="30">運送料単価(円)</td>
															<td height="30">
																<input type="text" name="UnsoTanka" size="15" value="<% = ConvIntToMoney(UnsoTanka, false, false) %>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
															<td height="30">倉庫料単価(円)</td>
															<td height="30">
																<input type="text" name="SokoryoTanka" size="15" value="<% = ConvIntToMoney(SokoryoTanka, false, false) %>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
														</tr>
														<tr>
															<td height="30"><% = Title %>重量(キログラム)</td>
															<td height="30">
																<input type="text" name="Jyuryo" size="15" value="<% = ConvIntToMoney(Jyuryo, false, false) %>" onKeyup="FormStrFloat(this,5,4);" onKeypress="FormStrFloat(this,5,4);" onBlur="FormStrFloatEdge(this,5,4,true);FormStrFloatCutoff(this);" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
															<td height="30"><% = Title %>容積(立方メートル)</td>
															<td height="30">
																<input type="text" name="Yoseki" size="15" value="<% = ConvIntToMoney(Yoseki, false, false) %>" onKeyup="FormStrFloat(this,7,4);" onKeypress="FormStrFloat(this,7,4);" onBlur="FormStrFloatEdge(this,7,4,true);FormStrFloatCutoff(this);" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
														</tr>
													</table>
													<TABLE WIDTH="700" height="30" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1618" STYLE="border-collapse: collapse">
													<% If PageType = "Original" Or PageType = "SeizoBu" Then %>
														<input type="hidden" name="ShijyoCD" value="">
														<input type="hidden" name="SyoyuKaisyaCD" value="<% = KaisyaCD %>">
													<% Else %>
														<tr>
															<td height="30">市場</td>
															<td height="30">
																<select size="1" name="ShijyoCD" class="tbox4">
																	<option value="">市場を限定しない</option>

																	<%
																		Dim SakujoFlg
																		SakujoFlg = 1
																		Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & GB_EnshuCD & "'"
																		Set Content = OpenQuery(Query)

																		Do While Not(Content.BOF Or Content.EOF)
																			Response.Write("<option value=""" & Content.Fields("市場CD") & """")
																			If Content.Fields("市場CD") = ShijyoCD Then
																				Response.Write(" selected")
																				SakujoFlg = 0
																			End If
																			Response.Write(">" & Content.Fields("市場名称") & "</option>" & vbCrLf)
																			Content.MoveNext
																		Loop
																		If SakujoFlg = 1 And ShijyoCD <> "" Then
																			Response.Write("<option value=""" & ShijyoCD & """ selected")
																			Response.Write(">市場コード[" & ShijyoCD & "]：削除された市場</option>" & vbCrLf)
																		End If
																	%>
																</select>
															</td>
														</tr>
														<tr>
															<td height="30">製造会社</td>
															<%
																Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', ''"
																Set Content = OpenQuery(Query)
															%>
															<% If Session(HomeAlias & "EnshuKubun") <> "P" Then %>
															<td height="30" class="tx1214">
																<select size="1" name="SyoyuKaisyaCD" class="tbox4">
																	<option value=""></option>
																	<%
																		Do While Not(Content.BOF Or Content.EOF)
																			If Content.Fields("業種CD") = "S" Then			'商社で絞込み（061109小野）
																				Response.Write("<option value=""" & Content.Fields("会社CD") & """")
																				If Content.Fields("会社CD") = SyoyuKaisyaCD Then
																					Response.Write(" selected")
																				End If
																				Response.Write(">" & Content.Fields("会社略名称") & "</option>" & vbCrLf)
																			End If							'商社で絞込み（061109小野）
																			Content.MoveNext
																		Loop
																	%>
																</select>
<br> *製造会社を指定する場合は、市場を「市場を限定しない」にしてください
															<% Else %>		<!-- 同時同業の際は製造会社を変更させない（061109小野）-->
															<td height="30" class="tx1214">
																<input name="DummySyoyuKaisya" readonly type="text" class="tbox4_ro" value="<%
																	Do While Not(Content.BOF Or Content.EOF)
																		If Content.Fields("会社CD") = SyoyuKaisyaCD Then
																			Response.Write(Content.Fields("会社略名称"))
																		End If
																		Content.MoveNext
																	Loop
																%>" tabindex="-1"><input name="SyoyuKaisyaCD" type="hidden" class="tbox4" value="<% = SyoyuKaisyaCD %>">　*同時同業演習では製造会社を変更出来ません
															<% End If %>		<!-- 同時同業の際は製造会社を変更させない（061109小野）-->
															</td>
														</tr>
<% End If %>
														<tr>
															<td width="115" height="30">備考</td>
															<td height="30">
																<input type="text" name="Bikou" size="90" value="<% = Bikou %>" onBlur="FormStrLeftIME(this,40,true)" class="tbox4_ime">
															</td>
														</tr>
														<tr>
															<td height="30"><% = Title %>画像</td>
															<td height="30">
																<input name="GazoFile1" type="file" value="<% = GazoFile %>" size="79" class="tbox4nh">
																<input name="GazoFile" type="hidden" value="<% = GazoFile %>">
																<% If GazoFile <> "" Then %>
																<br><span class="tx<% If AscLen(GazoFile) > 100 Then %>1214<% Else %>1416<% End If %>">現在のファイル：<% = HardWrap(GazoFile) %></span><br>
																<input type="checkbox" style="cursor:pointer;" name="delImg" value="on"><span class="tx1416">現在の<% = Title %>画像を削除する</span>
																<% End If %>
															</td>
														</tr>
														<tr>
															<td colspan="2" class="tx1416">
														※ ※ ※ <% = Title %>画像を指定する際の注意 ※ ※ ※<br>
														<% = Title %>画像のファイル形式は JPEG・GIF・PNG などを指定してください。<br>
														実際の<% = Title %>画像は横120×縦90ピクセル(縦横比4：3)で表示されます。<br>
													<% If GazoFile <> "" Then %>
														現在設定されている<% = Title %>画像を削除する場合は「現在の<% = Title %>画像を削除する」にチェックを入れてください。<br>
													<% End If %>
															</td>
														</tr>
													<% End If %>
													</TABLE>
												</TD>
											</TR>
										</TABLE>

									</td>
								</tr>
							</table>
						</td>
					</tr>
				</table>

			</td>
		</tr>
	</table>
</div>

</form>

</body>



<SCRIPT LANGUAGE="JavaScript">

	//ロット入力部の単位表記を動的に変更する（091007小野）
	function TaniView() {
		if(typeof(document.all["LotTani"]) == "object") {
			document.all["LotTani"].innerHTML = form1.Tani.value;
		}
	}


	function SubmitCheck() {
		var bCheckFlg = 0;
	<%	'商品CD・商品名称・商品略名称の重複チェック
		Query = "exec SPM" & Title & "一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GB_GakuseiNo & "'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			Response.Write("	if (bCheckFlg == 0) {" & vbCrLf)
			Response.Write("		if (form1.SyohinCD.value == """ & Content.Fields(Title & "CD") & """) {" & vbCrLf)
			If Action = "2" And Content.Fields(Title & "CD") = SyohinCD Then '修正モードは商品CDの重複を容認
				Response.Write("			bCheckFlg = 0;" & vbCrLf)
			Else
				Response.Write("			bCheckFlg = 1;" & vbCrLf)
			End If
			Response.Write("		} else if (form1.Shohinmei.value == """ & Content.Fields(Title & "名称") & """) {" & vbCrLf)
			Response.Write("			bCheckFlg = 2;" & vbCrLf)
			Response.Write("		} else if (form1.ShohinRyakumei.value == """ & Content.Fields(Title & "略名称") & """) {" & vbCrLf)
			Response.Write("			bCheckFlg = 3;" & vbCrLf)
			Response.Write("		}" & vbCrLf)
			Response.Write("	}" & vbCrLf)
		Content.MoveNext
		Loop
	%>
		if (bCheckFlg == 1) {
			alert("<% = Title %>コードが重複しています　");
			form1.SyohinCD.focus();
			return false;
		}
		if (bCheckFlg == 2) {
			alert("<% = Title %>名が重複しています　");
			form1.Shohinmei.focus();
			return false;
		}
		if (bCheckFlg == 3) {
			alert("<% = Title %>略名称が重複しています　");
			form1.ShohinRyakumei.focus();
			return false;
		}

		if (form1.SyohinCD.value == "") {
			alert("<% = Title %>コードを入力してください　");
			form1.SyohinCD.focus();
			return false;
		}

		if (form1.Shohinmei.value == "") {
			alert("<% = Title %>名を入力してください　");
			form1.Shohinmei.focus();
			return false;
		}

		if (form1.ShohinRyakumei.value == "") {
			alert("<% = Title %>略名称を入力してください　");
			form1.ShohinRyakumei.focus();
			return false;
		}

<% If PackageMode = "1" Then %>
<% Else %>

	<% If PageType = "SeizoBu" And Mode <> "Zairyo" Then %>
		if (form1.Lot.value == "" || form1.Lot.value == "0") {
			alert("ロット数量を入力してください　");
			form1.Lot.focus();
			return false;
		}
	<% End If %>

<% End If %>

		if (form1.HanbaiTanka.value == "") {
			alert("<% If MHMSTDSELLPRICE <> "" Then Response.Write(Replace(Replace(MHMSTDSELLPRICE, "　", ""), " ", "")) Else Response.Write("標準販売単価") End If %>を入力してください　");
			form1.HanbaiTanka.focus();
			return false;
		}
		if (form1.HanbaiTanka.value == "0") {
			alert("<% If MHMSTDSELLPRICE <> "" Then Response.Write(Replace(Replace(MHMSTDSELLPRICE, "　", ""), " ", "")) Else Response.Write("標準販売単価") End If %>は1以上を入力してください　");
			form1.HanbaiTanka.focus();
			return false;
		}

	<% If PackageMode = "1" Then %>
	<% Else %>
		if (form1.ShireTnanka.value == "") {
			alert("標準仕入単価を入力してください　");
			form1.ShireTnanka.focus();
			return false;
		}

		if (form1.UnsoTanka.value == "") {
			alert("運送料単価を入力してください　");
			form1.UnsoTanka.focus();
			return false;
		}

		if (form1.SokoryoTanka.value == "") {
			alert("倉庫料単価を入力してください　");
			form1.SokoryoTanka.focus();
			return false;
		}

		if (form1.Jyuryo.value == "") {
			alert("<% = Title %>重量を入力してください　");
			form1.Jyuryo.focus();
			return false;
		}

		if (form1.Yoseki.value == "") {
			alert("<% = Title %>容積を入力してください　");
			form1.Yoseki.focus();
			return false;
		}

		if (form1.SyoyuKaisyaCD.value != "" & form1.ShijyoCD.value != "") {
			alert("製造会社を選択する場合は、市場にて「市場を限定しない」を選択してください");
			form1.ShijyoCD.focus();
			return false;
		}
	<% End If %>

		if (form1.GazoFile1.value != "") {
			var TmpFileNameAry
			//「\」で分解する
			TmpFileNameAry = form1.GazoFile1.value.split("\\");
			//最終配列＝ファイル名
			var TmpFileName = "" + TmpFileNameAry[TmpFileNameAry.length - 1];
			//FormStrLenSubはjavascript.js内関数
//			alert(FormStrLenSub(TmpFileName));
			if (FormStrLenSub(TmpFileName) > 200) {
				alert("ファイル名は200Byte以内にしてください　");
				form1.GazoFile1.value = "";
				form1.GazoFile1.focus();
				return false;
			}
		}

		SubmitReal(form1);
		return true;
	}

</script>


<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">

<% If ErrMSG2 <> "" Then '商品CDと材料CDが重複した場合の説明（091007小野）%>
	alert("入力された<% = Title %>コードは<% = SubTitle %>コードとしてすでに利用されています。　\n\n<% = ErrMSG2 %>　\n\n<% = SubTitle %>コードと<% = Title %>コードに同一のコードを設定することは出来ません。　");
	form1.SyohinCD.focus();
	form1.SyohinCD.select();
<% End If %>

</SCRIPT>


<% = HtmlFooter %>
</html>
<%
End Sub
%>