<!-- #include file="../../include.asp" --> <% '<!-- '################################################ ' 名称 :マスター管理演習選択 ' 作成日:2002/9/10 ' 作成者:徳田 ' 目的 :マスター管理初期画面(演習選択)を表示する。 ' 概要 : ' <<表示>> ' ・マスター管理初期画面 ' '################################################ '--> %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If '会社セッション初期化(演習状況記帳チェック後の対処) KaisyaCD = "" GB_KaisyaCD = "" KaisyaMeisyo = "" GB_KaisyaMeisyo = "" KaisyaRyakuMeisyo = "" GB_KaisyaRyakuMeisyo = "" Session(HomeAlias & "KaisyaCD") = "" Session(HomeAlias & "Gyosyu") = "" Session(HomeAlias & "GyosyuMeisyo") = "" Session(HomeAlias & "KaisyaMeisyo") = "" Session(HomeAlias & "KaisyaRyakuMeisyo") = "" Session(HomeAlias & "JisyaFlag") = "" Session(HomeAlias & "ShijyoCD") = "" ' Dim Query ' Dim Content If Request("EnshuCD") <> "" Then EnshuCD = Request("EnshuCD") End If Session(HomeAlias & "EnshuCD") = EnshuCD Dim GenkaKaikeiRiyo Dim ShohizeiMode Dim ExchangeRateRiyo ShohizeiMode = TaxRateSelection 'include_stasicのグローバル変数 If EnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ExchangeRateRiyo = "" & Content.Fields("為替レート利用") GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用") If Content.Fields("消費税") <= 0 Then ShohizeiMode = 0 '内税の場合は消費税率マスタ非利用に上書き End If End If '表記名称マスタ取得 Query = "exec SPM表記名称取得 '" & GB_SystemCD & "', '" & EnshuCD & "', ''" '表記CD=NULLは一覧取得 Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Session(HomeAlias & "MHM" & Content.Fields("表記CD")) = "" & Content.Fields("表記名称") '表記CDの先頭に"MHM"を付加したセッション変数に格納 Content.MoveNext Loop Else '表記名称セッションクリア Query = "exec SPM表記名称取得 '" & GB_SystemCD & "', '', ''" '演習CD=NULLは全演習から取得し表記CDでグルーピング Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Session(HomeAlias & "MHM" & Content.Fields("表記CD")) = "" Content.MoveNext Loop End If 'サイバー会計モードは原価会計非利用 If PackageMode = 1 Then GenkaKaikeiRiyo = "0" End If Dim TableWidthPlus TableWidthPlus = 0 ' If GenkaKaikeiRiyo = "1" Then ' TableWidthPlus = 120 ' 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" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <form OnKeyDown="FormKeyDown(this)" method="POST" name="form1" action="<% = Request.ServerVariables("SCRIPT_NAME") %>"> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If GB_Admin >= 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("マスター管理", "演習指定")) Response.Write(HttpL5("対象演習を選び、マスターを選択して下さい" )) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5"> <tr> <td> <table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%"> <tr> <td align="CENTER" valign="MIDDLE"> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="20" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000"> <TR> <TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"> <TABLE WIDTH="<% = (520 + TableWidthPlus) %>" HEIGHT="75" BORDER="0" CELLSPACING="0" CELLPADDING="0"> <TR> <TD HEIGHT="50" align="center" > <TABLE height="30" BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse" width="<% = (480 + TableWidthPlus) %>"> <TR ALIGN="CENTER"> <td nowrap>対象演習</td> <td> <% If GB_Admin = 2 Then %> <input type="hidden" name="EnshuCD" value="<% = EnshuCD %>"> <% = EnshuMeisyo %> <% Else %> <select size="1" name="EnshuCD" onChange="ExitFlg=0;form1.submit();" class="tbox4_w"> <option value=""><< 対象演習を選択して下さい >></option> <% Dim Query Dim Content Dim ii, jj ii = 0 Query = "exec SPM演習一覧 '" & GB_SystemCD & "', 4" 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 '工業簿記演習は5以上で表示 If "" & Content.Fields("演習CD") <> "SYS00006" Or MajorVersion >= 5 Then Response.Write("<option value=""" & Content.Fields("演習CD") & """") If Content.Fields("演習CD") = EnshuCD Then Response.Write(" selected") End If Response.Write(">" & Content.Fields("演習名称") & "</option>" & vbCrLf) End If End If Content.MoveNext Loop %> </select> <% End If %> </td> </TR> </table> </td> </TR> <% If 0=0 Or EnshuCD <> "" Then %> <TR> <TD ALIGN="CENTER"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" width="<% = (480 + TableWidthPlus) %>"> <TR ALIGN="CENTER" VALIGN="MIDDLE"> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('kaisya')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER">会 社<BR>マスター</TD> </TR> </TABLE> </TD> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('shohin')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER">商 品<BR>マスター</TD> </TR> </TABLE> </TD> <TD HEIGHT="77" WIDTH="120"> <% If PackageMode = 1 Then %> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('sacnt')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER">勘定科目<BR>マスター</TD> </TR> </TABLE> <% If ShohizeiMode = 1 Then %> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('taxrate')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER">消費税率<BR>マスター</TD> </TR> </TABLE> </TD> <% End If %> <% If ExchangeRateRiyo = "1" Then %> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('exchangerate')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER">為替レート<BR>マスター</TD> </TR> </TABLE> </TD> <% End If %> <% Else %> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('shijyo')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER">市 場<BR>マスター</TD> </TR> </TABLE> <% End If %> </TD> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('hyoki')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER">表記名称<BR>マスター</TD> </TR> </TABLE> </TD> <% If 0=1 And GenkaKaikeiRiyo = "1" Then %> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('zairyo')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER">材 料<BR>マスター</TD> </TR> </TABLE> </TD> <% End If %> </TR> <% If PackageMode = 1 Then %> <% Else %> <TR ALIGN="CENTER" VALIGN="MIDDLE"> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('sacnt')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER">勘定科目<BR>マスター</TD> </TR> </TABLE> </TD> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('bacnt')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER" class="tx1618">銀 行<BR>勘定科目<BR>マスター</TD> </TR> </TABLE> </TD> <% If ShohizeiMode = 1 Then %> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('taxrate')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER">消費税率<BR>マスター</TD> </TR> </TABLE> </TD> <% End If %> <% If ExchangeRateRiyo = "1" Then %> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('exchangerate')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER">為替レート<BR>マスター</TD> </TR> </TABLE> </TD> <% End If %> <% If 0=1 And GenkaKaikeiRiyo = "1" Then %> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('sgacnt')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER" class="tx1618">製造原価<BR>勘定科目<BR>マスター</TD> </TR> </TABLE> </TD> <% End If %> <% If 0=1 And GenkaKaikeiRiyo = "1" Then %> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('gsyukei')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER" class="tx1618">製造原価 <BR> 報告書<BR><span class="tx1416">集計マスター</span></TD> </TR> </TABLE> </TD> <% End If %> </TR> <% End If %> <TR ALIGN="CENTER" VALIGN="MIDDLE"> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('psyukei')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER">損益計算書<BR><span class="tx1618">集計マスター</span></TD> </TR> </TABLE> </TD> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('bsyukei')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER">貸借対照表<BR><span class="tx1618">集計マスター</span></TD> </TR> </TABLE> </TD> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('ssyukei')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER" class="tx1618">株主資本等 <BR> 変動計算書<BR><span class="tx1416">集計マスター</span></TD> </TR> </TABLE> </TD> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('csyukei')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER" class="tx1618">キャッシュ <BR>フロー計算書<BR><span class="tx1416">集計マスター</span></TD> </TR> </TABLE> </TD> <% If 0=1 And GenkaKaikeiRiyo = "1" Then %> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('gsyukei')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn_012.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER" class="tx1214">製造原価 <BR> 報告書<BR>集計マスター</TD> </TR> </TABLE> </TD> <% End If %> </TR> </TABLE> </TD> </TR> <% End If %> </TABLE> </TD> </TR> </TABLE> </td> </tr> </table> </td> </tr> </table> </div> </form> </body> <% = HtmlFooter %> </html> <SCRIPT LANGUAGE="JavaScript"> function SubmitCheck(Kubun) { if (form1.EnshuCD.value == "") { alert("対象演習を選択して下さい"); return false; } switch(Kubun) { case "kaisya": tblbtn( "fm_master_select_bin.asp?url=/<% = HomeAlias %>/admin/master/kaisya/fm_kaisya_ichiran.asp&EnshuCD=" + form1.EnshuCD.value);break; case "shohin": tblbtn( "fm_master_select_bin.asp?url=/<% = HomeAlias %>/admin/master/shohin/fm_shohin_ichiran.asp&EnshuCD=" + form1.EnshuCD.value);break; case "zairyo": tblbtn( "fm_master_select_bin.asp?url=/<% = HomeAlias %>/admin/master/shohin/fm_shohin_ichiran.asp&EnshuCD=" + form1.EnshuCD.value + "&Mode=Zairyo");break; case "sacnt": tblbtn( "fm_master_select_bin.asp?url=/<% = HomeAlias %>/admin/master/kamoku/fm_kamoku_ichiran.asp&EnshuCD=" + form1.EnshuCD.value + "&GyoshuKubun=S");break; case "sgacnt": tblbtn( "fm_master_select_bin.asp?url=/<% = HomeAlias %>/admin/master/kamoku/fm_kamoku_ichiran.asp&EnshuCD=" + form1.EnshuCD.value + "&GyoshuKubun=G");break; case "bacnt": tblbtn( "fm_master_select_bin.asp?url=/<% = HomeAlias %>/admin/master/kamoku/fm_kamoku_ichiran.asp&EnshuCD=" + form1.EnshuCD.value + "&GyoshuKubun=B");break; case "psyukei": tblbtn( "fm_master_select_bin.asp?url=/<% = HomeAlias %>/admin/master/syukei/fm_syukei_view.asp&EnshuCD=" + form1.EnshuCD.value + "&TyohyoKubun=P");break; case "bsyukei": tblbtn( "fm_master_select_bin.asp?url=/<% = HomeAlias %>/admin/master/syukei/fm_syukei_view.asp&EnshuCD=" + form1.EnshuCD.value + "&TyohyoKubun=B");break; case "ssyukei": tblbtn( "fm_master_select_bin.asp?url=/<% = HomeAlias %>/admin/master/syukei/fm_stockholder_equity_view.asp&EnshuCD=" + form1.EnshuCD.value);break; case "gsyukei": tblbtn( "fm_master_select_bin.asp?url=/<% = HomeAlias %>/admin/master/syukei/fm_syukei_view.asp&EnshuCD=" + form1.EnshuCD.value + "&TyohyoKubun=G");break; case "csyukei": tblbtn( "fm_master_select_bin.asp?url=/<% = HomeAlias %>/admin/master/syukei/fm_syukei_view.asp&EnshuCD=" + form1.EnshuCD.value + "&TyohyoKubun=C");break; case "group": tblbtn( "fm_master_select_bin.asp?url=/<% = HomeAlias %>/admin/master/group/fm_groupsanka.asp");break; case "shijyo": tblbtn( "fm_master_select_bin.asp?url=/<% = HomeAlias %>/admin/master/shijyo/fm_shijyo_ichiran.asp&EnshuCD=" + form1.EnshuCD.value);break; case "hyoki": tblbtn( "fm_master_select_bin.asp?url=/<% = HomeAlias %>/admin/master/hyoki/fm_hyoki.asp&EnshuCD=" + form1.EnshuCD.value);break; case "taxrate": tblbtn( "fm_master_select_bin.asp?url=/<% = HomeAlias %>/admin/master/taxrate/fm_taxrate.asp&EnshuCD=" + form1.EnshuCD.value);break; case "exchangerate": tblbtn( "fm_master_select_bin.asp?url=/<% = HomeAlias %>/admin/master/exchangerate/fm_exchangerate.asp&EnshuCD=" + form1.EnshuCD.value);break; default : return false; } return true; } </script> <% End Sub %>