<!-- #include file="../../include.asp" -->

<%
'<!-- 
'################################################
' 	名称	:サイバー会計 - 帳簿メニュー
' 	作成日	:2009/10/01
' 	作成者	:小野
'################################################
'-->
%>


<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim RouteType
	RouteType = Request("RouteType")

	Dim MenuType
	MenuType = Request("MenuType")

	Dim Label
	Label = "手入力帳簿"
	If MenuType = "Jido" Then
		Label = "自動転記帳簿"
	End If

	Dim Query, Content
	Dim Hojyobo
	Dim InputShiwaketyo, InputShiwakeShukeihyo, InputGokeiZandakaShisanhyo, InputSokanjyoMototyo
	Dim InputTaisyakuTaisyohyo, InputSonekiKeisansyo, InputHachiketaSeisanhyo, InputStockholderEquity
	Dim AutoShiwaketyo, AutoShiwakeShukeihyo, AutoGokeiZandakaShisanhyo, AutoSokanjyoMototyo
	Dim AutoTaisyakuTaisyohyo, AutoSonekiKeisansyo, AutoHachiketaSeisanhyo, AutoStockholderEquity
	Dim RiyoDenpyoSu	
	Dim InputHojyobo 
	Dim SokanjyomototyoHyojyunshiki

	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

	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" 
	Set Content = OpenQuery(Query)

		
	If Not(Content.BOF Or Content.EOF) Then
	
		RiyoDenpyoSu = 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("自動転記株主資本等変動計算書表示")

		SokanjyomototyoHyojyunshiki = 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("自動転記商品有高帳表示")

	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" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<% 
	If InStr(RouteType, "HojyoboOnly") > 0 Then
		Response.Write(HtmlDesign(2))
	Else
		Response.Write(HtmlDesign(1))
	End If

	Response.Write(HttpL1(3))
	
	Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", Label, "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
	
	Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL4(Label, ""))

	Response.Write(HttpL5(""))
	
	
