MS SQL - unperformante Query - WITH gejointe Tabelle erhöht Abfragedauer um 50

		
WE_Belege = (Select Substring((Select DISTINCT ', ' + ((select WE = (Convert(nvarchar(8),(DocNum)) + '(' + convert(varchar, DocDate, 104) + ')')  from OPDN where B.DocEntry = DocEntry AND B.BaseLine = BaseLine AND CANCELED <> 'Y'))  From PDN1 B Where B.BaseRef=A.BaseRef AND B.BaseLine=A.BaseLine For XML Path('')),2,8000) As WEs  
From PDN1 A where BaseRef = (Select DocNum from OPOR where DocEntry = EKT.DocEntry AND CANCELED <> 'Y') AND BaseEntry = EKT.DocEntry AND BaseLine = EKT.LineNum  
Group By BaseRef, BaseLine),

WITH WE(DocNum,Belege,DocEntry,LineNum) AS
	(Select BSDocNum,WE_Belege,DocEntry,LineNum from(
	Select DISTINCT BSDocNum = OPOR.DocNum, EKT.DocEntry,EKT.LineNum,
				-- Kpl. String --
	WE_Belege = (Select Substring((Select DISTINCT ', ' +   
					-- WE SUBSTRING --
					((select WE = (Convert(nvarchar(8),(DocNum)) + '(' + convert(varchar, DocDate, 104) + ')')    
					from OPDN where B.DocEntry = DocEntry AND B.BaseLine = BaseLine AND CANCELED <> 'Y'))    
					From PDN1 B Where B.BaseRef=A.BaseRef AND B.BaseLine=A.BaseLine For XML Path('')),2,8000) As WEs  
					-- ENDE WE SUBSTRING --
				From PDN1 A 
				where BaseRef = OPOR.DocNum AND BaseEntry = EKT.DocEntry AND BaseLine = EKT.LineNum
				Group By BaseRef, BaseLine)
				-- ENDE Kpl. String --
	from PDN1 EKT
			
	INNER JOIN (Select DocNum,DocEntry,CANCELED from OPOR) OPOR ON OPOR.DocEntry = EKT.DocEntry AND OPOR.CANCELED <> 'Y'  
) AS WEBEL where WE_Belege IS NOT NULL)

