
<!-- #include file="../../include.asp" -->

<%
'<!-- 
'################################################
'	名称	：演習設定
'	作成日	：2009/11/0
'	作成者	：小野
'	概要	：
'###############################################
'-->



main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim EnshuName, EnshuID, EnshuPassword
	Dim JidoBangoDenpyo, JidoBangoShiireUriageSyorui, JidoBangoGinkoSyorui, JidoBangoTegata, JidoBangoRyosyusyo
	Dim RiyoMailKubun, PrintHeaderHyoji, TutyoSyusei, MeishiKyuVersionRiyo, NatsuinRiyo
	Dim TozaHikidashiFurikomiKogitteHituyo, TegataSyusei
	Dim SyohinCheck, GenbutsuCheck, UnsohiSeikyusyoKyuVersionRiyo
	Dim SyohinNyusyukkoSeikousei, SyohinKaihatukaRiyo
	Dim ErrMsg

	Dim KitakuSokoRiyo
	Dim EnshuKubun
	Dim WebCollaboRiyo
	Dim KouriHanbaiRiyo
	Dim ExchangeRateRiyo
	Dim GenkaKaikeiRiyo
	Dim ShiireUriageJyuHasshin
	Dim ShiireUriageSyoruiHikae
	Dim SoufuzumiTegataHyoji
	Dim SoufuzumiKogitteHyoji
	Dim SouhuzumiRyoshushoHyoji
	Dim Jissenbi
	Dim MasterEnshu
	Dim InputShiwaketyoKyuVersionRiyo
	Dim JitsuinRiyo
	Dim UkeshoKakunin
	Dim SenpoHitsuyo
	Dim ShukkoUkeshoHitsuyo
	Dim AiteShukkoHitsuyo
	Dim JishaZaikoHitsuyo
	Dim KichoCheck
	Dim DenpyoKubun
	Dim HyojunTankaHyoji
	Dim CheckLink
	Dim KishusetteiRiyo

	Dim KurikoshiEnshuCD
	Dim KurikoshiEnshuMei

	Dim DefShain(3)

	Dim Query
	Dim Content
	
	EnshuCD = Request("EnshuCD")
	
	If EnshuCD <> "" Then
		Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" 
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			EnshuName = Content.Fields("演習名称")
			EnshuKubun = Content.Fields("演習区分")
			EnshuID = Content.Fields("演習管理者ID")
			EnshuPassword = Content.Fields("演習管理者パスワード")
			JidoBangoDenpyo = Content.Fields("自動番号伝票")
			JidoBangoShiireUriageSyorui = Content.Fields("自動番号仕入売上書類")
			JidoBangoGinkoSyorui = Content.Fields("自動番号銀行書類")
			JidoBangoTegata = Content.Fields("自動番号手形")
			JidoBangoRyosyusyo = Content.Fields("自動番号領収書")
			RiyoMailKubun = Content.Fields("メール利用")
			PrintHeaderHyoji = Content.Fields("印刷ヘッダー表示")
			TutyoSyusei = Content.Fields("通帳手動修正")
			MeishiKyuVersionRiyo = Content.Fields("名刺作成旧バージョン利用")
			InputShiwaketyoKyuVersionRiyo = Content.Fields("手入力仕訳帳旧バージョン利用")
			NatsuinRiyo = Content.Fields("捺印利用")
			TozaHikidashiFurikomiKogitteHituyo = Content.Fields("当座引出振込小切手必要")
			TegataSyusei = Content.Fields("手形修正")
			KichoCheck = "" & Content.Fields("記帳チェック表示")
			SyohinCheck = Content.Fields("商品チェック表示")
			GenbutsuCheck = Content.Fields("現物チェック表示")
			UnsohiSeikyusyoKyuVersionRiyo = Content.Fields("運送費請求書旧バージョン利用")
			SyohinNyusyukkoSeikousei = Content.Fields("商品入出庫整合性利用")
			SyohinKaihatukaRiyo = Content.Fields("商品開発課利用")
			KitakuSokoRiyo = "" & Content.Fields("寄託倉庫利用")
			WebCollaboRiyo = "" & Content.Fields("WebCollabo利用")
			KouriHanbaiRiyo = Content.Fields("小売販売有無")
			ExchangeRateRiyo = Content.Fields("為替レート利用")
			GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用")
			ShiireUriageJyuHasshin = Content.Fields("仕入売上書類受発信利用")
			ShiireUriageSyoruiHikae = Content.Fields("仕入売上書類控え印刷")
			SoufuzumiTegataHyoji = Content.Fields("送付済み手形表示様式")
			SoufuzumiKogitteHyoji = Content.Fields("送付済み小切手表示様式")
			SouhuzumiRyoshushoHyoji = Content.Fields("送付済み領収書表示様式")
			Jissenbi = "" & Content.Fields("実践日")
			JitsuinRiyo = "" & Content.Fields("実印利用")
			UkeshoKakunin = "" & Content.Fields("注文請書確認利用") 
			SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要") 
			ShukkoUkeshoHitsuyo = "" & Content.Fields("出庫時注文請書必要") 
			AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要") 
			JishaZaikoHitsuyo = "" & Content.Fields("出庫時在庫必要") 
			MasterEnshu = Content.Fields("マスター演習")
			DenpyoKubun = Content.Fields("利用伝票数区分")
			HyojunTankaHyoji = Content.Fields("標準販売単価表示")
			CheckLink = Content.Fields("チェック画面リンク利用")
			KishusetteiRiyo = "" & Content.Fields("期首設定経理部利用")

			KurikoshiEnshuCD = "" & Content.Fields("期末繰越先演習CD") 
			If KurikoshiEnshuCD <> "" Then
				Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & KurikoshiEnshuCD & "'" 
				Set Content = OpenQuery(Query)
				If Not(Content.BOF Or Content.EOF) Then
					KurikoshiEnshuMei = "" & Content.Fields("演習名称") 
				End If
			End If
		End If	
		Query = "  "
		Query = Query & " SELECT * "
		Query = Query & " FROM TDA社員M "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
		Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
		Query = Query & " 	AND 社員CD > 0 AND 社員CD < 4 "
		Query = Query & " ORDER BY 社員CD " 
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			DefShain(Content.Fields("社員CD")) = Content.Fields("氏名")
			Content.MoveNext
		Loop
	End If

	If UkeshoKakunin = "" Then
		UkeshoKakunin = "1"
	End If

	If KichoCheck = "" Then
		KichoCheck = "0"
	End If

	If WebCollaboRiyo = "" Then
		WebCollaboRiyo = "0"
	End If

	If GenkaKaikeiRiyo = "" Then
		GenkaKaikeiRiyo = "0"
	End If

	Dim RouteType
	RouteType = Request("RouteType")

	If RiyoMailKubun = "" Or IsNull(RiyoMailKubun) Then
		RiyoMailKubun = "1"
	End If

	If HyojunTankaHyoji = "" Then
		HyojunTankaHyoji = "1"
	End If

	If "" & CheckLink = "" Then
		CheckLink = "1"
	End If

	If "" & KishusetteiRiyo = "" Then
		KishusetteiRiyo = "3"
	End If

	If "" & KouriHanbaiRiyo = "" Then
		KouriHanbaiRiyo = "0"
	End If

	If "" & ExchangeRateRiyo = "" Then
		ExchangeRateRiyo = "0"
	End If

