<%
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query
Dim Content
Dim ContentTG
Dim EnshuCD
Dim EnshuName
EnshuCD = Request("EnshuCD")
If GB_EnshuCD <> "" Then
EnshuCD = GB_EnshuCD
End If
If EnshuCD <> "" Then
Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
EnshuName = Content.Fields("演習名称")
End If
End If
Dim Kubun
Kubun = Request("Kubun")
Dim Kekka
Kekka = Request("Kekka")
Dim BunsyoSyuruiCD
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
Dim ShoriKubun
ShoriKubun = Request("ShoriKubun")
If Kubun <> "1" Then
Kekka = ""
End If
'手作業で処理済みの場合は申込が存在しないので結果通知書CDが必要
'申込の場合も処理済みを逆引きするため結果通知書CDが必要
Dim ActBunsyoSyuruiCD
ActBunsyoSyuruiCD = BunsyoSyuruiCD
' If Kubun = "1" Then
If BunsyoSyuruiCD = "BA" Then
ActBunsyoSyuruiCD = "BN"
ElseIf BunsyoSyuruiCD = "BB" Then
ActBunsyoSyuruiCD = "BO"
ElseIf BunsyoSyuruiCD = "BC" Then
ActBunsyoSyuruiCD = "BP"
ElseIf BunsyoSyuruiCD = "BD" Then
ActBunsyoSyuruiCD = "BQ"
ElseIf BunsyoSyuruiCD = "BE" Then
ActBunsyoSyuruiCD = "BR"
ElseIf BunsyoSyuruiCD = "BF" Then
ActBunsyoSyuruiCD = "BS"
ElseIf BunsyoSyuruiCD = "BG" Then
ActBunsyoSyuruiCD = "BT"
End If
' End If
'処理済みを逆引きするための配列作成
Dim ShoriZumiAry
ShoriZumiAry = ""
If Kubun <> "1" Then
Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '', '', '" & ActBunsyoSyuruiCD & "'" '結果通知書CD
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
ShoriZumiAry = ShoriZumiAry & "::" & Content.Fields("取引先CD") & ":" & Content.Fields("先方文書内容CD") & ":" & Content.Fields("先方文書種類CD") & "::"
Content.MoveNext
Loop
End If
'同時同業で銀行-窓口業務から利用する際は学生番号が特定出来なければならない
Dim SeitoCD
SeitoCD = Request("SeitoCD")
%>
<% = HtmlHeader("") %>
<% = HtmlFooter %>
<%
End Sub
%>