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

<%
'<!-- 
'################################################
' 	名称	:演習追加入力		
' 	作成日:2002/9/4
' 	作成者:徳田
' 	目的 :演習追加入力の画面を表示する。
' 	概要	:
' 	 <<表示>>
'	・演習追加入力画面
'	
'###############################################
'-->



main()
Sub main()
	If Not(SessionCheck()) Then 
		Exit Sub
	End If

	Dim EnshuCD, EnshuName, FromYmd, ToYmd, EnshuKubun, TaxRate
	Dim DenpyoKubun, GinkoKozaToza, GinkoKozaFutu, GinkoKozaBetsudan, GinkoKozaTsumitate, GinkoKozaTeiki
	Dim SeiriKinyuKeisiki, MotoEnshuCD
	Dim MasterEnshu
	Dim ErrMsg

	Dim CopyMotoName

	Dim Query, 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
			Dim YobiB

			EnshuName = Content.Fields("演習名称")
			EnshuKubun = Content.Fields("演習区分")
			FromYmd = Content.Fields("会計開始日")
			ToYmd = Content.Fields("会計終了日")
			TaxRate = Content.Fields("消費税")
			DenpyoKubun = Content.Fields("利用伝票数区分")
			YobiB = Content.Fields("利用銀行口座種類")
			GinkoKozaToza = Mid(YobiB , 1, 1)
			GinkoKozaFutu = Mid(YobiB , 2, 1)
			GinkoKozaBetsudan = Mid(YobiB , 3, 1)
			GinkoKozaTsumitate = Mid(YobiB , 4, 1)
			GinkoKozaTeiki = Mid(YobiB , 5, 1)		

			SeiriKinyuKeisiki = Content.Fields("整理記入精算表利用")

			MasterEnshu = Content.Fields("マスター演習")

			CopyMotoName = "" & Content.Fields("コピー元演習名称")

		End If	
	Else
		FromYmd = DateSerial(Year(Date()), 4, 1)
		ToYmd = DateSerial(Year(DateAdd("yyyy", 1, Date())), 3, 31)	
		
	End If

	Dim RouteType
	RouteType = Request("RouteType")

	Dim SankaCheck
	SankaCheck = 0
	Query = "exec SPM演習_参加グループ一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		SankaCheck = 1
	Else
		Query = "exec SPM演習_参加ユーザー一覧2 '" & GB_SystemCD & "','" & EnshuCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			SankaCheck = 1
		End If
	End If

	'バックアップフォルダの確認
	Dim KyotsuPath
	Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		KyotsuPath = Content.Fields("共通データパス")
	End If
	Dim fso
	Set fso = CreateObject("Scripting.FileSystemObject")
	If Not(fso.FolderExists(KyotsuPath)) Then
		KyotsuPath = ""
	End If


	Dim NextPage
	NextPage = "2"
	If PackageMode = 1 Then
		NextPage = "22"
	End If


