
<!-- #include file="../../include.asp" -->
<!-- #include file="../../user/bk/shiireuriage/fd_syorui_view_main_in.asp" -->
<!-- #include file="../../user/bk/shiireuriage/fd_nyusyukko_view_main_in.asp" -->
<!-- #include file="../../user/bk/ginkomadoguchi/fb_ginkosyorui_view_main_in.asp" -->
<!-- #include file="../../user/bk/ginko/fb_uketsukesyori_view_main_in.asp" -->
<!-- #include file="../../user/bk/tegata/fk_tegata_view_main_in.asp" -->
<!-- #include file="../../user/bk/unyusokomadoguchi/fc_syorui_view_main_in.asp" -->
<!-- #include file="../../user/bk/unso/seikyu/fu_seikyu_view_main_in.asp" -->
<!-- #include file="../../user/bk/denpyo/fk_nyukinsyukin_view_main_in.asp" -->
<!-- #include file="../../user/bk/denpyo/fk_shiireuriage_view_main_in.asp" -->
<!-- #include file="../../user/bk/denpyo/fk_furikae_view_main_in.asp" -->

<!-- #include file="../../user/bk/tyobo/fk_gokeizandakashisanhyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_hachiketaseisanhyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_shiwaketyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_shiwakenikkityo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_shiwakesyukeihyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_sokanjyomototyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_sokanjyomototyohyojyun_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_sonekikeisansyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_taisyakutaisyohyo_view_main_in.asp" -->

<!-- #include file="../../user/bk/hojyobo/fk_genkinsuitotyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_shiireuriagetyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_syohinaridakatyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_touzayokinsuitotyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_uketorisiharaitegatatyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_urikaikakekintyo_view_main_in.asp" -->

<!-- #include file="../../user/bk/ryosyusyo/fk_ryosyusyo_view_main_in.asp" -->

<!-- #include file="../../user/bk/jidotyobo/rm_sonekikeisansyohoukoku_main_in.asp" -->
<!-- #include file="../../user/bk/jidotyobo/rm_sonekikeisansyohoukoku_hanbaikairihi_main_in.asp" -->
<!-- #include file="../../user/bk/jidotyobo/rm_taisyakutaisyouhyohoukoku_main_in.asp" -->

<%

	Dim WK_Zandaka_KanjyoCD()
	Dim WK_Zandaka_KanjyoName()
	Dim WK_Zandaka_KariKingaku()
	Dim WK_Zandaka_KashiKingaku()
	Dim WK_Zandaka_KanjyoKubun()
	Dim WK_Zandaka_TaisyakuKubun()
	Dim WK_Zandaka_SyukeiCD()
	Dim ShowCount, MaxCount
	Dim CSVOutput

'
'<!--
'################################################
'	名称	：作成書類集計一覧表示
'	作成日	：2009/10/9
'	作成者	：小野
'	目的	：作成・発信した書類の集計一覧を表示する。
'	概要	：
'################################################
'-->
%>
<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim EnshuName, HyojiJyoken
	Dim Query
	Dim Content
	Dim ErrMsg

	Dim EnshuCD
	'クエリから演習CDを取得する
	EnshuCD = Request("EnshuCD")
	'クエリがNULLならセッションから演習CDを取得する
	If EnshuCD = "" Then
		EnshuCD = Session(HomeAlias & "EnshuCD")
	End If
	'セッションに演習CDを代入する
	Session(HomeAlias & "EnshuCD") = EnshuCD

	Dim Joken
	Joken = Request("Joken")

	Dim Addr, AutoFlg
	Dim tmp
	Dim KaisyaCD, GakuseiNo, BunsyoSyuruiCD, BunsyoNaiyoCD
	Dim Param1, Param2
	Dim KaisyaSelect
	KaisyaCD = Request("KaisyaCD")
	GakuseiNo = Request("GakuseiNo")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	Dim SakuseiKaisyaCD


	Dim EnshuKubun
	Dim RiyoDenpyoSu
	Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		EnshuKubun = Content.Fields("演習区分")
		RiyoDenpyoSu = Content.Fields("利用伝票数区分")
		EnshuMeisyo = Content.Fields("演習名称")
	End If


	'演習参加ユーザー配列作成
	Dim UserCnt
	Dim UserAry
	ReDim UserAry(0)
	Query = "exec SPM演習_参加ユーザー一覧2 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		ReDim PreServe UserAry(UBound(UserAry) + 1)
		UserAry(UBound(UserAry)) = "" & Content.Fields("学生番号")
		Content.MoveNext
	Loop


