<%
'
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim GinkoShijokanRiyo
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
GinkoShijokanRiyo = "" & Content.Fields("銀行市場間利用")
End If
Dim ShijoCD
ShijoCD = Request("ShijoCD")
Dim HyojiFlg
HyojiFlg = Request("HyojiFlg")
If "" & HyojiFlg = "" Then
HyojiFlg = "1" '表示フラグが無い場合は通常処理なので同時同業会社も含める
End If
Dim CopyMoto
CopyMoto = Request("CopyMoto")
Dim GinkoFuyo
GinkoFuyo = Request("GinkoFuyo")
Dim TmpGyoshu
Dim TmpCopyMoto
Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & CopyMoto & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
TmpGyoshu = Content.Fields("業種CD")
TmpCopyMoto = Content.Fields("会社名称")
End If
If TmpGyoshu = "B" Then '銀行の場合は勘定残高設定に飛ぶ（繰越残高設定は行わない）
Response.Redirect("../../../user/bk/kisyusettei/fk_kanjyozandaka_bin.asp?CopyMoto=" & CopyMoto & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg)
ElseIf GinkoFuyo = "1" Then '口座作成が不要の場合は繰越残高設定に飛ぶ
Response.Redirect("../../../user/bk/kisyusettei/fk_kurikoshizandaka_bin.asp?CopyMoto=" & CopyMoto & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg)
End If
Dim KanriKubun
Dim EnshuName
Dim Query
Dim Content
Dim Content2
'演習名称ＧＥＴ
EnshuName = ConvEnshuMeisyo(EnshuCD)
Dim RouteType
RouteType = Request("RouteType")
%>
<% = HtmlHeader("") %>
<% = HtmlFooter %>