| |
製造<% If Mode = "Shikakari" Then Response.Write("開始") End If %>日 |
商品 |
ロット |
|
<%
Dim Query
Dim Content
Dim Query2
Dim Content2
Dim Content3
Dim Syoribi
Dim MinusSuryo
Dim TmpBunsyoNaiyoCD
Dim ii, jj
ii = 0
Query = "exec SPD製造指図書一覧 '" & GB_SystemCD & "'"
Query = Query & ", '" & EnshuCD & "'"
Query = Query & ", '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If TmpBunsyoNaiyoCD <> Content.Fields("文書内容CD") Then
TmpBunsyoNaiyoCD = Content.Fields("文書内容CD")
MinusSuryo = 0
'製品出庫モードの場合はすでに出庫された数量をMinusSuryoに算出する
If Mode = "Shukko" And Content.Fields("製造状況区分") = "MS" Then
Query = "exec SPD入出庫一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'MU'"
Set Content2 = OpenQuery(Query)
Do While Not(Content2.BOF Or Content2.EOF)
'先方書類が当該入庫に該当する出庫の数量をMinusSuryoに算出
If Content2.Fields("先方文書種類CD") = Content.Fields("製造状況区分") And Content2.Fields("先方文書内容CD") = Content.Fields("文書内容CD") Then
Query = "exec SPD入出庫取得2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'MU', '" & Content2.Fields("文書内容CD") & "'"
Set Content3 = OpenQuery(Query)
Do While Not(Content3.BOF Or Content3.EOF)
MinusSuryo = MinusSuryo + Content3.Fields("数量")
Content3.MoveNext
Loop
End If
Content2.MoveNext
Loop
End If
'全て出庫したレコードは除外
If (Mode = "Shikakari" And (Content.Fields("製造状況区分") = "PS" Or Content.Fields("製造状況区分") = "YS")) Or (Mode = "Seihin" And (Content.Fields("製造状況区分") = "MS" Or Content.Fields("製造状況区分") = "ZS")) Or (Mode = "Shukko" And Content.Fields("製造状況区分") = "MS" And (Content.Fields("商品数量") - MinusSuryo) > 0) Then
If Mode = "Shikakari" Then
Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
Else
Syoribi = SetTimeYYYYMMDD(Content.Fields("完了日"))
End If
Response.Write("" & vbCrLf)
Response.Write("| | " & vbCrLf)
Response.Write("" & Syoribi & " | " & vbCrLf)
Response.Write("")
If Content.Fields("製造状況区分") = "YS" Or Content.Fields("製造状況区分") = "ZS" Then
Response.Write(ConvZairyoMeisyo(Content.Fields("商品CD"))) '材料の場合は材料名称を取得
Else
Response.Write(Content.Fields("商品名称"))
End If
Response.Write(" | " & vbCrLf)
Response.Write("" & Content.Fields("商品数量") - MinusSuryo & " | " & vbCrLf)
' Response.Write("" & Content.Fields("商品単価") & " | " & vbCrLf)
Response.Write(" ")
ii = ii + 1
End If
End If
Content.MoveNext
Loop
For jj = ii To 18
Response.Write("" & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
' Response.Write(" | " & vbCrLf)
Response.Write(" ")
Next
%>
|
|