
<!-- #include file="../../../include.asp" -->

<%

'<!--
'################################################
'	名称	：勘定情報設定
'	作成日：2002/9/18
'	作成者：徳田
'	目的　：勘定情報画面を表示する。
'	概要	：
'	 <<表示>>
'	<<入力チェック>>
'	・ＮＵＬＬチェック
'
'	修正:
'################################################
'-->

main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If


	'サイバー会計のユーザー科目表示時の絞込みフラグ
	Dim HyojiFlg2
	HyojiFlg2 = Request("HyojiFlg2")


	Dim KanriKubun
	Dim EnshuName	, GyoshuKubun		'演習コード、業種区分
	Dim KamokuCD	, Kamokumei	, KamokuRyakumei	'勘定コード、勘定名称	 、勘定略名称
	Dim KanjyoKubun , SaimokuKubun , TaisyakuKubun				'勘定区分	、勘定細目	 、貸借区分
	Dim DataKubun	, HiyoKubun	 , BunsekiKubun		'データ区分、費用区分	 、分析用区分
	Dim SyukeiCD					'諸表集計CD
	Dim KanjyoKubunMeisyo , SaimokuKubunMeisyo , TaisyakuKubunMeisyo	'勘定区分名、勘定細目名	、貸借区分名
	Dim DataKubunMeisyo	, HiyoKubunMeisyo	 , BunsekiKubunMeisyo	'データ区分名、費用区分名、分析用区分名
	Dim CheckKubun, CheckKubunMeisyo
	Dim TokubetsuKanjyoKubun, TokubetsuKanjyoKubunMeisyo
	Dim SyukeiMeisyo					'諸表集計名称
	Dim SyoyuKaisyaCD, SyoyuKaisyaMeisyo
	Dim CSyukeiCD					'キャッシュフロー計算書集計CD
	Dim CSyukeiMeisyo				'キャッシュフロー計算書集計名称
	Dim GSyukeiCD					'製造原価報告書集計CD
	Dim GSyukeiMeisyo				'製造原価報告書集計名称
	Dim SSyukeiCD					'株主資本等変動計算書集計CD
	Dim SSyukeiBunrui0				'株主資本等変動計算書集計分類1
	Dim SSyukeiBunrui1				'株主資本等変動計算書集計分類2
	Dim SSyukeiBunrui2				'株主資本等変動計算書集計分類3
	Dim SSyukeiBunrui3				'株主資本等変動計算書集計区分
	Dim SSyukeiBunrui4				'株主資本等変動計算書変動額細目

	Dim Query
	Dim Content
	GyoshuKubun = Request("GyoshuKubun")
	KamokuCD = Request("KamokuCD")

	Dim QuerySaimokuKubun
	QuerySaimokuKubun = Request("SaimokuKubun")

	Dim Rename
	Rename = Request("Rename")

	Dim EnshuKubun
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" 
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		EnshuName = Content.Fields("演習名称")
		EnshuKubun = Content.Fields("演習区分")
	End If

'対象データＧＥＴ
	'取得範囲を決定する

	'会社学生科目の場合のみ所有者が必要
	Dim KaishaGakuseiCD
	If GB_Admin < 1 Then
		KaishaGakuseiCD = GB_GakuseiNo
		If EnshuKubun = "G" Then
			KaishaGakuseiCD = GB_KaisyaCD
		End If
	End If
	Query = "exec SPM勘定科目詳細取得全部 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GyoshuKubun & "', '" & KamokuCD & "', '" & KaishaGakuseiCD & "'"
