<!-- #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 %>