
<!-- #include file="../../include.asp" -->


<%
'<!--
'################################################
'	名称	：演習照会
'	作成日：2002/9/6
'	作成者：徳田
'	目的　：演習の照会画面を表示する。
'	概要	：
'	 <<表示>>
' ・演習の照会画面
'
'################################################
'-->
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim EnshuName , EnshuKubun								 '演習CD、 演習名称、演習区分
	Dim FromYmd	, ToYmd		 , TaxRate									'開始日、 終了日、消費税率
	Dim DenpyoKubun, DenpyoKubunNm
	Dim UserCnt
	Dim Query
	Dim Content
	Dim GinkoSyoriKubun
	Dim InputHojyobo
	Dim InputShiwaketyo, InputShiwakeShukeihyo, InputGokeiZandakaShisanhyo, InputSokanjyoMototyo
	Dim InputTaisyakuTaisyohyo, InputSonekiKeisansyo, InputHachiketaSeisanhyo, InputStockholderEquity
	Dim AutoShiwaketyo, AutoShiwakeShukeihyo, AutoGokeiZandakaShisanhyo, AutoSokanjyoMototyo
	Dim AutoTaisyakuTaisyohyo, AutoSonekiKeisansyo, AutoHachiketaSeisanhyo, AutoStockholderEquity
	Dim EnshuID, EnshuPassword
	Dim AutoGenkinNyusyukinRireki, AutoYokinNyusyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki
	Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran
	Dim GinkoKozaToza, GinkoKozaFutu, GinkoKozaBetsudan, GinkoKozaTsumitate, GinkoKozaTeiki
	Dim FurikomiTesuryoJiko1, FurikomiTesuryoJiko2, FurikomiTesuryoTako1, FurikomiTesuryoTako2, FurikomiTesuryoBorder
	Dim JidoGinkoWaribikiRiritsu
	Dim FurikomiTesuryoTozaFutanKubun, FurikomiTesuryoHiTozaFutanKubun
	Dim SokanjyomototyoHyojyunshiki, ZandakaJidoKeisan
	Dim SokanjyomototyoMonthTotal
	Dim FurikaeDenpyoGyousu
	Dim GinkoMadoguchiHyoji, KinkoHyoji
	Dim KogitteHyoji, YTegataHyoji, KTegataHyoji, RyosyusyoHyoji, KyuyoDaichoHyoji
	Dim KogitteHenkyaku
	Dim MasterEnshu

	Dim ShichoDenpyo

	Dim InputGenkinSuitotyo
	Dim InputKoguchiSuitocho
	Dim InputTouzayokinSuitotyo
	Dim InputUriagetyo
	Dim InputShiiretyo
	Dim InputUrikakekinMototyo
	Dim InputKaikakekinMototyo
	Dim InputUketoriTegatatyo
	Dim InputShiharaiTegatatyo
	Dim InputSyohinAridakatyo

	Dim AutoGenkinSuitotyo
	Dim AutoTouzayokinSuitotyo
	Dim AutoUriagetyo
	Dim AutoShiiretyo
	Dim AutoUrikakekinMototyo
	Dim AutoKaikakekinMototyo
	Dim AutoUketoriTegatatyo
	Dim AutoShiharaiTegatatyo
	Dim AutoSyohinAridakatyo

	Dim ZaimuTaishaku
	Dim ZaimuSoneki
	Dim ZaimuCashflow
	Dim ZaimuStockholder
	Dim BunsekiSonekijisseki
	Dim BunsekiAnzensei
	Dim BunsekiShuekisei
	Dim BunsekiSonekibunki

	Dim TozaHikidashiFurikomiKogitteHituyo

	Dim ShiireUriageSyohizei

	Dim ShiwakebiShitei

	Dim AutoInputToggle

	EnshuCD = Request("EnshuCD")


	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)


	If Not(Content.BOF Or Content.EOF) Then
		EnshuName = Content.Fields("演習名称")
		EnshuKubun = Content.Fields("演習区分")
		FromYmd = Content.Fields("会計開始日")
		ToYmd = Content.Fields("会計終了日")
		TaxRate = Content.Fields("消費税")
		DenpyoKubun = Content.Fields("利用伝票数区分")
		GinkoSyoriKubun = Content.Fields("銀行自動処理")
		InputHojyobo = Content.Fields("手動補助簿表示")
		InputShiwaketyo = Content.Fields("手動仕訳帳表示")
		InputShiwakeShukeihyo = Content.Fields("手動仕訳集計表表示")
		InputGokeiZandakaShisanhyo = Content.Fields("手動合計残高試算表表示")
		InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示")
		InputTaisyakuTaisyohyo = Content.Fields("手動貸借対照表表示")
		InputSonekiKeisansyo = Content.Fields("手動損益計算書表示")
		InputHachiketaSeisanhyo = Content.Fields("手動8桁精算表表示")
		InputStockholderEquity = Content.Fields("手動株主資本等変動計算書表示")

		AutoShiwaketyo = Content.Fields("自動転記仕訳帳表示")
		AutoShiwakeShukeihyo = Content.Fields("自動転記仕訳集計表表示")
		AutoGokeiZandakaShisanhyo = Content.Fields("自動転記合計残高試算表表示")
		AutoSokanjyoMototyo = Content.Fields("自動転記総勘定元帳表示")
		AutoTaisyakuTaisyohyo = Content.Fields("自動転記貸借対照表表示")
		AutoSonekiKeisansyo = Content.Fields("自動転記損益計算書表示")
		AutoHachiketaSeisanhyo = Content.Fields("自動転記8桁精算表表示")
		AutoStockholderEquity = Content.Fields("自動転記株主資本等変動計算書表示")

		ZaimuTaishaku = "" & Content.Fields("財務諸表貸借対照表表示")
		ZaimuSoneki = "" & Content.Fields("財務諸表損益計算書表示")
		ZaimuCashflow = "" & Content.Fields("財務諸表キャッシュフロー計算書表示")
		ZaimuStockholder = "" & Content.Fields("財務諸表株主資本等変動計算書表示")
		BunsekiSonekijisseki = "" & Content.Fields("財務分析損益実績表示")
		BunsekiAnzensei = "" & Content.Fields("財務分析収益性表示")
		BunsekiShuekisei = "" & Content.Fields("財務分析安全性表示")
		BunsekiSonekibunki = "" & Content.Fields("財務分析損益分岐点表示")

		Dim YobiA, YobiB
		YobiA =	Content.Fields("履歴表示")

		AutoGenkinNyusyukinRireki = Mid(YobiA, 1, 1)
		AutoYokinNyusyukinRireki = Mid(YobiA, 2, 1)
		AutoNyukoJisseki = Mid(YobiA, 3, 1)
		AutoSyukoJisseki = Mid(YobiA, 4, 1)
		AutoSyohinZaiko = Mid(YobiA, 5, 1)
		AutoUketoriTegataIchiran = Mid(YobiA, 6, 1)
		AutoShiaraiTegataIchiran = Mid(YobiA, 7, 1)

		YobiB = Content.Fields("利用銀行口座種類")
		GinkoKozaToza = Mid(YobiB , 1, 1)
		GinkoKozaFutu = Mid(YobiB , 2, 1)
		GinkoKozaBetsudan = Mid(YobiB , 3, 1)
		GinkoKozaTsumitate = Mid(YobiB , 4, 1)
		GinkoKozaTeiki = Mid(YobiB , 5, 1)

		EnshuID = Content.Fields("演習管理者ID")
		EnshuPassword = Content.Fields("演習管理者パスワード")
		FurikomiTesuryoJiko1 = Content.Fields("振込手数料低金額自行間")
		FurikomiTesuryoJiko2 = Content.Fields("振込手数料高金額自行間")
		FurikomiTesuryoTako1 = Content.Fields("振込手数料低金額他行間")
		FurikomiTesuryoTako2 = Content.Fields("振込手数料高金額他行間")
		FurikomiTesuryoBorder = Content.Fields("振込手数料高低区切金額")
		JidoGinkoWaribikiRiritsu = Content.Fields("手形割引率")
		FurikomiTesuryoTozaFutanKubun = Content.Fields("振込手数料当座振込元負担")