%>
<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">
<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>
<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.all['SyoukaiList'].rows.length; k++)
	{
		document.all['SyoukaiList'].rows[k].style.backgroundColor ="";
	}//セル色クリア
	document.all['SyoukaiList'].rows[rw].style.backgroundColor ="#ffcdde";//選択行色変更
}

//-->
</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)"	name="form1" method="POST" action="fm_tyohyo_ichiran.asp" onSubmit="return SubmitCheck();" target="_top">
<input type="hidden" name="HyojiJyoken" value="<% = HyojiJyoken %>">

<%
	Response.Write(HtmlDesign(10))

	Response.Write(HttpL1(4))


	If GB_Admin = 2 Then
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "書類一覧", "", "", "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "書類一覧", "", "" , "", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))

'	Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	Response.Write(HttpL3_1("&nbsp;書類一覧に戻る&nbsp;", "tblbtn('fm_tyohyo.asp')", "照会", "syokaibtn()", "印刷", "PrintoutRealInline('" & Replace(Request.ServerVariables("URL"), ".asp", "_print.asp") & "?EnshuCD=" & EnshuCD & "&Joken=" & Joken & "');", "", "", "", ""))

	Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL4("作成書類集計一覧", ""))

	Response.Write(HttpL5(ErrMsg))

%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="600" height="100%" border="0" cellspacing="5" cellpadding="5" bgcolor="#ffffff" style="border:1px solid #000000">
	<tr>
		<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif">
			<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
				<tr height="10">
					<td valign="top">
						<TABLE WIDTH="570" HEIGHT="30" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
							<TR ALIGN="CENTER">
								<TD HEIGHT="30" align="center">対象演習名</TD>
								<TD height="30" align="center">
								<% If GB_Admin = 2 Then %>
									<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
									<% = EnshuMeisyo %>
								<% Else %>
									<select size="1" name="EnshuCD" onChange="tblbtn('fm_tyohyo_ichiran.asp?EnshuCD=' + this.value + '&Joken=' + form1.Joken.value);">
										<option value="">＜＜ 対象演習を選択してください ＞＞</option>
										<%
											Query = "exec SPM演習一覧 '" & GB_SystemCD & "',2"
											Set Content = OpenQuery(Query)
											Do While Not(Content.BOF Or Content.EOF)
												If (PackageMode = 1 And "" & Content.Fields("パッケージ区分") = "CA") Or (PackageMode = 0 And "" & Content.Fields("パッケージ区分") <> "CA") Then
													Response.Write("<option value=""" & Content.Fields("演習CD") & """")
													If Content.Fields("演習CD") = EnshuCD Then
														Response.Write(" selected")
													End If
													Response.Write(">" & Content.Fields("演習名称") & "</option>" & vbCrLf)
												End If
												Content.MoveNext
											Loop
										%>
									</select>
								<% End If %>
								</TD>
							<% If PackageMode = 1 Then %>
								<input type="hidden" name="Joken" value="<% = Joken %>">
							<% Else %>
								<TD height="30" align="center">
									<select size="1" name="Joken" onChange="tblbtn('fm_tyohyo_ichiran.asp?EnshuCD=' + form1.EnshuCD.value + '&Joken=' + this.value);">
										<option value="">＜全ての書類＞</option>
									<% If RiyoDenpyoSu > 0 Then %>
										<option value="1"<% If Joken = "1" Then %> selected<% End If %>>伝票</option>
									<% End If %>
										<option value="2"<% If Joken = "2" Then %> selected<% End If %>>入出庫</option>
										<option value="3"<% If Joken = "3" Then %> selected<% End If %>>仕入販売書類</option>
										<option value="4"<% If Joken = "4" Then %> selected<% End If %>>銀行取引書類</option>
										<option value="5"<% If Joken = "5" Then %> selected<% End If %>>手形・小切手</option>
										<option value="6"<% If Joken = "6" Then %> selected<% End If %>>領収書</option>
										<option value="7"<% If Joken = "7" Then %> selected<% End If %>>運送書類</option>
									</select>
								</TD>
							<% End If %>
							</TR>
						</table>
						<span class="tx1012"><br></span>
						<table BORDER="0" CELLPADDING="0" CELLSPACING="0">
							<TR>
								<TD VALIGN="BOTTOM" WIDTH="540">
									<TABLE HEIGHT="20" BORDER="1" WIDTH="570" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1214" STYLE="border-collapse: collapse">
										<TR ALIGN="CENTER">
										<% If EnshuKubun = "P" Then %>
											<TD HEIGHT="20" rowspan="2">学生氏名</TD>
										<% Else %>
											<TD HEIGHT="20" rowspan="2">会社コード</TD>
										<% End If %>
											<TD HEIGHT="20" WIDTH="180">会社名</TD>
											<TD HEIGHT="20" WIDTH="150">書類名</TD>
											<TD HEIGHT="20" WIDTH="38">作成数</TD>
										<% If PackageMode = 1 Then %>
										<% Else %>
											<TD HEIGHT="20" WIDTH="38">発信数</TD>
										<% End If %>
										</TR>
									</TABLE>
								</TD>
							</TR>
						</table>
					</TD>
				</TR>
				<TR>
					<TD VALIGN="TOP">
						<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:590px; height:100%; z-index:1; border: 1px none #000000; overflow: auto; cursor:hand;">
							<TABLE ID="SyoukaiList" BORDER="1" WIDTH="570" CELLSPACING="0" CELLPADDING="3" BGCOLOR="#FFFFFF" CLASS="tx1214" STYLE="border-collapse: collapse" BORDERCOLOR="#000000">
<%
	Dim ii, jj, iiDef
	ii = 0
	iiDef = -1
	Query = "exec SPR書類集計一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & Joken & "'"	'プロシージャ側で条件による絞込みを行う
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		'利用伝票数での伝票除外条件
		If (RiyoDenpyoSu < 3 And (Content.Fields("文書種類CD") = "D1" Or Content.Fields("文書種類CD") = "D2")) Or (RiyoDenpyoSu < 5 And (Content.Fields("文書種類CD") = "D3" Or Content.Fields("文書種類CD") = "D4")) Or (RiyoDenpyoSu < 1 And Content.Fields("文書種類CD") = "D5") Then
		Else
			'演習参加ユーザーに存在するユーザーのみ表示する
			For UserCnt = 1 To UBound(UserAry)
				'同時同業では参加グループから外れた生徒及び生徒マスタから削除された生徒のレコードを除外する
				If EnshuKubun <> "P" Or UCase(UserAry(UserCnt)) = UCase("" & Content.Fields("学生番号")) Then
					If Content.Fields("文書種類CD") = BunsyoSyuruiCD And Content.Fields("学生番号") = GakuseiNo And Content.Fields("会社CD") = KaisyaCD Then
						iiDef = ii
					End If
					'																																	↓文書種類にはカンマ区切りでAutoFlgを付加
					Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'fm_tyohyo.asp?BunsyoSyuruiCD=" & Content.Fields("文書種類CD") & ",0&GakuseiNo=" & Content.Fields("学生番号") & "&KaisyaCD=" & Content.Fields("会社CD") & "&Joken=" & Joken & "')"" onDblClick=""syokaibtn()"">" & vbCrLf)
					If EnshuKubun = "P" Then
						Response.Write("<TD HEIGHT=""20"" ALIGN=""LEFT"">&nbsp;" & Content.Fields("氏名") & "</TD>" & vbCrLf)
					Else
						Response.Write("<TD HEIGHT=""20"" ALIGN=""LEFT"">&nbsp;" & Content.Fields("会社CD") & "</TD>" & vbCrLf)
					End If
					Response.Write("<TD HEIGHT=""20"" WIDTH=""180"" ALIGN=""LEFT"">&nbsp;" & Content.Fields("会社名称") & "</TD>" & vbCrLf)
					Response.Write("<TD HEIGHT=""20"" WIDTH=""150"" ALIGN=""LEFT"">&nbsp;" & Content.Fields("文書名称") & "</TD>" & vbCrLf)
					Response.Write("<TD HEIGHT=""20"" WIDTH=""38"" ALIGN=""center"">" & Content.Fields("作成数") & "</TD>" & vbCrLf)
					If PackageMode = 1 Then
					Else
						Response.Write("<TD HEIGHT=""20"" WIDTH=""38"" ALIGN=""center"">")
						If "" & Content.Fields("発信数")  <> "" Then
							Response.Write(Content.Fields("発信数"))
						Else
							Response.Write("--")
						End If
						Response.Write("</TD>" & vbCrLf)
					End If
					Response.Write("</TR>" & vbCrLf)
					ii = ii + 1
					Exit For
				End If
			Next
		End If
		Content.MoveNext
	Loop
%>
							</TABLE>
						</DIV>
					</TD>
				</TR>
			</TABLE>
		</td>
	</tr>
</table>

</div>
</form>

<!--印刷用フレーム-->
<IFRAME name="PrintoutInline" SRC="" WIDTH="0" HEIGHT="0" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex="-1"></IFRAME>

<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">

<% If iiDef <> -1 Then %>
	celsel(<% = iiDef %>, 'fm_tyohyo.asp?BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,0&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = KaisyaCD %>');
	Layer1.scrollTop = <% = (iiDef - 5) * 21 %>;
<% End If %>

</script>

</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>