<!-- #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()", " 商品棚に戻る ", "tblbtn('portal_shelf_edit.asp?ShijoCD=" & ShijoCD & "')", " 会社一覧に戻る ", "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
%>