'		FurikomiTesuryoHiTozaFutanKubun = Content.Fields("振込手数料非当座振込元負担")
		FurikomiTesuryoHiTozaFutanKubun = FurikomiTesuryoTozaFutanKubun

		SokanjyomototyoHyojyunshiki = Content.Fields("総勘定元帳標準式利用")
		SokanjyomototyoMonthTotal = "" & Content.Fields("総勘定元帳月計累計利用")
		ZandakaJidoKeisan = "" & Content.Fields("残高自動計算")
		FurikaeDenpyoGyousu = Content.Fields("振替伝票表示行数")
		GinkoMadoguchiHyoji = "" & Content.Fields("銀行窓口表示")
		KinkoHyoji = "" & Content.Fields("金庫表示")
		KogitteHyoji = "" & Content.Fields("小切手表示")
		YTegataHyoji = "" & Content.Fields("約束手形表示")
		KTegataHyoji = "" & Content.Fields("為替手形表示")
		RyosyusyoHyoji = "" & Content.Fields("領収書表示")
		KyuyoDaichoHyoji = "" & Content.Fields("給与台帳表示")

		InputGenkinSuitotyo = "" & Content.Fields("現金出納帳表示")
		InputKoguchiSuitocho = "" & Content.Fields("小口現金出納帳表示")
		InputTouzayokinSuitotyo = "" & Content.Fields("当座預金出納帳表示")
		InputUriagetyo = "" & Content.Fields("売上帳表示")
		InputShiiretyo = "" & Content.Fields("仕入帳表示")
		InputUrikakekinMototyo = "" & Content.Fields("売掛金元帳表示")
		InputKaikakekinMototyo = "" & Content.Fields("買掛金元帳表示")
		InputUketoriTegatatyo = "" & Content.Fields("受取手形記入帳表示")
		InputShiharaiTegatatyo = "" & Content.Fields("支払手形記入帳表示")
		InputSyohinAridakatyo = "" & Content.Fields("商品有高帳表示")

		AutoGenkinSuitotyo = "" & Content.Fields("自動転記現金出納帳表示")
		AutoTouzayokinSuitotyo = "" & Content.Fields("自動転記当座預金出納帳表示")
		AutoUriagetyo = "" & Content.Fields("自動転記売上帳表示")
		AutoShiiretyo = "" & Content.Fields("自動転記仕入帳表示")
		AutoUrikakekinMototyo = "" & Content.Fields("自動転記売掛金元帳表示")
		AutoKaikakekinMototyo = "" & Content.Fields("自動転記買掛金元帳表示")
		AutoUketoriTegatatyo = "" & Content.Fields("自動転記受取手形記入帳表示")
		AutoShiharaiTegatatyo = "" & Content.Fields("自動転記支払手形記入帳表示")
		AutoSyohinAridakatyo = "" & Content.Fields("自動転記商品有高帳表示")

		MasterEnshu = Content.Fields("マスター演習")

		TozaHikidashiFurikomiKogitteHituyo = Content.Fields("当座引出振込小切手必要")
		KogitteHenkyaku = "" & Content.Fields("小切手返却利用")

		ShiireUriageSyohizei = "" & Content.Fields("仕入売上伝票消費税手動仕訳")

		ShiwakebiShitei = "" & Content.Fields("日付仕訳日指定")

		AutoInputToggle = "" & Content.Fields("帳簿手入力自動トグル")

		ShichoDenpyo = "" & Content.Fields("自動転記総勘定元帳仕丁表示")

	End If

	If ZandakaJidoKeisan = "" Then
		ZandakaJidoKeisan = "0"
	End If

	If KogitteHenkyaku = "" Then
		KogitteHenkyaku = "0"
	End If

	If ShiireUriageSyohizei = "" Then
		ShiireUriageSyohizei = "0"
	End If

	If ShiwakebiShitei = "" Then
		ShiwakebiShitei = "0"
	End If

	If AutoInputToggle = "" Then
		AutoInputToggle = "0"
	End If

	If SokanjyomototyoMonthTotal = "" Then
		SokanjyomototyoMonthTotal = "0"
	End If

	If ShichoDenpyo = "" Then
		ShichoDenpyo = "0"
	End If

