<!-- #include file="../../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：市場情報設定設定
' 作成日：2002/8/18
' 作成者：徳田
' 目的 ：市場情報入力画面を表示する。
' 概要 ：
' <<表示>>
' <<入力チェック>>
' ・ＮＵＬＬチェック
'
' 修正:
'################################################
'-->
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim ShijyoMeisyo
Dim ShijyoCD
Dim EnshuName
Dim Query, Content
Dim Action
Dim ErrMsg
Dim NRflg
Action = Request("Action")
ShijyoCD = Request("ShijyoCD")
ErrMsg = Request("ErrMsg")
NRflg = Request("nr")
'演習名称ＧＥＴ
EnshuName = ConvEnshuMeisyo(EnshuCD)
If NRflg = "r" then
ShijyoCD = Request("ShijyoCD")
ShijyoMeisyo = Request("ShijyoMeisyo")
Else
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
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">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 2;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)" method="POST" name="form1" action="fm_Shijyo_bin.asp" autocomplete="off">
<input type="hidden" name="Action" value="<% = Action %>">
<%
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')", "市場マスター", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "市場マスター", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_Shijyo_ichiran.asp')", "", "", "", "", "", "", "", ""))
If Action = 1 Then
Response.Write(HttpL4("市場マスター", "追加"))
Else
Response.Write(HttpL4("市場マスター", "修正"))
End If
Response.Write(HttpL5(ErrMsg))
%>
<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="420" height="280" 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 %>"><!--薄青のチェックの背景-->
<table border="0" cellspacing="0" cellpadding="5">
<tr>
<td>
<TABLE WIDTH="700" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
<TR>
<TD HEIGHT="30" VALIGN="BOTTOM" WIDTH="600">
<TABLE WIDTH="700" HEIGHT="30" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD WIDTH="220" HEIGHT="30">対象演習名</TD>
<TD HEIGHT="30"><%= EnshuName %></TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<td height="10">
</td>
</TR>
<TR>
<TD VALIGN="TOP" WIDTH="700">
<TABLE WIDTH="700" HEIGHT="100" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<tr>
<td width="200">市場コード</td>
<td>
<% If Action = 1 Then %>
<input type="text" name="ShijyoCD" size="8" value="<% = ShijyoCD %>" class="tbox4" onBlur="SetString(this, 6, false);" >(6)
<% Else %>
<input type="text" name="ShijyoCD" size="8" value="<% = ShijyoCD %>" class="tbox4_ro" readonly tabindex="-1">
<% End If %>
</td>
</tr>
<tr>
<td width="200">市場名称</td>
<td>
<input type="text" name="ShijyoMeisyo" size="14" value="<% = ShijyoMeisyo %>" onBlur="SetString(this, 12, true);" class="tbox4_ime">(6)
</td>
</tr>
</TABLE>
</TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</form>
</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>
<SCRIPT LANGUAGE="JavaScript">
function SubmitCheck()
{
if (form1.ShijyoCD.value == "")
{
alert("市場コードを入力して下さい");
form1.ShijyoCD.focus();
return false;
}
if (form1.ShijyoMeisyo.value == "")
{
alert("市場名称を入力して下さい");
form1.ShijyoMeisyo.focus();
return false;
}
SubmitReal(form1);
return true;
}
</script>