<!-- #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" 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" 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
%>