<!-- #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">製造原価&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;報告書<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">株主資本等&nbsp;&nbsp;<BR>&nbsp;&nbsp;変動計算書<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">キャッシュ&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<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">製造原価&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;報告書<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
%>