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