
<!-- #include file="../../include.asp" -->

<%
'<!-- 
'################################################
' 	名称	：演習追加入力		
' 	作成日：2002/9/4
' 	作成者：徳田
' 	目的　：演習追加入力の画面を表示する。
' 	概要	：
' 	 <<表示>>
'	・演習追加入力画面
'	
'###############################################
'-->



main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query, Content

	Dim NRflg , ErrMSG
	Dim EnshuCD
	Dim EnshuName , EnshuKubun 								'演習CD、 演習名称、演習区分
	Dim FromYmd  , ToYmd		 , TaxRate									'開始日、 終了日、消費税率
	Dim DenpyoKubun, TradeKubun 								'伝票方式、商品取引方式
	Dim DenpyoKubunNm, TradeKubunNm 					'伝票方式名、商品取引方式名
	Dim GinkoSyoriKubun
	Dim FurikomiTesuryoTozaFutanKubun, FurikomiTesuryoHiTozaFutanKubun
	Dim SokanjyomototyoHyojyunshiki
	Dim SokanjyomototyoMonthTotal

	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 RiyoGinkoKozaSyurui
	Dim GinkoKozaToza, GinkoKozaFutu, GinkoKozaBetsudan, GinkoKozaTsumitate, GinkoKozaTeiki		

	Dim AutoGenkinNyusyukinRireki, AutoYokinNyusyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki
	Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran
		
	Dim FurikomiTesuryoJiko1, FurikomiTesuryoJiko2, FurikomiTesuryoTako1, FurikomiTesuryoTako2, FurikomiTesuryoBorder
	Dim JidoGinkoWaribikiRiritsu
	Dim ZandakaJidoKeisan

	Dim FurikaeDenpyoGyousu
	Dim GinkoMadoguchiHyoji, KinkoHyoji
	Dim KogitteHyoji, YTegataHyoji, KTegataHyoji, RyosyusyoHyoji, KyuyoDaichoHyoji

	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 TozaHikidashiFurikomiKogitteHituyo
	Dim KogitteHenkyaku

	Dim ShiireUriageSyohizei

	Dim AutoInputToggle

				
	Dim MotoEnshuCD
	Dim Add
	Add = 1
	
	EnshuCD = Request("EnshuCD")
	 	
	NRflg = Request("nr") 
	If NRflg = "r" Then 		
		 
		EnshuName = Request("EnshuName")
		EnshuKubun = Request("EnshuKubun")
		FromYmd = Request("FromYmd")
		ToYmd = Request("ToYmd")
		TaxRate = Request("TaxRate")
		DenpyoKubun = Request("DenpyoKubun")
		TradeKubun = Request("TradeKubun")
		MotoEnshuCD = Request("MotoEnshuCD") 
		ErrMsg = Request("ErrMsg") 
		EnshuID = Request("EnshuID")
		EnshuPassword = Request("EnshuPassword") 	
		
		AutoGenkinNyusyukinRireki = Request("AutoGenkinNyusyukinRireki")
		AutoYokinNyusyukinRireki = Request("AutoYokinNyusyukinRireki")
		AutoNyukoJisseki = Request("AutoNyukoJisseki")
		AutoSyukoJisseki = Request("AutoSyukoJisseki")
		AutoSyohinZaiko = Request("AutoSyohinZaiko")
		AutoUketoriTegataIchiran = Request("AutoUketoriTegataIchiran")
		AutoShiaraiTegataIchiran = Request("AutoShiaraiTegataIchiran")
		FurikaeDenpyoGyousu = Request("FurikaeDenpyoGyousu")
		GinkoMadoguchiHyoji = Request("GinkoMadoguchiHyoji")
		KinkoHyoji = Request("KinkoHyoji")
		KogitteHyoji = Request("KogitteHyoji")
		YTegataHyoji = Request("YTegataHyoji")
		KTegataHyoji = Request("KTegataHyoji")
		RyosyusyoHyoji = Request("RyosyusyoHyoji")
		KyuyoDaichoHyoji = Request("KyuyoDaichoHyoji")

		InputGenkinSuitotyo = Request("InputGenkinSuitotyo")
		InputKoguchiSuitocho = Request("InputKoguchiSuitocho")
		InputTouzayokinSuitotyo = Request("InputTouzayokinSuitotyo")
		InputUriagetyo = Request("InputUriagetyo")
		InputShiiretyo = Request("InputShiiretyo")
		InputUrikakekinMototyo = Request("InputUrikakekinMototyo")
		InputKaikakekinMototyo = Request("InputKaikakekinMototyo")
		InputUketoriTegatatyo = Request("InputUketoriTegatatyo")
		InputShiharaiTegatatyo = Request("InputShiharaiTegatatyo")
		InputSyohinAridakatyo = Request("InputSyohinAridakatyo")

		AutoGenkinSuitotyo = Request("AutoGenkinSuitotyo")
		AutoTouzayokinSuitotyo = Request("AutoTouzayokinSuitotyo")
		AutoUriagetyo = Request("AutoUriagetyo")
		AutoShiiretyo = Request("AutoShiiretyo")
		AutoUrikakekinMototyo = Request("AutoUrikakekinMototyo")
		AutoKaikakekinMototyo = Request("AutoKaikakekinMototyo")
		AutoUketoriTegatatyo = Request("AutoUketoriTegatatyo")
		AutoShiharaiTegatatyo = Request("AutoShiharaiTegatatyo")
		AutoSyohinAridakatyo = Request("AutoSyohinAridakatyo")

		KogitteHenkyaku = Request("KogitteHenkyaku")

		ShiireUriageSyohizei = Request("ShiireUriageSyohizei")

		AutoInputToggle = Request("AutoInputToggle")

		Dim CheckFlg
		CheckFlg = Request("CheckFlg")
		InputHojyobo = Mid(CheckFlg, 1 ,1)
		InputShiwaketyo = Mid(CheckFlg, 2 ,1)
		InputShiwakeShukeihyo = Mid(CheckFlg, 3 ,1)
		InputGokeiZandakaShisanhyo = Mid(CheckFlg, 4 ,1)
		InputSokanjyoMototyo = Mid(CheckFlg, 5 ,1)
		InputTaisyakuTaisyohyo = Mid(CheckFlg, 6 ,1)
		InputSonekiKeisansyo = Mid(CheckFlg, 7 ,1)
		InputHachiketaSeisanhyo = Mid(CheckFlg, 8 ,1)
		AutoShiwaketyo = Mid(CheckFlg, 9 ,1)
		AutoShiwakeShukeihyo = Mid(CheckFlg, 10 ,1)
		AutoGokeiZandakaShisanhyo = Mid(CheckFlg, 11 ,1)
		AutoSokanjyoMototyo = Mid(CheckFlg, 12 ,1)
		AutoTaisyakuTaisyohyo = Mid(CheckFlg, 13 ,1)
		AutoSonekiKeisansyo = Mid(CheckFlg, 14 ,1)
		AutoHachiketaSeisanhyo = Mid(CheckFlg, 15 ,1)
		AutoGenkinNyusyukinRireki = Mid(CheckFlg, 16 ,1)
		AutoYokinNyusyukinRireki = Mid(CheckFlg, 17 ,1)
		AutoNyukoJisseki = Mid(CheckFlg, 18 ,1)
		AutoSyukoJisseki = Mid(CheckFlg, 19 ,1)
		AutoSyohinZaiko = Mid(CheckFlg, 20 ,1)
		AutoUketoriTegataIchiran = Mid(CheckFlg, 21 ,1)
		AutoShiaraiTegataIchiran = Mid(CheckFlg, 22 ,1)
	
		FurikomiTesuryoborder = 30000
		FurikomiTesuryoJiko1 = 0
		FurikomiTesuryoJiko2 = 0
		FurikomiTesuryoTako1 = 315
		FurikomiTesuryoTako2 = 630
		JidoGinkoWaribikiRiritsu = 5
		FurikomiTesuryoTozaFutanKubun = "s"
		FurikomiTesuryoHiTozaFutanKubun = "s"

	ElseIf EnshuCD <> "" Then
		Add = 0
		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("自動転記株主資本等変動計算書表示")

			AutoInputToggle = Content.Fields("帳簿手入力自動トグル")

			EnshuID = Content.Fields("演習管理者ID")
			EnshuPassword = Content.Fields("演習管理者パスワード")
			
			RiyoGinkoKozaSyurui = 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)		
							
			FurikomiTesuryoJiko1 = Content.Fields("振込手数料低金額自行間")
			FurikomiTesuryoJiko2 = Content.Fields("振込手数料高金額自行間")
			FurikomiTesuryoTako1 = Content.Fields("振込手数料低金額他行間")
			FurikomiTesuryoTako2 = Content.Fields("振込手数料高金額他行間")
			FurikomiTesuryoBorder = Content.Fields("振込手数料高低区切金額")
			JidoGinkoWaribikiRiritsu = Content.Fields("手形割引率")
			FurikomiTesuryoTozaFutanKubun = Content.Fields("振込手数料当座振込元負担")
			FurikomiTesuryoHiTozaFutanKubun = Content.Fields("振込手数料非当座振込元負担")

			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("自動転記商品有高帳表示")

			TozaHikidashiFurikomiKogitteHituyo = "" & Content.Fields("当座引出振込小切手必要")
			KogitteHenkyaku = "" & Content.Fields("小切手返却利用")

			ShiireUriageSyohizei = "" & Content.Fields("仕入売上伝票消費税手動仕訳")


		End If	
	Else
		FromYmd = DateSerial(Year(Date()), 4, 1)
		ToYmd = DateSerial(Year(DateAdd("yyyy", 1, Date())), 3, 31)	
		

		InputHojyobo = "1"
		InputSokanjyoMototyo = "1"
		AutoShiwaketyo = "1"
		AutoShiwakeShukeihyo = "1"
		AutoGokeiZandakaShisanhyo = "1"
		AutoSokanjyoMototyo = "1"
		AutoTaisyakuTaisyohyo = "1"
		AutoSonekiKeisansyo = "1"
		AutoHachiketaSeisanhyo = "1"

		AutoGenkinNyusyukinRireki = "1"
		AutoYokinNyusyukinRireki = "1"
		AutoNyukoJisseki = "1"
		AutoSyukoJisseki = "1"
		AutoSyohinZaiko = "1"
		AutoUketoriTegataIchiran = "1"
		AutoShiaraiTegataIchiran = "1"

		FurikomiTesuryoborder = 30000
		FurikomiTesuryoJiko1 = 0
		FurikomiTesuryoJiko2 = 0
		FurikomiTesuryoTako1 = 315
		FurikomiTesuryoTako2 = 630
		JidoGinkoWaribikiRiritsu = 5
		FurikomiTesuryoTozaFutanKubun = "0"
		FurikomiTesuryoHiTozaFutanKubun = "0"
	End If

	If "" & FurikaeDenpyoGyousu = "" Then
		FurikaeDenpyoGyousu = 5
	End If

	If "" & KogitteHenkyaku = "" Then
		KogitteHenkyaku = "0"
	End If

	If "" & ShiireUriageSyohizei = "" Then
		ShiireUriageSyohizei = "0"
	End If

	If "" & AutoInputToggle = "" Then
		AutoInputToggle = "0"
	End If

	If "" & SokanjyomototyoMonthTotal = "" Then
		SokanjyomototyoMonthTotal = "0"
	End If

	Dim RouteType
	RouteType = Request("RouteType")


	Dim bType
	bType = 0
	If EnshuCD = "" Or Request("Kodo") = "1" Then
		bType = 1
	End If


	Dim PrevPage
	Dim NextPage
	PrevPage = "2"
	NextPage = "3"
	If PackageMode = 1 Then
		PrevPage = "1_view"
		NextPage = "4"
	End If


