
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：勘定情報設定
'	 作成日：2002/8/18
'	 作成者：徳田
'	 目的　：勘定情報入力画面を表示する。
'	 概要	：
'		<<表示>>
'	<<入力チェック>>
'	・ＮＵＬＬチェック
'
'	修正:
'################################################
'-->

main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim HyojiFlg2
	HyojiFlg2 = Request("HyojiFlg2")

	Dim PageType
	PageType = Request("PageType")

	Dim Rename
	Rename = Request("Rename")

	Dim CopyMoto
	CopyMoto = Request("CopyMoto")

	Dim NRflg , ErrMSG , Action
	Dim KanriKubun
	Dim EnshuName	, GyoshuKubun		'演習コード、業種区分
	Dim KamokuCD	, Kamokumei	, KamokuRyakumei	'勘定コード、勘定名称		、勘定略名称
	Dim KanjyoKubun , SaimokuKubun , TaisyakuKubun				'勘定区分	、勘定細目		、貸借区分
	Dim DataKubun	 , HiyoKubun		, BunsekiKubun		'データ区分、費用区分		、分析用区分
	Dim SyukeiCD	'諸表集計CD
	Dim CSyukeiCD	'キャッシュフロー計算書集計CD
	Dim GSyukeiCD	'製造原価報告書集計CD
	Dim SSyukeiCD	'株主資本等変動計算書集計CD
	Dim CheckKubun, TokubetsuKanjyoKubun
	Dim SyoyuKaisyaCD, SyoyuKaisyaMeisyo
	Dim Query
	Dim Content

	KanriKubun = Session(HomeAlias & "KanriKubun")
	NRflg = Request("nr")
	Action = Request("Action")
	GyoshuKubun = Request("GyoshuKubun")
	KamokuCD = Request("KamokuCD")
	ErrMSG = Request("ErrMSG")

	Dim QuerySaimokuKubun
	QuerySaimokuKubun = Request("SaimokuKubun")

	Dim EnshuKubun
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" 
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		EnshuKubun = Content.Fields("演習区分")
		EnshuName = Content.Fields("演習名称")
	End If

	Dim TmpKamokuCD
	If CopyMoto <> "" Then
		TmpKamokuCD = CopyMoto
	Else
		TmpKamokuCD = KamokuCD
	End If

	If NRflg = "r" then
		Kamokumei = Request("Kamokumei")
		KamokuRyakumei = Request("KamokuRyakumei")
		KamokuCD = Request("KamokuCD")
		Kamokumei = Request("Kamokumei")
		KamokuRyakumei = Request("KamokuRyakumei")
		KanjyoKubun = Request("KanjyoKubun")
		SaimokuKubun = Request("SaimokuKubun")
		TaisyakuKubun = Request("TaisyakuKubun")
		HiyoKubun = Request("HiyoKubun")
		BunsekiKubun = Request("BunsekiKubun")
		CheckKubun = Request("CheckKubun")
		TokubetsuKanjyoKubun = Request("TokubetsuKanjyoKubun")
		SyukeiCD = Request("SyukeiCD")
		CSyukeiCD = Request("CSyukeiCD")
		GSyukeiCD = Request("GSyukeiCD")
		SSyukeiCD = Request("SSyukeiCD")
		ErrMsg = Request("ErrMsg")
	Else

		'会社学生科目の場合のみ所有者が必要
		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 & "', '" & TmpKamokuCD & "', '" & KaishaGakuseiCD & "'"
'		Query = "exec SPM勘定科目詳細取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & GyoshuKubun & "','" & TmpKamokuCD & "'"
		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("分析用区分")
			SyukeiCD = Content.Fields("諸表集計CD")
			CSyukeiCD = Content.Fields("キャッシュフロー計算書集計CD")
			CheckKubun = Content.Fields("チェック区分")
			TokubetsuKanjyoKubun = Content.Fields("特別勘定区分")
			SyoyuKaisyaCD = Content.Fields("所有会社CD")
			SyoyuKaisyaMeisyo = Content.Fields("所有会社略名称")
			GSyukeiCD = Content.Fields("製造原価報告書集計CD")
			SSyukeiCD = Content.Fields("株主資本等変動計算書集計CD")
			'コピー元から追加の場合はコピー元のチェック区分・特別勘定区分をデフォルトにしない（091028小野）
			If CopyMoto <> "" Then
				CheckKubun = ""
				TokubetsuKanjyoKubun = ""
			End If
		End If
	End If

	Dim RouteType
	RouteType = Request("RouteType")

