<!-- #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
'演習名称ＧＥＴ
EnshuName = ConvEnshuMeisyo(EnshuCD)
'対象データＧＥＴ
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
%>