
<!-- #include file="../../include.asp" -->

<%
'<!-- 
'################################################
' 	名称	：サイバー会計 - 財務諸表メニュー
' 	作成日	：2009/10/02
' 	作成者	：小野
'################################################
'-->
%>


<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim RouteType
	RouteType = Request("RouteType")

	Dim MenuType
	MenuType = Request("MenuType")

	Dim Label
	Label = "財務諸表"

	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 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 ZaimuTaishaku
	Dim ZaimuSoneki
	Dim ZaimuCashflow
	Dim ZaimuStockholder
	Dim BunsekiSonekijisseki
	Dim BunsekiAnzensei
	Dim BunsekiShuekisei
	Dim BunsekiSonekibunki

	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("現金出納帳表示")
		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("自動転記支払手形記入帳表示")

		ZaimuTaishaku = "" & Content.Fields("財務諸表貸借対照表表示")
		ZaimuSoneki = "" & Content.Fields("財務諸表損益計算書表示")
		ZaimuCashflow = "" & Content.Fields("財務諸表キャッシュフロー計算書表示")
		ZaimuStockholder = "" & Content.Fields("財務諸表株主資本等変動計算書表示")
		BunsekiSonekijisseki = "" & Content.Fields("財務分析損益実績表示")
		BunsekiAnzensei = "" & Content.Fields("財務分析収益性表示")
		BunsekiShuekisei = "" & Content.Fields("財務分析安全性表示")
		BunsekiSonekibunki = "" & 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 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="320" 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="640" HEIGHT="75">

											<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="480" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75">
																	<tr>
																		<TD HEIGHT="77" WIDTH="120">
																		<% If ZaimuTaishaku = "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_taisyakutaisyouhyohoukoku.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">貸借対照表</TD>
																				</TR>
																			</TABLE>
																		<% End If %>
																		</TD>
																		<TD HEIGHT="77" WIDTH="120">
																		<% If ZaimuSoneki = "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_sonekikeisansyohoukoku.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">損益計算書</TD>
																				</TR>
																			</TABLE>
																		<% End If %>
																		</TD>
																		<TD HEIGHT="77" WIDTH="120">
																		<% If ZaimuStockholder = "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_stockholder_equity.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">株主資本等<br>変動計算書</TD>
																				</TR>
																			</TABLE>
																		<% End If %>
																		</TD>
																		<TD HEIGHT="77" WIDTH="120">
																		<% If ZaimuCashflow = "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_cashflow.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">キャッシュ<br>フロー<span class="tx1416">計算書</span></TD>
																				</TR>
																			</TABLE>
																		<% End If %>
																		</TD>
																	</tr>
																</TABLE>

															</td>
															<td background="/<% = HomeAlias %>/images/ndlgline_vrr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
														</tr>
														</TR>
														<!--ボタン下の隙間調節--><tr>
															<TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlr.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
															<TD HEIGHT="5" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
															<TD HEIGHT="5" 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>
												<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="75">
											<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="75">
														<TR ALIGN="CENTER" VALIGN="MIDDLE"> 
																		<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/bunseki/fk_sonekikeikaku.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">損益計画</TD>
																				</TR>
																			</TABLE>
																		</TD>
																		<TD HEIGHT="77" WIDTH="120">
																		<% If BunsekiSonekijisseki = "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/bunseki/fk_sonekijisseki_view.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">損益実績</TD>
																				</TR>
																			</TABLE>
																		<% End If %>
																		</TD>
																		<TD HEIGHT="77" WIDTH="120">
																		<% If BunsekiShuekisei = "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/bunseki/fk_syuekisei_view.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">収益性の<br>
																						分析</TD>
																				</TR>
																			</TABLE>
																		<% End If %>
																		</TD>
																		<TD HEIGHT="77" WIDTH="120">
																		<% If BunsekiAnzensei = "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/bunseki/fk_anzensei_view.asp')">
																				<TR> 
																					<TD ALIGN="CENTER">安全性の<br>
																						分析</TD>
																				</TR>
																			</TABLE>
																		<% End If %>
																		</TD>
																		<TD HEIGHT="77" WIDTH="120">
																		<% If BunsekiSonekibunki = "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/bunseki/fk_sonekibunkiten_view.asp')">
																				<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="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlr.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
												<TD HEIGHT="5" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
												<TD HEIGHT="5" 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
%>