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

<%
'<!-- 
'################################################
'	名称	:ポータルサイト(商品棚商品編集)
'	作成日	:2008/08/26
'	作成者	:小野
'	目的	:商品棚の商品編集画面の表示
'	概要	:
'	修正変更:
'################################################
'-->
'
%>

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

	Dim Query
	Dim Content

	Dim ShijoCD
	ShijoCD = Request("ShijoCD")

	Dim ShelfCD
	ShelfCD = Request("ShelfCD")

	Dim ShohinGazo
	Dim ShohinGazoKubun
	Dim ShohinGazoURL
	Dim OldKoukokuGazoURL
	Dim Midashi
	Dim Shokai
	Dim ShohinCD
	Dim ShohinMeisho
	Dim PurchasePrice
	If ShelfCD <> "" Then
		Query = "exec SPPポータル商品取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & ShelfCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			If "" & Content.Fields("商品広告画像") <> "" Then
				ShohinGazoURL = FPortal & "/" & GB_EnshuCD & "/" & KaisyaCD & "/" & Content.Fields("商品広告画像")
				OldKoukokuGazoURL = ShohinGazoURL
				ShohinGazo = Content.Fields("商品広告画像")
			ElseIf "" & Content.Fields("商品マスタ画像") <> "" Then
				ShohinGazoURL = Fgoods & "/" & EnshuCD & "/" & Content.Fields("商品マスタ画像")
			End If
			ShohinGazoKubun = "" & Content.Fields("商品画像区分")
			Midashi = "" & Content.Fields("商品見出し文")
			Shokai = "" & Content.Fields("商品広告文")
			ShohinCD = "" & Content.Fields("商品CD")
			ShohinMeisho = "" & Content.Fields("商品名称")
			PurchasePrice = "" & Content.Fields("希望卸価格")
			If "" & PurchasePrice = "" Then
				PurchasePrice = "" & Content.Fields("標準卸価格")
			End If
		End If
	End If
	Shokai = Replace(Shokai, "<BR>", vbCrLf)
	If ShohinGazoKubun = "" Then
		ShohinGazoKubun = "1"
	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">
<!--
	ExitFlg = 2;
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";


	//商品CD及び商品名の配列を作成
	Val = new Array();
	Tex = new Array();
<%
	Dim Query2
	Dim Content2
	Dim ii
	Dim jj
	ii = 0
	jj = 0
	'TDA市場Mから市場(市場CD)を取得
	Query = "exec SPM市場一覧 '" & GB_SystemCD & "', '" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Do While Not(Content.BOF Or Content.EOF)
			Response.Write("Val[" & ii & "] = new Array();" & vbCrLf)
			Response.Write("Tex[" & ii & "] = new Array();" & vbCrLf)
			'TDA商品Mから商品CDと商品名を取得し、JavaScript用の配列として書き出す
			If ii = 0 Then
				'最上列に全商品一覧
				Query2 = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
			Else
				Query2 = "exec SPM商品市場一覧2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & Content.Fields("市場CD") & "', '" & GB_GakuseiNo & "'"
			End If
			Set Content2 = OpenQuery(Query2)
			If Not(Content2.BOF Or Content2.EOF) Then
				jj = 0
				Response.Write("Val[" & ii & "][" & jj & "] = '';" & vbCrLf )
				Response.Write("Tex[" & ii & "][" & jj & "] = '    ';" & vbCrLf )
				jj = jj + 1
				Do While Not(Content2.BOF Or Content2.EOF)
					Response.Write("Val[" & ii & "][" & jj & "] = '" & Content2.Fields("商品CD") & "';" & vbCrLf )
					Response.Write("Tex[" & ii & "][" & jj & "] = '" & Content2.Fields("商品名称") & "';" & vbCrLf )
					Content2.MoveNext
					jj = jj + 1
				Loop
			End If
			If ii <> 0 Then
				Content.MoveNext
			End If
			ii = ii + 1
		Loop
		'最下列に市場非限定一覧
		Response.Write("Val[" & ii & "] = new Array();" & vbCrLf)
		Response.Write("Tex[" & ii & "] = new Array();" & vbCrLf)
		Query2 = "exec SPM商品市場一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '', '" & GB_GakuseiNo & "'"
		Set Content2 = OpenQuery(Query2)
		If Not(Content2.BOF Or Content2.EOF) Then
			jj = 0
			Response.Write("Val[" & ii & "][" & jj & "] = '';" & vbCrLf )
			Response.Write("Tex[" & ii & "][" & jj & "] = '    ';" & vbCrLf )
			jj = jj + 1
			Do While Not(Content2.BOF Or Content2.EOF)
				Response.Write("Val[" & ii & "][" & jj & "] = '" & Content2.Fields("商品CD") & "';" & vbCrLf )
				Response.Write("Tex[" & ii & "][" & jj & "] = '" & Content2.Fields("商品名称") & "';" & vbCrLf )
				Content2.MoveNext
				jj = jj + 1
			Loop
		End If
	End If
