<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：グループ一覧
' 作成日：2002/8/22
' 作成者：徳田
' 目的 ：演習グループの一覧画面を表示する。
' 概要 ：
' <<表示>>
' ・演習グループの一覧画面
'
'################################################
'-->
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
'会社セッション初期化（演習状況記帳チェック後の対処）
KaisyaCD = ""
GB_KaisyaCD = ""
KaisyaMeisyo = ""
GB_KaisyaMeisyo = ""
KaisyaRyakuMeisyo = ""
GB_KaisyaRyakuMeisyo = ""
Session(HomeAlias & "KaisyaCD") = ""
Session(HomeAlias & "Gyosyu") = ""
Session(HomeAlias & "GyosyuMeisyo") = ""
Session(HomeAlias & "KaisyaMeisyo") = ""
Session(HomeAlias & "KaisyaRyakuMeisyo") = ""
Session(HomeAlias & "JisyaFlag") = ""
Session(HomeAlias & "ShijyoCD") = ""
'絞り込み用の演習管理者IDを再取得(書類一覧後の対処)（221201小野美）
If GB_Admin = "2" And EnshuCD <> "" Then
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Session(HomeAlias & "GakuseiNo") = "" & Content.Fields("演習管理者ID")
GB_GakuseiNo = Session(HomeAlias & "GakuseiNo")
GakuseiNo = GB_GakuseiNo
End If
End If
'Response.Write("GB_Admin = " & GB_Admin & vbCrLf)
'Response.Write("GB_GakuseiNo = " & GB_GakuseiNo & vbCrLf)
'Exit Sub
Dim RouteType
RouteType = Request("RouteType")
Dim GroupCD
GroupCD = Request("GroupCD")
Dim Query
Dim Content
'グループCD=nullのゴミデータ削除
Query = "exec SPMグループ更新 '" & GB_SystemCD & "', 4"
Query = Query & ",''"
Query = Query & ",''"
Query = Query & ",''"
Query = Query & ",''"
Query = Query & ",''"
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 1;
-->
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!--
var lsURL="#";
function syokaibtn(mode) {
if (lsURL == "#") {
alert("選択されていません");
} else {
if (mode == 0) {
tblbtn(lsURL);
} else {
tblbtn(lsURLGrp); //選択グループのユーザー一覧へ飛ぶ
}
}
}
//TRselect & URLset
var lsURLGrp = ""; //選択グループのユーザー一覧へ飛ぶためのURL
function celsel(rw,selURL) {
var trw;
trw = rw;
lsURL = selURL;
//選択グループのユーザー一覧へ飛ぶためのURL
lsURLGrp = selURL.replace("fm_group_view.asp?RouteType=<% = RouteType %>&GroupCD=", "../user/fm_user_ichiran.asp?TmpGroupCD=");
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)" method="POST" name="form1" >
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(4))
If Request("RouteType") = "Kantan" Then
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu1.asp')", "グループ管理", "", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "グループ管理", "", "", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("照会", "syokaibtn(0)", " ユーザー管理 ", "syokaibtn(1)", "", "", "", "", "", ""))
Response.Write(HttpL3_2("追加", "tblbtn( 'fm_group.asp?RouteType=" & RouteType & "&syori=1')", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("グループ管理", "一覧表示"))
%>
<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="0" cellspacing="0" width="100%" height="100%">
<tr>
<td>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
<tr>
<td align="CENTER" valign="MIDDLE">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="17" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="680" 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%">
<TR>
<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600">
<TABLE WIDTH="740" HEIGHT="20" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD WIDTH="24" HEIGHT="20"><br></TD>
<TD WIDTH="136" HEIGHT="20">グループコード</TD>
<TD HEIGHT="20">グループ名称</TD>
<TD WIDTH="136" HEIGHT="20">グループキー</TD>
<% If GB_Admin <> "2" Then %>
<TD WIDTH="136" HEIGHT="20">作成者ID</TD>
<% End If %>
<TD WIDTH="30" HEIGHT="20" class="tx1214">表示</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD VALIGN="TOP">
<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:760px; height:100%; z-index:1; border: 1px none #000000; overflow: auto; cursor: hand;">
<TABLE ID="SyoukaiList" WIDTH="740" BORDER="1" CELLSPACING="0" CELLPADDING="2" CLASS="tx1416" BGCOLOR="#FFFFFF" STYLE="border-collapse: collapse" BORDERCOLOR="#000000">
<%
Dim ii, jj, iiDef
ii = 0
iiDef = -1
Query = "exec SPMグループ一覧 '" & GB_SystemCD & "',''"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
'演習管理者の場合は演習管理者が作成したグループのみ表示
'Response.Write("GB_Admin = " & GB_Admin & vbCrLf)
'Response.Write("GB_GakuseiNo = " & GB_GakuseiNo & vbCrLf)
'Exit Sub
If GB_Admin <> "2" Or (GB_Admin = "2" And Content.Fields("作成者ID") = GB_GakuseiNo) Then
If GroupCD = Content.Fields("学生グループCD") Then
iiDef = ii
End If
Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'fm_group_view.asp?RouteType=" & RouteType & "&GroupCD=" & Content.Fields("学生グループCD") & "')"" onDblClick=""syokaibtn(0)"">" & vbCrLf)
Response.Write("<TD WIDTH=""20"" HEIGHT=""23"">")
Response.Write("</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""132"" HEIGHT=""20"" style=""word-break: break-all;"">" & Content.Fields("学生グループCD") & "</TD>" & vbCrLf)
Response.Write("<TD HEIGHT=""20"" ALIGN=""LEFT"" style=""word-break: break-all;"">" & Content.Fields("グループ名称") & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""132"" HEIGHT=""20"" ALIGN=""LEFT"" style=""word-break: break-all;"">" & Content.Fields("グループキー") & "</TD>" & vbCrLf)
If GB_Admin <> "2" Then
Response.Write("<TD WIDTH=""132"" HEIGHT=""20"" ALIGN=""LEFT"" style=""word-break: break-all;"">" & Content.Fields("作成者ID") & "</TD>" & vbCrLf)
End If
Response.Write("<TD WIDTH=""26"" HEIGHT=""20"" ALIGN=""CENTER"">")
If "" & Content.Fields("非表示フラグ") = "1" Then
Response.Write("×")
End If
Response.Write("</TD>" & vbCrLf)
ii = ii + 1
Response.Write("</TR>")
End If
Content.MoveNext
Loop
For jj = ii To 35
Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
Response.Write("<TD WIDTH=""20"" HEIGHT=""23""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""132"" HEIGHT=""20""></TD>" & vbCrLf)
Response.Write("<TD HEIGHT=""20""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""132"" HEIGHT=""20""></TD>" & vbCrLf)
If GB_Admin <> "2" Then
Response.Write("<TD WIDTH=""132"" HEIGHT=""20""></TD>" & vbCrLf)
End If
Response.Write("<TD WIDTH=""26"" HEIGHT=""20""></TD>" & vbCrLf)
Response.Write("</TR>")
Next
%>
</TABLE>
</DIV>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
<SCRIPT LANGUAGE="JavaScript">
function DeleteCheck()
{
var flag;
flag = confirm("削除してよろしいですか？");
if (flag)
{
alert("OK");
tblbtn( "fm_group_bin.asp?Action=4&GroupCD=<% = GroupCD %>");
return true;
}
else
{
return false;
}
}
function UpdateCall()
{
tblbtn( "fm_group.asp?syori=2&nr=n&GroupCD=<% = GroupCD %>");
return true;
}
</script>
<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">
<%
' 2006.11.28 演習一覧表示の機能を追加＆モディファイ（伝票番号を引数に追加）
%>
<% If iiDef <> -1 Then %>
celsel(<% = iiDef %>, "fm_group_view.asp?RouteType=<% = RouteType %>&GroupCD=<% = GroupCD %>")
Layer1.scrollTop = <% = (iiDef - 5) * 20 %>;
<% End If %>
</script>
<% = HtmlFooter %>
<%
End Sub
%>