'	Query = "exec SPM勘定科目詳細取得2 '" & GB_SystemCD & "','" & EnshuCD & "','" & GyoshuKubun & "','" & KamokuCD & "'"

	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		Kamokumei = Content.Fields("勘定名称")
		KamokuRyakumei = Content.Fields("勘定略名称")
		KanjyoKubun = Content.Fields("勘定区分")
		SaimokuKubun = Content.Fields("勘定細目")
		TaisyakuKubun = Content.Fields("貸借区分")
		DataKubun = Content.Fields("データ区分")
		HiyoKubun = Content.Fields("費用区分")
		BunsekiKubun = Content.Fields("分析用区分")
		CheckKubun = Content.Fields("チェック区分")
		TokubetsuKanjyoKubun = Content.Fields("特別勘定区分")
		SyukeiCD = Content.Fields("諸表集計CD")
		KanjyoKubunMeisyo = Content.Fields("勘定区分名称")
		SaimokuKubunMeisyo = Content.Fields("勘定細目名称")
		TaisyakuKubunMeisyo = Content.Fields("貸借区分名称")
		HiyoKubunMeisyo = Content.Fields("費用区分名称")
		BunsekiKubunMeisyo = Content.Fields("分析区分名称")
		CheckKubunMeisyo = Content.Fields("チェック区分名称")
		TokubetsuKanjyoKubunMeisyo = Content.Fields("特別勘定区分名称")
		SyukeiMeisyo = Content.Fields("諸表集計名称")
		SyoyuKaisyaCD = Content.Fields("所有会社CD")
		SyoyuKaisyaMeisyo = Content.Fields("所有会社略名称")
		CSyukeiCD = Content.Fields("キャッシュフロー計算書集計CD")
		CSyukeiMeisyo = Content.Fields("キャッシュフロー計算書集計名称")
		GSyukeiCD = Content.Fields("製造原価報告書集計CD")
		GSyukeiMeisyo = Content.Fields("製造原価報告書集計名称")
		SSyukeiCD = Content.Fields("株主資本等変動計算書集計CD")
		SSyukeiBunrui0 = Content.Fields("集計分類1")
		SSyukeiBunrui1 = Content.Fields("集計分類2")
		SSyukeiBunrui2 = Content.Fields("集計分類3")
		SSyukeiBunrui3 = Content.Fields("集計区分")
		SSyukeiBunrui4 = Content.Fields("変動額細目")

	End If

	'取得されたデータの区分を取得する
	KaishaGakuseiCD = SyoyuKaisyaCD

	Dim GenkaKaikeiRiyo
	Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用")
	End If

	Dim RouteType
	RouteType = Request("RouteType")

%>

<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" >
<input type="hidden" name="KanriKubun" value="<% = KanriKubun %>">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="Action" value="2">
<input type="hidden" name="OldKamokuCD" value="<% = KamokuCD %>">
<input type="hidden" name="QuerySaimokuKubun" value="<% = QuerySaimokuKubun %>">

<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(4))

	If GB_Admin >= 1 Then
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "勘定科目マスター", "", "", "", "", "", "", ""))
		Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
'マスター編集のため一時削除
		If EnshuCD <> "SYSORIGN" Then
			Response.Write(HttpL3_1("修正", "UpdateCall()", "削除", "DeleteCheck()", "", "", "", "", "", ""))
		End If


		If Request("MsgFlg") = "3" Then
			Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_kamoku_ichiran.asp?KanriKubun=" & KanriKubun & "&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & QuerySaimokuKubun & "&KamokuCD=" & KamokuCD & "&HyojiFlg2=" & HyojiFlg2 & "')", "追加", "tblbtn( 'fm_kamoku.asp?Action=1&GyoshuKubun=" & GyoshuKubun & "&HyojiFlg2=" & HyojiFlg2 & "')", "コピー元として追加", "MimicCall()", "", "", "", ""))
		Else
			Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_kamoku_ichiran.asp?KanriKubun=" & KanriKubun & "&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & QuerySaimokuKubun & "&KamokuCD=" & KamokuCD & "&HyojiFlg2=" & HyojiFlg2 & "')", "追加", "tblbtn( 'fm_kamoku.asp?Action=1&GyoshuKubun=" & GyoshuKubun & "&HyojiFlg2=" & HyojiFlg2 & "')", "コピー元として追加", "MimicCall()", "", "", "", ""))
		End If
	Else
		Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
		If RouteType = "KaisyaAdd" Then
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "勘定科目管理", "", "", "", "", ""))
			Response.Write(HttpL3_1("修正", "UpdateCall()", "削除", "DeleteCheck()", "", "", "", "", "", ""))
		ElseIf PackageMode = 1 Then
			Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "勘定科目マスター", "", "", "", "", "", "", "", "", ""))
			'所有者ならば修正・削除可能
			If KaishaGakuseiCD <> "" Then
				Response.Write(HttpL3_1("修正", "UpdateCall()", "削除", "DeleteCheck()", "", "", "", "", "", ""))
			Else
				Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
			End If
		Else
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "マスター照会", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s43.asp')", "勘定科目マスター", "", "", ""))
			'所有者ならば修正・削除可能
			If KaishaGakuseiCD <> "" Then
				Response.Write(HttpL3_1("修正", "UpdateCall()", "削除", "DeleteCheck()", "", "", "", "", "", ""))
			Else
				Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
			End If
		End If