%>

	function CngShohinList(obj) {
		form1.ShohinCD.options.length = Val[obj.selectedIndex].length;	//配列長を変更
		for (i = 0; i < Val[obj.selectedIndex].length; i++) {
			form1.ShohinCD.options[i].value = Val[obj.selectedIndex][i];
			form1.ShohinCD.options[i].text = Tex[obj.selectedIndex][i];
		}
		form1.ShohinCD.selectedIndex = 0;
   }


	//商品画像の表示
	function GazoHenko(ShohinGazoURL) {
		if (ShohinGazoURL != '') {
			ShohinGazo.innerHTML = '<img src="' + ShohinGazoURL + '" WIDTH="120" HEIGHT="90">';
		//商品画像URLがNULLの場合は代替表示
		} else {
			ShohinGazo.innerHTML = '<div style="width:120px; height:90; border:1px #000000 solid; text-align:center;" class="tx1618"><BR><BR>画像無し</div>';
		}
	}

	//商品画像区分を変更した際の表示画像変更処理
	function GazoKubunHenko(mode) {
		if (mode == 1) {
			GazoHenko(ConvShohinGazo(form1.ShohinCD.value));
		} else if (mode == 2) {
			//商品広告画像が指定されている場合
			if (form1.KoukokuGazo.value != '') {
				GazoHenko(form1.KoukokuGazo.value);
			//商品広告画像が指定されていない場合はNULL若しくは元画像
			} else {
				GazoHenko('<% = OldKoukokuGazoURL %>');
			}
		} else {
			GazoHenko('');
		}
	}

	//商品が変更された際に商品画像区分が1であれば表示商品画像を変更する
	function ShohinHenko() {
		if (form1.ShohinGazoKubun[1].checked == true) {
			GazoKubunHenko(1);
		}
	}

	//広告画像の変更
	function KoukokuGazoHenko(mode) {
		var TmpURL = '';
		//新規画像が指定された場合
		if (mode == 'NewGazo') {
			//クライアントローカルパスをセット
			TmpURL = form1.KoukokuGazo.value;
			//商品画像変更フラグを立てる
			form1.KoukokuGazoHenkoFlg.value = '1';
			//商品画像区分を2に変更する
			form1.ShohinGazoKubun[2].checked = true;
		//元に戻すボタンが表示された場合
		} else {
			//フォームクリア
			document.form1.elements["KoukokuGazo"].parentNode.replaceChild(document.form1.elements["KoukokuGazo"].cloneNode(false), document.form1.elements["KoukokuGazo"]); 
			//商品画像変更フラグを降ろす
			form1.KoukokuGazoHenkoFlg.value = '0';
			//元の商品広告画像があればセットする
			TmpURL = '<% = ShohinGazoURL %>';
		}
		//商品画像区分が2であれば表示商品画像を変更する
		if (form1.ShohinGazoKubun[2].checked == true) {
			GazoHenko(TmpURL);
		}
	}

	function ConvShohinGazo(SyohinCD) {
<%
	Query = "exec SPM商品一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		Dim ImageFile
		ImageFile = ""
		If Content.Fields("画像ファイル") <> "" Then
			ImageFile = Fgoods & "/" & EnshuCD & "/" & Content.Fields("画像ファイル")
		End If
		Response.Write("		if (SyohinCD == """ & Content.Fields("商品CD") & """)return """ & ImageFile & """;" & vbCrLf)
		Content.MoveNext
	Loop
%>
		return "";
	}


-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form name="form1" method="POST" action="portal_Shohin_bin.asp" ENCTYPE="multipart/form-data">
<input type="hidden" name="ShelfCD" value="<% = ShelfCD %>">
<input type="hidden" name="KoukokuGazoHenkoFlg" value="0">
<input type="hidden" name="OldKoukokuGazo" value="<% = ShohinGazo %>">
<input type="hidden" name="ShijoCD" value="<% = ShijoCD %>">

<%
	Response.Write(HtmlDesign(11))

	Response.Write(HttpL3_1("保存", "SubmitCheck()", "&nbsp;商品棚に戻る&nbsp;", "tblbtn('portal_shelf_edit.asp?ShijoCD=" & ShijoCD & "')", "&nbsp;会社一覧に戻る&nbsp;", "tblbtn('portal_kaisha_ichiran.asp?ShijoCD=" & ShijoCD & "')", "閉じる", "ExitFlg=0;top.window.close()", "", ""))

	Response.Write(HttpL4("商品の編集", ""))

%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="100%" HEIGHT="100%">
	<TR> 
		<TD ALIGN="CENTER"> 
			<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="15" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="1" HEIGHT="100%">
				<TR> 
					<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif">
						<TABLE WIDTH="615" BORDER="1" CELLSPACING="0" CELLPADDING="3" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
							<TR>
								<td WIDTH="110" height="24" bgcolor="#FFEE88">商品</td>
								<td>
								<% If ShelfCD <> "" Then %>
									<% = ShohinMeisho %>
									<input type="hidden" name="ShohinCD" value="<% = ShohinCD %>">
								<% Else %>
									市場:<select name="ShijoCD" size="1" onChange="CngShohinList(this)" class="tbox4">
										<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") & """>" & Content.Fields("市場名称") & "</option>" & vbCrLf)
												Content.MoveNext
											Loop
											'市場を限定しない商品
											Response.Write("<option value="""">市場非限定</option>" & vbCrLf)
										%>
									</select>
									<select name="ShohinCD" size="1" onChange="ShohinHenko();" class="tbox4">
										<option value="">    </option>
										 <%
											Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
											Set Content = OpenQuery(Query)
											Do While Not(Content.BOF Or Content.EOF)
												Response.Write("<option value=""" & Content.Fields("商品CD") & """>" & Content.Fields("商品名称") & "</option>" & vbCrLf)
												Content.MoveNext
											Loop
										%>
									</select>
								<% End If %>
								</td>
							</TR>
							<TR>
								<td height="30" bgcolor="#FFEE88">商品広告画像<BR>(120×90)</td>
								<td>
									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" CLASS="tx1416">
										<TR>
											<td WIDTH="130">
												<div id="ShohinGazo">
												<% If ShohinGazoURL <> "" Then %>
												<img src="<% = ShohinGazoURL %>" WIDTH="120" HEIGHT="90">
												<% Else %>
												<div style="width:120px; height:90; border:1px #000000 solid; text-align:center;" class="tx1618"><BR><BR>画像無し</div>
												<% End If %>
												</div>
											</td>
											<td>
												<INPUT type='radio'  name='ShohinGazoKubun' value="0" onClick="GazoKubunHenko(0);" <% If ShohinGazoKubun = "0" Then Response.Write(" checked") End If %>>画像を表示しない<BR><BR>
												<INPUT type='radio'  name='ShohinGazoKubun' value="1" onClick="GazoKubunHenko(1);" <% If ShohinGazoKubun = "1" Then Response.Write(" checked") End If %>>商品画像をそのまま表示する<BR><BR>
												<INPUT type='radio'  name='ShohinGazoKubun' value="2" onClick="GazoKubunHenko(2);" <% If ShohinGazoKubun = "2" Then Response.Write(" checked") End If %>>以下で指定された広告画像を表示する
												
											</td>
										</TR>
									</TABLE>
									広告画像:<input type="file" name="KoukokuGazo" value="" size="46" UNSELECTABLE="On" onChange="KoukokuGazoHenko('NewGazo');" class="tbox4">
									<input type="button" style="width:66;" value="元に戻す" onClick="KoukokuGazoHenko('');">
								</td>
							</TR>
							<TR>
								<td height="24" bgcolor="#FFEE88">見出し</td>
								<td>
									<input type="text" name="Midashi" value="<% = Midashi %>" style="height:20;" size="80" onKeyDown="FormKeyDown(this);" onBlur="FormStrLeftIME(this, 80, true);" class="tbox4_ime">
								</td>
							</TR>
							<TR>
								<td height="24" bgcolor="#FFEE88">商品紹介</td>
								<td>
									<textarea name="Shokai" rows="3" wrap="soft" cols="79" onBlur="FormStrLeftIME(this, 216, true);" class="tarea4_ime"><% = Shokai %></textarea>
								</td>
							</TR>
							<TR>
								<td height="24" bgcolor="#FFEE88">希望卸価格</td>
								<td>
									<input type="text" name="PurchasePrice" size="14" value="<% = ConvIntToMoney(PurchasePrice, false, false) %>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);" class="tbox5">
								</td>
							</TR>

						</TABLE>
					</TD>
				</TR>
			</TABLE>
		</TD>
	</TR>
</TABLE>
</div>

</form>

</body>

<script language="JavaScript" type="text/JavaScript">
<!--

	function SubmitCheck() {
		if (form1.ShohinCD.value == "") {
			alert("商品を選択してください ");
			form1.ShohinCD.focus();
			return false;
		}
		if (form1.Midashi.value == "") {
			alert("見出しを入力してください ");
			form1.Midashi.focus();
			return false;
		}
		SubmitReal(form1);
		return true;
	}


	//初期画像表示
	GazoKubunHenko(<% = ShohinGazoKubun %>);

	//修正モードは商品変更処理を行う
<% If ShelfCD <> "" Then %>
	ShohinHenko();
<% End If %>


-->
</script>

<% = HtmlFooter %>

</html>
<% 
End Sub
%>