'デバッグ用
'PackageMode = 1


	Dim PrevPage
	PrevPage = "3"
	If PackageMode = 1 Then
		PrevPage = "22"
	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="GET" name="form1" action="fm_enshu4_bin.asp">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="DbEnshuCD" value="<% = EnshuCD%>">
<% 
	Response.Write(HtmlDesign(1))
	
	Response.Write(HttpL1(4))

	If 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 MasterEnshu <> "1" Then
		Response.Write(HttpL3_1("修正", "tblbtn('fm_enshu4.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

	'小売販売設定ボタンを表示・非表示切り替え
	Dim KouriHanbaiBottunHyoji1
	Dim KouriHanbaiBottunHyoji2
	If KouriHanbaiRiyo <> "1" Or PackageMode = 1 Then 'サイバー会計も非表示
		KouriHanbaiBottunHyoji1 = ""
		KouriHanbaiBottunHyoji2 = ""
	Else
		KouriHanbaiBottunHyoji1 = "小売販売設定"
		KouriHanbaiBottunHyoji2 = "tblbtn('fm_kourihanbai_view.asp?EnshuCD=" & EnshuCD & "')"
	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 & "')", KouriHanbaiBottunHyoji1, KouriHanbaiBottunHyoji2, "", "", "", ""))
	Else
		Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu" & PrevPage & "_view.asp?EnshuCD=" & EnshuCD & "')", KouriHanbaiBottunHyoji1, KouriHanbaiBottunHyoji2, "", "", "", "", "", ""))
	End If

	Response.Write(HttpL4("演習管理", "その他"))

	If MasterEnshu = "1" Then
		Response.Write(HttpL5("マスター演習は設定を変更出来ません"))
	Else
		Response.Write(HttpL5("<font color=""#FF0000"">" & ErrMsg & "</font>"))
	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">
			<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="5" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="740" HEIGHT="100%">

				<TR>
					<TD HEIGHT="30" VALIGN="TOP" ALIGN="left" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
						<TABLE WIDTH="800" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse" width="740">
							<tr> 
								<td height="24" align="center" bgcolor="#FFEE88">演習名称</td>
								<td height="24" align="center"><% = EnshuName %></td>
								<td height="24" align="center" bgcolor="#FFEE88" onclick="tblbtn('fm_enshu0_view.asp?EnshuCD=<% = EnshuCD %>')">演習コード</td>
								<td height="24" align="center"><% = EnshuCD %></td>
							</tr>
						</table>
						<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
						<TABLE WIDTH="740" BORDER="0" CELLPADDING="0" CELLSPACING="0">
							<tr>
								<td valign="top">
									<TABLE WIDTH="800" HEIGHT="100%" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
										<tr>
											<td height="23" width="185" bgcolor="#FFEE88">演習管理者ID</td>
											<td width="185"><% = EnshuID %></td>
											<td width="185" bgcolor="#FFEE88">演習管理者パスワード</td>
											<td width="185"><% = EnshuPassword %></td>
										</tr>
										<tr>
										<% If PackageMode = 1 And EnshuKubun = "P" Then %>
										<% Else %>
											<td height="20" bgcolor="#FFEE88"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>メール機能を利用する</td>
											<td height="20"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>
												<% If RiyoMailKubun <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>　
												<% If RiyoMailKubun <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %>　
											</td>
											<% If PackageMode = 1 Then %>
										</tr>
										<tr>
											<% End If %>
										<% End If %>
											<td height="20" bgcolor="#FFEE88"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>記帳チェックを表示する</td>
											<td height="20"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>
												<% If KichoCheck <> "1" Then Response.Write("<font color=""#888888"">表示する</font>") Else Response.Write("表示する") End If %>　
												<% If KichoCheck <> "0" Then Response.Write("<font color=""#888888"">表示しない</font>") Else Response.Write("表示しない") End If %>　
											</td>
										</tr>
										<tr>
											<td height="20" bgcolor="#FFEE88"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>捺印を表示する</td>
											<td height="20"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>
												<% If NatsuinRiyo <> "1" Then Response.Write("<font color=""#888888"">表示する</font>") Else Response.Write("表示する") End If %>　
												<% If NatsuinRiyo <> "0" Then Response.Write("<font color=""#888888"">表示しない</font>") Else Response.Write("表示しない") End If %>　
											</td>
										<% If PackageMode = 1 Then %>
										<% Else %>
											<td height="20" bgcolor="#FFEE88">現物チェックを表示する</td>
											<td height="20">
												<% If GenbutsuCheck <> "1" Then Response.Write("<font color=""#888888"">表示する</font>") Else Response.Write("表示する") End If %>　
												<% If GenbutsuCheck <> "0" Then Response.Write("<font color=""#888888"">表示しない</font>") Else Response.Write("表示しない") End If %>　
											</td>
										<% End If %>
										</tr>
									<% If PackageMode = 1 Then %>
									<% Else %>
										<tr>
											<td height="20" bgcolor="#FFEE88"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>手形等に実印を表示する</td>
											<td height="20"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>
												<% If JitsuinRiyo <> "1" Then Response.Write("<font color=""#888888"">表示する</font>") Else Response.Write("表示する") End If %>　
												<% If JitsuinRiyo <> "0" Then Response.Write("<font color=""#888888"">表示しない</font>") Else Response.Write("表示しない") End If %>　
											</td>
											<td height="20" bgcolor="#FFEE88">商品チェックを表示する</td>
											<td height="20">
											<% If DenpyoKubun <> 5 Then %>
												<font color="#888888">5伝票でのみ利用されます</font>
											<% Else %>
												<% If SyohinCheck <> "1" Then Response.Write("<font color=""#888888"">表示する</font>") Else Response.Write("表示する") End If %>　
												<% If SyohinCheck <> "0" Then Response.Write("<font color=""#888888"">表示しない</font>") Else Response.Write("表示しない") End If %>　
											<% End If %>
											</td>
										</tr>
									<% End If %>
										<tr>
											<td height="20" bgcolor="#FFEE88" nowrap<% If PackageMode = 1 Then %> colspan="2"<% End If %>>印刷時にヘッダーを表示する</td>
											<td height="20"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>
												<% If PrintHeaderHyoji <> "1" Then Response.Write("<font color=""#888888"">表示</font>") Else Response.Write("表示") End If %>　
												<% If PrintHeaderHyoji <> "0" Then Response.Write("<font color=""#888888"">非表示</font>") Else Response.Write("非表示") End If %>　
												<% If PrintHeaderHyoji <> "2" Then Response.Write("<font color=""#888888"">会社名のみ</font>") Else Response.Write("会社名のみ") End If %>　
											</td>
											<% If PackageMode = 1 Then %>
										</tr>
										<tr>
											<% End If %>
											<td height="20" bgcolor="#FFEE88" nowrap<% If PackageMode = 1 Then %> colspan="2"<% End If %>>標準販売単価を表示する</td>
											<td height="20"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>
												<% If HyojunTankaHyoji <> "1" Then Response.Write("<font color=""#888888"">表示する</font>") Else Response.Write("表示する") End If %>　
												<% If HyojunTankaHyoji <> "0" Then Response.Write("<font color=""#888888"">表示しない</font>") Else Response.Write("表示しない") End If %>　
											</td>
										</tr>
										<tr>
											<td COLSPAN="<% If PackageMode = 1 Then %>2<% Else %>1<% End If %>" height="20" bgcolor="#FFEE88" nowrap><% If PackageMode = 1 Then %>伝票を自動採番する<% Else %>自動採番をする帳票<% End If %></td>
											<td COLSPAN="<% If PackageMode = 1 Then %>2<% Else %>3<% End If %>" height="20" nowrap>
												<nbsp>
											<% If PackageMode = 1 Then %>
												<% If JidoBangoDenpyo <> "1" Then Response.Write("<font color=""#888888"">自動採番する</font>") Else Response.Write("自動採番する") End If %>　
												<% If JidoBangoDenpyo <> "0" Then Response.Write("<font color=""#888888"">手入力する</font>") Else Response.Write("手入力する") End If %>　
											<% Else %>
												<% If JidoBangoDenpyo <> "1" Then Response.Write("<font color=""#888888"">伝票</font>") Else Response.Write("伝票") End If %>　
												<% If JidoBangoShiireUriageSyorui <> "1" Then Response.Write("<font color=""#888888"">仕入売上書類</font>") Else Response.Write("仕入売上書類") End If %>　
												<% If JidoBangoGinkoSyorui <> "1" Then Response.Write("<font color=""#888888"">銀行書類</font>") Else Response.Write("銀行書類") End If %>　
												<% If JidoBangoTegata <> "1" Then Response.Write("<font color=""#888888"">小切手・手形</font>") Else Response.Write("小切手・手形") End If %>　
												<% If JidoBangoRyosyusyo <> "1" Then Response.Write("<font color=""#888888"">領収書</font>") Else Response.Write("領収書") End If %>　
											<% End If %>
												</nbsp>
											</td>
										</tr>
									<% If PackageMode = 1 Then %>
									<% Else %>
										<tr>
											<td COLSPAN="2" height="20" bgcolor="#FFEE88">送付済み手形・小切手・領収書の表示様式</td>
											<td COLSPAN="2" height="20">
												手形：<% If SoufuzumiTegataHyoji = "1" Then %>全体表示<% Else %>耳のみ表示<% End If %>
												&nbsp;
												小切手：<% If SoufuzumiKogitteHyoji = "1" Then %>全体表示<% Else %>耳のみ表示<% End If %>
												&nbsp;
												領収書：<% If SouhuzumiRyoshushoHyoji = "1" Then %>全体表示<% Else %>耳のみ表示<% End If %>
