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