<% ' ' %> <% 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 = SetTimeYYYYMMDD(Content.Fields("取引日")) End If %> <% = 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("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) ' Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の挿入", "SpreadInsertItem(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", "")) ' Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の挿入", "SpreadInsertItem(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "借方行削除", "KariKashiDelItem('Kari');", "貸方行削除", "KariKashiDelItem('Kashi');")) '※HttpL3_1にボタンを追加する事前処理（210107小野） Call HttpL3_1_AddBtn("借行↑", "SpreadShiftRowSub(document.vaSpread1, 'Up', 1, 3);", "借行↓", "SpreadShiftRowSub(document.vaSpread1, 'Dn', 1, 3);", "貸行↑", "SpreadShiftRowSub(document.vaSpread1, 'Up', 4, 6);", "貸行↓", "SpreadShiftRowSub(document.vaSpread1, 'Dn', 4, 6);", "", "") Response.Write(HttpL3_1("保存", "SubmitCheck()", "行追加", "SpreadAddItem2(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行挿入", "SpreadInsertItem(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "借行削除", "KariKashiDelItem('Kari');", "貸行削除", "KariKashiDelItem('Kashi');")) 'Response.Write(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "')", "印刷", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&AutoPrint=1')", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, "")) %>
<% Dim KanjyoCDCol1, KanjyoCDCol2 KanjyoCDCol1 = 1 KanjyoCDCol2 = 4 %> <% = HtmlFooter %> <% End Sub %>