'		If PackageMode = 1 Then
			Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_kamoku_ichiran.asp?GyoshuKubun=" & GyoshuKubun & "&KamokuCD=" & KamokuCD & "&RouteType=" & RouteType & "&HyojiFlg2=" & HyojiFlg2 & "')", "追加", "tblbtn( 'fm_kamoku.asp?Action=1&GyoshuKubun=" & GyoshuKubun & "&HyojiFlg2=" & HyojiFlg2 & "')", "コピー元として追加", "MimicCall()", "", "", "", ""))
'		Else
'			Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_kamoku_ichiran.asp?GyoshuKubun=" & GyoshuKubun & "&KamokuCD=" & KamokuCD & "&RouteType=" & RouteType & "&HyojiFlg2=" & HyojiFlg2 & "')", "", "", "", "", "", "", "", ""))
'		End If
	End If

	Dim Title
	Title = ""
	If GyoshuKubun = "B" Then
		Title = "銀行勘定"
	ElseIf GyoshuKubun = "G" Then
		Title = "製造原価"
	Else
		Title = "勘定"
	End If
	Response.Write(HttpL4(Title & "科目マスター", "照会"))

	If Request("MsgFlg") = "1" Then
		Response.Write(HttpL5("削除しました。次の勘定科目を表示しています。"))
	ElseIf Request("MsgFlg") = "2" Then
		Response.Write(HttpL5("修正しました。次の勘定科目を表示しています。"))
	ElseIf EnshuCD = "SYSORIGN" Then
		Response.Write(HttpL5("演習コード SYSORIGN の演習は修正出来ません"))
	End If
%>


<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">

<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
	<tr>
		<td align="center">
			<table width="1" height="1" border="0" cellspacing="5" cellpadding="15" bgcolor="#ffffff" style="border:1px solid #000000">
				<tr>
					<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif">
						<table border="0" cellspacing="0" cellpadding="0">
							<tr>
								<td align="center">
									<TABLE WIDTH="1" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
										<% If GB_Admin >= "1" Then %>
										<TR>
											<TD HEIGHT="30" VALIGN="BOTTOM">
												<TABLE WIDTH="100%" HEIGHT="30" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1618" STYLE="border-collapse: collapse">
													<TR ALIGN="CENTER">
														<TD HEIGHT="30" bgcolor="#FFEE88">対象演習名</TD>
														<TD HEIGHT="30"><% = EnshuName %></TD>
														<TD HEIGHT="30" bgcolor="#FFEE88">演習コード</TD>
														<TD HEIGHT="30"><% = EnshuCD %></TD>
													</TR>
												</TABLE>
											</TD>
										</TR>
										<TR>
											<td height="10"></td>
										</TR>
										<% End If %>
										<TR>
											<TD HEIGHT="20" VALIGN="TOP" WIDTH="620">
												<TABLE WIDTH="1" BORDER="1" CELLPADDING="5" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1618" STYLE="border-collapse: collapse">
												<% If KanriKubun = "kanri" Then %>
													<TR ALIGN="CENTER">
														<TD width="220" height="25" bgcolor="#FFEE88" nowrap>対象演習名</TD>
														<TD height="25" nowrap><%= EnshuName %></TD>
													</TR>
												<% End If %>

													<tr>
														<td bgcolor="#FFEE88" nowrap>勘定コード</td>
														<td colspan="3" nowrap><% = KamokuCD %></td>
													</tr>
													<tr>
														<td bgcolor="#FFEE88" nowrap>勘定名称</td>
														<td width="180" nowrap><% = Kamokumei %></td>
														<td bgcolor="#FFEE88" nowrap>貸借区分</td>
														<TD nowrap><%= TaisyakuKubunMeisyo %></TD>
													</tr>
													<tr>
														<td bgcolor="#FFEE88" nowrap>勘定細目区分</td>
														<TD nowrap><%= SaimokuKubunMeisyo %></TD>
														<td bgcolor="#FFEE88" nowrap>勘定区分</td>
														<TD nowrap><%= KanjyoKubunMeisyo %></TD>
													</tr>
													<tr>
														<td bgcolor="#FFEE88" nowrap>分析用区分</td>
														<TD nowrap><%= BunsekiKubunMeisyo %></TD>
														<td bgcolor="#FFEE88" nowrap>費用区分</td>
														<TD nowrap><%= HiyoKubunMeisyo %></TD>
													</tr>
													<tr>
														<td bgcolor="#FFEE88" nowrap>チェック区分</td>
														<TD nowrap><%= CheckKubunMeisyo %></TD>
													<% If GB_Admin >= "1" Then %>
														<td bgcolor="#FFEE88" nowrap>特別勘定区分</td>
														<TD nowrap><%= TokubetsuKanjyoKubunMeisyo %></TD>
													<% Else %>
														<td colspan="2" nowrap>&nbsp;</td>
													<% End If %>
													</tr>
													<tr>
														<td bgcolor="#FFEE88" class="tx1214" nowrap><NOBR>損益計算書・貸借対照表の集計先</NOBR></td>
														<TD colspan="3" nowrap><%= SyukeiCD %>　<%= SyukeiMeisyo %></TD>
													</tr>
													<tr>
														<td class="tx1214" bgcolor="#FFEE88" nowrap><NOBR>キャッシュフロー計算書の集計先</NOBR></td>
														<TD colspan="3" nowrap><%= CSyukeiCD %>　<%= CSyukeiMeisyo %></TD>
													</tr>
													<tr>
														<td class="tx1214" bgcolor="#FFEE88" nowrap><NOBR>株主資本等変動計算書の集計先</NOBR></td>
														<TD colspan="3" nowrap><%= SSyukeiCD %>　<%= SSyukeiBunrui0 %>　<%= SSyukeiBunrui1 %>　<%= SSyukeiBunrui2 %>　<%= SSyukeiBunrui3 %>　<%= SSyukeiBunrui4 %></TD>
													</tr>
													<% If GyoshuKubun = "G" Then %>
													<tr>
														<td bgcolor="#FFEE88" class="tx1214" nowrap>製造原価報告書の集計先</td>
														<TD colspan="3" nowrap><%= GSyukeiCD %>　<%= GSyukeiMeisyo %></TD>
													</tr>
													<% End If %>
													<% If GB_Admin >= "1" And 1 = 0 Then %>
													<tr>
														<td bgcolor="#FFEE88" nowrap>所有会社</td>
														<TD colspan="3" nowrap><%= SyoyuKaisyaMeisyo %></TD>
													</tr>
													<% End If %>
												</TABLE>


											</td>
										</tr>
									</table>


								</td>
