Index: TRANSPStatusKlantVandaag.mac.rou
===================================================================
diff -u -r72055 -r73922
--- TRANSPStatusKlantVandaag.mac.rou	(.../TRANSPStatusKlantVandaag.mac.rou)	(revision 72055)
+++ TRANSPStatusKlantVandaag.mac.rou	(.../TRANSPStatusKlantVandaag.mac.rou)	(revision 73922)
@@ -27,7 +27,55 @@
 	Set:($O(List(""),-1)>1)||(AltijdTonen) Input=$$Popup(KLNr)
 	Quit Input
 
+ExtraMagInfoViaBon(BONNr)
+	New OrdNr, ListItem, Counter, MaxCounter, BevatBeslag, BevatMaatwerk,BevatOL,ObjtOrderNr, ExtraInfo
+    Kill Cache,ProductieCache,OrdIndex,OrdCnt,List
+    Set ExtraInfo = ""
+	Set KLNr=$P($G(^ORDW("D",BONNr)),"\")
+	Set OrdNr = $O(^ORDW("D",BONNr,"D",""))
+	Set StraatGemeente=$$GeefCompactAdresVanOrder(KLNr, OrdNr) ; als nog niet op bon staat
+	Set:(StraatGemeente=";") StraatGemeente=$$GeefCompactAdresVanBon(KLNr,BONNr) ; als het al op bon staat
+	
+	Set VerzendDatum=+$H
+	Set MarkBONNr=BONNr
+	Do FetchOrders(KLNr,StraatGemeente,VerzendDatum)
+	Do FetchReedsOpBon(KLNr,StraatGemeente,VerzendDatum)
+	;w ! zw Cache , ProductieCache
+	;w ! zw OrdIndex
+	Do GroepBon ; het initieel opsplitsen van orders en prodgroepen zoveel mogelijk groeperen zodat de lijst klein blijft.
+	Do GroepOrder ; Groeperen van deels nog te produceren en deel geproduceerde laden
+	;w ! zw Cache ;, ProductieCache
+	Do FlattenCache(MarkBONNr)
+    ;zw List
+    
+    Set Counter = "", Counter=$O(List(Counter))
+    Set MaxCounter = 0
+    Set (BevatBeslag,BevatMaatwerk,BevatOL) = $$$False
+    While (Counter'=""){	    
+	    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
+	    	Set:($Piece(List(Counter),"\",7) [ "OL") BevatOL = $$$True
+	    }
+	    Set Counter=$O(List(Counter))
+    }
+    if ((MaxCounter=1) && (BevatMaatwerk=$$$False) && (BevatOL = $$$False)) {
+	    ;check in objt of single order picklist -> 'S'
+	    if ##class(OBJTimpl.WMSOrder.OphalenOrderInOBJT).%New().IsSingleOrderPicklist(BONNr) {
+		    Set ExtraInfo = "S"
+        	;w !,ObjtOrderNr,$Select(((MaxCounter=1) && (BevatMaatwerk=$$$False) && (BevatOL = $$$False)):"S",1:"")
+	    }
 
+    } else {
+	    ;w !,$Select( (BevatMaatwerk && ( BevatBeslag ! BevatOL)):"M",1:"")
+	    if (BevatMaatwerk && ( BevatBeslag ! BevatOL)) {
+		    Set ExtraInfo = "M"		    
+	    }
+    }
+ 	Quit ExtraInfo
+
+
 Popup(KLNr)
 	Do STORE^vhTERMINA()
 	New Titel,Input