<!-- #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 SeiriKinyuKeishikiKubun, MotoEnshuCD Dim MasterEnshu Dim ErrMsg Dim MotoTaxRate 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) SeiriKinyuKeishikiKubun = Content.Fields("整理記入精算表利用") MasterEnshu = Content.Fields("マスター演習") End If Else FromYmd = DateSerial(Year(Date()), 4, 1) ToYmd = DateSerial(Year(DateAdd("yyyy", 1, Date())), 3, 31) End If 'サイバー会計での新規作成時デフォルト値 '(サイバートレード連動ではGになっているのでそのまま) If EnshuKubun <> "G" Then EnshuKubun = "P" 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="POST" name="form1" action="fm_enshu1_bin.asp"> <input type="hidden" name="RouteType" value="<% = RouteType %>"> <input type="hidden" name="DbEnshuCD" value="<% = EnshuCD %>"> <input type="hidden" name="MotoTaxRate" value="<% = TaxRate %>"> <input type="hidden" name="MotoToYmd" value="<% = ToYmd %>"> <input type="hidden" name="MotoFromYmd" value="<% = FromYmd %>"> <input type="hidden" name="DbEnshuName" value="<% = EnshuName %>"> <% 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("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) If GB_Admin = 1 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) End If If EnshuCD = "" then Response.Write(HttpL4("演習管理", "追加")) Else Response.Write(HttpL4("演習管理", "高度な設定")) End If 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" HEIGHT="100%"> <TR> <TD HEIGHT="20" VALIGN="TOP" ALIGN="left" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"> <TABLE BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse"> <tr> <td height="30" width="130" bgcolor="#FFEE88">演習コード</td> <td height="30" width="220"> <% If Request("Kodo") = 1 Then %> <input type="hidden" name="EnshuCD" value="<% = EnshuCD %>"><% = EnshuCD %> <% Else %> <input type="text"tbox4 name="EnshuCD" size="20" value="<% = EnshuCD %>" class="tbox4" onkeyup="FormStrLeft(this,12,false,false);" onKeypress="FormStrLeft(this,12,false,false);" onBlur="FormStrTrim(this,true);"> <% End If %> </td> <td height="30" width="105" bgcolor="#FFEE88">演習名称</td> <td height="30" width="345"> <input type="text"tbox4 name="EnshuName" size="50" value="<% = EnshuName %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,36,true);"> </td> </tr> <tr> <td height="30" bgcolor="#FFEE88">会計期間</td> <td height="30"> <input type="text"tbox4 name="FromYmd" size="12" value="<% = FromYmd %>" onkeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, false);" class="tbox4"> ~ <input type="text"tbox4 name="ToYmd" size="12" value="<% = ToYmd %>" onkeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, false);" class="tbox4"> </td> <% If PackageMode = 1 Then %> <td height="30" bgcolor="#FFEE88"></td> <td height="30"> <INPUT type='hidden' name='EnshuKubun' value= "<% = EnshuKubun %>"><!--コンピュータ会計は同時同業固定--> </td> <% Else %> <td height="30" bgcolor="#FFEE88">演習区分</td> <td height="30"> <INPUT type='radio' name='EnshuKubun' value= "G" <% If EnshuKubun = "G" Then Response.Write(" checked") End If %>>模擬実践演習 <INPUT type='radio' name='EnshuKubun' value= "P" <% If EnshuKubun = "P" Then Response.Write(" checked") End If %>>同時同業演習 </td> <% End If %> </tr> <tr> <td height="30" bgcolor="#FFEE88">消費税率</td> <td height="30"> <input type="text"tbox4 name="TaxRate" size="3" value="<% = TaxRate %>" class="tbox5" onKeyup="FormStrFloat(this,2,0);" onKeypress="FormStrFloat(this,2,0);" onBlur="FormStrFloatCutoff(this);"> % </td> <td height="30" bgcolor="#FFEE88"><% If PackageMode = 1 Then %>仕訳の<% Else %>利用伝票<% End If %>方式</td> <td height="30"> <INPUT type='radio' name='DenpyoKubun' value= "5" <% If DenpyoKubun = "5" Then Response.Write(" checked") End If %>>5伝票 <INPUT type='radio' name='DenpyoKubun' value= "3" <% If DenpyoKubun = "3" Then Response.Write(" checked") End If %>>3伝票 <INPUT type='radio' name='DenpyoKubun' value= "1" <% If DenpyoKubun = "1" Then Response.Write(" checked") End If %>>振替伝票のみ <% If PackageMode = 1 Then %> <INPUT type='radio' name='DenpyoKubun' value= "0" <% If DenpyoKubun = "0" Then Response.Write(" checked") End If %>>仕訳帳 <% End If %> </td> </tr> <input type="hidden" name="GinkoKozaToza" value="T"> <% If PackageMode = 0 Then %> <tr> <td height="30" bgcolor="#FFEE88">利用銀行口座種類</td> <td height="30" colspan="3"> <input type="checkbox" name="GinkoKozaTozaDummy" value="T" checked disabled>当座(必須) <input type="checkbox" name="GinkoKozaFutu" value="F" <% If GinkoKozaFutu = "F" Then %> checked<% End If %>>普通 <input type="checkbox" name="GinkoKozaBetsudan" value="B" <% If GinkoKozaBetsudan = "B" Then %> checked<% End If %>>別段 <input type="checkbox" name="GinkoKozaTsumitate" value="M" <% If GinkoKozaTsumitate = "M" Then %> checked<% End If %>>積立 <input type="checkbox" name="GinkoKozaTeiki" value="L" <% If GinkoKozaTeiki = "L" Then %> checked<% End If %>>定期 </td> </tr> <% End If %> <tr> <td height="30" bgcolor="#FFEE88">整理記入の方法</td> <td height="30" colspan="3"> <INPUT type='radio' name='SeiriKinyuKeishikiKubun' value= "0" <% If SeiriKinyuKeishikiKubun = "0" Then Response.Write(" checked") End If %>>振替伝票で記入 <% If PackageMode = 1 Then %> <INPUT type='radio' name='SeiriKinyuKeishikiKubun' value= "2" <% If SeiriKinyuKeishikiKubun = "2" Then Response.Write(" checked") End If %>>仕訳帳に記入 <% End If %> <INPUT type='radio' name='SeiriKinyuKeishikiKubun' value= "1" <% If SeiriKinyuKeishikiKubun = "1" Then Response.Write(" checked") End If %>>精算表へ直接記入 </td> </tr> <tr> <td height="194" bgcolor="#FFEE88">コピー元演習<BR></td> <td colspan="2"> <select size="10" name="MotoEnshuCD" STYLE="width:327px;font-size:12pt;"> <% Dim Query Dim Content Query = "exec SPM演習一覧 '" & GB_SystemCD & "',1" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If (PackageMode = 1 And "" & Content.Fields("パッケージ区分") = "CA") Or (PackageMode = 0 And "" & Content.Fields("パッケージ区分") <> "CA") Then If Content.Fields("演習CD") <> EnshuCD Then If Content.Fields("演習CD")= MotoEnshuCD Then Response.Write("<option value=""" & Content.Fields("演習CD") & """ selected >" & Content.Fields("演習名称") & "</option>" & vbCrLf) Else Response.Write("<option value=""" & Content.Fields("演習CD") & """>" & Content.Fields("演習名称") & "</option>" & vbCrLf) End If End If End If Content.MoveNext Loop %> </select> </td> <td> <% If EnshuCD = "" then %> <input type="hidden" name="MotoEnshuCopy" value="1"><BR> <% Else %> <input type="checkbox" name="MotoEnshuCopy" value="1">演習設定・各種マスターを再コピーする。<BR> <font color="#ff0000"> ※通常はチェックを入れないでください。<BR> ※誤った指定を行うとデータに不整合が生じます。<BR> </font> <BR> <% End If %> 左の一覧で選択された「コピー元演習」より<BR> このページ以外の演習設定や市場・会社などの<BR> 各種マスターデータをコピーします。<BR> <input type="checkbox" name="JishaCopy" value="1">生徒が自社設定した会社マスターもコピーする。<BR> <% If PackageMode = 1 Then %> <% ElseIf 0=1 And EnshuCD = "" Then 'この機能は廃止 %> <BR> <input type="checkbox" name="ZandakaCopy" value="1">コピー元演習の期末残高を<br> 今回作成する演習の期首残高としてコピーする。<BR> <% End If %> </td> </tr> <tr> <td height="30" bgcolor="#FFEE88">マスター演習</td> <td height="30" colspan="3"> <input type="checkbox" name="MasterEnshu" value="1"<% If MasterEnshu = "1" Then %> checked<% End If %>> チェックすると演習設定の変更及び演習への参加は出来なくなります </td> </tr> </table> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </div> </form> </body> <% = HtmlFooter %> </html> <SCRIPT LANGUAGE="JavaScript"> function SubmitCheck() { if (form1.EnshuCD.value == "") { alert("演習コードを入力してください "); form1.EnshuCD.focus(); return false; } if (form1.EnshuName.value == "") { alert("演習名称を入力してください "); form1.EnshuName.focus(); return false; } var bCheck; bCheck = 0; <% If PackageMode = 0 Then %> for (i = 0; i < form1.EnshuKubun.length; i++) { if (form1.EnshuKubun[i].checked) { bCheck = 1; break; } } if (bCheck == 0) { alert("演習区分を選択してください "); form1.EnshuKubun[0].focus(); return false; } <% End If %> bCheck = 0; for (i = 0; i < form1.SeiriKinyuKeishikiKubun.length; i++) { if (form1.SeiriKinyuKeishikiKubun[i].checked) { bCheck = 1; break; } } if (bCheck == 0) { alert("整理記入の方法を選択してください "); form1.SeiriKinyuKeishikiKubun[0].focus(); return false; } if (form1.TaxRate.value == "") { alert("消費税率を入力してください "); form1.TaxRate.focus(); return false; } if (form1.FromYmd.value == "") { alert("会計期間(開始日)を入力してください "); form1.FromYmd.focus(); return false; } if (form1.ToYmd.value == "") { alert("会計期間(終了日)を入力してください "); form1.ToYmd.focus(); return false; } if(form1.FromYmd.value >= form1.ToYmd.value) { alert("会計期間の前後が正しくありません "); return false; } FromYYMMDD = form1.FromYmd.value.split("/"); ToYYMMDD = form1.ToYmd.value.split("/"); //終了年が2年以上大きい if (ConvMoneyToInt(FromYYMMDD[0]) < ConvMoneyToInt(ToYYMMDD[0]) - 1 ) { alert("会計期間が1年を超えています "); return false; } //終了年が1年大きい場合 if (ConvMoneyToInt(FromYYMMDD[0]) + 1 == ConvMoneyToInt(ToYYMMDD[0])) { //終了月が大きい if (ConvMoneyToInt(FromYYMMDD[1]) < ConvMoneyToInt(ToYYMMDD[1])) { alert("会計期間が1年を超えています "); return false; } //終了月が同じで同日以上 if (ConvMoneyToInt(FromYYMMDD[1]) == ConvMoneyToInt(ToYYMMDD[1]) && ConvMoneyToInt(FromYYMMDD[2]) <= ConvMoneyToInt(ToYYMMDD[2])) { //閏年の判定 if (ConvMoneyToInt(ToYYMMDD[0]) % 4 == 0 && ConvMoneyToInt(ToYYMMDD[1]) == 2 && ConvMoneyToInt(FromYYMMDD[2]) == 28 && ConvMoneyToInt(ToYYMMDD[2]) == 28) { //終了年が閏年(4で割れる年)で開始日・終了日が2/28同日ならOKとする } else { alert("会計期間が1年を超えています "); return false; } //閏年の判定 開始年が閏年(4で割れる年)で開始日2/29・終了日2/28はNGとする } else if (ConvMoneyToInt(FromYYMMDD[0]) % 4 == 0 && ConvMoneyToInt(FromYYMMDD[1]) == 2 && ConvMoneyToInt(FromYYMMDD[2]) == 29 && ConvMoneyToInt(ToYYMMDD[2]) == 28) { alert("会計期間が1年を超えています "); return false; } } bCheck = 0; for (i = 0; i < form1.DenpyoKubun.length; i++) { if (form1.DenpyoKubun[i].checked) { bCheck = 1; break; } } if (bCheck == "0") { alert("利用伝票方式を選択してください "); form1.DenpyoKubun[0].focus(); return false; } <% If EnshuCD = "" Then %> if (form1.MotoEnshuCD.value == "") { alert("コピー元演習を選択してください "); form1.MotoEnshuCD.focus(); return false; } <% End If%> SubmitReal(form1); return true; } </script> <% End Sub %>