Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u -r49602 -r50900
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 49602)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 50900)
@@ -19,6 +19,10 @@
 <Default>DI1</Default>
 </Parameter>
 
+<Parameter name="NieuweVerzendwijze">
+<Default>DD1</Default>
+</Parameter>
+
 <Method name="ControleViaReceptieBuffer">
 <Description>
 w ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaReceptieBuffer("TB",5)</Description>
@@ -98,13 +102,38 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set KLNr=$P(^KO1(ORDNr,"F"),"\")
+	Quit:..ControleerIsReedsDirect(KLNr,ORDNr) ""
+	Quit:'..ControleerIsActief() "NIET ACTIEF"
 	Quit:'..ControleerVerzendwijze(KLNr,ORDNr) "FOUTIEVE VERZENDWIJZE"
+	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))
+	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,ORDNr</FormalSpec>
 <Private>1</Private>
@@ -129,6 +158,17 @@
 ]]></Implementation>
 </Method>
 
+<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="ControleerVerzendwijze">
 <FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
 <Private>1</Private>
@@ -142,12 +182,21 @@
 ]]></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
 	New D,R,Dubieus,KredietWaardig
 	Set D="\"
 	Set R=^KKL(^KK1(KLNr),3),Dubieus=$P(R,"\",8)