<% ' %> <% 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 %> <% = AppTitle %> <% = 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 %>