'ユーザー存在チェック

	Query = "exec SPM演習_参加グループ一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)


	If Not(Content.BOF Or Content.EOF) Then
		UserCnt = 1
	Else
		UserCnt = 0
	End If

	Dim RouteType
	RouteType = Request("RouteType")

	Query = "exec SPM演習_参加グループ一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	Dim SankaGroupSu
	SankaGroupSu = 0
	Do While Not(Content.BOF Or Content.EOF)
		SankaGroupSu = SankaGroupSu + 1
		Content.MoveNext
	Loop


	Dim PrevPage
	Dim NextPage
	PrevPage = "2"
	NextPage = "3"
	If PackageMode = 1 Then
		PrevPage = "1"
		NextPage = "4"
	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" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	method="POST" name="form1" act="fm_enshu_view.asp">

<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(4))

	If GB_Admin = 2 Then
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "", "", "", "", "", "", "", "", ""))
	ElseIf Request("RouteType") = "Kantan" Then
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu1.asp')", "演習管理", "", "", "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "", "", "", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL3("", "" ,"",	"", "", "", "", "", "", "", "", "", "", "", "", ""))

	If DebugFlg > 1 Or MasterEnshu <> "1" Then
		'Response.Write(HttpL3_1("修正", "tblbtn('fm_enshu22.asp?EnshuCD=" & EnshuCD & "')", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", "","", ""))
		Response.Write(HttpL3_1("修正", "tblbtn('fm_enshu22.asp?EnshuCD=" & EnshuCD & "')", "演習操作", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control');", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", ""))
	Else
		'Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
		Response.Write(HttpL3_1("&nbsp;演習操作&nbsp;", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control')", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin')", "", "", "", "", "", ""))
	End If

	If GB_Admin = 1 Then
		Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "前のページ", "tblbtn('fm_enshu" & PrevPage & "_view.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu" & NextPage & "_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", ""))
	Else
		Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu" & PrevPage & "_view.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu" & NextPage & "_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", ""))
	End if

	Response.Write(HttpL4("演習管理", "伝票・帳簿"))

	If MasterEnshu = "1" Then
		Response.Write(HttpL5("マスター演習は設定を変更出来ません"))
	End If


 %>


<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">

<table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%">
	<tr>
		<td align="CENTER" valign="MIDDLE">
			<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="5" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="740" HEIGHT="100%">
				<TR>
					<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
						<TABLE WIDTH="740" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
							<TR>
								<TD VALIGN="TOP" WIDTH="740" height="260">
									<TABLE WIDTH="<% If GB_CSS = "EC" Then %>857<% Else %>800<% End If %>" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
										<tr>
											<td height="24" align="center" bgcolor="#FFEE88">演習名称</td>
											<td height="24" align="center"><% = EnshuName %></td>
											<td height="24" align="center" bgcolor="#FFEE88">演習コード</td>
											<td height="24" align="center"><% = EnshuCD %></td>
										</tr>
									</table>
									<TABLE WIDTH="740" BORDER="0" CELLPADDING="0" CELLSPACING="0">
										<tr>
											<td valign="top">
												<TABLE WIDTH="<% If GB_CSS = "EC" Then %>857<% Else %>800<% End If %>" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
													<tr>
														<td WIDTH="260" height="39" bgcolor="#FFEE88">手入力帳簿の利用</td>
														<td colspan="3" WIDTH="540">
															<% If PackageMode = 1 Then %><% Else %><% If InputShiwaketyo <> "1" Then Response.Write("<font color=""#888888"">仕訳帳</font>") Else Response.Write("仕訳帳") End If %>　<% End If %>
															<% If InputShiwakeShukeihyo <> "1" Then Response.Write("<font color=""#888888"">仕訳集計表</font>") Else Response.Write("仕訳集計表") End If %>　
															<% If InputGokeiZandakaShisanhyo <> "1" Then Response.Write("<font color=""#888888"">合計残高試算表</font>") Else Response.Write("合計残高試算表") End If %>　
															<% If InputHachiketaSeisanhyo <> "1" Then Response.Write("<font color=""#888888"">8桁精算表</font>") Else Response.Write("8桁精算表") End If %><br>
															<% If InputSokanjyoMototyo <> "1" Then Response.Write("<font color=""#888888"">総勘定元帳</font>") Else Response.Write("総勘定元帳") End If %>　
															<% If InputTaisyakuTaisyohyo <> "1" Then Response.Write("<font color=""#888888"">貸借対照表</font>") Else Response.Write("貸借対照表") End If %>　
															<% If InputSonekiKeisansyo <> "1" Then Response.Write("<font color=""#888888"">損益計算書</font>") Else Response.Write("損益計算書") End If %>　
														<% If PackageMode = 1 Then %>
														<% Else %>
															<% If InputStockholderEquity <> "1" Then Response.Write("<font color=""#888888"">株主資本等変動計算書</font>") Else Response.Write("株主資本等変動計算書") End If %>
														<% End If %>
														</td>
													</tr>
													<tr>
														<td height="39" bgcolor="#FFEE88">手入力補助簿の利用</td>
														<td colspan="3">
															<% If InputGenkinSuitotyo <> "1" Then Response.Write("<font color=""#888888"">現金出納帳</font>") Else Response.Write("現金出納帳") End If %>
															　<% If InputTouzayokinSuitotyo <> "1" Then Response.Write("<font color=""#888888"">当座預金出納帳</font>") Else Response.Write("当座預金出納帳") End If %>
															　<% If InputUriagetyo <> "1" Then Response.Write("<font color=""#888888"">売上帳</font>") Else Response.Write("売上帳") End If %>
															　<% If InputShiiretyo <> "1" Then Response.Write("<font color=""#888888"">仕入帳</font>") Else Response.Write("仕入帳") End If %>
															<% If MajorVersion => 5 Then %>
															　<% If InputKoguchiSuitocho <> "1" Then Response.Write("<font color=""#888888"">小口現金出納帳</font>") Else Response.Write("小口現金出納帳") End If %>
															<% End If %>
															<br>
															<% If InputUrikakekinMototyo <> "1" Then Response.Write("<font color=""#888888"">売掛金元帳</font>") Else Response.Write("売掛金元帳") End If %>
															　<% If InputKaikakekinMototyo <> "1" Then Response.Write("<font color=""#888888"">買掛金元帳</font>") Else Response.Write("買掛金元帳") End If %>
															　<% If InputUketoriTegatatyo <> "1" Then Response.Write("<font color=""#888888"">受取手形記入帳</font>") Else Response.Write("受取手形記入帳") End If %>
															　<% If InputShiharaiTegatatyo <> "1" Then Response.Write("<font color=""#888888"">支払手形記入帳</font>") Else Response.Write("支払手形記入帳") End If %>
															　<% If InputSyohinAridakatyo <> "1" Then Response.Write("<font color=""#888888"">商品有高帳</font>") Else Response.Write("商品有高帳") End If %>
														</td>
													</tr>
													<tr>
														<td height="39" bgcolor="#FFEE88">自動転記帳簿の表示</td>
														<td colspan="3">
															<% If DenpyoKubun > 0 Then %><% If AutoShiwaketyo <> "1" Then Response.Write("<font color=""#888888"">仕訳帳</font>") Else Response.Write("仕訳帳") End If %>　<% End If %>
															<% If AutoShiwakeShukeihyo <> "1" Then Response.Write("<font color=""#888888"">仕訳集計表</font>") Else Response.Write("仕訳集計表") End If %>　
															<% If AutoGokeiZandakaShisanhyo <> "1" Then Response.Write("<font color=""#888888"">合計残高試算表</font>") Else Response.Write("合計残高試算表") End If %>　
															<% If AutoHachiketaSeisanhyo <> "1" Then Response.Write("<font color=""#888888"">8桁精算表</font>") Else Response.Write("8桁精算表") End If %><br>
															<% If AutoSokanjyoMototyo <> "1" Then Response.Write("<font color=""#888888"">総勘定元帳</font>") Else Response.Write("総勘定元帳") End If %>　
															<% If AutoTaisyakuTaisyohyo <> "1" Then Response.Write("<font color=""#888888"">貸借対照表(残高式)</font>") Else Response.Write("貸借対照表(残高式)") End If %>　
															<% If AutoSonekiKeisansyo <> "1" Then Response.Write("<font color=""#888888"">損益計算書(残高式)</font>") Else Response.Write("損益計算書(残高式)") End If %>　
														</td>
													</tr>
													<tr>
														<td height="39" bgcolor="#FFEE88">自動転記補助簿の表示</td>
														<td colspan="3">
															<% If AutoGenkinSuitotyo <> "1" Then Response.Write("<font color=""#888888"">現金出納帳</font>") Else Response.Write("現金出納帳") End If %>
															　<% If AutoTouzayokinSuitotyo <> "1" Then Response.Write("<font color=""#888888"">当座預金出納帳</font>") Else Response.Write("当座預金出納帳") End If %>
															　<% If AutoUriagetyo <> "1" Then Response.Write("<font color=""#888888"">売上帳</font>") Else Response.Write("売上帳") End If %>
															　<% If AutoShiiretyo <> "1" Then Response.Write("<font color=""#888888"">仕入帳</font>") Else Response.Write("仕入帳") End If %>
															<br>
															<% If AutoUrikakekinMototyo <> "1" Then Response.Write("<font color=""#888888"">売掛金元帳</font>") Else Response.Write("売掛金元帳") End If %>
															　<% If AutoKaikakekinMototyo <> "1" Then Response.Write("<font color=""#888888"">買掛金元帳</font>") Else Response.Write("買掛金元帳") End If %>
															　<% If AutoUketoriTegatatyo <> "1" Then Response.Write("<font color=""#888888"">受取手形記入帳</font>") Else Response.Write("受取手形記入帳") End If %>
															　<% If AutoShiharaiTegatatyo <> "1" Then Response.Write("<font color=""#888888"">支払手形記入帳</font>") Else Response.Write("支払手形記入帳") End If %>
															　<% If AutoSyohinAridakatyo <> "1" Then Response.Write("<font color=""#888888"">商品有高帳</font>") Else Response.Write("商品有高帳") End If %>
														</td>
													</tr>
												<% If PackageMode = 1 Then %>
												<% Else %>
													<tr>
														<td height="20" bgcolor="#FFEE88"><NOBR>帳簿メニューに自動転記帳簿を代替表示</NOBR></td>
														<td colspan="3" height="20">
														<% If AutoInputToggle <> "1" Then Response.Write("<font color=""#888888"">表示する</font>") Else Response.Write("表示する") End If %>　
															<% If AutoInputToggle <> "0" Then Response.Write("<font color=""#888888"">表示しない</font>") Else Response.Write("表示しない") End If %>　
															<% If AutoInputToggle <> "0" Then %><span class="tx1214">※「手入力非利用＋自動転記利用」設定の帳簿に限られます</span><% End If %>
														</td>
													</tr>
												<% End If %>
													<tr>
														<td height="39" bgcolor="#FFEE88">財務諸表・財務分析の表示</td>
														<td colspan="3">
														<% If ZaimuTaishaku <> "1" Then Response.Write("<font color=""#888888"">貸借対照表(報告書形式)</font>") Else Response.Write("貸借対照表(報告書形式)") End If %>　
															<% If ZaimuCashflow <> "1" Then Response.Write("<font color=""#888888"">キャッシュフロー計算書</font>") Else Response.Write("キャッシュフロー計算書") End If %>　
															<% If BunsekiSonekijisseki <> "1" Then Response.Write("<font color=""#888888"">損益実績</font>") Else Response.Write("損益実績") End If %>　
															<% If BunsekiSonekibunki <> "1" Then Response.Write("<font color=""#888888"">損益分岐点分析</font>") Else Response.Write("損益分岐点分析") End If %><br>
														<% If ZaimuSoneki <> "1" Then Response.Write("<font color=""#888888"">損益計算書(報告書形式)</font>") Else Response.Write("損益計算書(報告書形式)") End If %>　
															<% If ZaimuStockholder <> "1" Then Response.Write("<font color=""#888888"">株主資本等変動計算書</font>") Else Response.Write("株主資本等変動計算書") End If %>　
															<% If BunsekiShuekisei <> "1" Then Response.Write("<font color=""#888888"">収益性の分析</font>") Else Response.Write("収益性の分析") End If %>　
															<% If BunsekiAnzensei <> "1" Then Response.Write("<font color=""#888888"">安全性の分析</font>") Else Response.Write("安全性の分析") End If %>
														</td>
													</tr>
												<% If PackageMode = 1 Then %>
												<% Else %>
													<tr>
														<td height="22" bgcolor="#FFEE88">現物出入履歴の表示</td>
														<td colspan="3">
														<% If AutoGenkinNyusyukinRireki <> "1" Then Response.Write("<font color=""#888888"">現金</font>") Else Response.Write("現金") End If %>　
															<% If AutoYokinNyusyukinRireki <> "1" Then Response.Write("<font color=""#888888"">預金</font>") Else Response.Write("預金") End If %>　
															<% If AutoUketoriTegataIchiran <> "1" Then Response.Write("<font color=""#888888"">受取手形</font>") Else Response.Write("受取手形") End If %>　
															<% If AutoShiaraiTegataIchiran <> "1" Then Response.Write("<font color=""#888888"">支払手形</font>") Else Response.Write("支払手形") End If %>　
															<% If AutoNyukoJisseki <> "1" Then Response.Write("<font color=""#888888"">入庫実績</font>") Else Response.Write("入庫実績") End If %>　
															<% If AutoSyukoJisseki <> "1" Then Response.Write("<font color=""#888888"">出庫実績</font>") Else Response.Write("出庫実績") End If %>　
															<% If AutoSyohinZaiko <> "1" Then Response.Write("<font color=""#888888"">商品在庫</font>") Else Response.Write("商品在庫") End If %>
														</td>
													</tr>
													<tr>
														<td height="22" bgcolor="#FFEE88">その他の機能の利用</td>
														<td colspan="3">
														<% If KogitteHyoji <> "1" Then Response.Write("<font color=""#888888"">小切手</font>") Else Response.Write("小切手") End If %>　
															<% If YTegataHyoji <> "1" Then Response.Write("<font color=""#888888"">約束手形</font>") Else Response.Write("約束手形") End If %>　
															<% If KTegataHyoji <> "1" Then Response.Write("<font color=""#888888"">為替手形</font>") Else Response.Write("為替手形") End If %>　
															<% If RyosyusyoHyoji <> "1" Then Response.Write("<font color=""#888888"">領収書</font>") Else Response.Write("領収書") End If %>　
															<% If KyuyoDaichoHyoji <> "1" Then Response.Write("<font color=""#888888"">給与台帳</font>") Else Response.Write("給与台帳") End If %>
														</td>
													</tr>
												<% End If %>
													<tr>
														<td height="20" bgcolor="#FFEE88">総勘定元帳の形式</td>
														<td colspan="1" height="20">
														<% If SokanjyomototyoHyojyunshiki <> "1" Then Response.Write("<font color=""#888888"">標準式</font>") Else Response.Write("標準式") End If %>　
															<% If SokanjyomototyoHyojyunshiki <> "0" Then Response.Write("<font color=""#888888"">残高式</font>") Else Response.Write("残高式") End If %>　
														</td>
														<td height="20" bgcolor="#FFEE88" nowrap>総勘定元帳・補助簿の日付</td>
														<td colspan="1" height="20"><nobr>
														<% If ShiwakebiShitei <> "0" Then Response.Write("<font color=""#888888"">自由入力</font>") Else Response.Write("自由入力") End If %>　
															<% If ShiwakebiShitei <> "1" Then Response.Write("<font color=""#888888"">仕訳日から選択</font>") Else Response.Write("仕訳日から選択") End If %>　
														</nobr></td>
													</tr>
													<tr>
														<td height="20" bgcolor="#FFEE88">総勘定元帳に月計・累計を表示する</td>
														<td colspan="3" height="20">
														<% If SokanjyomototyoMonthTotal <> "2" Then Response.Write("<font color=""#888888"">月計・累計を表示する</font>") Else Response.Write("月計・累計を表示する") End If %>　
															<% If SokanjyomototyoMonthTotal <> "1" Then Response.Write("<font color=""#888888"">月計を表示する</font>") Else Response.Write("月計を表示する") End If %>　
															<% If SokanjyomototyoMonthTotal <> "0" Then Response.Write("<font color=""#888888"">月計・累計を表示しない</font>") Else Response.Write("月計・累計を表示しない") End If %>　
														</td>
													</tr>
													<tr>
														<td height="20" bgcolor="#FFEE88">自動転記総勘定元帳の仕丁</td>
														<td colspan="3" height="20">
														<% If ShichoDenpyo <> "0" Then Response.Write("<font color=""#888888"">伝票の処理日(月日4桁)を表示</font>") Else Response.Write("伝票の処理日(月日4桁)を表示") End If %>　
															<% If ShichoDenpyo <> "1" Then Response.Write("<font color=""#888888"">伝票番号の下5桁を表示</font>") Else Response.Write("伝票番号の下5桁を表示") End If %>　
														</td>
													</tr>
													<tr>
														<td height="20" bgcolor="#FFEE88">帳簿残高自動計算</td>
														<td colspan="3" height="20">
														<% If ZandakaJidoKeisan = "1" Then Response.Write("自動計算する") Else Response.Write("<font color=""#888888"">自動計算する</font>") End If %>　
															<% If ZandakaJidoKeisan = "0" Then Response.Write("自動計算しない") Else Response.Write("<font color=""#888888"">自動計算しない</font>") End If %>　
															<% If ZandakaJidoKeisan = "2" Then Response.Write("商品有高帳の残高金額は自動計算しない") Else Response.Write("<font color=""#888888"">商品有高帳の残高金額は自動計算しない</font>") End If %>
														</td>
													</tr>
												<% If PackageMode = 1 Then %>
												<% Else %>
													<tr>
														<td height="20" bgcolor="#FFEE88">当座出金・振込時に小切手を必要とする</td>
														<td height="20">
														<% If TozaHikidashiFurikomiKogitteHituyo <> "1" Then Response.Write("<font color=""#888888"">必要とする</font>") Else Response.Write("必要とする") End If %>　
															<% If TozaHikidashiFurikomiKogitteHituyo <> "0" Then Response.Write("<font color=""#888888"">必要としない</font>") Else Response.Write("必要としない") End If %>　
														</td>
														<td height="20" bgcolor="#FFEE88"><nobr>受取小切手の返却を許可する</nobr></td>
														<td height="20">
														<% If KogitteHenkyaku <> "1" Then Response.Write("<font color=""#888888"">許可する</font>") Else Response.Write("許可する") End If %>　
															<% If KogitteHenkyaku <> "0" Then Response.Write("<font color=""#888888"">許可しない</font>") Else Response.Write("許可しない") End If %>　
														</td>
													</tr>
												<% End If %>
													<tr>
														<td height="20" bgcolor="#FFEE88">仕入売上伝票作成時の消費税の仕訳</td>
														<td height="20"><nobr>
														<% If ShiireUriageSyohizei <> "0" Then Response.Write("<font color=""#888888"">自動で行う</font>") Else Response.Write("自動で行う") End If %>　
															<% If ShiireUriageSyohizei <> "1" Then Response.Write("<font color=""#888888"">振替伝票で行う</font>") Else Response.Write("振替伝票で行う") End If %>　
														</nobr></td>
														<td height="22" bgcolor="#FFEE88">振替伝票の明細表示行数</td>
														<td height="20">
														<% = FurikaeDenpyoGyousu %>&nbsp;行
														</td>
													</tr>
												</table>
											</td>
										</tr>
									</table>
								</TD>
							</TR>
						</table>

					</TD>
				</TR>
			</TABLE>
		</td>
	</tr>
</table>
 </div>
</form>

</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>