<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	:銀行受付の一覧表示
'	 作成日:2002/10/18
'	 作成者:山崎 貴史
'	 目的 :銀行受付の一覧画面を表示する。
'	 概要	:
'		<<表示>>
'	・銀行受付の一覧画面
'	履歴	:2007.0.12 ボタン送信→通知変更
'################################################
'-->
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim BunsyoSyuruiCD, SenpoBunsyoSyuruiCD
	Dim SyoruiMei, SenpoSyoruiMei
	Dim NyusyukoKubun
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
	NyusyukoKubun = Request("NyusyukoKubun")

	Dim KozaKubun
	Dim SenpoFlg
	SenpoFlg = 0
	If SenpoBunsyoSyuruiCD <> "" Then
		SenpoFlg = 1
	End If

	Dim title, DefSenpoBunsyoSyuruiCD
	If BunsyoSyuruiCD = "BN" Then
		title = "口座開設"
		title = "一括口座開設"
		DefSenpoBunsyoSyuruiCD = "BA"
	ElseIf BunsyoSyuruiCD = "BO" Then
		title = "預入"
		DefSenpoBunsyoSyuruiCD = "BB"
	ElseIf BunsyoSyuruiCD = "BP" Then
		title = "引出"
		DefSenpoBunsyoSyuruiCD = "BC"
	ElseIf BunsyoSyuruiCD = "BQ" Then
		title = "振込"
		DefSenpoBunsyoSyuruiCD = "BD"
	ElseIf BunsyoSyuruiCD = "BR" Then
		title = "小切手入金"
		DefSenpoBunsyoSyuruiCD = "BE"
	ElseIf BunsyoSyuruiCD = "BS" Then
		title = "手形取立"
		DefSenpoBunsyoSyuruiCD = "BF"
	ElseIf BunsyoSyuruiCD = "BT" Then
		title = "手形割引"
		DefSenpoBunsyoSyuruiCD = "BG"
	End If

	If SenpoBunsyoSyuruiCD = "" Then
		SenpoBunsyoSyuruiCD = DefSenpoBunsyoSyuruiCD
	End If

	Dim Msg
	Msg = Request("Msg")
%>


<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</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">



<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(3))

	Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "銀行", "tblbtn( '/" & HomeAlias & "/user/bk/menu_b.asp')", "窓口業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_b2.asp')", title, "", "", "", "", ""))

	Response.Write(HttpL3("", "", "", "", "", "","","" , "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("一括開設する", "SubmitCheck()", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_2("","" , "", "", "", "", "", "", "", ""))

'	If SenpoBunsyoSyuruiCD = "" Then
'		Response.Write(HttpL3_2("先方一覧","tblbtn( 'fb_uketsukesyori_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & DefSenpoBunsyoSyuruiCD & "')" , "", "", "", "", "", "", "", ""))
'	Else
'		Response.Write(HttpL3_2("一覧表示","tblbtn( 'fb_uketsukesyori_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')" , "", "", "", "", "", "", "", ""))
'	End If

	Dim subtitle
	If SenpoBunsyoSyuruiCD <> "" Then
		subtitle = "先方書類"
	End If

	Response.Write(HttpL4(title, subtitle & "一覧表示"))

	Response.Write(HttpL5(Msg))
