%
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query
Dim Content
Dim Content2
Dim EnshuCD
Dim EnshuName
EnshuCD = Request("EnshuCD")
Dim KaisyaCD
KaisyaCD = Request("KaisyaCD")
Dim BunsyoNaiyoCD
BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
Dim BunsyoSyuruiCD
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
Dim BunsyoNaiyoZU '材料出庫
Dim BunsyoNaiyoPS '仕掛品入庫
Dim BunsyoNaiyoPU '仕掛品出庫
Dim BunsyoNaiyoMS '製品入庫
Dim BunsyoNaiyoMU '製品出庫
Dim BunsyoNaiyoSS '仕入入庫
'TGD製造指図書F
'材料出庫CD・商品入庫CD
'ZU:材料出庫 材料出庫CD
'PS:仕掛品入庫 材料出庫CD(ZUと同時に作られるため常に同じCD)
'PU:仕掛品出庫 MSの先方書類
'MS:製品入庫 商品入庫CD
'MU:製品出庫 MSを先方書類に持つ書類(出庫は複数に分けることが可能なため)
'SS:仕入入庫 MUを先方書類に持つ書類(常にMUと同レコード数になるがCDは同じではない)
'ZUは完結。他はMSから前後に辿る。
'TSK補助簿_原価計算表F
'TGD製造指図書F.文書内容CDに従う
'TSK補助簿_製造間接費配賦表F
'製造指図書単位ではないため組戻し不能
'製品入庫の文書内容CDを取得
Query = "exec SPD製造指図書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & BunsyoNaiyoCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
BunsyoNaiyoZU = "" & Content.Fields("材料出庫CD")
BunsyoNaiyoPS = "" & Content.Fields("材料出庫CD") '仕掛品入庫の文書内容CDは材料出庫と常に同じ
If "" & Content.Fields("製造状況区分") = "MS" Then
BunsyoNaiyoMS = "" & Content.Fields("商品入庫CD")
If BunsyoNaiyoMS <> "" Then
'仕掛品出庫の文書内容CDを取得(製品入庫の先方文書内容CDを逆引き)
Query = ""
Query = Query & " "
Query = Query & " SELECT * FROM TGA入出庫TRN "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
Query = Query & " AND 文書種類CD = 'MS' AND 文書内容CD = '" & BunsyoNaiyoMS & "' AND 先方文書種類CD = 'PU' "
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
BunsyoNaiyoPU = "" & Content.Fields("先方文書内容CD")
' If BunsyoNaiyoPU <> "" Then
'※※※仕掛品入庫の文書内容CDは材料出庫と常に同じなのでここでは取得不要※※※
'仕掛品入庫の文書内容CDを取得(仕掛品出庫の先方文書内容CDを逆引き)
' Query = ""
' Query = Query & " "
' Query = Query & " SELECT * FROM TGA入出庫TRN "
' Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
' Query = Query & " AND 文書種類CD = 'PU' AND 文書内容CD = '" & BunsyoNaiyoPU & "' AND 先方文書種類CD = 'PS' "
' Set Content = OpenQuery(Query)
' If Not(Content.BOF Or Content.EOF) Then
' BunsyoNaiyoPS = "" & Content.Fields("先方文書内容CD")
' End If
' End If
End If
'製品出庫の文書内容CDを取得(製品入庫を先方文書内容CDに持つ書類)
Query = ""
Query = Query & " "
Query = Query & " SELECT * FROM TGA入出庫TRN "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
Query = Query & " AND 文書種類CD = 'MU' AND 先方文書種類CD = 'MS' AND 先方文書内容CD = '" & BunsyoNaiyoMS & "' "
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
'複数存在する可能性が在るので羅列に取得
If "" & Content.Fields("文書内容CD") <> "" Then
If BunsyoNaiyoMU <> "" Then
BunsyoNaiyoMU = BunsyoNaiyoMU & ","
End If
BunsyoNaiyoMU = BunsyoNaiyoMU & "'" & Content.Fields("文書内容CD") & "'"
'仕入入庫の文書内容CDを取得(製品出庫を先方文書内容CDに持つ書類)
Query = ""
Query = Query & " "
Query = Query & " SELECT * FROM TGA入出庫TRN "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
Query = Query & " AND 文書種類CD = 'SS' AND 先方文書種類CD = 'MU' AND 先方文書内容CD = '" & Content.Fields("文書内容CD") & "' "
Set Content2 = OpenQuery(Query)
Do While Not(Content2.BOF Or Content2.EOF)
'複数存在する可能性が在るので羅列に取得
If "" & Content2.Fields("文書内容CD") <> "" Then
If BunsyoNaiyoSS <> "" Then
BunsyoNaiyoSS = BunsyoNaiyoSS & ","
End If
BunsyoNaiyoSS = BunsyoNaiyoSS & "'" & Content.Fields("文書内容CD") & "'"
End If
Content2.MoveNext
Loop
End If
Content.MoveNext
Loop
End If
End If
End If
If BunsyoNaiyoZU <> "" Then
BunsyoNaiyoZU = "'" & BunsyoNaiyoZU & "'"
End If
If BunsyoNaiyoPS <> "" Then
BunsyoNaiyoPS = "'" & BunsyoNaiyoPS & "'"
End If
If BunsyoNaiyoPU <> "" Then
BunsyoNaiyoPU = "'" & BunsyoNaiyoPU & "'"
End If
If BunsyoNaiyoMS <> "" Then
BunsyoNaiyoMS = "'" & BunsyoNaiyoMS & "'"
End If
Response.Write("材料出庫:" & BunsyoNaiyoZU & "
")
Response.Write("仕掛品入庫:" & BunsyoNaiyoPS & "
")
Response.Write("仕掛品出庫:" & BunsyoNaiyoPU & "
")
Response.Write("製品入庫:" & BunsyoNaiyoMS & "
")
Response.Write("製品出庫:" & BunsyoNaiyoMU & "
")
Response.Write("仕入入庫:" & BunsyoNaiyoSS & "
")
'Exit Sub
'削除
If BunsyoNaiyoZU <> "" Then
Query = ""
Query = Query & " "
Query = Query & " DELETE FROM TGA入出庫TRN "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
Query = Query & " AND 文書種類CD = 'ZU' AND 文書内容CD IN (" & BunsyoNaiyoZU & ") "
Set Content = OpenQuery(Query)
End If
If BunsyoNaiyoPS <> "" Then
Query = ""
Query = Query & " "
Query = Query & " DELETE FROM TGA入出庫TRN "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
Query = Query & " AND 文書種類CD = 'PS' AND 文書内容CD IN (" & BunsyoNaiyoPS & ") "
Set Content = OpenQuery(Query)
End If
If BunsyoNaiyoPU <> "" Then
Query = ""
Query = Query & " "
Query = Query & " DELETE FROM TGA入出庫TRN "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
Query = Query & " AND 文書種類CD = 'PU' AND 文書内容CD IN (" & BunsyoNaiyoPU & ") "
Set Content = OpenQuery(Query)
End If
If BunsyoNaiyoMS <> "" Then
Query = ""
Query = Query & " "
Query = Query & " DELETE FROM TGA入出庫TRN "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
Query = Query & " AND 文書種類CD = 'MS' AND 文書内容CD IN (" & BunsyoNaiyoMS & ") "
Set Content = OpenQuery(Query)
End If
If BunsyoNaiyoMU <> "" Then
Query = ""
Query = Query & " "
Query = Query & " DELETE FROM TGA入出庫TRN "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
Query = Query & " AND 文書種類CD = 'MU' AND 文書内容CD IN (" & BunsyoNaiyoMU & ") "
Set Content = OpenQuery(Query)
End If
If BunsyoNaiyoSS <> "" Then
Query = ""
Query = Query & " "
Query = Query & " DELETE FROM TGA入出庫TRN "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
Query = Query & " AND 文書種類CD = 'SS' AND 文書内容CD IN (" & BunsyoNaiyoSS & ") "
Set Content = OpenQuery(Query)
End If
'全ての不要な明細を削除
Query = Query & " DELETE TGA入出庫明細TRN "
Query = Query & " FROM TGA入出庫明細TRN "
Query = Query & " LEFT OUTER JOIN TGA入出庫TRN "
Query = Query & " ON TGA入出庫明細TRN.システムCD = TGA入出庫TRN.システムCD "
Query = Query & " AND TGA入出庫明細TRN.演習CD = TGA入出庫TRN.演習CD "
Query = Query & " AND TGA入出庫明細TRN.会社CD = TGA入出庫TRN.会社CD "
Query = Query & " AND TGA入出庫明細TRN.作成会社CD = TGA入出庫TRN.作成会社CD "
Query = Query & " AND TGA入出庫明細TRN.文書種類CD = TGA入出庫TRN.文書種類CD "
Query = Query & " AND TGA入出庫明細TRN.文書内容CD = TGA入出庫TRN.文書内容CD "
Query = Query & " WHERE TGA入出庫TRN.システムCD IS NULL "
Set Content = OpenQuery(Query)
If BunsyoNaiyoCD <> "" Then
Query = ""
Query = Query & " "
Query = Query & " DELETE FROM TSK補助簿_原価計算表F "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
Query = Query & " AND 製造指図書CD = '" & BunsyoNaiyoCD & "' "
Set Content = OpenQuery(Query)
Query = ""
Query = Query & " "
Query = Query & " DELETE FROM TGD製造指図書F "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
Query = Query & " AND 文書内容CD = '" & BunsyoNaiyoCD & "' "
Set Content = OpenQuery(Query)
End If
Response.Redirect("fm_enshucontrol08.asp?EnshuCD=" & EnshuCD)
End Sub
%>