%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 2;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="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" action="fm_enshu22_bin.asp">
<input type="hidden" name="Add" value="<% = Add %>">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="DbEnshuCD" value="<% = EnshuCD%>">
<!--非利用フラグ-->
<input type="hidden" name="InputHojyobo" value="1">
<input type="hidden" name="AutoStockholderEquity" value="1">

<% 
	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("", "" ,"",  "", "", "", "", "", "", "", "", "", "", "", "", ""))
	
	Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))

	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 & ".asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu" & NextPage & ".asp?EnshuCD=" & EnshuCD & "')", "", "", "", ""))
	Else
		Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu" & PrevPage & ".asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu" & NextPage & ".asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL4("演習管理", "伝票・帳簿"))

	Response.Write(HttpL5("<font color=""#FF0000"">" & ErrMsg & "</font>"))
%>

<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="20" VALIGN="TOP" ALIGN="left" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">

						<TABLE WIDTH="900" 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">演習コード</td>
								<td height="24" align="center"><% = EnshuCD %></td>
							</tr>
						</table>
						<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
						<TABLE WIDTH="800" BORDER="0" CELLPADDING="0" CELLSPACING="0">
							<tr>
								<td valign="top">
									<TABLE WIDTH="900" HEIGHT="100%" BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
										<tr>
											<td width="260" height="39" bgcolor="#FFEE88">手入力帳簿の利用</td>
											<td width="540">
											<% If PackageMode = 1 Then %>
												<input type="hidden" name="InputShiwaketyo" value="<% = InputShiwaketyo %>">
											<% Else %>
												<input type="checkbox" name="InputShiwaketyo" value="1" <% If InputShiwaketyo= "1" Then Response.Write(" checked") End If %> class="chkdisable">仕訳帳　
											<% End If %>
												<input type="checkbox" name="InputShiwakeShukeihyo" value="1" <% If InputShiwakeShukeihyo= "1" Then Response.Write(" checked") End If %>>仕訳集計表
												　<input type="checkbox" name="InputGokeiZandakaShisanhyo" value="1" <% If InputGokeiZandakaShisanhyo= "1" Then Response.Write(" checked") End If %>>合計残高試算表
												　<input type="checkbox" name="InputHachiketaSeisanhyo" value="1" <% If InputHachiketaSeisanhyo= "1" Then Response.Write(" checked") End If %>>8桁精算表<br>
												<input type="checkbox" name="InputSokanjyoMototyo" value="1" <% If InputSokanjyoMototyo= "1" Then Response.Write(" checked") End If %>>総勘定元帳
												　<input type="checkbox" name="InputTaisyakuTaisyohyo" value="1" <% If InputTaisyakuTaisyohyo= "1" Then Response.Write(" checked") End If %>>貸借対照表
												　<input type="checkbox" name="InputSonekiKeisansyo" value="1" <% If InputSonekiKeisansyo= "1" Then Response.Write(" checked") End If %>>損益計算書
												<% If PackageMode = 1 Then %>
													<input type="hidden" name="InputStockholderEquity" value="1">
												<% Else %>
												　<input type="checkbox" name="InputStockholderEquity" value="1" <% If InputStockholderEquity= "1" Then Response.Write(" checked") End If %>>株主資本等変動計算書
												<% End If %>
											</td>
										</tr>
										<tr>
											<td height="39" bgcolor="#FFEE88">手入力補助簿の利用</td>
											<td><nobr>
												<input type="checkbox" name="InputGenkinSuitotyo" value="1" <% If InputGenkinSuitotyo= "1" Then Response.Write(" checked") End If %> class="chkdisable">現金出納帳
												　<input type="checkbox" name="InputTouzayokinSuitotyo" value="1" <% If InputTouzayokinSuitotyo= "1" Then Response.Write(" checked") End If %>>当座預金出納帳
												　<input type="checkbox" name="InputUriagetyo" value="1" <% If InputUriagetyo= "1" Then Response.Write(" checked") End If %>>売上帳
												　<input type="checkbox" name="InputShiiretyo" value="1" <% If InputShiiretyo= "1" Then Response.Write(" checked") End If %>>仕入帳
												<% If MajorVersion => 5 Then %>
												　<input type="checkbox" name="InputKoguchiSuitocho" value="1" <% If InputKoguchiSuitocho= "1" Then Response.Write(" checked") End If %>>小口現金出納帳
												<% Else %>
													<input type="hidden" name="InputKoguchiSuitocho" value="<% = InputKoguchiSuitocho %>">
												<% End If %>
												<br>
												<input type="checkbox" name="InputUrikakekinMototyo" value="1" <% If InputUrikakekinMototyo= "1" Then Response.Write(" checked") End If %>>売掛金元帳
												　<input type="checkbox" name="InputKaikakekinMototyo" value="1" <% If InputKaikakekinMototyo= "1" Then Response.Write(" checked") End If %>>買掛金元帳
												　<input type="checkbox" name="InputUketoriTegatatyo" value="1" <% If InputUketoriTegatatyo= "1" Then Response.Write(" checked") End If %>>受取手形記入帳
												　<input type="checkbox" name="InputShiharaiTegatatyo" value="1" <% If InputShiharaiTegatatyo= "1" Then Response.Write(" checked") End If %>>支払手形記入帳
												　<input type="checkbox" name="InputSyohinAridakatyo" value="1" <% If InputSyohinAridakatyo= "1" Then Response.Write(" checked") End If %>>商品有高帳
											</nobr></td>
										</tr>
										<tr>
											<td height="39" bgcolor="#FFEE88">自動転記帳簿の表示</td>
											<td>
											<% If DenpyoKubun < 1 Then %>
												<input type="hidden" name="AutoShiwaketyo" value="<% = AutoShiwaketyo %>">
											<% Else %>
												<input type="checkbox" name="AutoShiwaketyo" value="1" <% If AutoShiwaketyo= "1" Then Response.Write(" checked") End If %>>仕訳帳　
											<% End If %>
												<input type="checkbox" name="AutoShiwakeShukeihyo" value="1" <% If AutoShiwakeShukeihyo= "1" Then Response.Write(" checked") End If %>>仕訳集計表
												　<input type="checkbox" name="AutoGokeiZandakaShisanhyo" value="1" <% If AutoGokeiZandakaShisanhyo= "1" Then Response.Write(" checked") End If %>>合計残高試算表
												　<input type="checkbox" name="AutoHachiketaSeisanhyo" value="1" <% If AutoHachiketaSeisanhyo= "1" Then Response.Write(" checked") End If %>>8桁精算表<br>
												<input type="checkbox" name="AutoSokanjyoMototyo" value="1" <% If AutoSokanjyoMototyo= "1" Then Response.Write(" checked") End If %>>総勘定元帳
												　<input type="checkbox" name="AutoTaisyakuTaisyohyo" value="1" <% If AutoTaisyakuTaisyohyo= "1" Then Response.Write(" checked") End If %>>貸借対照表（残高式）
												　<input type="checkbox" name="AutoSonekiKeisansyo" value="1" <% If AutoSonekiKeisansyo= "1" Then Response.Write(" checked") End If %>>損益計算書（残高式）
											</td>
										</tr>
										<tr>
											<td height="39" bgcolor="#FFEE88">自動転記補助簿の表示</td>
											<td>
												<input type="checkbox" name="AutoGenkinSuitotyo" value="1" <% If AutoGenkinSuitotyo= "1" Then Response.Write(" checked") End If %> class="chkdisable">現金出納帳
												　<input type="checkbox" name="AutoTouzayokinSuitotyo" value="1" <% If AutoTouzayokinSuitotyo= "1" Then Response.Write(" checked") End If %>>当座預金出納帳
												　<input type="checkbox" name="AutoUriagetyo" value="1" <% If AutoUriagetyo= "1" Then Response.Write(" checked") End If %>>売上帳
												　<input type="checkbox" name="AutoShiiretyo" value="1" <% If AutoShiiretyo= "1" Then Response.Write(" checked") End If %>>仕入帳
												<br>
												<input type="checkbox" name="AutoUrikakekinMototyo" value="1" <% If AutoUrikakekinMototyo= "1" Then Response.Write(" checked") End If %>>売掛金元帳
												　<input type="checkbox" name="AutoKaikakekinMototyo" value="1" <% If AutoKaikakekinMototyo= "1" Then Response.Write(" checked") End If %>>買掛金元帳
												　<input type="checkbox" name="AutoUketoriTegatatyo" value="1" <% If AutoUketoriTegatatyo= "1" Then Response.Write(" checked") End If %>>受取手形記入帳
												　<input type="checkbox" name="AutoShiharaiTegatatyo" value="1" <% If AutoShiharaiTegatatyo= "1" Then Response.Write(" checked") End If %>>支払手形記入帳
												　<input type="checkbox" name="AutoSyohinAridakatyo" value="1" <% If AutoSyohinAridakatyo= "1" Then Response.Write(" checked") End If %>>商品有高帳
											</td>
										</tr>
									<% If PackageMode = 1 Then %>
										<input type="hidden" name="AutoInputToggle" value="0">
										<input type="hidden" name="AutoGenkinNyusyukinRireki" value="0">
										<input type="hidden" name="AutoYokinNyusyukinRireki" value="0">
										<input type="hidden" name="AutoUketoriTegataIchiran" value="0">
										<input type="hidden" name="AutoNyukoJisseki" value="0">
										<input type="hidden" name="AutoSyukoJisseki" value="0">
										<input type="hidden" name="AutoSyohinZaiko" value="0">
										<input type="hidden" name="AutoShiaraiTegataIchiran" value="0">
										<input type="hidden" name="KogitteHyoji" value="0">
										<input type="hidden" name="YTegataHyoji" value="0">
										<input type="hidden" name="KTegataHyoji" value="0">
										<input type="hidden" name="RyosyusyoHyoji" value="0">
										<input type="hidden" name="KyuyoDaichoHyoji" value="0">
									<% Else %>
										<tr>
											<td height="20" bgcolor="#FFEE88"><NOBR>帳簿メニューに自動転記帳簿を代替表示する</NOBR></td>
											<td valign="bottom">
												<INPUT type='radio' name='AutoInputToggle' value= "1" <% If AutoInputToggle = "1" Then Response.Write(" checked") End If %>>表示する　
												<INPUT type='radio' name='AutoInputToggle' value= "0" <% If AutoInputToggle = "0" Then Response.Write(" checked") End If %>>表示しない　<span class="tx1214">※「手入力非利用＋自動転記利用」設定の帳簿に限られます</span>
											</td>
										</tr>
										<tr>
											<td height="39" bgcolor="#FFEE88">現物出入履歴の表示</td>
											<td>
												<input type="checkbox" name="AutoGenkinNyusyukinRireki" value="1" <% If AutoGenkinNyusyukinRireki = "1" Then Response.Write(" checked") End If %>>現金入出金履歴
												　<input type="checkbox" name="AutoYokinNyusyukinRireki" value="1" <% If AutoYokinNyusyukinRireki = "1" Then Response.Write(" checked") End If %>>預金入出金履歴
												　<input type="checkbox" name="AutoUketoriTegataIchiran" value="1" <% If AutoUketoriTegataIchiran = "1" Then Response.Write(" checked") End If %>>受取手形履歴<br>
												<input type="checkbox" name="AutoNyukoJisseki" value="1" <% If AutoNyukoJisseki = "1" Then Response.Write(" checked") End If %>>入庫実績
												　<input type="checkbox" name="AutoSyukoJisseki" value="1" <% If AutoSyukoJisseki = "1" Then Response.Write(" checked") End If %>>出庫実績
												　<input type="checkbox" name="AutoSyohinZaiko" value="1" <% If AutoSyohinZaiko = "1" Then Response.Write(" checked") End If %>>商品在庫
												　<input type="checkbox" name="AutoShiaraiTegataIchiran" value="1" <% If AutoShiaraiTegataIchiran = "1" Then Response.Write(" checked") End If %>>支払手形履歴
											</td>
										</tr>
										<tr>
											<td height="20" bgcolor="#FFEE88">その他の機能の利用</td>
											<td>
												<input type="checkbox" name="KogitteHyoji" value="1" <% If KogitteHyoji = "1" Then Response.Write(" checked") End If %> onClick="KogitteHituyoSync(1)"<% If GinkoMadoguchiHyoji <> "1" Then Response.Write(" disabled") End If %>>小切手
												　<input type="checkbox" name="YTegataHyoji" value="1" <% If YTegataHyoji = "1" Then Response.Write(" checked") End If %><% If GinkoMadoguchiHyoji <> "1" Then Response.Write(" disabled") End If %>>約束手形
												　<input type="checkbox" name="KTegataHyoji" value="1" <% If KTegataHyoji = "1" Then Response.Write(" checked") End If %><% If GinkoMadoguchiHyoji <> "1" Then Response.Write(" disabled") End If %>>為替手形
												　<input type="checkbox" name="RyosyusyoHyoji" value="1" <% If RyosyusyoHyoji = "1" Then Response.Write(" checked") End If %>>領収書
												　<input type="checkbox" name="KyuyoDaichoHyoji" value="1" <% If KyuyoDaichoHyoji = "1" Then Response.Write(" checked") End If %>>給与台帳
											</td>
										</tr>
									<% End If %>
										<tr>
											<td height="20" bgcolor="#FFEE88">総勘定元帳の形式</td>
											<td valign="bottom">
												<INPUT type='radio' name='SokanjyomototyoHyojyunshiki' value= "1" <% If SokanjyomototyoHyojyunshiki = "1" Then Response.Write(" checked") End If %>>標準式　
												<INPUT type='radio' name='SokanjyomototyoHyojyunshiki' value= "0" <% If SokanjyomototyoHyojyunshiki = "0" Then Response.Write(" checked") End If %>>残高式
											</td>
										</tr>
										<tr>
											<td height="20" bgcolor="#FFEE88">総勘定元帳に月計・累計を表示する</td>
											<td valign="bottom">
												<INPUT type='radio' name='SokanjyomototyoMonthTotal' value= "2" <% If SokanjyomototyoMonthTotal = "2" Then Response.Write(" checked") End If %>>月計・累計を表示する　
												<INPUT type='radio' name='SokanjyomototyoMonthTotal' value= "1" <% If SokanjyomototyoMonthTotal = "1" Then Response.Write(" checked") End If %>>月計を表示する　
												<INPUT type='radio' name='SokanjyomototyoMonthTotal' value= "0" <% If SokanjyomototyoMonthTotal = "0" Then Response.Write(" checked") End If %>>月計・累計を表示しない
											</td>
										</tr>
										<tr>
											<td height="20" bgcolor="#FFEE88">帳簿残高自動計算</td>
											<td valign="bottom">
												<INPUT type='radio' name='ZandakaJidoKeisan' value= "1" <% If ZandakaJidoKeisan = "1" Then Response.Write(" checked") End If %>>自動計算する　
												<INPUT type='radio' name='ZandakaJidoKeisan' value= "0" <% If ZandakaJidoKeisan = "0" Then Response.Write(" checked") End If %>>自動計算しない
											</td>
										</tr>
									<% If PackageMode = 1 Then %>
										<input type="hidden" name="TozaHikidashiFurikomiKogitteHituyo" value="0">
										<input type="hidden" name="KogitteHenkyaku" value="0">
									<% Else %>
										<tr>
											<td height="20" bgcolor="#FFEE88">当座出金・振込時に小切手を必要とする</td>
											<td valign="bottom">
												<INPUT type='radio' name='TozaHikidashiFurikomiKogitteHituyo' value= "1" <% If TozaHikidashiFurikomiKogitteHituyo = "1" Then Response.Write(" checked") End If %> onClick="KogitteHituyoSync(2)">必要とする　
												<INPUT type='radio' name='TozaHikidashiFurikomiKogitteHituyo' value= "0" <% If TozaHikidashiFurikomiKogitteHituyo = "0" Then Response.Write(" checked") End If %>>必要としない
											</td>
										</tr>
										<tr>
											<td height="20" bgcolor="#FFEE88">受取小切手の返却を許可する</td>
											<td valign="bottom">
												<INPUT type='radio' name='KogitteHenkyaku' value= "1" <% If KogitteHenkyaku = "1" Then Response.Write(" checked") End If %> onClick="KogitteHituyoSync(2)">許可する　
												<INPUT type='radio' name='KogitteHenkyaku' value= "0" <% If KogitteHenkyaku = "0" Then Response.Write(" checked") End If %>>許可しない
											</td>
										</tr>
									<% End If %>
										<tr>
											<td height="20" bgcolor="#FFEE88">仕入売上伝票作成時の消費税の仕訳</td>
											<td valign="bottom">
												<INPUT type='radio' name='ShiireUriageSyohizei' value= "0" <% If ShiireUriageSyohizei = "0" Then Response.Write(" checked") End If %>>自動で行う　
												<INPUT type='radio' name='ShiireUriageSyohizei' value= "1" <% If ShiireUriageSyohizei = "1" Then Response.Write(" checked") End If %>>振替伝票で行う
											</td>
										</tr>
										<tr>
											<td height="20" bgcolor="#FFEE88">振替伝票の明細表示行数</td>
											<td>
												<input type="text" name="FurikaeDenpyoGyousu" value="<% = FurikaeDenpyoGyousu %>" class="tbox5" size="1" onKeyup="FormStrFloat(this,1,0);" onKeypress="FormStrFloat(this,1,0);" onBlur="FormStrFloatCutoff(this);">&nbsp;行
											</td>
										</tr>
									</table>
								</td>
							</tr>
						</table>

					</TD>
				</TR>
			</TABLE>
		</TD>
	</TR>
