<% = AppTitle %>

<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = "仕訳帳" Dim Url Url = Request.ServerVariables("URL") %> <% = AppTitle %>

" name="form1"> <% 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( '/sj4web/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/sj4web/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/sj4web/user/bk/menu_s1.asp')", "帳簿", "tblbtn( '/sj4web/user/bk/menu_s12.asp')", PageType, "tblbtn( '" & Url & "')", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の挿入", "SpreadInsertItem(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", "")) Response.Write(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, "")) %>

資産

負債

<% If MHMKANJOSAIMOKC <> "" Then Response.Write(MHMKANJOSAIMOKC) Else Response.Write("資本") End If %>

収益

費用

営業外損益

特別損益

その他

全勘定

<% = SetStringInsertSpace(PageType) %>

<% Dim KanjyoCDCol KanjyoCDCol = 2 %> <% = HtmlFooter %> <% End Sub %>