WITH WE(DocNum,Belege,DocEntry,LineNum) AS
	(Select BSDocNum,WE_Belege,DocEntry,LineNum from(
	Select DISTINCT BSDocNum = OPOR.DocNum, EKT.DocEntry,EKT.LineNum,
				-- Kpl. String --
	WE_Belege = (Select Substring((Select DISTINCT ', ' +   
					-- WE SUBSTRING --
					((select WE = (Convert(nvarchar(8),(DocNum)) + '(' + convert(varchar, DocDate, 104) + ')')    
					from OPDN where B.DocEntry = DocEntry AND B.BaseLine = BaseLine AND CANCELED <> 'Y'))    
					From PDN1 B Where B.BaseRef=A.BaseRef AND B.BaseLine=A.BaseLine For XML Path('')),2,8000) As WEs  
					-- ENDE WE SUBSTRING --
				From PDN1 A 
				where BaseRef = OPOR.DocNum AND BaseEntry = EKT.DocEntry AND BaseLine = EKT.LineNum
				Group By BaseRef, BaseLine)
				-- ENDE Kpl. String --
	from PDN1 EKT
			
	INNER JOIN (Select DocNum,DocEntry,CANCELED from OPOR) OPOR ON OPOR.DocEntry = EKT.DocEntry AND OPOR.CANCELED <> 'Y'  
) AS WEBEL where WE_Belege IS NOT NULL)

		select 
		BANF = EKT.BaseRef,
		Abt = CASE WHEN EKT.SlpCode = '21' Then 'H4' Else OSLP.Memo End,  
		Name = OSLP.SlpName,
		MA = LEFT(RIGHT((OSLP.SlpName), CHARINDEX (' ' ,REVERSE((OSLP.SlpName)))-1),2) + LEFT(LEFT((OSLP.SlpName), charindex(' ', (OSLP.SlpName)) - 1),2),  
		Kunde = CASE WHEN EKT.project LIKE '15-10%' THEN isnull((OPRJ.PrjName),'') ELSE isnull((ORDR.CardName),'') End,  
		PRJ = EKT.project,
		Kom = EKT.U_ROC_Kommission,
		Lieferant = OPOR.CardName,
		Code = OPOR.CardCode,
		FF = OPOR.FF,
		Beleg = OPOR.DocNum,
		Pos = EKT.VisOrder + 1, 
		Datum = Convert(date,OPOR.DocDate,104),
		Lieferwunsch = convert(date, EKT.ShipDate, 104),
		AB = convert(date, EKT.U_AB_Termin, 104),
		Menge = Convert(nvarchar(10),REPLACE(CONVERT(numeric(15),EKT.OpenQty ),'.',',')) + '/' + Convert(nvarchar(10),REPLACE(CONVERT(numeric(15),EKT.Quantity),'.',',')),  
		ME = EKT.unitMsr,
		Artikel = EKT.ItemCode,
		Bezeichnung = EKT.Dscription,
		Typ = (Select U_VKBez from OITM where ItemCode = EKT.ItemCode),
		Artikelinfo = EKT.U_ArtBem,
		Zeichnung = EKT.U_beas_znr,
		Zeilenerw = EKT.[Text],
		-- Folgende Spalte "Stand" ist Mist!!! --  
		Stand = CASE WHEN EKT.TargetType = 20 AND EKT.OpenQty > 0 THEN 'teilw. geliefert'   
		WHEN (EKT.TargetType = 20 AND EKT.OpenQty = 0) AND (Select Top 1 TargetType from PDN1 where BaseEntry = EKT.DocEntry AND BaseLine = EKT.LineNum) = -1 THEN 'geliefert'   
		WHEN (EKT.TargetType = 20 AND EKT.OpenQty = 0) AND (Select Top 1 TargetType from PDN1 where BaseEntry = EKT.DocEntry AND BaseLine = EKT.LineNum) = 18 THEN 'berechnet'   
		WHEN EKT.TargetType = 18 AND EKT.OpenQty > 0 THEN 'teilw. berechnet'   
		WHEN EKT.TargetType = 18 AND EKT.OpenQty = 0 THEN 'berechnet'   
		WHEN EKT.OpenQty = 0 AND EKT.TargetType = -1 Then 'canceled'   
		ELSE 'Offen' END,  
		WEs = WE.Belege,
		Status = OPOR.DocStatus,
		L_Stat = EKT.LineStatus,
		Suche = (Convert(nvarchar(16),EKT.ItemCode) + ' ' + isnull(EKT.Dscription,'') + ' ' + isnull((Select U_VKBez from OITM where ItemCode = EKT.ItemCode),'') + ' ' + isnull(EKT.U_ArtBem,'') + ' ' + isnull(EKT.U_beas_znr,'') + ' ' + isnull(Convert(nvarchar(256),EKT.[Text]),''))  
		from POR1 EKT 
		
		INNER JOIN (Select DocEntry,DocDate,DocNum,DocStatus,CardCode,CardName, FF =
		CASE WHEN ((Select U_FF from OCRD where OCRD.CardCode = OPOR.CardCode) = 'Y' OR (Select U_VED from OCRD where OCRD.CardCode = OPOR.CardCode) = 'Y') THEN 'X' ELSE '' END  
		from OPOR) OPOR ON OPOR.DocEntry = EKT.DocEntry
		
		INNER JOIN (Select SlpCode,SlpName,Memo from OSLP) OSLP ON OSLP.SlpCode = EKT.SlpCode
		
		LEFT JOIN (Select PrjName, PrjCode from OPRJ) OPRJ ON OPRJ.PrjCode = EKT.Project
		LEFT JOIN (Select CardName,DocNum = Convert(nvarchar(8),DocNum) from ORDR) ORDR ON ORDR.DocNum = EKT.U_ROC_Kommission
		LEFT JOIN WE ON WE.DocEntry = EKT.DocEntry AND WE.LineNum = EKT.Linenum