<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：演習追加入力
' 作成日：2002/9/4
' 作成者：徳田
' 目的 ：演習追加入力の画面を表示する。
' 概要 ：
' <<表示>>
' ・演習追加入力画面
'
'###############################################
'-->
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim EnshuName, EnshuID, EnshuPassword
Dim TutyoSyusei, MeishiKyuVersionRiyo, NatsuinRiyo
Dim TozaHikidashiFurikomiKogitteHituyo, TegataSyusei
Dim SyohinCheck, GenbutsuCheck, UnsohiSeikyusyoKyuVersionRiyo
Dim SyohinNyusyukkoSeikousei, SyohinKaihatukaRiyo
Dim ErrMsg
Dim Query
Dim Content
EnshuCD = Request("EnshuCD")
If EnshuCD <> "" Then
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
EnshuName = Content.Fields("演習名称")
EnshuID = Content.Fields("演習管理者ID")
EnshuPassword = Content.Fields("演習管理者パスワード")
TutyoSyusei = Content.Fields("通帳手動修正")
MeishiKyuVersionRiyo = Content.Fields("名刺作成旧バージョン利用")
NatsuinRiyo = Content.Fields("捺印利用")
TozaHikidashiFurikomiKogitteHituyo = Content.Fields("当座引出振込小切手必要")
TegataSyusei = Content.Fields("手形修正")
SyohinCheck = Content.Fields("商品チェック表示")
GenbutsuCheck = Content.Fields("現物チェック表示")
UnsohiSeikyusyoKyuVersionRiyo = Content.Fields("運送費請求書旧バージョン利用")
SyohinNyusyukkoSeikousei = Content.Fields("商品入出庫整合性利用")
SyohinKaihatukaRiyo = Content.Fields("商品開発課利用")
End If
Else
End If
Dim RouteType
RouteType = Request("RouteType")
%>
<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="GET" name="form1" action="fm_enshu0_bin.asp">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="DbEnshuCD" value="<% = EnshuCD%>">
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(4))
If Request("RouteType") = "Kantan" Then
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu1.asp')", "演習管理", "", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "", "", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("修正", "tblbtn('fm_enshu0.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", ""))
If GB_Admin = 1 Then
Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?RouteType=" & RouteType & "')", "前のページ", "tblbtn('fm_enshu2_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu2_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL4("演習管理", "照会4"))
Response.Write(HttpL5("<font color=""#FF0000"">" & ErrMsg & "</font>"))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%">
<tr>
<TD ALIGN="CENTER">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="5" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="740" HEIGHT="100%">
<TR>
<TD HEIGHT="30" VALIGN="TOP" ALIGN="left" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
<TABLE WIDTH="740" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1214" STYLE="border-collapse: collapse" width="740">
<tr>
<td WIDTH="160" height="30" bgcolor="#FFEE88">演習コード</td>
<td WIDTH="160" height="30"><% = EnshuCD %></td>
<td height="30" bgcolor="#FFEE88">演習名称</td>
<td height="30"><% = EnshuName %></td>
</tr>
</table>
<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
<TABLE WIDTH="740" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<tr>
<td valign="top">
<TABLE WIDTH="740" HEIGHT="100%" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1214" STYLE="border-collapse: collapse">
<tr>
<td height="20" bgcolor="#FFEE88">小切手・手形の修正を可能とする</td>
<td height="20">
<font size="2" <% If TegataSyusei <> "1" Then Response.Write(" color=""#888888""") End If %>>可能とする</font>
<font size="2" <% If TegataSyusei <> "0" Then Response.Write(" color=""#888888""") End If %>>可能としない</font>
</td>
</tr>
<tr>
<td height="20" bgcolor="#FFEE88">通帳の修正を商社が可能とする</td>
<td height="20">
<font size="2" <% If TutyoSyusei <> "1" Then Response.Write(" color=""#888888""") End If %>>可能とする</font>
<font size="2" <% If TutyoSyusei <> "0" Then Response.Write(" color=""#888888""") End If %>>可能としない</font>
</td>
</tr>
</TABLE>
</td>
</tr>
</table>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</div>
</form>
</body>
<% = HtmlFooter %>
</html>
<SCRIPT LANGUAGE="JavaScript">
function SubmitCheck()
{
SubmitReal(form1);
return true;
}
</script>
<%
End Sub
%>