<!--
												<% If SoufuzumiTegataHyoji <> "1" Then Response.Write("<font color=""#888888"">全体表示</font>") Else Response.Write("全体表示") End If %>　
												<% If SoufuzumiTegataHyoji <> "0" Then Response.Write("<font color=""#888888"">耳のみ表示</font>") Else Response.Write("耳のみ表示") End If %>　
-->
											</td>
										</tr>
									<% End If %>
									<% If PackageMode = 1 Then %>
										<tr>
											<td COLSPAN="2" height="20" bgcolor="#FFEE88" nowrap>為替レート計算機を利用する</td>
											<td COLSPAN="2" height="20">
												<% If ExchangeRateRiyo <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>　
												<% If ExchangeRateRiyo <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %>　
											</td>
										</tr>
									<% Else %>
<!--
										<tr>
											<td COLSPAN="2" height="20" bgcolor="#FFEE88">手入力仕訳帳の旧バージョンを利用する</td>
											<td COLSPAN="2" height="20">
												<% If InputShiwaketyoKyuVersionRiyo <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>　
												<% If InputShiwaketyoKyuVersionRiyo <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %>　
											</td>
										</tr>
-->
										<tr>
											<td height="20" bgcolor="#FFEE88">商社の商品企画室を利用する</td>
											<td height="20">
												<% If SyohinKaihatukaRiyo <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>　
												<% If SyohinKaihatukaRiyo <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %>　
											</td>
											<td height="20" bgcolor="#FFEE88" class="tx1315">運送費請求書の自動作成を利用</td>
											<td height="20">
												<% If UnsohiSeikyusyoKyuVersionRiyo <> "0" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>　
												<% If UnsohiSeikyusyoKyuVersionRiyo <> "1" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %>　
											</td>
										</tr>
										<tr>
											<td COLSPAN="2" height="20" bgcolor="#FFEE88"><nobr>チェック画面から伝票・帳簿へのジャンプ機能を利用する</nobr></td>
											<td COLSPAN="2" height="20">
												<% If CheckLink <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>　
												<% If CheckLink <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %>　
											</td>
										</tr>
										<tr>
											<td COLSPAN="2" height="20" bgcolor="#FFEE88"><nobr>生徒による経理部からの期首設定</nobr></td>
											<td COLSPAN="2" height="20">
												<% If KishusetteiRiyo <> "3" Then Response.Write("<font color=""#888888"">可</font>") Else Response.Write("可") End If %>　
												<% If KishusetteiRiyo <> "2" Then Response.Write("<font color=""#888888"">勘定残高のみ</font>") Else Response.Write("勘定残高のみ") End If %>　
												<% If KishusetteiRiyo <> "1" Then Response.Write("<font color=""#888888"">繰越残高のみ</font>") Else Response.Write("繰越残高のみ") End If %>　
												<% If KishusetteiRiyo <> "0" Then Response.Write("<font color=""#888888"">不可</font>") Else Response.Write("不可") End If %>　
											</td>
										</tr>
										<tr>
											<td height="20" bgcolor="#FFEE88">小売販売を利用する</td>
											<td height="20">
												<% If KouriHanbaiRiyo <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>　
												<% If KouriHanbaiRiyo <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %>　
											</td>
											<td height="20" bgcolor="#FFEE88" nowrap>為替レート計算機を利用する</td>
											<td height="20">
												<% If ExchangeRateRiyo <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>　
												<% If ExchangeRateRiyo <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %>　
											</td>
										</tr>
										<% If Genkavariable = 1 Or (EnshuKubun = "G" And (Tvvariable = 1 Or Tvvariable = 2)) Then %>
										<tr>
											<% If Genkavariable = 1 Then %>
											<td height="20" bgcolor="#FFEE88">製造部を利用する</td>
											<td height="20">
												<% If GenkaKaikeiRiyo <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>　
												<% If GenkaKaikeiRiyo <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %>　
											</td>
											<% Else %>
											<td height="20" bgcolor="#FFEE88">&nbsp;</td>
											<td height="20"></td>
											<% End If %>
											<% If EnshuKubun = "G" And (Tvvariable = 1 Or Tvvariable = 2) Then %>
											<td height="20" bgcolor="#FFEE88">テレビ電話を利用する</td>
											<td height="20"><nobr>
												<% If WebCollaboRiyo <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>　
												<% If WebCollaboRiyo <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %>　
												<% If WebCollaboRiyo <> "2" Then Response.Write("<font color=""#888888"">任意に選択する</font>") Else Response.Write("任意に選択する") End If %>　
											</nobr></td>
											<% Else %>
											<td height="20" bgcolor="#FFEE88">&nbsp;</td>
											<td height="20"></td>
											<% End If %>
										</tr>
										<% End If %>
										<tr>
											<td COLSPAN="1" height="20" bgcolor="#FFEE88" nowrap>自動作成する社員（氏名）</td>
											<td COLSPAN="3" height="20" valign="bottom" nowrap>
												<nbsp>
												<% = DefShain(1) %>　　
												<% = DefShain(2) %>　　
												<% = DefShain(3) %>　　
												</nbsp>
											</td>
										</tr>
									<% End If %>
										<tr>
											<td COLSPAN="2" height="40" bgcolor="#FFEE88">期末繰越先演習</td>
											<td COLSPAN="2" height="40"><nobr>
												<% = HardWrap(KurikoshiEnshuMei) %>
											<nobr></td>
										</tr>
									</TABLE>
								</td>
							</tr>
						</table>

					</TD>
				</TR>
			</TABLE>
		</TD>
	</TR>
</TABLE>

</div>
</form>

</body>
<% = HtmlFooter %>
</html>
<SCRIPT LANGUAGE="JavaScript">
	function SubmitCheck()
	{		

		SubmitReal(form1);
		return true;
	}

		
</script> 	 

<% 
End Sub
%>