<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim SyoriKubun SyoriKubun = Request("SyoriKubun") If SyoriKubun = "" Then SyoriKubun = "1" End If Dim PageType PageType = "仕訳帳" Dim Label Dim SenColor Dim SenWidth Label = "" SenColor = "#000000" SenWidth = "1" If SyoriKubun = "9" Then Label = "決算整理" SenColor = "#237D45" SenWidth = "3" ElseIf SyoriKubun = "10" Then Label = "決算振替" SenColor = "#996633" SenWidth = "3" End If Dim Url Url = Request.ServerVariables("URL") Dim DenpyoNo DenpyoNo = Request("DenpyoNo") Dim Torihikibi Torihikibi = Request("Torihikibi") If Torihikibi = "null" Then Torihikibi = "" End If Dim TorihikisakiCD Dim Tekiyo '取引先を先に取得 If PackageMode = 1 And DenpyoNo <> "" Then Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & DenpyoNo & "', 'S'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("摘要CD") <> "" Then TorihikisakiCD = Content.Fields("摘要CD") Exit Do End If Content.MoveNext Loop End If '自動番号伝票・実践日フラグ取得(サイバー会計モード仕訳帳のため) Dim JidoBangoDenpyo Dim Jissenbi Jissenbi = "" Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then JidoBangoDenpyo = "" & Content.Fields("自動番号伝票") Jissenbi = "" & 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, "", "", "", "", "", "", "")) Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.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 DenpyoNo <> "" Then 'Response.Write(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&SyoriKubun=" & SyoriKubun & "&DenpyoNo=" & DenpyoNo & "')", "削除", "SakujoCheck();", "", "", "", "", "", "")) Response.Write(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&SyoriKubun=" & SyoriKubun & "&DenpyoNo=" & DenpyoNo & "')", "削除", "SakujoCheck();", "印刷", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&SyoriKubun=" & SyoriKubun & "&DenpyoNo=" & DenpyoNo & "&AutoPrint=1')", "", "", "", "")) Else 'Response.Write(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&SyoriKubun=" & SyoriKubun & "&DenpyoNo=" & DenpyoNo & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&SyoriKubun=" & SyoriKubun & "&DenpyoNo=" & DenpyoNo & "')", "印刷", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&SyoriKubun=" & SyoriKubun & "&DenpyoNo=" & DenpyoNo & "&AutoPrint=1')", "", "", "", "", "", "")) End If Response.Write(HttpL4(PageType, Label)) %>
<% Dim KanjyoCDCol KanjyoCDCol = 1 %> <% Dim iii For iii = 1 To 3 If iii <> 2 Then %> <% If iii <> 3 Then %> <% End If %> <% End If Next %> <% = HtmlFooter %> <% End Sub %>