<% = 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 Torihikibi ' Query = "exec SPK帳簿_合計残高試算表取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" ' Set Content = OpenQuery(Query) ' If Not(Content.BOF OR Content.EOF) Then ' Torihikibi = Content.Fields("取引日") ' End If Torihikibi = Request("Torihikibi") If Torihikibi = "null" Then Torihikibi = "" End If Dim AutoZandakaNyuryoku AutoZandakaNyuryoku = GetEnshuParam(EnshuCD, "残高自動計算") %> <% = 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("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) '※HttpL3_1にボタンを追加する事前処理（210107小野） Call HttpL3_1_AddBtn("行↑", "SpreadShiftRowSub(document.vaSpread1, 'Up');", "行↓", "SpreadShiftRowSub(document.vaSpread1, 'Dn');", "", "", "", "", "", "") Response.Write(HttpL3_1("保存", "SubmitCheck()", "行追加", "SpreadAddItem2(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行挿入", "SpreadInsertItem(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行削除", "SpreadDelItem(document.vaSpread1);", "", "")) If Torihikibi = "" Then Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&Torihikibi=" & Torihikibi & "')", "印刷", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&Torihikibi=" & Torihikibi & "&AutoPrint=1')", "", "", "", "", "", "")) End If Response.Write(HttpL4(PageType, "")) %>

日付

勘定科目

<% = 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) %>

日付：

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