<!--3x3中段右	-->
							</tr>
						</table>
					</td>
				</tr>
			</table>

		</td>
	</tr>
</table>
</div>

</form>
</body>
<% = HtmlFooter %>
</html>

<SCRIPT LANGUAGE="JavaScript">

	function DeleteCheck() {
		tkkmessage = "";
	<% If TokubetsuKanjyoKubun <> "" Then %>
		tkkmessage = "当勘定科目は特別勘定区分「<% = TokubetsuKanjyoKubunMeisyo %>」に設定されています。　\n\n";
		tkkmessage = tkkmessage + "削除した場合、特別勘定区分「<% = TokubetsuKanjyoKubunMeisyo %>」が消滅し、　\n";
		tkkmessage = tkkmessage + "正しい会計処理が行われなくなる可能性があります。\n\n";
	<% End If %>
		tkkmessage = tkkmessage + "削除してよろしいですか？　\n"
		if (!confirm(tkkmessage)) {
			return false;
		}
		tblbtn("fm_kamoku_bin.asp?Action=4&GyoshuKubun=<% =GyoshuKubun %>&SaimokuKubun=<% = QuerySaimokuKubun %>&KamokuCD=<% = KamokuCD %>&RouteType=<% = RouteType %>&OldKamokuCD=<% = KamokuCD %>&HyojiFlg2=<% = HyojiFlg2 %>");
		return true;
	}

	function UpdateCall()
	{
		tblbtn( "fm_kamoku.asp?Action=2&nr=n&GyoshuKubun=<% = GyoshuKubun %>&SaimokuKubun=<% = QuerySaimokuKubun %>&KamokuCD=<% = KamokuCD %>&RouteType=<% = RouteType %>&Rename=<% = Rename %>&OldKamokuCD=<% = KamokuCD %>&HyojiFlg2=<% = HyojiFlg2 %>");
		return true;
	}


	function MimicCall()
	{
		tblbtn( "fm_kamoku.asp?Action=1&nr=n&GyoshuKubun=<% = GyoshuKubun %>&SaimokuKubun=<% = QuerySaimokuKubun %>&CopyMoto=<% = KamokuCD %>&RouteType=<% = RouteType %>&OldKamokuCD=<% = KamokuCD %>&HyojiFlg2=<% = HyojiFlg2 %>");
		return true;
	}



				</script>
<%
End Sub
%>