Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r20080 -r38234
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 20080)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 38234)
@@ -1398,6 +1398,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsDirectLevering">
+<Description>
+Controle of de Toelevering onmiddellijk op de GLS vrachtwagen kan geplaatst worden.</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>bfrRGID:%Library.String,bfrVolgNr:%Library.String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Library.Boolean</ReturnType>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+	Set AssocToelevering=..GetCommonAssocToelev(bfrRGID , bfrVolgNr)
+	If AssocToelevering { 
+		Set IsDirectLevering= ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaToelevering(AssocToelevering)=""
+	} Else { 
+		Set IsDirectLevering=0
+	}
+	Quit IsDirectLevering
+]]></Implementation>
+</Method>
+
 <Method name="IsProdWithLocAndPalInBuffer">
 <Description>
 Geeft LijnNr terug bij overeenkomst
Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(revision 0)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(revision 38234)
@@ -0,0 +1,188 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.MB.UGLYPicking.VerzendDirectControleur">
+<IncludeCode>BL.Derde.LevSpecifiek</IncludeCode>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="AantalWerkDagen">
+<Description>
+Vandaag op transport en morgen leveren = Aantalwerkdagen=1, maar er mag 1 dag extra omdat DI1 in de namiddag wordt geproduceerd.</Description>
+<Default>2</Default>
+</Parameter>
+
+<Parameter name="MaxAantalLades">
+<Default>15</Default>
+</Parameter>
+
+<Parameter name="GewensteVerzendwijze">
+<Default>DI1</Default>
+</Parameter>
+
+<Method name="Create">
+<Description>
+d ##class(BL.MB.UGLYPicking.Receptie).IsDirectLevering("TB",4)
+d ##class(BL.MB.UGLYPicking.VerzendDirectControleur).Create()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	s ^UPRCP("B","TB",4)	=	"64254,41554\1\OVE\1"
+	s ^UPRCP("B","TB",4,1)	=	"1549631\T.P7.JY.5\TBX19975\04020101\1\64254,41552\OVE\247299"
+	s ^UPRCP("B","TB",5)	=	"64254,41554\1\OVE\1"
+	s ^UPRCP("B","TB",5,1)	=	"1549677\T.P7.JY.5\TBX19975\04020101\6\64254,41552\OVE\247305"
+	s ^UPRCP("B","TB",5,2)	=	"1549678\T.P7.JY.5\TBX19975\04020101\4\64254,41552\OVE\247305"
+]]></Implementation>
+</Method>
+
+<Method name="CheckAll">
+<Description>
+d ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().CheckAll()</Description>
+<Implementation><![CDATA[
+	s Dev=0 ;$$OPEN^vhDEV(,"test.txt","W","T")
+	u Dev
+	Set KTONr=""
+	For  Set KTONr=$O(^KTO(6332,KTONr)) Quit:KTONr=""  Do
+	. Write KTONr, *9,..ControleViaToelevering(KTONr),!
+	Do CLOSE^vhDEV(Dev)
+]]></Implementation>
+</Method>
+
+<Method name="CheckAllBevatMaatwerk">
+<FormalSpec>KLNr,ORDNr</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set OLNr=$O(^KOD(KLNr,"F",ORDNr,99)) 
+	Set MemGenTyp=""
+	While (OLNr'="") 
+	{
+		Set Lijn=$G(^KOD(KLNr,"F",ORDNr,OLNr))
+		If $P($P(Lijn,"\",17),"#")'="KF11" ; geen tekstlijn
+		{
+			If $P($P(Lijn,"\",17),"#")="KF0"
+			{
+				Set PRNr=$P(Lijn,"\",2)
+				Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1)
+				Set:MemGenTyp="" MemGenTyp=GenTyp
+			}
+		}
+		Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) 
+	}
+	Quit MemGenTyp
+]]></Implementation>
+</Method>
+
+<Method name="ControleViaToelevering">
+<Description>
+w ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaToelevering(247031)</Description>
+<FormalSpec>TOENr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	q ""
+	Set KLNr=$P($G(^KTO($$$LevHalux,TOENr,1)),"\",8)
+	Quit:'KLNr "GEEN KLANT IN TOELEVERING"
+	Set ORDNr=$P($G(^KTO($$$LevHalux,TOENr,1)),"\",7)
+	Quit:'ORDNr "GEEN ORDER IN TOELEVERING"
+	
+	Quit ..ControleViaOrder(ORDNr)
+]]></Implementation>
+</Method>
+
+<Method name="ControleViaOrder">
+<FormalSpec>ORDNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set KLNr=$P(^KO1(ORDNr,"F"),"\")
+	Quit:'..ControleerVerzendwijze(KLNr,ORDNr) "FOUTIEVE VERZENDWIJZE"
+	Quit:'..ControleerKredietWaardig(KLNr) "ONVOLDOENDE KREDIET"
+	
+	Quit ..ControleerLijnen(KLNr,ORDNr)
+]]></Implementation>
+</Method>
+
+<Method name="BevatMaatwerk">
+<FormalSpec>KLNr,ORDNr</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Hoofding=$G(^KOD(KLNr,"F",ORDNr,1))
+	Set OLNr=$O(^KOD(KLNr,"F",ORDNr,99)) 
+	Set MemGenTyp=""
+	While (OLNr'="") && (FoutCode="")
+	{
+		Set Lijn=$G(^KOD(KLNr,"F",ORDNr,OLNr))
+		If $P($P(Lijn,"\",17),"#")'="KF11" ; geen tekstlijn
+		{
+			Set:$P($P(Lijn,"\",17),"#")'="KF0" FoutCode="Geen product lijn"
+
+			Set PRNr=$P(Lijn,"\",2)
+			Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1)
+			Set:MemGenTyp="" MemGenTyp=GenTyp
+		}
+		Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) 
+	}
+	Quit MemGenTyp
+]]></Implementation>
+</Method>
+
+<Method name="ControleerVerzendwijze">
+<FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Hoofding=$G(^KOD(KLNr,"F",ORDNr,1))
+	Set Verzendwijzen=$P(Hoofding,"\",7)
+	; Alleen die klanten die ELKE dag met DI1 wordt geselecteerd
+	; dus "DI1;3" en "DI1;2`DI1;4" gelden niet
+	Quit Verzendwijzen=..#GewensteVerzendwijze
+]]></Implementation>
+</Method>
+
+<Method name="ControleerKredietWaardig">
+<FormalSpec>KLNr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	/// Controle of er vervallen facturen zijn
+	Set KredietWaardig=$$WAARDIG^KREDIET(KLNr,"D")
+	Quit $P(KredietWaardig,"\")
+]]></Implementation>
+</Method>
+
+<Method name="ControleerLijnen">
+<FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Hoofding=$G(^KOD(KLNr,"F",ORDNr,1))
+	Set OLNr=$O(^KOD(KLNr,"F",ORDNr,99)) 
+	Set SomVanAantal=0
+	Set FoutCode=""
+	;Set MaximaleLeverdag=$S($P(Hoofding,"\",28):$H+99,1:$$CALCDATE^vhLib.DataTypes($H,"A",..#AantalWerkDagen)) ; Indien ASAP ingesteld dan 99 dagen
+	Set MaximaleLeverdag=$S($P(Hoofding,"\",28):$H+99,1:$$CALCDATE^vhDTyp($H,"A",..#AantalWerkDagen)) ; Indien ASAP ingesteld dan 99 dagen
+	Set MemGenTyp=""
+	While (OLNr'="") && (FoutCode="")
+	{
+		Set Lijn=$G(^KOD(KLNr,"F",ORDNr,OLNr))
+		If $P($P(Lijn,"\",17),"#")'="KF11" ; geen tekstlijn
+		{
+			Set:$P($P(Lijn,"\",17),"#")'="KF0" FoutCode="Geen product lijn"
+
+			Set Datum=$P(Lijn,"\",25)
+			Set:Datum>MaximaleLeverdag FoutCode="Later leveren "_Datum
+
+			Set SomVanAantal=SomVanAantal+$P(Lijn,"\",3)
+			Set:SomVanAantal>..#MaxAantalLades FoutCode="Groot aantal "_SomVanAantal	
+
+			Set PRNr=$P(Lijn,"\",2)
+			Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1,2)
+			Set GenTyp=$S(GenTyp="":"*",1:GenTyp)
+			Set:$P(GenTyp,"\")'?1(1"TBX",1"LBX",1"TAO") FoutCode="GenType geen lade "_GenTyp
+			
+			Set:(MemGenTyp'="")&(MemGenTyp'=GenTyp) FoutCode="Verschillend GenType "_MemGenTyp_"="_GenTyp
+			Set MemGenTyp=GenTyp
+			
+			;w ORDNr," ",OLNr," ",PRNr," ",$P(^KPR(PRNr,0),"\")," ",$$EXTDATE^vhLib.DataTypes(Datum)," ",SomVanAantal," ",GenTyp,!
+		}
+		Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) 
+	}
+	Quit FoutCode
+]]></Implementation>
+</Method>
+</Class>
+</Export>
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
Index: UI/MB/UGLYPicking/dlgMsgBox.cls.xml
===================================================================
diff -u -r1074 -r38234
--- UI/MB/UGLYPicking/dlgMsgBox.cls.xml	(.../dlgMsgBox.cls.xml)	(revision 1074)
+++ UI/MB/UGLYPicking/dlgMsgBox.cls.xml	(.../dlgMsgBox.cls.xml)	(revision 38234)
@@ -452,6 +452,8 @@
 
  Do ..pbIcon.Canvas.Draw(0,0,..IconCopy)
  Set ..pbIcon.OnPaint=$LB(%this,"pbIconPaint")
+ ; Indien EXCLAMATION dan moet de achtergrond ook rood zijn
+ Set:Type=$$$MBICONEXCLAMATION ..shClient.Brush.Color=$ZH("0000FF")
 
  ;HEADER STUFF------------------------------------------------------------------
  Set ..lblHeader.WordWrap="False"