<!-- #include file="../../../include.asp" --> <!-- #include file="../../../user/bk/tyobo/fk_sokanjyomototyohyojyun_view_main_in.asp" --> <% '<!-- '################################################ ' 名称 :帳簿_総勘定元帳の照会 ' 作成日:2003/1/23 ' 作成者:山崎 ' 目的 :帳簿_総勘定元帳の照会画面を表示する。 ' 概要 : ' <<表示>> ' ・帳簿_総勘定元帳の照会 '################################################ '--> ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim PageType PageType = "総勘定元帳" Dim RouteType RouteType = Request("RouteType") Dim KanjyoCD KanjyoCD = Request("KanjyoCD") Dim Url Url = Request.ServerVariables("URL") Dim AutoPrint AutoPrint = Request("AutoPrint") '記帳の有無を確認するフラグ(照会集計画面用) Dim KichoFlg Set KichoFlg = Server.CreateObject("Scripting.Dictionary") Query = "" Query = Query & " " Query = Query & " SELECT 勘定CD, COUNT(総勘定元帳CD) AS 記帳数 " Query = Query & " FROM TSK帳簿_総勘定元帳F " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & GB_KaisyaCD & "' " Query = Query & " GROUP BY 勘定CD " Query = Query & " " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ' 引数は確実に文字列指定しないとダメ KichoFlg("" & Content.Fields("勘定CD")) = "" & Content.Fields("記帳数") 'Response.Write(KichoFlg(Content.Fields("勘定CD"))) Content.MoveNext Loop 'Response.Write(KichoFlg("1111")) %> <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)"<% If AutoPrint = "1" Then %> onLoad="PrintoutReal();"<% End If %> bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <form OnKeyDown="FormKeyDown(this)" method="POST" action="<% = Replace(Url, ".asp", "_bin.asp") %>" name="form1"> <% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) ElseIf InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HtmlDesign(2)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "Hakushi") > 0 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_s42.asp')", PageType, "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "経理部", "", "帳簿", "", PageType, "","", "", "", "")) ElseIf 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, "tblbtn( '" & Replace(Url, "_view_main.asp", ".asp") & "')", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) If InStr(RouteType, "Hakushi") > 0 Or InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("入力", "tblbtn( '" & Replace(Url, "_view_main.asp", ".asp") & "?RouteType=" & RouteType & "&KanjyoCD=" & KanjyoCD & "')", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4(PageType, "")) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="660" HEIGHT="100%"> <% If InStr(RouteType, "Hakushi") = 0 Then %> <TR> <TD ALIGN="CENTER" height="30"> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" HEIGHT="30" STYLE="BORDER:1px solid #000000; border-collapse:collapse" bgcolor="#FFFFFF"> <TR> <TD height="30" valign="bottom" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"> <table height="30" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="100%" align="CENTER" valign="MIDDLE"> <table height="30" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" class="tx1416" nowrap><% = Spacer(3,1) %>勘定科目 <input type="text" name="TmpKanjyoCD" size="4" value="<% = KanjyoCD %>" onChange="TmpKanjyoCDChk(this)" class="tbox4" maxlength="4" onClick="this.focus();this.focus();"> <!-- 範囲選択時にスプレッドシートをオフフォーカスのためにonClick処理(061225小野)--> <select size="1" name="Tmp2KanjyoCD" onChange="if(this.value != '<% = KanjyoCD %>')tblbtn('fk_sokanjyomototyohyojyun_view.asp?KanjyoCD=' + this.value + '&RouteType=<% = RouteType %>')" style="width:160" class="tbox4"> <option value=""> </option> <% Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) '照会集計画面では記帳の存在する科目に絞り込む 引数は確実に文字列指定しないとダメ If InStr(RouteType, "ViewOnly") < 1 Or "" & KichoFlg("" & Content.Fields("勘定CD")) <> "" Then Response.Write("<option value=""" & Content.Fields("勘定CD") & """") If Content.Fields("勘定CD") = KanjyoCD Then Response.Write(" selected") End If Response.Write(">" & Content.Fields("勘定名称")) Response.Write("</option>" & vbCrLf) End If Content.MoveNext Loop %> </select> </td> <td align="center" class="tx1416"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1"> <TR> <TD id="TDAL" WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"> </TD> <TD id="TDAC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('A');"><% = Spacer(1,1) %>資産<% = Spacer(3,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TDBC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('B');"><% = Spacer(3,1) %>負債<% = Spacer(3,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TDCC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('C');"><% = Spacer(3,1) %><% If MHMKANJOSAIMOKC <> "" Then Response.Write(MHMKANJOSAIMOKC) Else Response.Write("資本") End If %><% = Spacer(3,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TDDC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('D');"><% = Spacer(3,1) %>収益<% = Spacer(3,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TDEC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('E');"><% = Spacer(3,1) %>費用<% = Spacer(3,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TDFC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('F');"><% = Spacer(3,1) %>営業外<% = Spacer(3,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TDGC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('G');"><% = Spacer(3,1) %>特別損益<% = Spacer(3,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TDHC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('H');"><% = Spacer(3,1) %>その他<% = Spacer(3,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TDC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('');"><% = Spacer(3,1) %>全て<% = Spacer(1,1) %></TD> <TD id="TDR" WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"> </TD> </TR> </TABLE> </td> </tr> </table> </td> </tr> </table> </TD> </TR> </table> </TD> </TR> <% End IF %> <TR> <TD ALIGN="CENTER" > <% If RouteType = "Hakushi" Then Response.Write(TyoboSokanjyoMototyoH(EnshuCD, KaisyaCD, KaisyaCD, "LD", KanjyoCD, -1, 0, "", "", "")) Else Response.Write(TyoboSokanjyoMototyoH(EnshuCD, KaisyaCD, KaisyaCD, "LD", KanjyoCD, 0, 0, "", "", "")) End If %> </TD> </TR> </TABLE> </div> </form> </body> <SCRIPT LANGUAGE="JavaScript"> //勘定CD配列作成(061127小野) // var KanjyoCDArray; KanjyoCDArray = new Array(); <% Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'" Set Content = OpenQuery(Query) Dim KanjyoCDCnt KanjyoCDCnt = 0 Do While Not(Content.BOF Or Content.EOF) KanjyoCDCnt = KanjyoCDCnt + 1 Response.Write("KanjyoCDArray[" & KanjyoCDCnt & "] = '" & Content.Fields("勘定CD") & "';" & vbCrLf) Content.MoveNext Loop %> //勘定CDチェック(061201小野) function TmpKanjyoCDChk(obj) { if (KanjyoCDCheck(obj) == obj.value) { tblbtn('fk_sokanjyomototyohyojyun_view.asp?KanjyoCD=' + obj.value + '&RouteType=<% = RouteType %>'); return; } } function KanjyoCDCheck(obj) { if (obj.value == '') { alert('勘定コードを入力して下さい'); //フォーカスを戻すようにすると正常な値が入るまで抜けられなくなるのでフォーカスは戻さない // obj.focus(); // obj.select(); // event.returnValue = false; return; } for (kk=1; kk<=<% = KanjyoCDCnt %>; kk++) { if (obj.value == KanjyoCDArray[kk]) { return obj.value; } } alert('勘定コード ' + obj.value + ' の勘定科目は存在しません'); //フォーカスを戻すようにすると正常な値が入るまで抜けられなくなるのでフォーカスは戻さない // obj.focus(); // obj.select(); // event.returnValue = false; return; } var KanjyoMeisaiSelected; KanjyoMeisaiSelected = ""; function SetKanjyoKamokuList(kanjyomeisai) { KanjyoMeisaiSelected = kanjyomeisai; var Meisais; var ii; Meisais = Array("A", "B", "C", "D", "E", "F", "G", "H", ""); for (ii=0; ii<Meisais.length; ii++) { // document.all.item("TD" + Meisais[ii] + "L").background = "/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"; document.all.item("TD" + Meisais[ii] + "C").background = "/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>"; // document.all.item("TD" + Meisais[ii] + "R").background = "/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"; } // document.all.item("TD" + KanjyoMeisaiSelected + "L").background = "/<% = HomeAlias %>/images/dlogbtn_rl.gif?<% = GB_STU %>"; document.all.item("TD" + KanjyoMeisaiSelected + "C").background = "/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>"; // document.all.item("TD" + KanjyoMeisaiSelected + "R").background = "/<% = HomeAlias %>/images/dlogbtn_rr.gif?<% = GB_STU %>"; var ii; var Idx; Idx = 0; //現在選択されているメニュー内容を保持する(090629小野) var TmpVal = form1.Tmp2KanjyoCD.options[form1.Tmp2KanjyoCD.selectedIndex].value; var TmpTxt = form1.Tmp2KanjyoCD.options[form1.Tmp2KanjyoCD.selectedIndex].text; do { form1.Tmp2KanjyoCD.options[0] = null; } while(form1.Tmp2KanjyoCD.length != 0) //現在選択されているメニュー内容があればメニュー1行目に挿入する(090629小野) if (TmpVal != "" && TmpTxt != "") { form1.Tmp2KanjyoCD.options[Idx] = new Option(TmpTxt, TmpVal); Idx = Idx + 1; } form1.Tmp2KanjyoCD.options[Idx] = new Option("", ""); Idx = Idx + 1; <% Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'" Set Content = OpenQuery(Query) Dim PreKanjyoMeisai PreKanjyoMeisai = "" Response.Write("if(1 == 0){" & vbCrLf) '最初のネストを開く(ループ内で常に閉じてから開くためのダミー) Do While Not(Content.BOF Or Content.EOF) '現在の科目を除外(100523小野) If Content.Fields("勘定CD") <> KanjyoCD Then '照会集計画面では記帳の存在する科目に絞り込む 引数は確実に文字列指定しないとダメ If InStr(RouteType, "ViewOnly") < 1 Or "" & KichoFlg("" & Content.Fields("勘定CD")) <> "" Then If PreKanjyoMeisai <> Content.Fields("勘定細目") Then Response.Write("}" & vbCrLf) 'ネストを閉じて開く Response.Write("if(kanjyomeisai == """" || kanjyomeisai == """ & Content.Fields("勘定細目") & """){" & vbCrLf) PreKanjyoMeisai = Content.Fields("勘定細目") End If Response.Write("form1.Tmp2KanjyoCD.options[Idx] = new Option(""" & Content.Fields("勘定名称") & """, """ & Content.Fields("勘定CD") & """);") Response.Write("Idx = Idx + 1;" & vbCrLf) End If End If Content.MoveNext Loop Response.Write("}" & vbCrLf) '最後のネストを閉じる %> return false; } </SCRIPT> <% = HtmlFooter %> </html> <% End Sub %>