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