%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<form OnKeyDown="FormKeyDown(this)"	name="form1" method="POST" action="fb_uketsukesyori_ikkatsu_bin.asp">
<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 align="CENTER" valign="MIDDLE">
						<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="16" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="680" HEIGHT="100%">
							<TR>
								<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif">
									<TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
										<TR>
											<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600">
												<TABLE WIDTH="700" HEIGHT="20" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
													<TR ALIGN="CENTER">
														<TD WIDTH="100" HEIGHT="20">申込日</TD>
														<TD HEIGHT="20">取引先</TD>
														<TD WIDTH="300" HEIGHT="20">摘要</TD>
														<% If 0=1 And SenpoBunsyoSyuruiCD <> "" Then %>
														<TD WIDTH="30" HEIGHT="20">開封</TD>
														<TD WIDTH="30" HEIGHT="20">返信</TD>
														<% End If %>
													</TR>
												</TABLE>
											</TD>
										</TR>
										<TR>
											<TD VALIGN="TOP">
												<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:720px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
													<TABLE ID="List" WIDTH="700" BORDER="1" CELLSPACING="0" CELLPADDING="2" BGCOLOR="#FFFFFF" CLASS="tx1416" STYLE="border-collapse: collapse" BORDERCOLOR="#000000">
													<%
															Dim Query
															Dim Content
															Dim ii, jj
															ii = 0


															If SenpoFlg = 0 Then
																Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '','" & BunsyoSyuruiCD & "'"
															Else
																Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','','" & SenpoBunsyoSyuruiCD & "'"
															End If

															Set Content = OpenQuery(Query)

															Dim NextPageParam
															NextPageParam = ""
															Do While Not(Content.BOF Or Content.EOF)
															If Content.Fields("返信フラグ") <> 1 Then
																Dim SakuseiKaisyaCD
																SakuseiKaisyaCD = Content.Fields("作成会社CD")

																KozaKubun = Content.Fields("口座区分")
																If SenpoBunsyoSyuruiCD = "" Then
													'				Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'fb_uketsukesyori_view.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" + Content.Fields("文書内容CD") & "', '0')"">" & vbCrLf)
																	Response.Write("<TR ALIGN=""CENTER"" >" & vbCrLf)
																Else
																	If Content.Fields("返信フラグ") = 1 Then
																			Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
													'						Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'fb_uketsukesyori_view.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" + Content.Fields("返信文書内容CD") & "', '1')"">" & vbCrLf)
																	Else
																			Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
													'						Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'fb_uketsukesyori.asp?SenpoFlg=1&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "&SenpoBunsyoNaiyoCD=" & Content.Fields("文書内容CD") & "', '0')"">" & vbCrLf)
																	End If
																End If

																If NextPageParam <> "" Then
																	NextPageParam = NextPageParam & ";"
																End If
																NextPageParam = NextPageParam & SakuseiKaisyaCD & "," & KozaKubun & "," & SenpoBunsyoSyuruiCD & "," & Content.Fields("文書内容CD")


													'			Response.Write("<TD WIDTH=""30"" HEIGHT=""20"">" & Content.Fields("文書内容CD") & "</TD>" & vbCrLf)
																Response.Write("<TD WIDTH=""96"" HEIGHT=""23"" CLASS=""tx1618"">" & Content.Fields("処理日") & "</TD>" & vbCrLf)
																Response.Write("<TD HEIGHT=""20"" align=""left"">" & ConvKaisyaMeisyoDx(EnshuCD, SakuseiKaisyaCD ) & "</TD>" & vbCrLf)
													'			Response.Write("<TD WIDTH=""100"" HEIGHT=""20"">" & Content.Fields("納入期日") & "</TD>" & vbCrLf)
													'			Response.Write("<TD WIDTH=""100"" HEIGHT=""20"" align=""right"">" & ConvIntToMoney(Content.Fields("合計金額"), false, false) & "</TD>" & vbCrLf)
																Response.Write("<TD WIDTH=""296"" HEIGHT=""20"" align=""left"">" & Content.Fields("摘要") & "</TD>" & vbCrLf)
																			If SenpoBunsyoSyuruiCD <> "" Then

																	'Response.Write("<TD WIDTH=""30"" HEIGHT=""20"">")
																	'If SenpoBunsyoSyuruiCD = "" Then
																	'	If Content.Fields("発行フラグ") = 1 Then
																	'		Response.Write("済")
																	'	End If
																	'Else
																	'	If Content.Fields("開封フラグ") = 1 Then
																	'		Response.Write("済")
																	'	End If
																	'End If
																	'Response.Write("</TD>" & vbCrLf)
																	'Response.Write("<TD WIDTH=""30"" HEIGHT=""20"">")
																	'If Content.Fields("返信フラグ") = 1 Then
																	'	Response.Write("済")
																	'End If
																	'Response.Write("</TD>" & vbCrLf)
																End If
																ii = ii + 1
																Response.Write("</TR>")
															End If
															Content.MoveNext
															Loop


															For jj = ii To 30
															Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
															Response.Write("<TD WIDTH=""96"" HEIGHT=""23""></TD>" & vbCrLf)
															Response.Write("<TD HEIGHT=""20""></TD>" & vbCrLf)
															Response.Write("<TD WIDTH=""296"" HEIGHT=""20""></TD>" & vbCrLf)
															'Response.Write("<TD WIDTH=""30"" HEIGHT=""20"" ALIGN=""LEFT"" CLASS=""tx1416""></TD>" & vbCrLf)
															'Response.Write("<TD WIDTH=""30"" HEIGHT=""20"" ALIGN=""RIGHT""></TD>" & vbCrLf)
															Response.Write("</TR>")
															Next
														%>
													</TABLE>
												</DIV>
											</TD>
										</TR>
									</TABLE>
								</TD>
							</TR>
						</TABLE>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
<input type="hidden" name="NextPageParam" value="<% = NextPageParam %>">
</form>
</div>
</body>


<script language="JavaScript">

	function SubmitCheck()
	{

		if(form1.NextPageParam.value == "")
		{
			alert("対象データがありません");
			return false;
		}

		var flag;
		flag = confirm("口座開設の一括受付を行います。よろしいですか? ");
		if (flag)
		{
			SubmitReal(form1);
			return true;
		}

		return false;

	}


</script>
<% = HtmlFooter %>

</html>
<%
End Sub
%>