<% ' %> <% 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 %> <% = PrintScriptX %> <% Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Dim ii ii = 0 ' Query = "exec SPK演習出庫非受付一覧 '" & GB_SystemCD & "', '" & EnshuCD & "'" Query = "exec SPK演習出庫連動入庫一覧 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) 'Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ii = ii + 1 Content.MoveNext Loop %>

演習名：" & EnshuMeisyo & "

" & vbCrLf) '行内を入れ子テーブルにする Response.Write("" & vbCrLf) '見出し 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) 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(" 学生氏名 会社コード 出庫会社 区分 出庫No 出庫日 取引先 " & ConvGakuseiShimei(ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("作成会社CD"))) & " " & Content.Fields("作成会社CD") & " " & Content.Fields("出庫会社名称") & " ") If Content.Fields("文書種類CD") = "SU" Then Response.Write("通常") Else Response.Write("返品") End If Response.Write(" " & Content.Fields("文書内容CD") & " " & Content.Fields("処理日") & " " & Content.Fields("取引先名称") & " " & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Dim ShohinCnt ShohinCnt = 0 Query = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & Content.Fields("会社CD") & "', '" & Content.Fields("作成会社CD") & "', '" & Content.Fields("文書種類CD") & "', '" & Content.Fields("文書内容CD") & "'" Set Content2 = OpenQuery(Query) Do While Not(Content2.BOF Or Content2.EOF) ShohinCnt = ShohinCnt + 1 If ShohinCnt = 3 Or ShohinCnt = 5 Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Content2.MoveNext Loop If ShohinCnt Mod 2 = 1 Then 'If ShohinCnt = 3 Or ShohinCnt = 5 Then Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write(" 商品" & ShohinCnt & " " & ConvSyohinRyakuMeisyo(Content2.Fields("商品CD")) & " 数量：" & SetMoney(Content2.Fields("数量"), false, true) & " 単価：" & SetMoney(Content2.Fields("単価"), false, true) & "   " & vbCrLf) Response.Write("

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