</TABLE>

</div>
</form>

</body>
<% = HtmlFooter %>
</html>
<SCRIPT LANGUAGE="JavaScript">

	function KogitteHituyoSync(mode) {
		if (mode == 1) {
			if (form1.KogitteHyoji.checked == false && form1.TozaHikidashiFurikomiKogitteHituyo[0].checked == true) {
				alert("小切手を利用しない設定にした場合は　\n当座口座からの引出・振込時に小切手を必要としない設定になります　");
				form1.TozaHikidashiFurikomiKogitteHituyo[1].checked = true
				return false;
			}
		}
		if (mode == 2) {
			if (form1.KogitteHyoji.checked == false && form1.TozaHikidashiFurikomiKogitteHituyo[0].checked == true) {
				alert("当座口座からの引出・振込時に小切手を必要とする設定にした場合は　\n小切手機能を利用する設定になります　");
				form1.KogitteHyoji.checked = true
				return false;
			}
		}
	}

	function SubmitCheck() {

		if (form1.FurikaeDenpyoGyousu.value == '' || ConvMoneyToInt(form1.FurikaeDenpyoGyousu.value) < 1 || ConvMoneyToInt(form1.FurikaeDenpyoGyousu.value) > 5) {
			alert("振替伝票明細行数は1～5で指定してください");
			form1.FurikaeDenpyoGyousu.focus();
			return false;
		}

		SubmitReal(form1);
		return true;
	}

		
</script> 	 

<% 
End Sub
%>