Teileverwendung - HowTo

[Carsten Meister]

Hallo zusammen,

nachdem ich das Stücklistenproblem gelöst habe, durfte ich gleich darauf auch noch die Teileverwendung Programmierung, also die Stückliste in Rückwärts (sozusagen). Auch hier muss wieder rekursiv gearbeitet werden. Hier ist der Code dafür (Basis sind MS Dynamics NAV 4.03 Tabellen auf dem MS SQL 2005):

WITH [TVerwendung](SortID, Basisartikel, Strukturartikel, Kopfartikel, Strukturmenge, Ebene) 
AS 
(
SELECT cast(convert(varchar(200),No_) + convert(varchar(200), [Production BOM No_]) as varchar(200)), 
No_ as Basisartikel, No_ as  Strukturartikel, [Production BOM No_],
CONVERT(decimal(10, 2), Quantity) AS Menge,1 AS Ebene

FROM [Production BOM Line] AS PBL
WHERE (PBL.Type = 1)

UNION ALL

SELECT cast(SortID +  convert(varchar(200), PBL2.[Production BOM No_]) as varchar(200)), 
TV.Basisartikel, PBL2.No_, PBL2.[Production BOM No_], 
CONVERT(decimal(10, 2), PBL2.Quantity) AS Expr2, Ebene + 1 AS Expr1

FROM  [Production BOM Line] AS PBL2 INNER JOIN
      [TVerwendung] AS TV ON PBL2.No_ = TV.Kopfartikel
WHERE     (PBL2.Type = 1))

SELECT SortID, Basisartikel, Strukturartikel, Kopfartikel, Strukturmenge, Ebene
FROM [TVerwendung] AS [TVerwendung_1]

Ich hoffe das hilft dem ein oder anderen

MfG

Carsten