<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :市場一覧 ' 作成日:2002/9/6 ' 作成者:徳田 ' 目的 :市場Mの一覧画面を表示する。 ' 概要 : ' <<表示>> ' ・市場一覧画面 ' '################################################ '--> %> <% main() Sub main() Dim KanriKubun Dim EnshuName Dim Query Dim Content Dim ShijyoCD2 ShijyoCD2 = Request("ShijyoCD") If Not(SessionCheck()) Then Exit Sub End If '演習名称GET EnshuName = ConvEnshuMeisyo(EnshuCD) Dim RouteType RouteType = Request("RouteType") Dim MasterEnshu Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then MasterEnshu = Content.Fields("マスター演習") End If %> <html> <% = HtmlHeader("") %> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 1; --> </SCRIPT> <SCRIPT LANGUAGE="JavaScript"> <!-- var lsURL="#" function syokaibtn() { if(lsURL == "#") { alert("選択されていません"); } else { tblbtn(lsURL); } } //TRselect & URLset function celsel(rw,selURL) { var trw; trw=rw; lsURL=selURL; for (k=0; k<document.getElementById("SyoukaiList").rows.length; k++) { document.getElementById("SyoukaiList").rows[k].style.backgroundColor =""; } //セル色クリア document.getElementById("SyoukaiList").rows[rw].style.backgroundColor ="#ffcdde"; //選択行色変更 } //--> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <form OnKeyDown="FormKeyDown(this)" name="form1" method="POST" onSubmit="return SubmitCheck();" autocomplete="off"> <input type="hidden" name="EnshuCD" value="<% = EnshuCD %>"> <input type="hidden" name="KanriKubun" value="<% = KanriKubun %>"> <input type="hidden" name="ShijyoCD" value="<% = ShijyoCD2 %>"> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If GB_Admin >= 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "市場マスター", "", "", "", "", "", "", "")) 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_s43.asp')", "市場マスター", "", "", "")) Response.Write(HttpL3("照会", "syokaibtn()" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) End If If GB_Admin >= 1 Then Response.Write(HttpL3_1("照会", "syokaibtn()","印刷", "PrintoutReal()","", "", "", "", "", "")) 'マスター演習には追加出来ないよう修正(070621小野) If MasterEnshu <> "1" Then Response.Write(HttpL3_2("追加", "tblbtn( 'fm_shijyo.asp?Action=1')", "", "", "", "", "", "", "", "")) End If Else Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()","", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4("市場マスター", "一覧表示")) If MasterEnshu = "1" Then Response.Write(HttpL5("マスター演習に設定されているため市場を追加出来ません")) End If %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5"> <tr> <td valign="top"> <table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%"> <tr> <td align="CENTER" valign="MIDDLE"> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="16" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="660" HEIGHT="100%"> <TR> <TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"> <TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%"> <% If GB_Admin = 2 Then %> <TR> <TD HEIGHT="30" VALIGN="BOTTOM" WIDTH="600"> <TABLE WIDTH="600" HEIGHT="30" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse"> <TR ALIGN="CENTER"> <TD WIDTH="200" HEIGHT="30">対象演習名</TD> <TD HEIGHT="30"><%= EnshuName %></TD> </TR> </TABLE> </TD> </TR> <TR><TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600"><BR></TD></TR> <% End If %> <TR> <TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600"> <TABLE WIDTH="600" HEIGHT="20" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse"> <TR ALIGN="CENTER"> <TD WIDTH="120" HEIGHT="20">市場コード</TD> <TD HEIGHT="20">市場名称</TD> </TR> </TABLE> </TD> </TR> <TR> <TD VALIGN="TOP"> <DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:620px; height:100%; z-index:1; border: 1px none #000000; overflow: auto; cursor: hand;"> <TABLE ID="SyoukaiList" WIDTH="600" BORDER="1" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="border-collapse: collapse" BORDERCOLOR="#000000" CLASS="tx1416"> <% Dim ii, jj, iiDef ii = 0 iiDef = -1 Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'" Dim ShijyoCD, ShijyoMeisyo Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If ShijyoCD2 = Content.Fields("市場CD") Then iiDef = ii End If ShijyoCD = Content.Fields("市場CD") ShijyoMeisyo = Content.Fields("市場名称") Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'fm_shijyo_view.asp?ShijyoCD=" & ShijyoCD & "')"" onDblClick=""syokaibtn()"">" & vbCrLf) Response.Write("<TD WIDTH=""120"" HEIGHT=""20"">" & ShijyoCD & "</TD>" & vbCrLf) Response.Write("<TD HEIGHT=""24"" ALIGN=""LEFT"">" & ShijyoMeisyo & "</TD>" & vbCrLf) ii = ii + 1 Response.Write("</TR>") Content.MoveNext Loop For jj = ii To 30 Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf) Response.Write("<TD WIDTH=""120"" HEIGHT=""20""></TD>" & vbCrLf) Response.Write("<TD HEIGHT=""24""></TD>" & vbCrLf) Response.Write("</TR>") Next %> </TABLE> </DIV> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </td> </tr> </table> </td> </tr> </table> </div> </form> <SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript"> <% ' 2006.12.19 スクロール対応 %> <% If iiDef <> -1 Then %> celsel(<% = iiDef %>, "fm_shijyo_view.asp?ShijyoCD=<% = ShijyoCD2 %>") Layer1.scrollTop = <% = (iiDef - 5) * 20 %>; <% End If %> </script> </body> <% = HtmlFooter %> </html> <% End Sub %>