<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：元号マスタ設定
' 作成日：2017/11/1
' 作成者：小野
'################################################
'-->
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query
Dim Content
%>
<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" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)" method="POST" action="fm_gengo_bin.asp" name="form1" onSubmit="return SubmitCheck();" autocomplete="off">
<input type="hidden" name="Command" value="">
<input type="hidden" name="DeleteGengo" value="">
<input type="hidden" name="UpdateGengo" value="">
<%
'Response.Write(DefFolder)
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(4))
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp');", "システム情報", "tblbtn('/" & HomeAlias & "/admin/kihon/fm_kihon_view.asp');", "元号の設定" , "", "", "", "", "", "", ""))
Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("戻る", "tblbtn('/" & HomeAlias & "/admin/kihon/fm_kihon_view.asp');", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("元号マスタ", "設定"))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="650" height="100%" border="0" cellspacing="5" cellpadding="5" bgcolor="#ffffff" style="border:1px solid #000000">
<tr>
<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:628px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
<table border="0" cellpadding="0" cellspacing="2" class="tx1416">
<tr>
<td align="center">
</td>
<td align="center">
元号
</td>
<td align="center">
開始年月日
</td>
<td align="center">
</td>
<tr>
<tr>
<td align="center">
新規
</td>
<td align="center">
<input type="text" name="Gengo0" size="9" value="" onBlur="FormStrLeftIME(this,8,true);" class="tbox4_ime">
</td>
<td align="center">
<input type="text" name="Kaishibi0" size="12" value="" onkeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, false);" class="tbox4">
</td>
<td align="center">
<input type="button" value="追 加" onClick="GengoAdd();">
</td>
<tr>
<%
Query = " SELECT * FROM TC9元号M WHERE システムCD = '" & GB_SystemCD & "' ORDER BY 開始日 DESC "
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If "" & Content.Fields("元号") <> "" And "" & Content.Fields("開始日") <> "" Then
%>
<tr>
<td align="center">
<input type="button" value="削除" onClick="GengoDelete('<% = Content.Fields("元号CD") %>');">
</td>
<td align="center">
<input type="text" name="Gengo<% = Content.Fields("元号CD") %>" size="9" value="<% = Content.Fields("元号") %>" onBlur="FormStrLeftIME(this,8,true);" class="tbox4_ime">
</td>
<td align="center">
<input type="text" name="Kaishibi<% = Content.Fields("元号CD") %>" size="12" value="<% = SetTimeYYYYMMDD(Content.Fields("開始日")) %>" onkeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, false);" class="tbox4">
</td>
<td align="center">
<input type="button" value="更 新" onClick="GengoUpdate('<% = Content.Fields("元号CD") %>');">
</td>
<tr>
<%
End If
Content.MoveNext
Loop
%>
</table>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</form>
</body>
<% = HtmlFooter %>
</html>
<SCRIPT LANGUAGE="JavaScript">
function GengoAdd() {
form1.Command.value = "";
if (form1.Gengo0.value == "") {
alert("元号を入力してください ");
return false;
}
if (form1.Kaishibi0.value == "") {
alert("開始年月日を入力してください ");
return false;
}
form1.Command.value = "Add";
SubmitReal(form1);
return true;
}
function GengoDelete(Seq) {
form1.Command.value = "";
if (Seq != "") {
if (confirm("削除してよろしいですか？ ")) {
form1.Command.value = "Delete";
form1.DeleteGengo.value = Seq;
SubmitReal(form1);
return true;
}
}
}
function GengoUpdate(Seq) {
form1.Command.value = "";
if (Seq != "") {
if (form1["Gengo" + Seq].value == "") {
alert("元号を入力してください ");
return false;
}
if (form1["Kaishibi" + Seq].value == "") {
alert("開始年月日を入力してください ");
return false;
}
form1.Command.value = "Update";
form1.UpdateGengo.value = Seq;
SubmitReal(form1);
return true;
}
}
</script>
<%
End Sub
%>