%>
<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" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<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("", "" ,"",  "", "", "", "", "", "", "", "", "", "", "", "", ""))
	If GB_Admin = 1 Then
		'Response.Write(HttpL3_1("削除", "DeleteCheck()", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", "", "", ""))
		'Response.Write(HttpL3_1("削除", "DeleteCheck()", "演習操作", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control');", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", ""))
		Response.Write(HttpL3_1("削除", "DeleteCheck()", "演習操作", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control');", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", ""))
	Else 
		'Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
		Response.Write(HttpL3_1("&nbsp;演習操作&nbsp;", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control')", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin')", "", "", "", "", "", ""))
	End If

	Dim SeitoKaishaBtnT
	Dim SeitoKaishaBtnV
	SeitoKaishaBtnT = ""
	SeitoKaishaBtnV = ""
	'If PackageMode <> 1 Then
		SeitoKaishaBtnT = "生徒選択会社解除"
		SeitoKaishaBtnV = "tblbtn('fm_enshu_view_user.asp?EnshuCD=" & EnshuCD & "')"
	'End If
	If EnshuKubun = "G" Then
		If GB_Admin = 1 Then
			Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?RouteType=" & RouteType & "&EnshuCD=" & EnshuCD & "')", "高度な設定", "if(confirm('メンテナンス時以外では高度な設定は利用しません\r\n高度な設定のページに移動しますか?'))tblbtn('fm_enshu1.asp?EnshuCD=" & EnshuCD & "&Kodo=1')", "" & SeitoKaishaBtnT & "", "" & SeitoKaishaBtnV & "", "次のページ", "tblbtn('fm_enshu" & NextPage & "_view.asp?EnshuCD=" & EnshuCD & "')", "", ""))
'			Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?RouteType=" & RouteType & "&EnshuCD=" & EnshuCD & "')", "高度な設定", "if(confirm('メンテナンス時以外では高度な設定は利用しません\r\n高度な設定のページに移動しますか?'))tblbtn('fm_enshu1.asp?EnshuCD=" & EnshuCD & "&Kodo=1')", "生徒会社再選択", "tblbtn('fm_enshu_view_user.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu2_view.asp?EnshuCD=" & EnshuCD & "')", "", ""))
'			Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?RouteType=" & RouteType & "&EnshuCD=" & EnshuCD & "')", "高度な設定", "if(confirm('メンテナンス時以外では高度な設定は利用しません\r\n高度な設定のページに移動しますか?'))tblbtn('fm_enshu1.asp?EnshuCD=" & EnshuCD & "&Kodo=1')", "生徒会社選択", "tblbtn('fm_enshu_user.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu" & NextPage & "_view.asp?EnshuCD=" & EnshuCD & "')", "", ""))
		Else
			Response.Write(HttpL3_2("高度な設定", "if(confirm('メンテナンス時以外では高度な設定は利用しません\r\n高度な設定のページに移動しますか?'))tblbtn('fm_enshu1.asp?EnshuCD=" & EnshuCD & "&Kodo=1')", "生徒会社再選択", "tblbtn('fm_enshu_view_user.asp')", "次のページ", "tblbtn('fm_enshu" & NextPage & "_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", ""))
		End If
	Else
		If GB_Admin = 1 Then
			Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?RouteType=" & RouteType & "&EnshuCD=" & EnshuCD & "')", "高度な設定", "if(confirm('メンテナンス時以外では高度な設定は利用しません\r\n高度な設定のページに移動しますか?'))tblbtn('fm_enshu1.asp?EnshuCD=" & EnshuCD & "&Kodo=1')", "次のページ", "tblbtn('fm_enshu" & NextPage & "_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", ""))
		Else
			Response.Write(HttpL3_2("高度な設定", "if(confirm('メンテナンス時以外では高度な設定は利用しません\r\n高度な設定のページに移動しますか?'))tblbtn('fm_enshu1.asp?EnshuCD=" & EnshuCD & "&Kodo=1')", "次のページ", "tblbtn('fm_enshu" & NextPage & "_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", ""))
		End If
	End If


	Response.Write(HttpL4("演習管理", "基本"))

	Response.Write(HttpL5("<font color=""#FF0000"">" & ErrMsg & "</font>"))

%>

<% 'PackageMode = 1 %>
<% 'TaxRateSelection = 0 %>

<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" HEIGHT="100%">

				<TR>
					<TD height="30" VALIGN="TOP" ALIGN="left" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
<% If GB_Admin = 1 Then %>
<input type="button" class="tx1416" value="この演習設定を元に新規演習作成" onClick="tblbtn('/<% = HomeAlias %>/admin/enshu/fm_enshu1.asp?CopyMoto=<% = EnshuCD %>&RouteType=<% = RouteType %>');">
<% End If %>
						<TABLE BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
							<tr>
								<td width="130" height="30" bgcolor="#FFEE88">演習コード</td>
								<td width="220" height="30"><% = EnshuCD %></td>
								<td width="105" height="30" bgcolor="#FFEE88">演習名称</td>
								<td width="345" height="30"><% = HardWrap(EnshuName) %></td>
							</tr>
							<tr>
								<td height="30" bgcolor="#FFEE88">会計期間</td>
								<td height="30"><% = SetTimeYYYYMMDD(FromYmd) %> ~ <% = SetTimeYYYYMMDD(TOYmd) %></td>
								<td height="30" bgcolor="#FFEE88">演習区分</td>
								<% If PackageMode = 1 Then %>
								<td height="30">
									<% If EnshuKubun <> "P" Then Response.Write("<font color=""#888888"">個人モード</font>") Else Response.Write("個人モード") End If %>
									 <% If EnshuKubun <> "G" Then Response.Write("<font color=""#888888"">グループモード</font>") Else Response.Write("グループモード") End If %>
								</td>
								<% Else %>
								<td height="30">
									<% If EnshuKubun <> "G" Then Response.Write("<font color=""#888888"">模擬実践演習</font>") Else Response.Write("模擬実践演習") End If %>
									 <% If EnshuKubun <> "P" Then Response.Write("<font color=""#888888"">同時同業演習</font>") Else Response.Write("同時同業演習") End If %>
								</td>
								<% End If %>
							</tr>
							<tr>
								<td height="30" bgcolor="#FFEE88">消費税</td>
								<td height="30"><% If TaxRate < 1 Then %>内税<% Else %>外税&nbsp;<% = TaxRate %>%<% End If %></td>
								<td height="30" bgcolor="#FFEE88"><% If PackageMode = 1 Then %>仕訳の<% Else %>利用伝票<% End If %>方式</td>
								<td height="30"><% If DenpyoKubun <> "5" Then Response.Write("<font color=""#888888"">5伝票</font>") Else Response.Write("5伝票") End If %> 
								<% If DenpyoKubun <> "3" Then Response.Write("<font color=""#888888"">3伝票</font>") Else Response.Write("3伝票") End If %> 
								<% If DenpyoKubun <> "1" Then Response.Write("<font color=""#888888"">振替伝票のみ</font>") Else Response.Write("振替伝票のみ") End If %> 
							<% If PackageMode = 1 Then %>
								<% If DenpyoKubun <> "0" Then Response.Write("<font color=""#888888"">仕訳帳</font>") Else Response.Write("仕訳帳") End If %>
							<% End If %>
								</td>
							</tr>
							<% If PackageMode = 0 Then %>
							<tr>
								<td height="30" bgcolor="#FFEE88">利用銀行口座種類</td>
								<td height="30"><% If GinkoKozaToza <> "T" Then Response.Write("<font color=""#888888"">当座</font>") Else Response.Write("当座") End If %> 
								<% If GinkoKozaFutu <> "F" Then Response.Write("<font color=""#888888"">普通</font>") Else Response.Write("普通") End If %> 
								<% If GinkoKozaBetsudan <> "B" Then Response.Write("<font color=""#888888"">別段</font>") Else Response.Write("別段") End If %> 
								<% If GinkoKozaTsumitate <> "M" Then Response.Write("<font color=""#888888"">積立</font>") Else Response.Write("積立") End If %> 
								<% If GinkoKozaTeiki <> "L" Then Response.Write("<font color=""#888888"">定期</font>") Else Response.Write("定期") End If %> 
								</td>
							</tr>
							<% End If %>
							<tr>
								<td height="30" bgcolor="#FFEE88">整理記入の方法</td>
								<td height="30" colspan="3"><% If SeiriKinyuKeisiki <> "0" Then Response.Write("<font color=""#888888"">振替伝票で記入</font>") Else Response.Write("振替伝票で記入") End If %> 
							<% If PackageMode = 1 Then %>
								<% If SeiriKinyuKeisiki <> "2" Then Response.Write("<font color=""#888888"">仕訳帳に記入</font>") Else Response.Write("仕訳帳に記入") End If %> 
							<% End If %>
								<% If SeiriKinyuKeisiki <> "1" Then Response.Write("<font color=""#888888"">精算表に直接記入</font>") Else Response.Write("精算表に直接記入") End If %> 
								</td>
							</tr>
							<% If CopyMotoName <> "" Then %>
							<tr>
								<td height="30" bgcolor="#FFEE88">コピー元演習名称</td>
								<td height="30" colspan="3"><% = CopyMotoName %>
								</td>
							</tr>
							<% End If %>
							<% If MasterEnshu <> "0" Then %>
							<tr>
								<td height="30" bgcolor="#FFEE88">マスター演習</td>
								<td height="30" colspan="3">マスター演習に設定されています
								</td>
							</tr>
							<% End If %>
						</table>


					</TD>
				</TR>
			</TABLE>
		</TD>
	</TR>
</TABLE>

</div>
</form>

</body>

<SCRIPT LANGUAGE="JavaScript">

	function DeleteCheck() {
		<% If SankaCheck > 0 Then %>
		alert("この演習に参加しているグループまたはユーザーが存在します。 \r\nデータ保護のため参加者が存在する演習は削除できません。 \r\n\r\n「演習参加者管理」にて参加を取り消してから削除してください。 ");
		return;
		<% End If %>
		<% If UCase(EnshuCD) = "SYSORIGN" Then %>
		alert("演習コード SYSORIGN の演習は削除出来ません");
		return;
		<% End If %>
		var flag;
		flag = "\n「<% = EnshuCD %>:<% = EnshuName %>」を削除してよろしいですか? \n\n";
		<% If KyotsuPath <> "" Then %>
		flag = flag + "\n念のため削除前に演習データのバックアップを行います。 \n削除した演習を復元したい場合は \n\n ・「運用管理メニュー」→「データ復元」を開く \n ・「演習削除済みを表示」ボタンを押す \n ・演習選択メニューから目的の演習を選択する \n ・バックアップ履歴より復元したい履歴を選択する \n ・データ復元を実行する \n\n以上の手順で復元してください。 ";
		<% End If %>
		if (confirm(flag)) {
			<% If KyotsuPath <> "" Then %>
			//データバックアップに飛ぶ(071001小野)
			tblbtn( "/<% = HomeAlias %>/admin/datakanri/fm_enshu_save_bin.asp?Mode=EnshuDelete&Target=<% = EnshuCD %>");
			<% Else %>
			tblbtn( "/<% = HomeAlias %>/admin/enshu/fm_enshu1_bin.asp?Action=4&EnshuCD=<% = EnshuCD %>");
			<% End If %>
			return true;
		} else {
			return false;
		}
	}

</script>
<% = HtmlFooter %>
</html>

<% 
End Sub
%>