<% = 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") Dim KanjyoCD KanjyoCD = Request("KanjyoCD") Dim AutoZandakaNyuryoku AutoZandakaNyuryoku = GetEnshuParam(EnshuCD, "残高自動計算") Dim TaisyakuKubun '↓↓↓当該勘定CDに対する勘定科目の存在確認（061116小野） Dim ChkKanjyoCD ChkKanjyoCD = 0 Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("勘定CD") = KanjyoCD Then ChkKanjyoCD = 1 End If Content.MoveNext Loop '↑↑↑当該勘定CDに対する勘定科目の存在確認（061116小野） %> <% = AppTitle %>

" name="form1"> <% If InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HtmlDesign(2)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/sj4web/user/bk/menu_cyac.asp')", "手入力帳簿", "tblbtn( '/sj4web/user/bk/menu_cyac3.asp')", PageType, "", "", "", "", "", "", "")) Else 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, "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If KanjyoCD <> "" And ChkKanjyoCD = 1 Then '当該勘定CDに対する勘定科目が無ければ保存ボタンを表示しない（061116小野） ' If KanjyoCD <> "" Then Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);SetTorihikisakiShijoList(form1.TorihikisakiShijo.value);", "行の挿入", "SpreadInsertItem(document.vaSpread1);SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);SetTorihikisakiShijoList(form1.TorihikisakiShijo.value);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", "")) End If Response.Write(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&KanjyoCD=" & KanjyoCD & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, "")) %>

<% If KanjyoCD <> "" Then %> <% If PackageMode = 1 Then %> <% Else %> <% End If %> <% End If %>

元帳勘定科目

資産

負債

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

収益

費用

営業外

特別

他

全

取引先市場

相手勘定科目

資産

負債

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

収益

費用

営業外

特別

他

全

	<% = SetStringInsertSpace(PageType) %>
	<% = ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KanjyoCD) %>

<% If KanjyoCD <> "" Then %>

<% Else %> 上のメニューより入力対象の勘定科目を選択してください

<% End If %>

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