Index: TRANSPStatusKlantVandaag.mac.rou
===================================================================
diff -u -r73922 -r74934
--- TRANSPStatusKlantVandaag.mac.rou	(.../TRANSPStatusKlantVandaag.mac.rou)	(revision 73922)
+++ TRANSPStatusKlantVandaag.mac.rou	(.../TRANSPStatusKlantVandaag.mac.rou)	(revision 74934)
@@ -430,8 +430,16 @@
 	
 GetGeplandProductieEinde(TOENr,TLNr)
 	New TLUNr,result,EindTijdstip
-	Set TLUNr=$P(^KTO($$$LevHalux,TOENr,TLNr),"\",15)
+	Set TLUNr= ""
 	
+	If $D(^KTO($$$LevHalux,TOENr,TLNr)) 
+	{
+		Set TLUNr=$P(^KTO($$$LevHalux,TOENr,TLNr),"\",15)
+	} 
+	Else {
+		Set TLUNr=$P(^KTO(7695,TOENr,TLNr),"\",15) //leverancier 'Bouttens'
+	}
+	
 	;Write !,ORDNr," ",TOENr," "
 
 	Set result=##class(%ResultSet).%New("%DynamicQuery:SQL")