%>
								
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
	<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
		<tr> 
			<td align="CENTER" valign="MIDDLE"> 
				<TABLE WIDTH="420" HEIGHT="320" BORDER="0" CELLSPACING="5" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000">
					<tr> 
						<td align="CENTER" valign="MIDDLE" background="/<% = HomeAlias %>/images/wdwbk_r.gif?<% = GB_STU %>">
							<TABLE WIDTH="680" HEIGHT="480" BORDER="0" CELLSPACING="0" CELLPADDING="0">
							<!--
								<TR> 
									<TD HEIGHT="20" WIDTH="20" background="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
									<TD HEIGHT="20" ALIGN="CENTER" background="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>"> 
										<TABLE WIDTH="150" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="20" style="border-collapse: collapse" bordercolor="#111111">
											<TR> 
												<TD ALIGN="CENTER" VALIGN="BOTTOM" CLASS="tx2022mn">【 帳簿 】</TD> 
											</TR>
										</TABLE>
									</TD>
									<TD HEIGHT="20" WIDTH="20" background="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
								</TR> 			
								-->											 
								<TR> 
									<TD HEIGHT="20" WIDTH="20" CLASS="tx1214"> </TD>
									<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_r.gif?<% = GB_STU %>"> 
									
										<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" width="540" HEIGHT="120">

											<TR> 
												<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
												<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_r.gif?<% = GB_STU %>"> 
													<table border="0" cellspacing="0" cellpadding="0" width="640">
														<tr>
															<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_lur.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
															<TD HEIGHT="20" ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hur.gif?<% = GB_STU %>"> 
																<TABLE WIDTH="150" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hhr.gif?<% = GB_STU %>" style="border-collapse: collapse" bordercolor="#111111">
																	<TR> 
																		<TD ALIGN="CENTER" VALIGN="BOTTOM" CLASS="tx2022mn">【 主要帳簿 】</TD>	
																	</TR>
																</TABLE>
															</TD>
															<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rur.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
														</tr>
														<tr>
															<td background="/<% = HomeAlias %>/images/ndlgline_vlr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
															<td background="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>" align="center">

																<TABLE WIDTH="<% If RiyoDenpyoSu > 0 And MenuType = "Jido" And AutoShiwaketyo = "1" Then %>480<% Else %>360<% End If %>" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="120">
																	<tr>
																		<TD HEIGHT="77" WIDTH="120">
																		<% If MenuType = "Jido" And AutoSokanjyoMototyo = "1" Then %>
																			<% If SokanjyomototyoHyojyunshiki = "1" Then %>
																			<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/jidotyobo/rm_sokanjyomototyohyojyun.asp')">
																			<% Else %>
																			<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/jidotyobo/rm_sokanjyomototyo.asp')">
																			<% End If %>
																				<TR> 
																					<TD ALIGN="CENTER">総勘定元帳</TD>
																				</TR>
																			</TABLE>
																		<% ElseIf MenuType <> "Jido" And InputSokanjyoMototyo = "1" Then %>
																			<% If SokanjyomototyoHyojyunshiki = "1" Then %>
																			<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/tyobo/fk_sokanjyomototyohyojyun.asp')">
																			<% Else %>
																			<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/tyobo/fk_sokanjyomototyo.asp')">
																			<% End If %>
																				<TR> 
																					<TD ALIGN="CENTER">総勘定元帳</TD>
																				</TR>
																			</TABLE>
																		<% End If %>
																		</TD>
																		<TD HEIGHT="77" WIDTH="120">
																			<% If MenuType = "Jido" And AutoShiwakeShukeihyo = "1" Then %>
																			<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/jidotyobo/rm_shiwakesyukeihyo.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">仕訳集計表</TD>
																				</TR>
																			</TABLE>
																			<% ElseIf MenuType <> "Jido" And InputShiwakeShukeihyo = "1" Then %>
																			<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/tyobo/fk_shiwakesyukeihyo.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">仕訳集計表</TD>
																				</TR>
																			</TABLE>
																			<% End If %>
																		</TD>
																		<TD HEIGHT="77" WIDTH="120">
																			<% If MenuType = "Jido" And AutoGokeiZandakaShisanhyo = "1" Then %>
																			<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/jidotyobo/rm_gokeizandakeshisanhyo.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">合計残高<br>試算表</TD>
																				</TR>
																			</TABLE>
																			<% ElseIf MenuType <> "Jido" And InputGokeiZandakaShisanhyo = "1" Then %>
																			<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/tyobo/fk_gokeizandakashisanhyo.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">合計残高<br>試算表</TD>
																				</TR>
																			</TABLE>
																			<% End If %>
																		</TD>
																		<% If RiyoDenpyoSu > 0 And MenuType = "Jido" And AutoShiwaketyo = "1" Then %>
																		<TD HEIGHT="77" WIDTH="120">
																			<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/jidotyobo/rm_shiwaketyo.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">仕訳帳</TD>
																				</TR>
																			</TABLE>
																		</TD>
																		<% End If %>
																	</tr>
																	<tr>
																		<TD HEIGHT="77" WIDTH="120">
																			<% If MenuType = "Jido" And AutoTaisyakuTaisyohyo = "1" Then %>
																			<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/jidotyobo/rm_taisyakutaisyouhyo.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">貸借対照表<br>(残高式)</TD>
																				</TR>
																			</TABLE>
																			<% ElseIf MenuType <> "Jido" And InputTaisyakuTaisyohyo = "1" Then %>
																			<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/tyobo/fk_taisyakutaisyohyo.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">貸借対照表<br>(残高式)</TD>
																				</TR>
																			</TABLE>
																			<% End If %>
																		</TD>
																		<TD HEIGHT="77" WIDTH="120">
																			<% If MenuType = "Jido" And AutoSonekiKeisansyo = "1" Then %>
																			<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/jidotyobo/rm_sonekikeisansyo.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">損益計算書<br>(残高式)</TD>
																				</TR>
																			</TABLE>
																			<% ElseIf MenuType <> "Jido" And InputSonekiKeisansyo = "1" Then %>
																			<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/tyobo/fk_sonekikeisansyo.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">損益計算書<br>(残高式)</TD>
																				</TR>
																			</TABLE>
																			<% End If %>
																		</TD>
																		<TD HEIGHT="77" WIDTH="120">
																			<% If MenuType = "Jido" And AutoHachiketaSeisanhyo = "1" Then %>
																			<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/jidotyobo/rm_hachiketaseisanhyo.asp?Default=1')">
																				<TR> 
																					<TD ALIGN="CENTER">八桁精算表</TD>
																				</TR>
																			</TABLE>
																			<% ElseIf MenuType <> "Jido" And InputHachiketaSeisanhyo = "1" Then %>
																			<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/tyobo/fk_hachiketaseisanhyo.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">八桁精算表</TD>
																				</TR>
																			</TABLE>
																			<% End If %>
																		</TD>
																	</TR>
																</TABLE>						

															</td>
															<td background="/<% = HomeAlias %>/images/ndlgline_vrr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
														</tr>
														<tr>
															<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_ldr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
															<TD HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hdr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
															<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rdr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
														</tr>
													</table>


												</TD>
												<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vrr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
											</TR>

										</TABLE>
									<TD HEIGHT="20" WIDTH="20" CLASS="tx1214"> </TD>
								</TR>
								<TR> 
									<TD HEIGHT="20" WIDTH="20" CLASS="tx1214"> </TD>																
									<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_r.gif?<% = GB_STU %>"> 
									
										<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" width="640" HEIGHT="160">
											<TR> 
												<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_lur.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
												<TD HEIGHT="20" ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hur.gif?<% = GB_STU %>"> 
													<TABLE WIDTH="130" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hhr.gif?<% = GB_STU %>" style="border-collapse: collapse" bordercolor="#111111">
														<TR> 
															<TD ALIGN="CENTER" VALIGN="BOTTOM" CLASS="tx2022mn">【 補 助 簿 】</TD>
														</TR>
													</TABLE>
												</TD>
												<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rur.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
											</TR>
											<TR> 
												<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
												<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>"> 
													<TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="120">
														<TR ALIGN="CENTER" VALIGN="MIDDLE"> 
															<TD HEIGHT="77" WIDTH="120">
																<% If MenuType = "Jido" And AutoGenkinSuitotyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/jidotyobo/rm_hojobo.asp?PageType=AA')">
																	<TR> 
																		<TD ALIGN="CENTER">現金出納帳</TD>
																	</TR>
																</TABLE>
																<% ElseIf MenuType <> "Jido" And InputGenkinSuitotyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/hojyobo/fk_genkinsuitotyo.asp?RouteType=<% = RouteType %>')">
																	<TR> 
																		<TD ALIGN="CENTER">現金出納帳</TD>
																	</TR>
																</TABLE>
																<% End If %>
															</TD>
															<TD HEIGHT="77" WIDTH="120">
																<% If MenuType = "Jido" And AutoTouzayokinSuitotyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/jidotyobo/rm_hojobo.asp?PageType=AB')">
																	<TR> 
																		<TD ALIGN="CENTER">当座預金<br>出納帳</TD>
																	</TR>
																</TABLE>
																<% ElseIf MenuType <> "Jido" And InputTouzayokinSuitotyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/hojyobo/fk_touzayokinsuitotyo.asp?RouteType=<% = RouteType %>')">
																	<TR> 
																		<TD ALIGN="CENTER">当座預金<br>出納帳</TD>
																	</TR>
																</TABLE>
																<% End If %>
															</TD>
															<TD HEIGHT="77" WIDTH="120">
																<% If MenuType = "Jido" And AutoUriagetyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/jidotyobo/rm_hojobo.asp?PageType=AG')">
																	<TR> 
																		<TD ALIGN="CENTER">売上帳</TD>
																	</TR>
																</TABLE>
																<% ElseIf MenuType <> "Jido" And InputUriagetyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/hojyobo/fk_shiireuriagetyo.asp?RouteType=<% = RouteType %>&PageType=Uriage')">
																	<TR> 
																		<TD ALIGN="CENTER">売上帳</TD>
																	</TR>
																</TABLE>
																<% End If %>
															</TD>

															<TD HEIGHT="77" WIDTH="120">
																<% If MenuType = "Jido" And AutoShiiretyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/jidotyobo/rm_hojobo.asp?PageType=AH')">
																	<TR>
																		<TD ALIGN="CENTER">仕入帳</TD>
																	</TR>
																</TABLE>
																<% ElseIf MenuType <> "Jido" And InputShiiretyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/hojyobo/fk_shiireuriagetyo.asp?RouteType=<% = RouteType %>&PageType=Shiire')">
																	<TR>
																		<TD ALIGN="CENTER">仕入帳</TD>
																	</TR>
																</TABLE>
																<% End If %>
															</TD>

															<TD HEIGHT="77" WIDTH="120">
															<% If MajorVersion => 5 Then %>
																<% If MenuType <> "Jido" And InputKoguchiSuitocho = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/hojyobo/fk_koguchisuitocho.asp?RouteType=<% = RouteType %>')">
																	<TR>
																		<TD ALIGN="CENTER">小口現金<br>出納帳</TD>
																	</TR>
																</TABLE>
																<% End If %>
															<% End If %>
															</TD>
														</TR>
														<TR ALIGN="CENTER" VALIGN="MIDDLE"> 															
															<TD HEIGHT="77" WIDTH="120">
																<% If MenuType = "Jido" And AutoUrikakekinMototyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/jidotyobo/rm_hojobo.asp?PageType=AC')">
																	<TR> 
																		<TD ALIGN="CENTER">売掛金元帳</TD>
																	</TR>
																</TABLE>
																<% ElseIf MenuType <> "Jido" And InputUrikakekinMototyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/hojyobo/fk_urikaikakekintyo.asp?RouteType=<% = RouteType %>&PageType=Urikake')">
																	<TR> 
																		<TD ALIGN="CENTER">売掛金元帳</TD>
																	</TR>
																</TABLE>
																<% End If %>
															</TD>
															<TD HEIGHT="77" WIDTH="120">
																<% If MenuType = "Jido" And AutoKaikakekinMototyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>"	onClick="tblbtn( '/<% = HomeAlias %>/user/bk/jidotyobo/rm_hojobo.asp?PageType=AD')">
																	<TR> 
																		<TD ALIGN="CENTER">買掛金元帳</TD>
																	</TR>
																</TABLE>
																<% ElseIf MenuType <> "Jido" And InputKaikakekinMototyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>"	onClick="tblbtn( '/<% = HomeAlias %>/user/bk/hojyobo/fk_urikaikakekintyo.asp?RouteType=<% = RouteType %>&PageType=Kaikake')">
																	<TR> 
																		<TD ALIGN="CENTER">買掛金元帳</TD>
																	</TR>
																</TABLE>
																<% End If %>
															</TD>
															<TD HEIGHT="77" WIDTH="120">
																<% If MenuType = "Jido" And AutoSyohinAridakatyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>"	onClick="tblbtn( '/<% = HomeAlias %>/user/bk/syokaisyukei/fk_syohinaridakatyo_view.asp?Mode=Shiwake')">
																	<TR> 
																		<TD ALIGN="CENTER">商品有高帳</TD>
																	</TR>
																</TABLE>
																<% End If %>
																<% If MenuType <> "Jido" And InputSyohinAridakatyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>"	onClick="tblbtn( '/<% = HomeAlias %>/user/bk/hojyobo/fk_syohinaridakatyo.asp?RouteType=<% = RouteType %>')">
																	<TR> 
																		<TD ALIGN="CENTER">商品有高帳</TD>
																	</TR>
																</TABLE>
																<% End If %>
															</TD>
															<TD HEIGHT="77" WIDTH="120">
																<% If MenuType = "Jido" And AutoUketoriTegatatyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk//jidotyobo/rm_hojobo.asp?PageType=AE')">
																	<TR> 
																		<TD ALIGN="CENTER">受取手形<br>記入帳</TD>
																	</TR>
																</TABLE>
																<% ElseIf MenuType <> "Jido" And InputUketoriTegatatyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/hojyobo/fk_uketorisiharaitegatatyo.asp?RouteType=<% = RouteType %>&PageType=Uketori')">
																	<TR> 
																		<TD ALIGN="CENTER">受取手形<br>記入帳</TD>
																	</TR>
																</TABLE>
																<% End If %>
															</TD>
															<TD HEIGHT="77" WIDTH="120">
																<% If MenuType = "Jido" And AutoShiharaiTegatatyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/jidotyobo/rm_hojobo.asp?PageType=AF')">
																	<TR> 
																		<TD ALIGN="CENTER">支払手形<br>記入帳</TD>
																	</TR>
																</TABLE>
																<% ElseIf MenuType <> "Jido" And InputShiharaiTegatatyo = "1" Then %>
																<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/hojyobo/fk_uketorisiharaitegatatyo.asp?RouteType=<% = RouteType %>&PageType=Shiharai')">
																	<TR> 
																		<TD ALIGN="CENTER">支払手形<br>記入帳</TD>
																	</TR>
																</TABLE>
																<% End If %>
															</TD>
														</TR>
													</TABLE>

												</TD>
												<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vrr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
											</TR>
											<TR> 
												<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_ldr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
												<TD HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hdr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
												<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rdr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
											</TR>
										</TABLE>
									<TD HEIGHT="20" WIDTH="20" CLASS="tx1214"> </TD>
								</TR>

							</TABLE>
						</td>
					</tr>
				</table>
			</td>
		</tr>
	</table>

</div>

</body>
<% = HtmlFooter %>
</html>
<% 
End Sub
%>