Index: TRANSPStatusKlantVandaag.mac.rou
===================================================================
diff -u -r73922 -r74954
--- TRANSPStatusKlantVandaag.mac.rou	(.../TRANSPStatusKlantVandaag.mac.rou)	(revision 73922)
+++ TRANSPStatusKlantVandaag.mac.rou	(.../TRANSPStatusKlantVandaag.mac.rou)	(revision 74954)
@@ -429,9 +429,18 @@
 	Quit Verzendwijze
 	
 GetGeplandProductieEinde(TOENr,TLNr)
-	New TLUNr,result,EindTijdstip
-	Set TLUNr=$P(^KTO($$$LevHalux,TOENr,TLNr),"\",15)
+	New TLUNr,result,EindTijdstip,LevancierNr
+	Set TLUNr= ""
 	
+	If $D(^KTO($$$LevHalux,TOENr,TLNr)) 
+	{
+		Set TLUNr=$P(^KTO($$$LevHalux,TOENr,TLNr),"\",15)
+	} 
+	Else {
+		Set LevancierNr = $PIECE(^KTO1(TOENr),"\",1)
+		Set TLUNr=$P(^KTO(LevancierNr,TOENr,TLNr),"\",15)
+	}
+	
 	;Write !,ORDNr," ",TOENr," "
 
 	Set result=##class(%ResultSet).%New("%DynamicQuery:SQL")