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