%>


<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 2;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"<% If ErrMsg <> "" Then %> onLoad="alert('<% = ErrMsg %>　');"<% End If %>>
<form OnKeyDown="FormKeyDown(this)"	method="POST" action="fm_Kamoku_bin.asp" name="form1" onSubmit="return SubmitCheck(0);" autocomplete="off">
<input type="hidden" name="Action" value="<% = Action %>">
<input type="hidden" name="GyoshuKubun" value="<% = GyoshuKubun %>">
<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
<input type="hidden" name="KanriKubun" value="<% = KanriKubun %>">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="PageType" value="<% = PageType %>">
<input type="hidden" name="NextFlg" value="">
<input type="hidden" name="Rename" value="<% = Rename %>">
<input type="hidden" name="OldKamokuCD" value="<% = KamokuCD %>">
<input type="hidden" name="HyojiFlg2" value="<% = HyojiFlg2 %>">
<%

	Response.Write(HtmlDesign(1))

	If PageType = "Original" Then
		Response.Write(HttpL1(3))
	Else
		Response.Write(HttpL1(4))
	End If

	If PageType = "Original" Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "商品企画室", "tblbtn('/" & HomeAlias & "/user/bk/menu_s5.asp')", "オリジナル商品管理", "", "", "", "", ""))
	ElseIf GB_Admin >= 1 Then
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "勘定科目マスター", "", "", "", "", "", "", ""))
	Else
		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')", "勘定科目管理", "", "", "", "", ""))
		ElseIf PackageMode = 1 Then
			Response.Write(HttpL2("メインメニュー", "tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "勘定科目マスター", "", "", "", "", "", "", "", "", ""))
		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')", "勘定科目マスター", "", "", ""))
		End If
	End If

	Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
	If Action = 1 Then
'		Response.Write(HttpL3_1("戻る", "tblbtn( 'fm_kamoku_view.asp?KanriKubun=" & KanriKubun & "&EnshuCD=" & EnshuCD & "&GyoshuKubun=" & GyoshuKubun & "&KamokuCD=" & TmpKamokuCD & "&RouteType=" & RouteType &"')", "保存", "SubmitCheck(0)", "", "", "", "", "", ""))
		Response.Write(HttpL3_1("保存", "SubmitCheck(0)", "", "", "", "", "", "", "", ""))
	ElseIf GB_Admin > 0 Then
		Response.Write(HttpL3_1("戻る", "tblbtn( 'fm_kamoku_view.asp?KanriKubun=" & KanriKubun & "&EnshuCD=" & EnshuCD & "&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & QuerySaimokuKubun & "&KamokuCD=" & TmpKamokuCD & "&RouteType=" & RouteType & "')", "保存して次の科目へ", "SubmitCheck(1)", "保存", "SubmitCheck(0)", "", "", "", ""))
	Else
		Response.Write(HttpL3_1("戻る", "tblbtn( 'fm_kamoku_view.asp?KanriKubun=" & KanriKubun & "&EnshuCD=" & EnshuCD & "&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & QuerySaimokuKubun & "&KamokuCD=" & TmpKamokuCD & "&RouteType=" & RouteType & "&HyojiFlg2=" & HyojiFlg2 & "')", "保存", "SubmitCheck(0)", "", "", "", "", "", ""))
	End If

	If Rename = "" And Action <> 1 And GB_Admin > 0 Then
		Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_kamoku_ichiran.asp?KanriKubun=" & KanriKubun & "&EnshuCD=" & EnshuCD & "&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & QuerySaimokuKubun & "&KamokuCD=" & TmpKamokuCD & "&RouteType=" & RouteType &"')", "高度な設定", "alert('実施中の演習の勘定コードを変更した場合、\nそれまでのデータが正しく認識されなくなります　');tblbtn( 'fm_kamoku.asp?Action=2&nr=n&Rename=1&GyoshuKubun=" & GyoshuKubun & "&KamokuCD=" & TmpKamokuCD & "&RouteType=" & RouteType & "')", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_kamoku_ichiran.asp?KanriKubun=" & KanriKubun & "&EnshuCD=" & EnshuCD & "&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & QuerySaimokuKubun & "&KamokuCD=" & TmpKamokuCD & "&RouteType=" & RouteType & "&HyojiFlg2=" & HyojiFlg2 & "')", "", "", "", "", "", "", "", ""))
	End If

	Dim Title
	Title = ""
	If GyoshuKubun = "B" Then
		Title = "銀行勘定"
	ElseIf GyoshuKubun = "G" Then
		Title = "製造原価"
	Else
		Title = "勘定"
	End If
	If PageType = "Original" Then
		Response.Write(HttpL4("オリジナル商品管理", ""))
	ElseIf Action = 1 Then
		Response.Write(HttpL4(Title & "科目マスター", "登録"))
	Else
		Response.Write(HttpL4(Title & "科目マスター", "修正"))
	End If

	Response.Write(HttpL5("<font color=""#ff0000"">" & ErrMsg & "</font>"))
%>

<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="0" bgcolor="#ffffff" style="border:1px solid #000000">
				<tr>
					<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
						<table border="0" cellspacing="5" cellpadding="15">
							<tr>
			<!--3x3中央		--><td>
									<TABLE 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 nowrap HEIGHT="30" bgcolor="#FFEE88">対象演習名</TD>
														<TD nowrap HEIGHT="30"><%= EnshuName %></TD>
														<TD nowrap HEIGHT="30" bgcolor="#FFEE88">演習コード</TD>
														<TD nowrap HEIGHT="30"><%= EnshuCD %></TD>
													</TR>
												</TABLE>
											</TD>
										</TR>
										<TR>
											<td height="10"></td>
										</TR>
										<% End If %>

										<TR>
											<TD HEIGHT="20" VALIGN="TOP">
												<TABLE BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1618" STYLE="border-collapse: collapse">

													<tr>
														<TD nowrap height="26" bgcolor="#FFEE88">勘定コード</td>
														<TD nowrap height="26" colspan="3">
														<% If RouteType = "KaisyaAdd" Then %>
															<input type="text" name="KamokuCD" size="6" value="<% = KamokuCD %>" readonly class="tbox4_ro" tabindex="-1">
														<% ElseIf Action = 1 Or Rename = "1" Then %>
															<input type="text" name="KamokuCD" size="6" value="<% = KamokuCD %>" onkeyup="FormStrLeft(this,4,false,false);" onKeypress="FormStrLeft(this,4,false,false);" onBlur="FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);" class="tbox4">
														<% Else %>
															<input type="text" name="KamokuCD" size="6" value="<% = KamokuCD %>" readonly class="tbox4_ro" tabindex="-1">
														<% End If %>
														</td>
													</tr>
													<tr>
														<TD nowrap height="26" bgcolor="#FFEE88">勘定名称</td>
														<TD nowrap height="26">
															<input type="text" name="Kamokumei" size="36" value="<% = Kamokumei %>" onBlur="FormStrLeftIME(this,20,true);" class="tbox4_ime">
														</td>
														<TD nowrap height="26" bgcolor="#FFEE88">貸借区分</td>
														<TD nowrap height="26" ALIGN="LEFT">
															<select size="1" name="TaisyakuKubun" class="tbox4">
																<option value="">　　</option>

																<%
																	Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','貸借区分'"
																	Set Content = OpenQuery(Query)

																		Do While Not(Content.BOF Or Content.EOF)
																			Response.Write("<option value=""" & Content.Fields("区分CD") & """")
																			If Content.Fields("区分CD") = TaisyakuKubun Then
																				Response.Write(" selected")
																			End If
																			Response.Write(">" & Content.Fields("区分名称") & "</option>" & vbCrLf)
																		Content.MoveNext
																		Loop
																%>


															</select></td>
													</tr>
															<input type="hidden" name="KamokuRyakumei" size="20" value="<% = KamokuRyakumei %>">
<!--
													<tr>
														<TD nowrap height="26" bgcolor="#FFEE88">勘定略名称</td>
														<TD nowrap height="26">
															<input type="text" name="KamokuRyakumei" size="20" value="<% = KamokuRyakumei %>" onBlur="SetString(this, 20, true)" class="tbox4_ime">(10)
														</td>
													</tr>
-->
													<tr>
														<TD nowrap height="26" bgcolor="#FFEE88">勘定細目区分</td>
														<TD nowrap height="26" ALIGN="LEFT">
															<select size="1" name="SaimokuKubun" class="tbox4">
																<option value="">　　</option>

																<%
																	Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','勘定細目'"
																	Set Content = OpenQuery(Query)

																		Do While Not(Content.BOF Or Content.EOF)
																			Response.Write("<option value=""" & Content.Fields("区分CD") & """")
																			If Content.Fields("区分CD") = SaimokuKubun Then
																				Response.Write(" selected")
																			End If
																			Response.Write(">" & Content.Fields("区分名称") & "</option>" & vbCrLf)
																		Content.MoveNext
																		Loop
																%>
															</select></td>
														<TD nowrap height="26" bgcolor="#FFEE88">勘定区分</td>
														<TD nowrap height="26" ALIGN="LEFT">
															<select size="1" name="KanjyoKubun" class="tbox4" onChange="SetSyukeiCDList()">
																<option value="">　　</option>

																<%
																	Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','勘定区分'"
																	Set Content = OpenQuery(Query)

																		Do While Not(Content.BOF Or Content.EOF)
																			Response.Write("<option value=""" & Content.Fields("区分CD") & """")
																			If Content.Fields("区分CD") = kanjyoKubun Then
																				Response.Write(" selected")
																			End If
																			Response.Write(">" & Content.Fields("区分名称") & "</option>" & vbCrLf)
																		Content.MoveNext
																		Loop
																%>


															</select></td>
													</tr>
													<tr>
														<TD nowrap height="26" bgcolor="#FFEE88">分析用区分</td>
														<TD nowrap height="26" ALIGN="LEFT">
															<select size="1" name="BunsekiKubun" class="tbox4">
																<option value="">　　</option>

																<%
																	Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','分析用区分'"
																	Set Content = OpenQuery(Query)

																		Do While Not(Content.BOF Or Content.EOF)
																			Response.Write("<option value=""" & Content.Fields("区分CD") & """")
																			If Content.Fields("区分CD") = BunsekiKubun Then
																				Response.Write(" selected")
																			End If
																			Response.Write(">" & Content.Fields("区分名称") & "</option>" & vbCrLf)
																		Content.MoveNext
																		Loop
																%>


															</select></td>
														<TD nowrap height="26" bgcolor="#FFEE88">費用区分</td>
														<TD nowrap height="26" ALIGN="LEFT">
															<select size="1" name="HiyoKubun" class="tbox4">
																<option value="">　　</option>

																<%
																	Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','費用区分'"
																	Set Content = OpenQuery(Query)

																		Do While Not(Content.BOF Or Content.EOF)
																			Response.Write("<option value=""" & Content.Fields("区分CD") & """")
																			If Content.Fields("区分CD") = HiyoKubun Then
																				Response.Write(" selected")
																			End If
																			Response.Write(">" & Content.Fields("区分名称") & "</option>" & vbCrLf)
																		Content.MoveNext
																		Loop
																%>


															</select></td>
													</tr>
													<tr>
														<TD nowrap height="26" bgcolor="#FFEE88">チェック区分&nbsp;<% = HelpDesk("ChackKubun") %></td>
														<TD nowrap height="26" ALIGN="LEFT">
															<select size="1" name="CheckKubun" class="tbox4">
																<option value="">　　</option>

																<%
																	Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','チェック区分'"
																	Set Content = OpenQuery(Query)

																		Do While Not(Content.BOF Or Content.EOF)
																		'小口現金は5以上で表示
																		If "" & Content.Fields("区分CD") <> "AI" Or MajorVersion >= 5 Then
																			Response.Write("<option value=""" & Content.Fields("区分CD") & """")
																			If Content.Fields("区分CD") = CheckKubun Then
																				Response.Write(" selected")
																			End If
																			Response.Write(">" & Content.Fields("区分名称") & "</option>" & vbCrLf)
																		End If
																		Content.MoveNext
																		Loop
																%>


															</select></td>
													<% If GB_Admin >= "1" Then %>
														<TD nowrap height="26" bgcolor="#FFEE88"><NOBR>特別勘定区分&nbsp;<% = HelpDesk("TokubetsuKanjoKubun") %></NOBR></td>
														<TD nowrap height="26" ALIGN="LEFT">
															<select size="1" name="TokubetsuKanjyoKubun" class="tbox4">
																<option value="">　　</option>

																<%
																	Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','特別勘定区分'"
																	Set Content = OpenQuery(Query)
																	Do While Not(Content.BOF Or Content.EOF)
																		'GyoshuKubun="G"なら区分CDが"G"で始まる区分を、GyoshuKubun="B"なら区分CD"DT""DU"を、GyoshuKubun="S"ならそれ以外の区分を表示（080414小野）
																		If (GyoshuKubun = "G" And Left("" & Content.Fields("区分CD"), 1) = "G") _
																		Or (GyoshuKubun = "B" And ("" & Content.Fields("区分CD") = "DT" Or  "" & Content.Fields("区分CD") = "DU")) _
																		Or (GyoshuKubun = "S" And (Left("" & Content.Fields("区分CD"), 1) <> "G" And "" & Content.Fields("区分CD") <> "DT" And  "" & Content.Fields("区分CD") <> "DU" And  "" & Content.Fields("区分CD") <> "DV")) Then
																			Response.Write("<option value=""" & Content.Fields("区分CD") & """")
																			If Content.Fields("区分CD") = TokubetsuKanjyoKubun Then
																				Response.Write(" selected")
																			End If
																			Response.Write(">" & Content.Fields("区分名称") & "</option>" & vbCrLf)
																		End If
																		Content.MoveNext
																	Loop
																%>


															</select>
														</td>
													<% Else %>
														<input type="hidden" name="TokubetsuKanjyoKubun" value="<% = TokubetsuKanjyoKubun %>">
													<% End If %>
													</tr>
													<tr>
														<TD nowrap height="26" bgcolor="#FFEE88" class="tx1214">損益計算書・貸借対照表の集計先</td>
														<TD nowrap height="26" ALIGN="LEFT" colspan="3">
															<select size="1" name="SyukeiCD" class="tbox4">
															<% If KanjyoKubun = "" Then %>
																<option value="">勘定区分を選択してください</option>
															<% Else %>
																<option value="">　　</option>
															<% End If %>
																<%
																	Query = "exec SPM報告書書式一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KanjyoKubun & "'"
																	Set Content = OpenQuery(Query)

																		Do While Not(Content.BOF Or Content.EOF)
																			Response.Write("<option value=""" & Content.Fields("集計CD") & """")
																			If Content.Fields("集計CD") = SyukeiCD Then
																				Response.Write(" selected")
																			End If
																			Response.Write(">" & Content.Fields("集計CD") & "　" & Content.Fields("集計名称") & "</option>" & vbCrLf)
																		Content.MoveNext
																		Loop
																%>
															</select></td>
													</tr>
													<tr>
														<TD nowrap height="26" class="tx1214" bgcolor="#FFEE88"><NOBR>キャッシュフロー計算書の集計先</NOBR></td>
														<TD nowrap height="26" ALIGN="LEFT" colspan="3">
															<select size="1" name="CSyukeiCD" class="tbox4">
																<option value="">　　</option>

																<%
																	Query = "exec SPM報告書書式一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', 'C'"
																	Set Content = OpenQuery(Query)

																		Do While Not(Content.BOF Or Content.EOF)
																			Response.Write("<option value=""" & Content.Fields("集計CD") & """")
																			If Content.Fields("集計CD") = CSyukeiCD Then
																				Response.Write(" selected")
																			End If
																			Response.Write(">" & Content.Fields("集計CD") & "　" & Content.Fields("集計名称") & "</option>" & vbCrLf)
																		Content.MoveNext
																		Loop
																%>
															</select></td>
													</tr>
													<tr>
														<TD nowrap height="26" class="tx1214" bgcolor="#FFEE88"><NOBR>株主資本等変動計算書の集計先</NOBR></td>
														<TD nowrap height="26" ALIGN="LEFT" colspan="3">
															<select size="1" name="SSyukeiCD" class="tbox4">
																<option value="">　　</option>

																<%
																	Query = "exec SPM株主資本等変動計算書書式一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
																	Set Content = OpenQuery(Query)

																		Do While Not(Content.BOF Or Content.EOF)
																			Response.Write("<option value=""" & Content.Fields("集計CD") & """")
																			If Content.Fields("集計CD") = SSyukeiCD Then
																				Response.Write(" selected")
																			End If
																			Response.Write(">" & Content.Fields("集計CD") & "　" & Content.Fields("集計分類1") & "　" & Content.Fields("集計分類2") & "　" & Content.Fields("集計分類3") & "　" & Content.Fields("集計区分") & "　" & Content.Fields("変動額細目") & "</option>" & vbCrLf)
																		Content.MoveNext
																		Loop
																%>
															</select></td>
													</tr>
													<% If GyoshuKubun = "G" Then %>
													<tr>
														<TD nowrap height="26" class="tx1214" bgcolor="#FFEE88">製造原価報告書の集計先</td>
														<TD nowrap height="26" ALIGN="LEFT" colspan="3">
															<select size="1" name="GSyukeiCD" class="tbox4">
																<option value="">　　</option>

																<%
																	Query = "exec SPM報告書書式一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', 'G'"
																	Set Content = OpenQuery(Query)

																	Do While Not(Content.BOF Or Content.EOF)
																		Response.Write("<option value=""" & Content.Fields("集計CD") & """")
																		If Content.Fields("集計CD") = GSyukeiCD Then
																			Response.Write(" selected")
																		End If
																		Response.Write(">" & Content.Fields("集計CD") & "　" & Content.Fields("集計名称") & "</option>" & vbCrLf)
																	Content.MoveNext
																	Loop
																%>
															</select></td>
													</tr>
													<% End If %>
													<% If GB_Admin >= "1" And 1 = 0 Then %>
													<tr>
														<TD nowrap height="26">所有会社</td>
														<TD nowrap height="26" ALIGN="LEFT" colspan="3">
															<select size="1" name="SyoyuKaisyaCD">
															<option value=""></option>
															<%
																Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'"
																Set Content = OpenQuery(Query)

																	Do While Not(Content.BOF Or Content.EOF)
																			Response.Write("<option value=""" & Content.Fields("会社CD") & """")
																			If Content.Fields("会社CD") = SyoyuKaisyaCD Then
																				Response.Write(" selected")
																			End If
																			Response.Write(">" & Content.Fields("会社略名称") & "</option>" & vbCrLf)
																		Content.MoveNext
																	Loop
																%>
															</select>
														</td>
													</tr>
													<% End If %>
												</TABLE>
											</TD>
										</TR>
									</TABLE>

								</td>
							</tr>
						</table>
					</td>
				</tr>
			</table>

		</td>
	</tr>
</table>
</div>

</form>

</body>



<% = HtmlFooter %>
</html>
<SCRIPT LANGUAGE="JavaScript">



	function SetSSyukeiCDList()
	{
		var ii;
		var Idx;
		Idx = 0;
		do
		{
			form1.SSyukeiCD.options[0] = null;
		}
		while(form1.SSyukeiCD.length != 0)
<%
	Query = "exec SPM株主資本等変動計算書書式一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	Response.Write("		form1.SSyukeiCD.options[Idx] = new Option("""", """");Idx = Idx + 1;" & vbCrLf)
	Do While Not(Content.BOF Or Content.EOF)
		Response.Write("		form1.SSyukeiCD.options[Idx] = new Option(""" & Content.Fields("集計CD") & "　" & Content.Fields("集計分類1") & "　" & Content.Fields("集計分類2") & "　" & Content.Fields("集計分類3") & "　" & Content.Fields("集計区分") & "　" & Content.Fields("変動額細目") & """, """ & Content.Fields("集計CD") & """);Idx = Idx + 1;" & vbCrLf)
		Content.MoveNext
	Loop
%>
	}


	function SetSyukeiCDList() {
		var ii;
		var Idx;
		Idx = 0;
		do {
			form1.SyukeiCD.options[0] = null;
		}
		while (form1.SyukeiCD.length != 0);
		if (form1.KanjyoKubun.value == "B") {
<%
	Query = "exec SPM報告書書式一覧 '" & GB_SystemCD & "','" & EnshuCD & "','B'"
	Set Content = OpenQuery(Query)
	Response.Write("			form1.SyukeiCD.options[Idx] = new Option("""", """");Idx = Idx + 1;" & vbCrLf)
	Do While Not(Content.BOF Or Content.EOF)
		Response.Write("			form1.SyukeiCD.options[Idx] = new Option(""" & Content.Fields("集計CD") & "　" & Content.Fields("集計名称") & """, """ & Content.Fields("集計CD") & """);Idx = Idx + 1;" & vbCrLf)
		Content.MoveNext
	Loop
%>
		} else if (form1.KanjyoKubun.value == "P") {
<%
	Query = "exec SPM報告書書式一覧 '" & GB_SystemCD & "','" & EnshuCD & "','P'"
	Set Content = OpenQuery(Query)
	Response.Write("			form1.SyukeiCD.options[Idx] = new Option("""", """");Idx = Idx + 1;" & vbCrLf)
	Do While Not(Content.BOF Or Content.EOF)
		Response.Write("			form1.SyukeiCD.options[Idx] = new Option(""" & Content.Fields("集計CD") & "　" & Content.Fields("集計名称") & """, """ & Content.Fields("集計CD") & """);Idx = Idx + 1;" & vbCrLf)
		Content.MoveNext
	Loop
%>
		} else {
			form1.SyukeiCD.options[Idx] = new Option("勘定区分を選択してください", "");Idx = Idx + 1;
		}
	}


	function SubmitCheck(NextFlg)
	{
		if (form1.KamokuCD.value == "" && !form1.KamokuCD.readOnly)
		{
			alert("勘定コードを入力して下さい");
			form1.KamokuCD.focus();
			return false;
		}

		if (form1.Kamokumei.value == "")
		{
			alert("勘定名称を入力して下さい");
			form1.Kamokumei.focus();
			return false;
		}

//		if (form1.KamokuRyakumei.value == "")
//		{
//			alert("勘定略名称を入力して下さい");
//			form1.KamokuRyakumei.focus();
//			return false;
//		}
		if (form1.KanjyoKubun.value == "" )
		{
			alert("勘定区分を入力して下さい");
			form1.KanjyoKubun.focus();
			return false;
		}

		if (form1.SaimokuKubun.value == "")
		{
			alert("勘定細目区分を入力して下さい");
			form1.SaimokuKubun.focus();
			return false;
		}

		if (form1.TaisyakuKubun.value == "")
		{
			alert("貸借区分を入力して下さい");
			form1.TaisyakuKubun.focus();
			return false;
		}

	<% If GyoshuKubun <> "G" Then	'製造原価勘定科目はNULL許容 %>
		if (form1.BunsekiKubun.value == "")
		{
			alert("分析用区分を入力して下さい");
			form1.BunsekiKubun.focus();
			return false;
		}
	<% End If %>

		var tkkmessage = "";
<%	'特別勘定区分の重複チェック
	Query = "exec SPM勘定科目取得特別勘定 '" & GB_SystemCD & "','" & EnshuCD & "', ''"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF OR Content.EOF)
		If Content.Fields("特別勘定区分") <> TokubetsuKanjyoKubun Then
			Response.Write("		if (form1.TokubetsuKanjyoKubun.value == """ & Content.Fields("特別勘定区分") & """) {" & vbCrLf)
			Response.Write("			tkkmessage = ""\n選択された特別勘定区分「" & Replace(Replace(ConvKubunMeisyo("特別勘定区分", Content.Fields("特別勘定区分")), "　", ""), " ", "") & "」は、現在"";" & vbCrLf)
			Response.Write("			tkkmessage = tkkmessage + ""「 " & Content.Fields("勘定CD") & " ： " & Replace(Replace(Content.Fields("勘定名称"), "　", ""), " ", "") & " 」に設定されています。　\n\n"";" & vbCrLf)
			Response.Write("			tkkmessage = tkkmessage + ""このまま保存した場合、「 " & Content.Fields("勘定CD") & " ： " & Replace(Replace(Content.Fields("勘定名称"), "　", ""), " ", "") & " 」に設定されている"";" & vbCrLf)
			Response.Write("			tkkmessage = tkkmessage + ""特別勘定区分は解除されます。\n\n\nこのまま保存してよろしいですか？\n\n"";" & vbCrLf)
			Response.Write("			if (!confirm(tkkmessage)) {" & vbCrLf)
			Response.Write("				form1.TokubetsuKanjyoKubun.focus();" & vbCrLf)
			Response.Write("				return false;" & vbCrLf)
			Response.Write("			}" & vbCrLf)
			Response.Write("		}" & vbCrLf)
		End If
	Content.MoveNext
	Loop
%>

		form1.NextFlg.value = NextFlg;

		SubmitReal(form1);
		return true;
	}


				</script>

<%
End Sub
%>