<!-- #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
%>