<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim ContentUra Dim EnshuCD Dim EnshuName EnshuCD = Request("EnshuCD") 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 BunsyoSyuruiCD BunsyoSyuruiCD = Request("BunsyoSyuruiCD") Dim Label Label = "小切手" If BunsyoSyuruiCD = "TK" Then Label = "為替手形" ElseIf BunsyoSyuruiCD = "TY" Then Label = "約束手形" End If Label = "領収書" %> <% = HtmlHeader("") %>

<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If GB_Admin = 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "')", "演習コントロール", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "受取" & Label & "返却", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "')", "演習コントロール", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?En6shuCD=" & EnshuCD & "')", "受取" & Label & "返却", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1(" " & Label & "返却を実行する ", "syokaibtn()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Dim ButtonTG Dim ActionTG Dim ButtonTK Dim ActionTK Dim ButtonTY Dim ActionTY If BunsyoSyuruiCD <> "TG" Then ButtonTG = "小切手" ActionTG = "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol01.asp?EnshuCD=" & EnshuCD & "&BunsyoSyuruiCD=TG')" End If If BunsyoSyuruiCD <> "TK" Then ButtonTK = "為替手形" ActionTK = "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol01.asp?EnshuCD=" & EnshuCD & "&BunsyoSyuruiCD=TK')" End If If BunsyoSyuruiCD <> "TY" Then ButtonTY = "約束手形" ActionTY = "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol01.asp?EnshuCD=" & EnshuCD & "&BunsyoSyuruiCD=TY')" End If ButtonTG = "" ActionTG = "" ButtonTK = "" ActionTK = "" ButtonTY = "" ActionTY = "" Response.Write(HttpL3_2("戻る", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", ButtonTG, ActionTG, ButtonTY, ActionTY, ButtonTK, ActionTK, "", "")) Response.Write(HttpL4("演習コントロール", "" & Label & "返却")) Response.Write(HttpL5("受取" & Label & "を表示しています")) %>

対象演習名

<% = EnshuMeisyo %>

<% If ConvEnshuKubun(EnshuCD) = "P" Then %> <% Else %> <% End If %>

学生氏名

会社コード

受取会社

発行日

発行会社

額面

摘要

<% Dim ii ii = 0 Query = "exec SPK領収書一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '', 'TU', 'RA'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) 'If "" & Content.Fields("受取人CD") <> "" And "" & Content.Fields("顛末日") = "" Then If "" & Content.Fields("削除フラグ") <> "1" Then Response.Write("" & vbCrLf) If ConvEnshuKubun(EnshuCD) = "P" Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If Dim TmpUketorinin 'TmpUketorinin = Content.Fields("受取人名称") '最後に受け取った者は受取手形を所有する会社が該当する If Content.Fields("会社CD") = "ETCETC" Then TmpUketorinin = "その他" Else TmpUketorinin = ConvKaisyaRyakuMeisyoDx(EnshuCD, Content.Fields("会社CD")) End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ii = ii + 1 End If Content.MoveNext Loop %>

" & ConvGakuseiShimei(Content.Fields("学生番号")) & "

") If Content.Fields("会社CD") <> "ETCETC" Then Response.Write(Content.Fields("会社CD")) Else Response.Write("（その他の会社）") End If Response.Write("

" & TmpUketorinin & "

" & Content.Fields("取引日") & "

" & Content.Fields("発行人名称") & "

" & SetMoney(Content.Fields("金額"), false, true) & "

" & Content.Fields("摘要") & "

<% = HtmlFooter %> <% End Sub %>