<% Dim ii, jj ii = 0 Query = "exec SPC出庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) 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 Response.Write("") Content.MoveNext Loop For jj = ii To -1 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) Response.Write("") Next %>

" & Content.Fields("出庫番号") & "	" & Content.Fields("商品略名称") & "	" & SetTimeYYYYMMDD(Content.Fields("出庫年月日")) & "	" & Content.Fields("期数") & "	" & Content.Fields("出庫数量") & "	" & ConvIntToMoney(Content.Fields("保管料金"), false, false) & "	" & ConvIntToMoney(Content.Fields("荷役料金"), false, false) & "	" & Content.Fields("摘要") & "