<% = AppTitle %>

<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If 'MHMKANJOSAIMOKC = "" 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 Shiwakebi Shiwakebi = "0" If ShiwakebiSelect = 1 Then Shiwakebi = GetEnshuParam(EnshuCD, "日付仕訳日指定") End If ' Shiwakebi = "0" ' Shiwakebi = "1" Dim TmpShiwakebiAry If Shiwakebi = "1" Then Query = "" Query = Query & " " Query = Query & " " Query = Query & " SELECT 取引日 " Query = Query & " FROM TSK伝票F " Query = Query & " WHERE 削除フラグ = 0 " Query = Query & " AND システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " AND 会社CD = '" & KaisyaCD & "' " Query = Query & " GROUP BY 取引日 " Query = Query & " ORDER BY 取引日 DESC " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) TmpShiwakebiAry = TmpShiwakebiAry & "\t" & SetTimeYYYYMMDD(Content.Fields("取引日")) Content.MoveNext Loop End If 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" autocomplete="off"> <% 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('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "手入力帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac3.asp')", PageType, "", "", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp')", PageType, "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If KanjyoCD <> "" And ChkKanjyoCD = 1 Then '当該勘定CDに対する勘定科目が無ければ保存ボタンを表示しない（061116小野） ' If KanjyoCD <> "" Then '※HttpL3_1にボタンを追加する事前処理（210107小野） Call HttpL3_1_AddBtn("行↑", "SpreadShiftRowSub(document.vaSpread1, 'Up');", "行↓", "SpreadShiftRowSub(document.vaSpread1, 'Dn');", "", "", "", "", "", "") 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(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&KanjyoCD=" & KanjyoCD & "')", "印刷", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&KanjyoCD=" & KanjyoCD & "&AutoPrint=1')", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, "")) %>

970<% Else %>450<% End If %>" CELLSPACING="5" CELLPADDING="0" HEIGHT="100%" STYLE="BORDER:1px solid #000000; border-collapse:collapse" bgcolor="#FFFFFF"> <% If KanjyoCD <> "" Then %> <% If PackageMode = 1 Then %> <% Else %> <% End If %> <% End If %>

元帳勘定科目

　

<% = Spacer(1,1) %>資産<% = Spacer(2,1) %>

<% = Spacer(2,1) %>負債<% = Spacer(2,1) %>

<% = Spacer(2,1) %><% If MHMKANJOSAIMOKC <> "" Then Response.Write(MHMKANJOSAIMOKC) Else Response.Write("資本") End If %><% = Spacer(2,1) %>

<% = Spacer(2,1) %>収益<% = Spacer(2,1) %>

<% = Spacer(2,1) %>費用<% = Spacer(2,1) %>

<% = Spacer(2,1) %>営業外<% = Spacer(2,1) %>

<% = Spacer(2,1) %>特別<% = Spacer(2,1) %>

<% = Spacer(2,1) %>その他<% = Spacer(2,1) %>

<% = Spacer(2,1) %>全て<% = Spacer(1,1) %>

　

取引先市場

相手勘定科目

　

<% = Spacer(1,1) %>資産<% = Spacer(2,1) %>

<% = Spacer(2,1) %>負債<% = Spacer(2,1) %>

<% = Spacer(2,1) %><% If MHMKANJOSAIMOKC <> "" Then Response.Write(MHMKANJOSAIMOKC) Else Response.Write("資本") End If %><% = Spacer(2,1) %>

<% = Spacer(2,1) %>収益<% = Spacer(2,1) %>

<% = Spacer(2,1) %>費用<% = Spacer(2,1) %>

<% = Spacer(2,1) %>営業外<% = Spacer(2,1) %>

<% = Spacer(2,1) %>特別<% = Spacer(2,1) %>

<% = Spacer(2,1) %>その他<% = Spacer(2,1) %>

<% = Spacer(2,1) %>全て<% = Spacer(1,1) %>

　

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

<% If KanjyoCD <> "" Then %>

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

<% End If %>

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