<!-- #include file="../../../include.asp" -->
<!-- #include file="../../../user/bk/ginkomadoguchi/fb_ginkosyorui_view_main_in.asp" -->
<%
'<!--
'################################################
' 名称 ：銀行窓口受付申込の照会
' 作成日：2002/10/18
' 作成者：山崎
' 目的 ：振替伝票画面を表示する。
' 概要 ：
' <<表示>>
' ・
' <<入力チェック>>
' ・
'################################################
'-->
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim GinkoCD, BunsyoSyuruiCD, BunsyoNaiyoCD
Dim Syoribi, AnsyoBango, Tekiyo , SenpoTekiyo
Dim TouzaKarikoshiKingaku
Dim SenpoFlg, TorihikisakiCD, SenpoBunsyoSyuruiCD, SenpoBunsyoNaiyoCD
Dim KozaKubun, Kingaku
Dim KozaBango
Dim FurikomisakiKozaBango, FurikomisakiGinkoCD, FurikomisakiKozaKubun, Tesuryo 'BD
Dim RouteType
Dim TegataFuridashininCD, TegataSyuruiKubun, TegataNo
Dim TegataShiharaiKijitsu
Dim WaribikiRiritsu, WaribikiRiritsuTekiyoNissu, WaribikiRisokuKingaku
Dim SenpoSyoribi
Dim UketsukeKubun
Dim FurikomisakiKoza
Dim Tegata
Dim SakujyoFlg
Dim PageType
Dim SakuseiKaisyaCD
PageType = Request("PageType")
RouteType = Request("RouteType")
GinkoCD = Request("GinkoCD")
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
TorihikisakiCD = Request("TorihikisakiCD")
SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
Dim KaisyaCD1
Dim AdminMailFlag
AdminMailFlag = 0
'メール管理機能から開いた場合はKaisyaCD1からKaisyaCDを取得
if Request("KaisyaCD1") <> "" then
AdminMailFlag = 1
KaisyaCD = Request("KaisyaCD1")
end if
' SenpoFlg = Request("SenpoFlg")
If KaisyaCD <> SakuseiKaisyaCD Then
SenpoFlg = "1"
Else
SenpoFlg = "0"
End If
If SakuseiKaisyaCD = "" Then
SakuseiKaisyaCD = KaisyaCD
End If
Dim Title
If BunsyoSyuruiCD= "BA" Then
Title = "口座開設"
ElseIf BunsyoSyuruiCD= "BB" Then
Title = "預入"
ElseIf BunsyoSyuruiCD= "BC" Then
Title = "引出"
ElseIf BunsyoSyuruiCD= "BD" Then
Title = "振込"
ElseIf BunsyoSyuruiCD= "BE" Then
Title = "小切手入金"
ElseIf BunsyoSyuruiCD= "BF" Then
Title = "手形取立"
ElseIf BunsyoSyuruiCD= "BG" Then
Title = "手形割引"
ElseIf BunsyoSyuruiCD= "BH" Then
Title = "残高証明"
End If
Dim Query
Dim Content
'2段階モードの場合のパラメータ取得（180220小野）
Dim HakkoFlg
Dim TegataBunsyoNaiyoCD
Query = "exec SPB銀行取引書類取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
HakkoFlg = "" & Content.Fields("発行フラグ")
KozaKubun = Content.Fields("口座区分")
Kingaku = Content.Fields("金額")
TegataBunsyoNaiyoCD = Content.Fields("手形文書内容CD")
End If
%>
<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;
<% If HakkoFlg <> "1" Then '2段階送信モードの場合（180220小野） %>
function IraiSoushin() {
<% If BunsyoSyuruiCD = "BA" Then '口座開設の警告 %>
if (!confirm("銀行：<% = ConvKaisyaRyakuMeisyoDx(EnshuCD, GinkoCD) %>\n\n口座：<% = ConvKubunMeisyo("口座区分", KozaKubun) %>預金\n\n金額：<% = ConvIntToMoney(Kingaku, false, false) %>\n\n\n以上の内容で口座を開設します \n\nよろしいですか？ 確認してください "))return;
<% ElseIf BunsyoSyuruiCD = "BD" And TegataBunsyoNaiyoCD <> "" Then '小切手からの振込の警告 %>
if (!confirm("小切手から振り込んでよろしいですか？ 一度行うと取り消すことはできません "))return;
<% End If %>
//送信
tblbtn('fb_ginkosyorui_bin.asp?BinType=Hasshin&GinkoCD=<% = GinkoCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>');
}
<% End If %>
-->
</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="GET" action="fb_kozakaisetsu_bin.asp">
<input type="hidden" name="GinkoCD" value="<% = GinkoCD %>">
<%
If InStr(RouteType, "MailOnly") > 0 Then
Response.Write(HtmlDesign(6))
ElseIf InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HtmlDesign(4))
Else
Response.Write(HtmlDesign(1))
End If
Response.Write(HttpL1(3))
Dim BunsyoType
If InStr(RouteType, "RMail") > 0 Then
BunsyoType = "受信文書"
ElseIf InStr(RouteType, "SMail") > 0 Then
BunsyoType = "発信文書"
End If
If AdminMailFlag = 1 Then
Response.Write(HttpL2("受発信文書ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=" & PageType & "&RouteType=MailOnly')", "", "", "", "", "", "", "", "", "", ""))
ElseIf InStr(RouteType, "MailOnly") > 0 Then
Response.Write(HttpL2("受発信文書ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=" & PageType & "&RouteType=MailOnly')", "", "", "", "", "", "", "", "", "", ""))
ElseIf InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", Title , "", "", "", "", "", "", "", "", ""))
ElseIf InStr(RouteType, "RMail") > 0 Or InStr(RouteType, "SMail") > 0 Then 'メインウィンドウの受発信文書
If GB_Gyosyu <> "B" Then
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "受発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/')", BunsyoType, "", "", ""))
Else
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "受発信文書" , "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo')", BunsyoType , "", "", "", "", ""))
End If
'社長室・総務部の受発信から入った場合、ここを表示する
ElseIf InStr(RouteType, "syatyo") > 0 Then
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "受発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/')", PageType , "", "", ""))
Else '特殊ウィンドウ以外
If GB_Gyosyu <> "B" Then
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp?GinkoCD=" & GinkoCD & "')", Title, "", "", "", "", ""))
Else
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo , "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "1.asp?GinkoCD=" & GinkoCD & "')", Title, "", "", "", "", ""))
End If
End If
Response.Write(HttpL3("", "", "", "", "", "", "", "" ,"", "", "", "", "", "", "", ""))
If AdminMailFlag = 1 Then
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
ElseIf InStr(RouteType, "MailOnly") > 0 Then
Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
ElseIf InStr(RouteType, "RMail") > 0 Or InStr(RouteType, "SMail") > 0 Then
Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
'社長室・総務部の受発信から入った場合、ここを表示する
ElseIf InStr(RouteType, "syatyo") > 0 Then
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
ElseIf SakujyoFlg = 0 Then
If HakkoFlg = "1" Then
Response.Write(HttpL3_1("印刷", "PrintoutReal()", "削除", "tblbtn('fb_ginkosyorui_bin.asp?BinType=Sakujyo&GinkoCD=" & GinkoCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_1("送信", "IraiSoushin();", "印刷", "PrintoutReal()", "削除", "tblbtn('fb_ginkosyorui_bin.asp?BinType=Sakujyo&GinkoCD=" & GinkoCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "", "", "", ""))
End If
Else
Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
End If
If InStr(RouteType, "MailOnly") > 0 Then
'If SenpoFlg <> "1" Then
If SenpoFlg <> "1" Or PageType = "発信文書" Then
If AdminMailFlag = 1 Then
Response.Write(HttpL3_3("受信文書", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=受信文書&RouteType=MailOnly')", "発信文書", "", "", "", "受信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')"))
Else
Response.Write(HttpL3_2("受信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=受信文書&RouteType=MailOnly')", "発信文書", "", "メール作成", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei.asp?RouteType=MailOnly')", "受信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')"))
End If
Else
If AdminMailFlag = 1 Then
Response.Write(HttpL3_3("受信文書", "", "発信文書", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=発信文書&RouteType=MailOnly')", "", "", "受信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')"))
Else
Response.Write(HttpL3_2("受信文書", "", "発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=発信文書&RouteType=MailOnly')", "メール作成", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei.asp?RouteType=MailOnly')", "受信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')"))
End If
End If
ElseIf InStr(RouteType, "RMail") > 0 Then
Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=受信文書')", "", "", "", "", "", "", "", ""))
ElseIf InStr(RouteType, "SMail") > 0 Then
Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=発信文書')", "", "", "", "", "", "", "", ""))
Else
'社長室・総務部の受発信から入った場合、ここを表示する
If InStr(RouteType, "syatyo") > 0 Then
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_2("追加", "tblbtn( 'fb_ginkosyorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&GinkoCD=" & GinkoCD & "')", "一覧表示", "tblbtn( 'fb_ginkosyorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&GinkoCD=" & GinkoCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "", "", "", "", "", ""))
End If
End If
Response.Write(HttpL4(Title, "照会"))
'ConvKaisyaMeisyoDx(EnshuCD, GinkoCD) & " " &
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<%
Dim AutoFlg
If RouteType = "Hakushi" Then
AutoFlg = -1
Else
AutoFlg = 0
End If
%>
<% = GinkoSyorui(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0) %>
</div>
</form>
</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>