Index: TRANSPStatusKlantVandaag.mac.rou
===================================================================
diff -u -r74934 -r74954
--- TRANSPStatusKlantVandaag.mac.rou	(.../TRANSPStatusKlantVandaag.mac.rou)	(revision 74934)
+++ TRANSPStatusKlantVandaag.mac.rou	(.../TRANSPStatusKlantVandaag.mac.rou)	(revision 74954)
@@ -429,15 +429,16 @@
 	Quit Verzendwijze
 	
 GetGeplandProductieEinde(TOENr,TLNr)
-	New TLUNr,result,EindTijdstip
+	New TLUNr,result,EindTijdstip,LevancierNr
 	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'
+		Set LevancierNr = $PIECE(^KTO1(TOENr),"\",1)
+		Set TLUNr=$P(^KTO(LevancierNr,TOENr,TLNr),"\",15)
 	}
 	
 	;Write !,ORDNr," ",TOENr," "