Index: APPS/VKP/Order/VerzendMaatwerkDirectControleur.cls.xml
===================================================================
diff -u -r72051 -r73186
--- APPS/VKP/Order/VerzendMaatwerkDirectControleur.cls.xml	(.../VerzendMaatwerkDirectControleur.cls.xml)	(revision 72051)
+++ APPS/VKP/Order/VerzendMaatwerkDirectControleur.cls.xml	(.../VerzendMaatwerkDirectControleur.cls.xml)	(revision 73186)
@@ -1,6 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.VKP.Order.VerzendMaatwerkDirectControleur">
+<Description>
+OBSOLETE : DEZE KLASSE WORDT NIET GEBRUIKT.
+ZIE KLASSE : BL.MB.UGLYPicking.VerzendDirectControleur</Description>
 <IncludeCode>BL.Derde.LevSpecifiek</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
@@ -35,7 +38,7 @@
 
 <Method name="ControleViaToelevering">
 <Description>
-w ##class(APPS.VKP.Order.VerzendMaatwerkDirectControleur).%New().ControleViaToelevering(247031)</Description>
+w ##class(APPS.VKP.Order.VerzendMaatwerkDirectControleur).%New().ControleViaToelevering(264253)</Description>
 <FormalSpec>TOENr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -54,6 +57,7 @@
 <Implementation><![CDATA[
 	Set KLNr=$P(^KO1(ORDNr,"F"),"\")
 	Quit:'..ControleerVerzendwijze(KLNr,ORDNr) "FOUTIEVE VERZENDWIJZE"
+	Quit:'..ControleerKantelpunt(KLNr,ORDNr) "NEDERLAND VOORBIJ 17u"
 	Quit:'..ControleerKredietWaardig(KLNr) "ONVOLDOENDE KREDIET"
 	
 	Quit ..ControleerLijnen(KLNr,ORDNr)
@@ -72,6 +76,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="ControleerKredietWaardig">
 <FormalSpec>KLNr:%String</FormalSpec>
 <Implementation><![CDATA[