<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：演習照会
' 作成日：2002/9/6
' 作成者：徳田
' 目的 ：演習の照会画面を表示する。
' 概要 ：
' <<表示>>
' ・演習の照会画面
'
'################################################
'-->
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim EnshuName , EnshuKubun '演習CD、 演習名称、演習区分
Dim FromYmd , ToYmd , TaxRate '開始日、 終了日、消費税率
Dim DenpyoKubun, DenpyoKubunNm
Dim UserCnt
Dim Query
Dim Content
Dim GinkoSyoriKubun
Dim InputHojyobo
Dim InputShiwaketyo, InputShiwakeShukeihyo, InputGokeiZandakaShisanhyo, InputSokanjyoMototyo
Dim InputTaisyakuTaisyohyo, InputSonekiKeisansyo, InputHachiketaSeisanhyo, InputStockholderEquity
Dim AutoShiwaketyo, AutoShiwakeShukeihyo, AutoGokeiZandakaShisanhyo, AutoSokanjyoMototyo
Dim AutoTaisyakuTaisyohyo, AutoSonekiKeisansyo, AutoHachiketaSeisanhyo, AutoStockholderEquity
Dim EnshuID, EnshuPassword
Dim AutoGenkinNyusyukinRireki, AutoYokinNyusyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki
Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran
Dim GinkoKozaToza, GinkoKozaFutu, GinkoKozaBetsudan, GinkoKozaTsumitate, GinkoKozaTeiki
Dim FurikomiTesuryoJiko1, FurikomiTesuryoJiko2, FurikomiTesuryoTako1, FurikomiTesuryoTako2, FurikomiTesuryoBorder
Dim JidoGinkoWaribikiRiritsu
Dim FurikomiTesuryoTozaFutanKubun, FurikomiTesuryoHiTozaFutanKubun
Dim SokanjyomototyoHyojyunshiki, ZandakaJidoKeisan
Dim FurikaeDenpyoGyousu
Dim GinkoMadoguchiHyoji, KinkoHyoji
Dim KogitteHyoji, YTegataHyoji, KTegataHyoji, RyosyusyoHyoji
Dim MasterEnshu
Dim GinkoKozaBango
Dim GinkoTegataToriWari
Dim GinkoShijokanRiyo
Dim GinkoShomeiTesuryo
Dim GinkoIraiHozon
EnshuCD = Request("EnshuCD")
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
EnshuName = Content.Fields("演習名称")
EnshuKubun = Content.Fields("演習区分")
FromYmd = Content.Fields("会計開始日")
ToYmd = Content.Fields("会計終了日")
TaxRate = Content.Fields("消費税")
DenpyoKubun = Content.Fields("利用伝票数区分")
GinkoSyoriKubun = Content.Fields("銀行自動処理")
GinkoKozaBango = "" & Content.Fields("銀行口座番号手動")
GinkoTegataToriWari = "" & Content.Fields("銀行手形取立割引手動")
GinkoShijokanRiyo = "" & Content.Fields("銀行市場間利用")
GinkoShomeiTesuryo = "" & Content.Fields("残高証明書手数料")
GinkoIraiHozon = "" & Content.Fields("銀行窓口依頼保存")
InputHojyobo = Content.Fields("手動補助簿表示")
InputShiwaketyo = Content.Fields("手動仕訳帳表示")
InputShiwakeShukeihyo = Content.Fields("手動仕訳集計表表示")
InputGokeiZandakaShisanhyo = Content.Fields("手動合計残高試算表表示")
InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示")
InputTaisyakuTaisyohyo = Content.Fields("手動貸借対照表表示")
InputSonekiKeisansyo = Content.Fields("手動損益計算書表示")
InputHachiketaSeisanhyo = Content.Fields("手動8桁精算表表示")
InputStockholderEquity = Content.Fields("手動株主資本等変動計算書表示")
AutoShiwaketyo = Content.Fields("自動転記仕訳帳表示")
AutoShiwakeShukeihyo = Content.Fields("自動転記仕訳集計表表示")
AutoGokeiZandakaShisanhyo = Content.Fields("自動転記合計残高試算表表示")
AutoSokanjyoMototyo = Content.Fields("自動転記総勘定元帳表示")
AutoTaisyakuTaisyohyo = Content.Fields("自動転記貸借対照表表示")
AutoSonekiKeisansyo = Content.Fields("自動転記損益計算書表示")
AutoHachiketaSeisanhyo = Content.Fields("自動転記8桁精算表表示")
AutoStockholderEquity = Content.Fields("自動転記株主資本等変動計算書表示")
Dim YobiA, YobiB
YobiA = Content.Fields("履歴表示")
AutoGenkinNyusyukinRireki = Mid(YobiA, 1, 1)
AutoYokinNyusyukinRireki = Mid(YobiA, 2, 1)
AutoNyukoJisseki = Mid(YobiA, 3, 1)
AutoSyukoJisseki = Mid(YobiA, 4, 1)
AutoSyohinZaiko = Mid(YobiA, 5, 1)
AutoUketoriTegataIchiran = Mid(YobiA, 6, 1)
AutoShiaraiTegataIchiran = Mid(YobiA, 7, 1)
YobiB = Content.Fields("利用銀行口座種類")
GinkoKozaToza = Mid(YobiB , 1, 1)
GinkoKozaFutu = Mid(YobiB , 2, 1)
GinkoKozaBetsudan = Mid(YobiB , 3, 1)
GinkoKozaTsumitate = Mid(YobiB , 4, 1)
GinkoKozaTeiki = Mid(YobiB , 5, 1)
EnshuID = Content.Fields("演習管理者ID")
EnshuPassword = Content.Fields("演習管理者パスワード")
FurikomiTesuryoJiko1 = Content.Fields("振込手数料低金額自行間")
FurikomiTesuryoJiko2 = Content.Fields("振込手数料高金額自行間")
FurikomiTesuryoTako1 = Content.Fields("振込手数料低金額他行間")
FurikomiTesuryoTako2 = Content.Fields("振込手数料高金額他行間")
FurikomiTesuryoBorder = Content.Fields("振込手数料高低区切金額")
JidoGinkoWaribikiRiritsu = Content.Fields("手形割引率")
FurikomiTesuryoTozaFutanKubun = Content.Fields("振込手数料当座振込元負担")
' FurikomiTesuryoHiTozaFutanKubun = Content.Fields("振込手数料非当座振込元負担")
FurikomiTesuryoHiTozaFutanKubun = FurikomiTesuryoTozaFutanKubun
SokanjyomototyoHyojyunshiki = Content.Fields("総勘定元帳標準式利用")
ZandakaJidoKeisan = Content.Fields("残高自動計算")
FurikaeDenpyoGyousu = Content.Fields("振替伝票表示行数")
GinkoMadoguchiHyoji = "" & Content.Fields("銀行窓口表示")
KinkoHyoji = "" & Content.Fields("金庫表示")
KogitteHyoji = "" & Content.Fields("小切手表示")
YTegataHyoji = "" & Content.Fields("約束手形表示")
KTegataHyoji = "" & Content.Fields("為替手形表示")
RyosyusyoHyoji = "" & Content.Fields("領収書表示")
MasterEnshu = Content.Fields("マスター演習")
End If
If GinkoKozaBango <> "1" Then
GinkoKozaBango = "0"
End If
If GinkoTegataToriWari <> "1" Then
GinkoTegataToriWari = "0"
End If
If GinkoShijokanRiyo <> "1" Then
GinkoShijokanRiyo = "0"
End If
If GinkoIraiHozon <> "1" Then
GinkoIraiHozon = "0"
End If
'ユーザー存在チェック
Query = "exec SPM演習_参加グループ一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
UserCnt = 1
Else
UserCnt = 0
End If
Dim RouteType
RouteType = Request("RouteType")
Query = "exec SPM演習_参加グループ一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
Dim SankaGroupSu
SankaGroupSu = 0
Do While Not(Content.BOF Or Content.EOF)
SankaGroupSu = SankaGroupSu + 1
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>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)" method="POST" name="form1" act="fm_enshu_view.asp">
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(4))
If GB_Admin = 2 Then
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "", "", "", "", "", "", "", "", ""))
ElseIf Request("RouteType") = "Kantan" Then
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu1.asp')", "演習管理", "", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "", "", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
If MasterEnshu <> "1" Then
'Response.Write(HttpL3_1("修正", "tblbtn('fm_enshu2.asp?EnshuCD=" & EnshuCD & "')", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", "","", ""))
Response.Write(HttpL3_1("修正", "tblbtn('fm_enshu2.asp?EnshuCD=" & EnshuCD & "')", "演習操作", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control');", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", ""))
Else
'Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1(" 演習操作 ", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control')", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin')", "", "", "", "", "", ""))
End If
If GB_Admin = 1 Then
Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "前のページ", "tblbtn('fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu22_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", ""))
Else
Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu22_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", ""))
End if
Response.Write(HttpL4("演習管理", "銀行・金庫"))
If MasterEnshu = "1" Then
Response.Write(HttpL5("マスター演習は設定を変更出来ません"))
End If
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%">
<tr>
<td align="CENTER" valign="MIDDLE">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="5" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="740" HEIGHT="100%">
<TR>
<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
<TABLE WIDTH="740" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
<TR>
<TD VALIGN="TOP" WIDTH="740" height="260">
<TABLE WIDTH="800" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<tr>
<td height="24" align="center" bgcolor="#FFEE88">演習名称</td>
<td align="center"><% = EnshuName %></td>
<td align="center" bgcolor="#FFEE88">演習コード</td>
<td align="center"><% = EnshuCD %></td>
</tr>
</table>
<TABLE WIDTH="740" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<tr>
<td valign="top">
<TABLE WIDTH="800" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<tr>
<td width="225" height="25" bgcolor="#FFEE88">銀行オンライン窓口の利用</td>
<td width="575" height="25">
<% If GinkoMadoguchiHyoji <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>
<% If GinkoMadoguchiHyoji <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %>
</td>
</tr>
<tr>
<td width="225" height="25" bgcolor="#FFEE88">銀行オンライン窓口からの申込み</td>
<td width="575" height="25">
<% If GinkoIraiHozon <> "0" Then Response.Write("<font color=""#888888"">「依頼」ボタンで保存し送信する</font>") Else Response.Write("「依頼」ボタンで保存し送信する") End If %>
<% If GinkoIraiHozon <> "1" Then Response.Write("<font color=""#888888"">「保存」「依頼」の2段階で送信する</font>") Else Response.Write("「保存」「依頼」の2段階で送信する") End If %>
</td>
</tr>
<tr>
<td height="25" bgcolor="#FFEE88">銀行オンライン窓口からの<br> 申し込みに対する処理</td>
<td height="25">
<% If GinkoSyoriKubun <> "1" Then Response.Write("<font color=""#888888"">自動処理する</font>") Else Response.Write("自動処理する") End If %>
<% If GinkoSyoriKubun <> "0" Then Response.Write("<font color=""#888888"">銀行担当者が処理する</font>") Else Response.Write("銀行担当者が処理する") End If %>
</td>
</tr>
<tr>
<td height="25" bgcolor="#FFEE88">銀行オンライン窓口処理が<br> 銀行係の場合の新規口座番号</td>
<td height="25">
<% If GinkoKozaBango <> "0" Then Response.Write("<font color=""#888888"">自動採番する</font>") Else Response.Write("自動採番する") End If %>
<% If GinkoKozaBango <> "1" Then Response.Write("<font color=""#888888"">銀行担当者が指定する</font>") Else Response.Write("銀行担当者が指定する") End If %>
</td>
</tr>
<tr>
<td height="48" bgcolor="#FFEE88">銀行オンライン窓口処理が<br> 自動の場合の振込手数料</td>
<td height="48">
<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" class="tx1416">
<tr>
<td height="18">低金額自行間</td>
<td align="right"> <B><% = ConvIntToMoney(FurikomiTesuryoJiko1, false, false) %></B>円</td>
<td> 高金額自行間</td>
<td align="right"> <B><% = ConvIntToMoney(FurikomiTesuryoJiko2, false, false) %></B>円</td>
</tr>
<tr>
<td height="18">低金額他行間</td>
<td align="right"> <B><% = ConvIntToMoney(FurikomiTesuryoTako1, false, false) %></B>円</td>
<td> 高金額他行間</td>
<td align="right"> <B><% = ConvIntToMoney(FurikomiTesuryoTako2, false, false) %></B>円</td>
</tr>
<tr>
<td height="18" colspan="4"> ただし <B><% = ConvIntToMoney(FurikomiTesuryoBorder, false, false) %></B>円以上を高金額とする</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" bgcolor="#FFEE88">銀行オンライン窓口処理が<br> 自動の場合の振込手数料の負担</td>
<td height="25"><!--当座から振込の場合 --><% If FurikomiTesuryoTozaFutanKubun = "1" Then %>振込人負担<% ElseIf FurikomiTesuryoTozaFutanKubun = "0" Then %>受取人負担<% End If %>
<!-- 当座以外から振込の場合 <% If FurikomiTesuryoHiTozaFutanKubun = "1" Then %>振込人負担<% ElseIf FurikomiTesuryoHiTozaFutanKubun = "0" Then %>受取人負担<% End If %>-->
</td>
</tr>
<tr>
<td height="25" bgcolor="#FFEE88">手形取立・割引の満期処理</td>
<td height="25">
<% If GinkoTegataToriWari <> "0" Then Response.Write("<font color=""#888888"">即時処理する</font>") Else Response.Write("即時処理する") End If %>
<% If GinkoTegataToriWari <> "1" Then Response.Write("<font color=""#888888"">任意に処理する</font>") Else Response.Write("任意に処理する") End If %>
</td>
</tr>
<tr>
<td height="25" bgcolor="#FFEE88">銀行オンライン窓口処理が<br> 自動の場合の手形割引率</td>
<td height="25"><B><% = ConvIntToMoney(JidoGinkoWaribikiRiritsu, false, true) %></B> ％</td>
</tr>
<% If MajorVersion >= 5 Then %>
<tr>
<td height="25" bgcolor="#FFEE88">残高証明書の発行手数料</td>
<td height="25"><B><% = ConvIntToMoney(GinkoShomeiTesuryo, false, false) %></B>円</td>
</tr>
<% End If %>
<tr>
<td height="25" bgcolor="#FFEE88">他市場の銀行を利用可能にする</td>
<td height="25">
<% If GinkoShijokanRiyo <> "1" Then Response.Write("<font color=""#888888"">利用可</font>") Else Response.Write("利用可") End If %>
<% If GinkoShijokanRiyo <> "0" Then Response.Write("<font color=""#888888"">利用不可</font>") Else Response.Write("利用不可") End If %>
</td>
</tr>
<tr>
<td height="25" bgcolor="#FFEE88">金庫を利用する</td>
<td height="25">
<% If KinkoHyoji <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>
<% If KinkoHyoji <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %>
</td>
</tr>
</table>
</td>
</tr>
</table>
</TD>
</TR>
</table>
</TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</div>
</form>
</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>