<!-- #include file="../../../include.asp" --> <!-- #include file="../../../user/bk/tyobo/fk_hachiketaseisanhyo_view_main_in.asp" --> <% '<!-- '################################################ ' 名称 :元帳転記 ' 作成日 :2002/8/30 ' 作成者 :山崎 ' 目的 :元帳転記の画面を表示する。 ' 概要 : ' <<表示>> ' ・仕訳表の照会と元帳の入力 '################################################ '--> ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If '振替記入にトグルするためのフラグ(081021小野) Dim Kimatsu Kimatsu = Request("Kimatsu") Dim Param2 Param2 = "" If Kimatsu = "Kurikoshi" Then Param2 = "1" End If Dim Kaishibi Dim Syuryobi Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim Query Dim Content Dim ii, jj Dim PageType PageType = "精算表整理記入" If Kimatsu = "Kurikoshi" Then PageType = "精算表振替記入" End If Dim RouteType RouteType = Request("RouteType") %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=shift_jis"> <meta http-equiv="Pragma" content="no-cache"> <meta http-equiv="Cache-Control" content="no-cache"> <meta http-equiv="Expires" content="-1"> <link href="../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css"> <link href="../../../binx/sj3tyobored11.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css"> <title><% = AppTitle %></title> <script language="JScript" src="../../../include.js?<% = TimeUniq() %>"></script> <script language="JScript" src="../../../includesj.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../../include_enc.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../../includesj_enc.js?<% = TimeUniq() %>"></script> <script type=""text/javascript"" src="../../../javascript.js?<% = TimeUniq() %>"></script> </head> <SCRIPT LANGUAGE="JavaScript"> <!-- ExitFlg = 1; HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <form OnKeyDown="FormKeyDown(this)" method="POST" action="rm_hachiketaseisanhyo.asp" target="_top" name="form1"> <input type="hidden" name="RouteType" value="<% = RouteType %>"> <% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) 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')", PageType, "", "", "", "", "", "", "", "", "")) ElseIf RouteType = "Ginko" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_b1.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')", PageType, "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("入力", "tblbtn('fk_seisanhyo.asp?Kimatsu=" & Kimatsu & "&RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, "")) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <% Response.Write(TyoboHachiketaSeisanhyo(EnshuCD, KaisyaCD, KaisyaCD, "LG", "", 1, 0, Syuryobi, Param2, RouteType)) %> </div> </form> </body> <% = HtmlFooter %> <% End Sub %>