Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u -r72051 -r73186
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 72051)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 73186)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="BL.MB.UGLYPicking.VerzendDirectControleur">
 <ClassType/>
-<IncludeCode>BL.Derde.LevSpecifiek</IncludeCode>
+<IncludeCode>BL.Derde.LevSpecifiek,Prod.Product</IncludeCode>
 <ProcedureBlock>0</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 
@@ -90,7 +90,7 @@
 
 <Method name="ControleViaToelevering">
 <Description>
-w ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaToelevering(247031)</Description>
+w ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaToelevering(264253)</Description>
 <FormalSpec>TOENr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -112,13 +112,21 @@
 	Quit:..ControleerIsReedsDirect(KLNr,ORDNr) ""
 	Quit:'..ControleerIsActief() "NIET ACTIEF"
 	Quit:'..ControleerVerzendwijze(KLNr,ORDNr) "FOUTIEVE VERZENDWIJZE ('"_..GeefVerzendwijze(KLNr, ORDNr)_"')"
+	Quit:'..ControleerKantelpunt(KLNr,ORDNr) "NEDERLAND VOORBIJ 17u"
 	Quit:..ControleerRembours(KLNr) "REMBOURS"
 	Quit:'..ControleerKredietWaardig(KLNr) "ONVOLDOENDE KREDIET"
 	
 	Set Controle=..ControleerLijnen(KLNr,ORDNr)
-	If Controle="" ; Er mag direct verzonden worden dus verzendwijze aanpassen
+	If (Controle="")  ; Er mag direct verzonden worden dus verzendwijze aanpassen
 	{
-		Do ..VeranderVerzendWijze(KLNr,ORDNr)
+		If ..IsOrgaluxReedsOpBon(KLNr,ORDNr)
+		{
+			Set Controle="ORGALUX REEDS OP BON"
+		}
+		else
+		{	
+			Do ..VeranderVerzendWijze(KLNr,ORDNr)
+		}
 	}
 	Quit Controle
 ]]></Implementation>
@@ -134,6 +142,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ControleerKantelpunt">
+<FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set LandID=$P($G(^KOD(KLNr,"F",ORDNr,3)),"\",8)
+	Quit:(LandID=1147)&&($P($H,",",2)>(17*3600)) 0 ; Nederland na 17u dan DD1 niet toelaten (VRD sluit NL af om 18u)
+	Quit 1
+]]></Implementation>
+</Method>
+
 <Method name="ControleerIsActief">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -268,6 +286,7 @@
 
 			Set PRNr=$P(Lijn,"\",2)
 			Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1,2)
+			Set:(GenTyp="HAL")&&$$IsSpaceTower^PRODUKT2(PRNr) GenTyp="TBX",SomVanAantal=SomVanAantal+3 ; SPACETOWER voor KVIK moet als TBX beschouwd worden PV 22/11/2023
 			
 			Set GenTyp=$S(GenTyp="":"*",1:GenTyp)
 			Set:$P(GenTyp,"\")?1(1"TBX",1"MVX",1"LBX",1"TAO") IsLade=1
@@ -292,6 +311,31 @@
 	Quit FoutCode
 ]]></Implementation>
 </Method>
+
+<Method name="IsOrgaluxReedsOpBon">
+<FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	;Set Hoofding=$G(^KOD(KLNr,"F",ORDNr,1))
+	;Set MaximaleLeverdag=$S($P(Hoofding,"\",28):$H+99,1:$$CALCDATE^vhLib.DataTypes($H,"A",..GeefAantalWerkdagen(KLNr, ORDNr))) ; Indien ASAP ingesteld dan 99 dagen
+	Set IsOrgal=0
+	Set BONNr=""
+	Set BONNr=$O(^KU2("F",KLNr,BONNr)) ; orders die volledig of deels op bon staan
+	While (BONNr'="") && ('IsOrgal)
+	{
+		Quit:$P($P($G(^KUL(KLNr,"F",BONNr,101)),"\",5)," ")'=ORDNr ; Bon niet geleverd door order
+		
+		Set Leverdag=$$INTDATE^vhLib.DataTypes($P($G(^KUL(KLNr,"F",BONNr,1)),"\",2),"DKP")
+		;w KLNr," ",ORDNr," ",BONNr," ",$P($G(^KUL(KLNr,"F",BONNr,1)),"\",2)," ",$$ISORGAL^FLOW("L",BONNr),! ; r k
+		Quit:Leverdag<$H
+
+		Set IsOrgal=$$ISORGAL^FLOW("L",BONNr)
+		
+		Set BONNr=$O(^KU2("F",KLNr,BONNr))
+	}
+	Quit IsOrgal
+]]></Implementation>
+</Method>
 </Class>