<!-- #include file="../../../include.asp" --> <!-- #include file="../../../user/bk/tyobo/fk_gokeizandakashisanhyo_view_main_in.asp" --> <% '<!-- '################################################ ' 名称 :合計残高試算表の照会 ' 作成日:2002/8/30 ' 作成者:山崎 ' 目的 :合計残高試算表の照会画面を表示する。 ' 概要 : ' <<表示>> ' ・合計残高試算表の照会 '################################################ '--> ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub 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 PageType PageType = "合計残高試算表" Dim RouteType RouteType = Request("RouteType") Dim KurikoshiKubun KurikoshiKubun = Request("KurikoshiKubun") '決算整理後・決算振替後の場合は集計期間を会計期間にする(決算関係仕訳は全て会計終了日で仕訳けられるため) If KurikoshiKubun = "1" Or KurikoshiKubun = "2" Then Kaishibi = GB_KaikeiKaishibi Syuryobi = GB_KaikeiSyuryobi End If Dim TmpGyoshu TmpGyoshu = "" If InStr(RouteType, "SeizoBu") > 0 Then TmpGyoshu = "G" End If %> <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"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 1; --> </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="GET" action="rm_gokeizandakeshisanhyo.asp" target="_top" name="form1" autocomplete="off"> <input type="hidden" name="RouteType" value=<%= RouteType %>> <!-- <input type="hidden" name="KurikoshiKubun" value=<%= KurikoshiKubun %>> --> <% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "経理部", "", "自動転記帳簿", "", PageType, "", "", "", "", "")) ElseIf InStr(RouteType, "SeizoBu") > 0 Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", "合計残高試算表", "", "", "", "", "")) ElseIf PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "自動転記帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac3.asp?MenuType=Jido')", PageType, "", "", "", "", "", "", "")) ElseIf GB_Gyosyu <> "B" Then If InStr(RouteType, "Keiribu") > 0 Then 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, "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "財務諸表", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s41.asp')", "合計残高試算表", "", "", "")) End If ElseIf GB_Gyosyu = "B" And RouteType = "syatyo" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "財務諸表", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s41.asp')", PageType , "", "", "")) ElseIf GB_Gyosyu = "B" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo , "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "1.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_" & GB_Gyosyu & "1.asp')", "財務集計", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "11.asp')", PageType,"", "", "")) End If Response.Write(HttpL3("", "", "", "", "印刷", "PrintoutReal()", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("合計残高試算表", "")) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <TABLE BORDER="0" cellpadding="0" cellspacing="0" WIDTH="720" HEIGHT="100%"> <TR> <TD height="30" align="center"> <TABLE BORDER="1" CELLSPACING="5" bgcolor="#ffffff" style="border:1px solid #000000"> <TR> <TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" class="tx1416"> <tr> <td> <table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416"> <tr> <td> <table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416"> <tr> <td> 集計日:</td> <td><input type="text" name="Kaishibi" size="12" value="<% = Kaishibi %>" onBlur="SetDate(this, 1, true)" class="tbox4"> ~ <input type="text" name="Syuryobi" size="12" value="<% = Syuryobi %>" onBlur="SetDate(this, 1, true)" class="tbox4"></td> </tr> </table> </td> <td width="1"> </td> <td> <TABLE onClick="form1.KurikoshiKubun.value='0';SubmitReal(form1);" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="80"> <TR> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"> </TD> <TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" WIDTH="60">更新</TD> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"> </TD> </TR> </TABLE> </td> <% If InStr(RouteType, "SeizoBu") < 1 Then %> <td width="10"> </td> <!-- <td> <TABLE onClick="form1.KurikoshiKubun.value='1';SubmitReal(form1);" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="120"> <TR> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_<% If KurikoshiKubun = "1" Then %>r<% Else %>b<% End If %>l.gif?<% = GB_STU %>"> </TD> <TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_<% If KurikoshiKubun = "1" Then %>r<% Else %>b<% End If %>c.gif?<% = GB_STU %>" WIDTH="100">決算整理後</TD> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_<% If KurikoshiKubun = "1" Then %>r<% Else %>b<% End If %>r.gif?<% = GB_STU %>"> </TD> </TR> </TABLE> </td> <td width="10"> </td> <td> <TABLE onClick="form1.KurikoshiKubun.value='2';SubmitReal(form1);" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="120"> <TR> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_<% If KurikoshiKubun = "2" Then %>r<% Else %>b<% End If %>l.gif?<% = GB_STU %>"> </TD> <TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_<% If KurikoshiKubun = "2" Then %>r<% Else %>b<% End If %>c.gif?<% = GB_STU %>" WIDTH="100">決算振替後</TD> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_<% If KurikoshiKubun = "2" Then %>r<% Else %>b<% End If %>r.gif?<% = GB_STU %>"> </TD> </TR> </TABLE> </td> --> <td>集計範囲:</td> <td> <select name="KurikoshiKubun" class="tbox4" onChange="SubmitReal(form1);"> <option value="0">決算整理前</option> <option value="1"<% If KurikoshiKubun = "1" Then %> selected<% End If %>>決算整理後</option> <option value="2"<% If KurikoshiKubun = "2" Then %> selected<% End If %>>決算振替後</option> </select> </td> <% End If %> </tr> </table> </td> </tr> </table> </td> </tr> </table> </TD> </TR> <TR> <TD align="center"> <% Dim FromTo FromTo = Syuryobi If Kaishibi <> "" Then FromTo = Kaishibi & ";" & FromTo End If Response.Write(TyoboGokeiZandakaShisanhyo(EnshuCD, KaisyaCD, KaisyaCD, "LC", "", 1, 0, FromTo, KurikoshiKubun, TmpGyoshu)) %> </TD> </TR> </table> </div> </form> </body> <% = HtmlFooter %> </html> <% End Sub %>