<!-- #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(" 演習操作 ", "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 %>外税 <% = 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
%>