<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim Content2 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 %> <% = 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 & "')", "出入庫組戻し", "", "", "", "", "")) 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 & "')", "出入庫組戻し", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1(" 製造を組戻す ", "syokaibtn()", "", "", "", "", "", "", "", "")) 'Response.Write(HttpL3_1("印刷", "PrintoutRealInline('" & Replace(Request.ServerVariables("URL"), ".asp", "_print.asp") & "?EnshuCD=" & EnshuCD & "');", " 出入庫を組戻す ", "syokaibtn()", "", "", "", "", "", "")) 'Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("戻る", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("演習コントロール", "製造組戻し")) 'Response.Write(HttpL5("未入庫の出庫を表示しています")) Response.Write(HttpL5("")) %>

対象演習名

<% = EnshuMeisyo %>

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

学生氏名

会社コード

製造会社

No

状態

製造開始日

製造完了日

製品名

数量

単価

<% Dim ii ii = 0 ' Query = "exec SPK演習出庫非受付一覧 '" & GB_SystemCD & "', '" & EnshuCD & "'" ' Query = "exec SPK演習出庫連動入庫一覧 '" & GB_SystemCD & "', '" & EnshuCD & "'" Query = "exec SPD製造指図書一覧 '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" Query = Query & ", ''" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("" & vbCrLf) If ConvEnshuKubun(EnshuCD) = "P" Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ii = ii + 1 Content.MoveNext Loop %>

" & ConvGakuseiShimei(ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD"))) & "

" & Content.Fields("会社CD") & "

" & Content.Fields("製造会社名") & "

" & Content.Fields("文書内容CD") & "

") If Content.Fields("製造状況区分") = "MS" Then Response.Write("製品") Else Response.Write("仕掛品") End If Response.Write("

" & Content.Fields("処理日") & "

" & Content.Fields("完了日") & "

" & HardWrap(Content.Fields("商品名称")) & "

" & Content.Fields("商品数量") & "

" & SetMoney(Content.Fields("商品単価"), false, true) & "

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