Index: UI/MB/UGLYPicking/dlgReceptie.cls.xml
===================================================================
diff -u -r30409 -r38234
--- UI/MB/UGLYPicking/dlgReceptie.cls.xml	(.../dlgReceptie.cls.xml)	(revision 30409)
+++ UI/MB/UGLYPicking/dlgReceptie.cls.xml	(.../dlgReceptie.cls.xml)	(revision 38234)
@@ -571,9 +571,15 @@
  } Else 
  {
 	 If ('$$$cmReceptie.IsBufferClosed(..RGID,..VolgNr)){
-	   New Msg
+	   New Msg,MsgType
 	   Set Msg="Wenst u de huidige lijst af te sluiten?"
-	   If $$pdaMsgBox^vhVisual(..Form.Caption,Msg,$$$MBICONQUESTION,1)=$$$mrOk 
+	   Set MsgType=$$$MBICONQUESTION
+	   If $$$cmReceptie.IsDirectLevering(..RGID,..VolgNr)
+	   {
+		Set Msg="***** DIRECT GLS *****"_$C(13,10)_" markering aanbrengen"_$C(13,10)_"********************"_$C(13,10,13,10)_Msg
+	    Set MsgType=$$$MBICONEXCLAMATION
+	   }
+	   If $$pdaMsgBox^vhVisual(..Form.Caption,Msg,MsgType,1)=$$$mrOk 
 	   {		   
 		   If (..LocatieScanNadien){	 	 
 			 New RForm