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

<%

'<!--
'################################################
'	名称	:市場情報設定設定
'	作成日:2002/8/18
'	作成者:徳田
'	目的 :市場情報画面を表示する。
'	概要	:
'	 <<表示>>
'	<<入力チェック>>
'
'	修正:
'################################################
'-->

main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If
	Dim KanriKubun
	Dim EnshuName
	Dim ShijyoMeisyo , ShijyoCD, ShijyoCD2		'市場コード、市場名称、市場カナ名称
	Dim Query, Content

	ShijyoCD = Request("ShijyoCD")
	KanriKubun = Session(HomeAlias & "KanriKubun")
	ShijyoCD2 = ShijyoCD

'演習名称GET
	EnshuName = ConvEnshuMeisyo(EnshuCD)

'対象データGET
	Query = "exec SPM市場取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD & "'"
	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		ShijyoCD = Content.Fields("市場CD")
		ShijyoMeisyo = Content.Fields("市場名称")
	End If

	'当該市場限定の商品があるか確認する
	Dim ShijyoSyohin
	ShijyoSyohin = 0
	Query = "exec SPM商品市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("市場CD") = ShijyoCD Then
			ShijyoSyohin = 1
			Exit Do
		End If
		Content.MoveNext
	Loop

	'当該市場の会社があるか確認する
	Dim ShijyoKaisha
	ShijyoKaisha = 0
	Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', 2"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("市場CD") = ShijyoCD Then
			ShijyoKaisha = 1
			Exit Do
		End If
		Content.MoveNext
	Loop

%>


<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</SCRIPT>


<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" 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="Action" value="2">
<input type="hidden" name="ShijyoCD" value="<% = ShijyoCD2 %>">
<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(4))


	If GB_Admin >= 1 Then
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "市場マスター", "", "", "", "", "", "", ""))
		Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
		If EnshuCD <> "SYSORIGN" Then
			If ShijyoCD = "" Then
				Response.Write(HttpL3_1("", "","", "" ,"", "", "", "", "", ""))
			Else
				Response.Write(HttpL3_1("修正", "tblbtn('fm_shijyo.asp?ShijyoCD=" & ShijyoCD & "&Action=2&nr=n')","削除", "DeleteCheck()" ,"", "", "", "", "", ""))
			End If
			Response.Write(HttpL3_2("追加", "tblbtn( 'fm_shijyo.asp?Action=1')", "一覧表示", "tblbtn( 'fm_shijyo_ichiran.asp?ShijyoCD=" & ShijyoCD2 & "')", "", "", "", "", "", ""))
		End If

		Response.Write(HttpL3_2("追加", "tblbtn( 'fm_shijyo.asp?Action=1')", "一覧表示", "tblbtn( 'fm_shijyo_ichiran.asp')" ,"", "", "", "", "", ""))
	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')", "市場マスター", "", "", ""))
		Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
		Response.Write(HttpL3_1("", "" ,"", "", "", "", "", "", "", ""))
		Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_shijyo_ichiran.asp?ShijyoCD=" & ShijyoCD2 & "')" ,"", "", "", "", "", "", "", ""))
	End If



	Response.Write(HttpL4("市場マスター", "照会"))

	If EnshuCD = "SYSORIGN" Then
		Response.Write(HttpL5("演習コード SYSORIGN の演習は修正出来ません"))
	End If
%>


<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 align="center">
				<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
					<tr>
						<td align="center">
							<table width="640" height="340" border="0" cellspacing="5" cellpadding="0" bgcolor="#ffffff" style="border:1px solid #000000">
								<tr>
									<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"><!--薄青のチェックの背景-->
										<!--青線+タイトルの3x3の外側が幅、高さ20pxのテーブル-->
										<table width="540" border="0" cellspacing="0" cellpadding="0">
											<tr>
			<!--3x3上段左	--><!--3x3上段中央--><!--3x3上段右	-->
											</tr>
											<tr>
			<!--3x3中段左	--><!--3x3中央	 --><td height="300" width="500" align="center">
													<TABLE WIDTH="500" HEIGHT="100" BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
														<% If GB_Admin = 2 Then %>
														<TR ALIGN="CENTER">
															 <TD WIDTH="150">対象演習名</TD>
															 <TD><%= EnshuName %></TD>
														</TR>
														<% End If %>
														<tr>
															<td WIDTH="150">市場コード</td>
															<td><% = ShijyoCD %></td>
														</tr>
														<tr>
															<td WIDTH="150">市場名称</td>
															<td><% = ShijyoMeisyo %></td>
														</tr>


														</table>
													</td>
			<!--3x3中段右-->
											<tr>
			<!--3x3下段左--><!--3x3下段中央--><!--3x3下段右-->
											</tr>
										</table>
									</td>
								</tr>
							</table>

						</td>
					</tr>
				</table>
			</td>
		</tr>
	</table>
</div>
</form>
</body>

<SCRIPT LANGUAGE="JavaScript">

function DeleteCheck()
{
<% If ShijyoKaisha > 0 Then %>
	alert("当該市場に会社が存在します。\n全ての会社の市場を当該市場以外に設定してから削除してください。");
	return false;
<% End If %>
<% If ShijyoSyohin > 0 Then %>
	//alert("当該市場に限定された商品が存在します。\nこれらの商品はどの市場からも見えなくなりますので\n「商品マスター」にて市場を変更してください。");
	alert("当該市場に限定された商品が存在します。\n全ての商品の市場を当該市場以外に設定してから削除してください。");
	return false;
<% End If %>
	var flag;
	flag = confirm("削除してよろしいですか?");
	if (flag)
	{
		tblbtn( "fm_shijyo_bin.asp?ShijyoCD=<% = ShijyoCD %>&Action=4");
		return true;
	}
	else
	{
		return false;
	}
}


</script>

<% = HtmlFooter %>

</html>

<%
End Sub
%>