Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u -r57013 -r62394
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 57013)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 62394)
@@ -14,15 +14,27 @@
 <Default>DI1,GL4</Default>
 </Parameter>
 
+<Parameter name="NieuweVerzendwijze">
+<Default>DD1</Default>
+</Parameter>
+
 <Method name="ControleViaReceptieBuffer">
 <Description>
 w ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaReceptieBuffer("TB",5)</Description>
 <FormalSpec>bfrRGID:%String,bfrVolgNr:%String</FormalSpec>
 <ReturnType>%Library.String</ReturnType>
 <Implementation><![CDATA[
+	Set Resultaat = ""
 	Set TOENr=..GeefGemeenschappelijkeToelev(bfrRGID,bfrVolgNr)
-	Quit:TOENr="" "GEEN GEMEENSCHAPPELIJKE TOELEV"
-	Quit ..ControleViaToelevering(TOENr)
+	If TOENr="" {
+		Set Resultaat = "GEEN GEMEENSCHAPPELIJKE TOELEV"
+	} Else {
+		Set Resultaat = ..ControleViaToelevering(TOENr)
+	}
+	If (Resultaat '= "") {
+		Do ##class(vhLib.Logger).%New("GLS").Info("ControleViaReceptieBuffer","Voor TOENr '"_TOENr_"' werd DI1 niet gewijzigd naar DD1 wegens '"_Resultaat_"'")
+	}
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 
@@ -93,13 +105,39 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set KLNr=$P(^KO1(ORDNr,"F"),"\")
-	Quit:'..ControleerVerzendwijze(KLNr,ORDNr) "FOUTIEVE VERZENDWIJZE"
+	Quit:..ControleerIsReedsDirect(KLNr,ORDNr) ""
+	Quit:'..ControleerIsActief() "NIET ACTIEF"
+	Quit:'..ControleerVerzendwijze(KLNr,ORDNr) "FOUTIEVE VERZENDWIJZE ('"_..GeefVerzendwijze(KLNr, ORDNr)_"')"
+	Quit:..ControleerRembours(KLNr) "REMBOURS"
 	Quit:'..ControleerKredietWaardig(KLNr) "ONVOLDOENDE KREDIET"
 	
-	Quit ..ControleerLijnen(KLNr,ORDNr)
+	Set Controle=..ControleerLijnen(KLNr,ORDNr)
+	If Controle="" ; Er mag direct verzonden worden dus verzendwijze aanpassen
+	{
+		Do ..VeranderVerzendWijze(KLNr,ORDNr)
+	}
+	Quit Controle
 ]]></Implementation>
 </Method>
 
+<Method name="VeranderVerzendWijze">
+<FormalSpec>KLNr,ORDNr</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:'$D(^KOD(KLNr,"F",ORDNr,1))
+	Do ##class(vhLib.Logger).%New("GLS").Info("VeranderVerzendWijze","Voor ORDNr '"_ORDNr_"' wordt DI1 naar DD1 gewijzigd.")
+	Set $P(^KOD(KLNr,"F",ORDNr,1),"\",7)=..#NieuweVerzendwijze
+]]></Implementation>
+</Method>
+
+<Method name="ControleerIsActief">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit ##class(TECH.Config.ConfigMgr).Instance().GetString("MB.UglyPicking.Receptie.VerzendDirect",1)
+	;D ##class(TECH.Config.ConfigMgr).Instance().SetString("MB.UglyPicking.Receptie.VerzendDirect",1)
+]]></Implementation>
+</Method>
+
 <Method name="BevatMaatwerk">
 <FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
 <Private>1</Private>
@@ -124,45 +162,68 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ControleerVerzendwijze">
-<FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $Find(..#GewensteVerzendwijzen, ..GeefVerzendWijze(KLNr, ORDNr))
-]]></Implementation>
-</Method>
-
 <Method name="GeefAantalWerkdagen">
 <FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	///$P($G(^RES("KLANT","PI","VERZENDWIJZE","D",..VerzendWijzeID)),"`",7) ; Zou een optie zijn, maar niet gebruiken aangezien transportduur is niet werkdagen.
 	/// Vandaag op transport en morgen leveren = Aantalwerkdagen=1, maar er mag 1 dag extra omdat DI1 in de namiddag wordt geproduceerd.
-	Quit:(..GeefVerzendWijze(KLNr, ORDNr)="GL4") 3
+	//Quit:(..GeefVerzendwijze(KLNr, ORDNr)="GL4") 3   //deze weer in commentaar sinds backport van Cache05
 	Quit 2
 ]]></Implementation>
 </Method>
 
-<Method name="GeefVerzendWijze">
+<Method name="ControleerIsReedsDirect">
 <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)
+	Quit Verzendwijzen=..#NieuweVerzendwijze
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerzendwijze">
+<FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Hoofding=$G(^KOD(KLNr,"F",ORDNr,1))
 	Set Verzendwijze=$P(Hoofding,"\",7)
+	Quit Verzendwijze
+]]></Implementation>
+</Method>
+
+<Method name="ControleerVerzendwijze">
+<FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Verzendwijze=..GeefVerzendwijze(KLNr, ORDNr)
+									
 	; Alleen die klanten die ELKE dag met DI1 wordt geselecteerd
 	; dus "DI1;3" en "DI1;2`DI1;4" gelden niet
-	Quit Verzendwijze
+	Quit $Find(..#GewensteVerzendwijzen,Verzendwijze)
 ]]></Implementation>
 </Method>
 
+<Method name="ControleerRembours">
+<FormalSpec>KLNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Quit 0 ; AX neemt rembours voor zijn rekening
+	Quit $P(^KKL(^KK1(KLNr),3),"\")
+]]></Implementation>
+</Method>
+
 <Method name="ControleerKredietWaardig">
 <FormalSpec>KLNr:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	/// Controle of er vervallen facturen zijn
+	Quit 1 ; AX neemt de controle voor kredietwaardig over
 	Set D="\"
 	Set KredietWaardig=$$WAARDIG^KREDIET(KLNr,"D")
 	Quit $P(KredietWaardig,"\")