Index: TRANSPStatusKlantVandaag.mac.rou
===================================================================
diff -u -r73879 -r73922
--- TRANSPStatusKlantVandaag.mac.rou	(.../TRANSPStatusKlantVandaag.mac.rou)	(revision 73879)
+++ TRANSPStatusKlantVandaag.mac.rou	(.../TRANSPStatusKlantVandaag.mac.rou)	(revision 73922)
@@ -52,7 +52,7 @@
     Set MaxCounter = 0
     Set (BevatBeslag,BevatMaatwerk,BevatOL) = $$$False
     While (Counter'=""){	    
-	    If $$$Not( $Piece(List(Counter),"\",8) [ "Op transport" ){
+	    If ($$$Not( $Piece(List(Counter),"\",8) [ "Op transport" )) && ($$$Not($P(List(Counter),"\",6)="DD1")) { 
 		    Set MaxCounter = Counter
 	    	Set:($Piece(List(Counter),"\",7) [ "BSL") BevatBeslag = $$$True
 	    	Set:(($Piece(List(Counter),"\",7) [ "LADE") ! ($Piece(List(Counter),"\",7) [ "HAL")) BevatMaatwerk = $$$True