Index: EWORDS.mac.rou
===================================================================
diff -u -r70801 -r73186
--- EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 70801)
+++ EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 73186)
@@ -483,8 +483,8 @@
 		 Set VerzZ = $Piece(R,D,4)
 		 Set VerzDat = $Piece(R,D,5)
 		 Set ORDNr = $Order(^HULP(%J,KLNr,"M","A",""))
-		 Do ##class(vhLib.Logger).%New("SAVE^EWORDS").Debug("Start opmaken pickingopdracht", "ORDNr='"_ORDNr_"'")
 		 Set VerzW = ##class(BL.Legacy.EWORDS.Save).GeefVerzendWijze(.KLNr, ORDNr, R)
+		 Do ##class(vhLib.Logger).%New("SAVE^EWORDS").Debug("Start opmaken pickingopdracht", "ORDNr='"_ORDNr_"' --> " _ $Get(VerzW))
 		 
 		 // We gaan nagaan of er backorderlijnen moeten gesplitst worden. Indien de 2de piece is ingevuld moet die gebruikt worden als BO aantal.
 		 // Achteraf maken we die piece leeg zodat de rest van de code zijn werk blijft doen.
@@ -551,7 +551,9 @@
 					 Set ^HULP(%J, KLNr, "M", "A", PickingOpdrachtInfo.GeefOrderNummer(), PickingOpdrachtInfo.GeefOrderLijnNummer()) = PickingOpdrachtInfo.GeefData()
 					 Do ##class(vhLib.Logger).%New("SAVE^EWORDS").Debug("Lijn registreren in ^HULP", "OrderLijnNummer='"_PickingOpdrachtInfo.GeefOrderLijnNummer()_"'")
 				 }
-			 
+			 	 
+	 	 		 Do ##class(vhLib.Logger).%New("SAVE^EWORDS").Debug("Start opmaken pickingopdracht", "BLCONS voor "_ CONSNr _ "met VerzW " _ VerzW )
+
 				 Do BLDCONS^EWORDS2(KLNr,$Name(^HULP(%J,KLNr,"M")),CONSNr,$Piece(VerzW,";"),VerzDat,DOutDate_","_DOutTime,VerzZ,LevAdr,.ChkBeletDone) ; Creatie suborderlijnen
 				 Do STORE^LOG("ORDW", CONSNr, "O", ##class(BL.Legacy.EWORDS.Save).GeefOrderNummers(CONSNr))
 
Index: PVHerstartFOP.mac.rou
===================================================================
diff -u -r72212 -r73186
--- PVHerstartFOP.mac.rou	(.../PVHerstartFOP.mac.rou)	(revision 72212)
+++ PVHerstartFOP.mac.rou	(.../PVHerstartFOP.mac.rou)	(revision 73186)
@@ -44,6 +44,7 @@
 	Set ^Sys.FOP.Settings("InitialStatusExpr")="$S($IsObject(%this.Task)&&$IsObject(%this.Task.ActionPrint)&&(%this.Task.ActionPrint.Printer'="""")&&(%this.Task.ActionPrint.Printer'=""VHIP2""):"""_StatusVoorNieuwePrintertaken_""", 1:""W"")"
 	Quit
 	
+	// DEPRECATED : ;Do RestartDocBaseServer -- OVERGENOMEN DOOR WINSDOWS TAAK op de FOP server. 
 RestartDocBaseServer
 	Do AddLog("RestartDocBaseServer : ",1)
 	Set Status=$zf(-2,"shutdown /r /f /t 0 /m \\fop.vanhoecke.be")
Index: OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml
===================================================================
diff -u -r72045 -r73186
--- OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml	(.../ImporteerVoorraadNiveau.cls.xml)	(revision 72045)
+++ OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml	(.../ImporteerVoorraadNiveau.cls.xml)	(revision 73186)
@@ -46,10 +46,10 @@
 
 <Method name="test">
 <Description>
-d ##class(OBJTimpl.WMSOrder.ImporteerVoorraadNiveau).%New().BepaalGepickteMaarNietAfgemeldeAantallen()</Description>
+d ##class(OBJTimpl.WMSOrder.ImporteerVoorraadNiveau).%New().test()</Description>
 <Implementation><![CDATA[
 	set ..pxVoorraad=##class(dtoCorrelateVoorraadNiveau).%New()
-	set ..pxVoorraad.Aantal=415
+	set ..pxVoorraad.Aantal=324
 	set ..pxVoorraad.Entiteit="VHBE"
 	set ..pxVoorraad.ItemId="0.144.866.3"
 	Do ..VerwerkVoorraad()
@@ -181,11 +181,13 @@
 <Implementation><![CDATA[
 	#dim rs as %ResultSet
 	Set itVerdeler=##class(OBJTimpl.WMSOrder.VerdeelSOPRVoorraad).%New(..pxVoorraad.Entiteit,..pxVoorraad.ItemId)
-	;w !,..pxVoorraad.Entiteit,"  ",..pxVoorraad.ItemId
 	
 	#dim PickingCorrectie as %Decimal=$G(^OBJTVoorraad(..Vandaag,"CORR",..pxVoorraad.ItemId,..pxVoorraad.Entiteit))
 	Set ..pxVoorraad.AantalAdmin=itVerdeler.GeefOudeVoorraad()
 	Set ^OBJTVoorraad(..Vandaag,"FROM",..pxVoorraad.Entiteit,..pxVoorraad.ItemId)=$LB(..pxVoorraad.AantalAdmin,..pxVoorraad.Aantal)
+	;w !,..pxVoorraad.Entiteit,"  ",..pxVoorraad.ItemId," ",..pxVoorraad.Aantal," ",..pxVoorraad.AantalAdmin
+	
+	
 	If ..pxVoorraad.Aantal'=(..pxVoorraad.AantalAdmin-PickingCorrectie)
 	{
 		;Write " = ",..pxVoorraad.Aantal," <-> ", ..pxVoorraad.AantalAdmin
@@ -316,16 +318,18 @@
 <FormalSpec>Datum</FormalSpec>
 <Implementation><![CDATA[
 	Set Datum=$G(Datum,..Vandaag)
- 	Set From="Admin@vanhoecke.be"
-	Set To=$LB("vdr@vanhoecke.be","pv@vanhoecke.be","Emry.Truyman@vanhoecke.be","MagAspVoorraad@vanhoecke.be")
-	;Set To=$LB("pv@vanhoecke.be")
-	Set Subject="Voorraadverschillen OBJT <-> Admin "_$zd(Datum,2)
 	
 	Do ..Logger.Debug("OBJT_StockDiff","MailDiff voor Datum '"_Datum_"' of leesbaar '"_$zd(Datum,2)_"'.")
 	
-	Set strmBody=..GetDiffInHTML(Datum)
+	Set strmBody=..GetDiffInHTML(Datum,.AantalProducten)
 	Quit:strmBody=""
 	
+ 	Set From="Admin@vanhoecke.be"
+	Set To=$LB("vdr@vanhoecke.be","Emry.Truyman@vanhoecke.be","MagAspVoorraad@vanhoecke.be")
+	Set:AantalProducten>100 To=To_$LB("pv@vanhoecke.be")
+	;Set To=$LB("pv@vanhoecke.be")
+	Set Subject="Voorraadverschillen ("_AantalProducten_") OBJT <-> Admin "_$zd(Datum,2)
+	
 	Do ..Logger.Debug("OBJT_StockDiff","MailDiff met strmBody (size="_$Length(strmBody)_").")
 	
 	Set Status=$$SendMiniMail^vhLib(From,To,Subject,strmBody,1,1)
@@ -339,7 +343,7 @@
 </Method>
 
 <Method name="GetDiffInHTML">
-<FormalSpec>Datum</FormalSpec>
+<FormalSpec><![CDATA[Datum,&AantalProducten]]></FormalSpec>
 <Implementation><![CDATA[
 	Set OBJTService=##class(OBJTimpl.PM.OBJTIdentLookupService).%New()
 	
@@ -451,7 +455,7 @@
  	Do strmBody.Write($$$fmtEndHtml)
  	
  	Do ..Logger.Debug("OBJT_StockDiff","GetDiffInHTML aantal items : Cnt='"_Cnt_"'.")
- 	
+ 	Set AantalProducten=Cnt
  	Quit $S(Cnt:strmBody,1:"")
 ]]></Implementation>
 </Method>
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>
 
 
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[
Index: BL/MB/UGLYPicking/Locations.cls.xml
===================================================================
diff -u -r72047 -r73186
--- BL/MB/UGLYPicking/Locations.cls.xml	(.../Locations.cls.xml)	(revision 72047)
+++ BL/MB/UGLYPicking/Locations.cls.xml	(.../Locations.cls.xml)	(revision 73186)
@@ -376,10 +376,10 @@
 D ##class(BL.MB.UGLYPicking.Locations).Instantiate(0,0).AddHal2()</Description>
 <Implementation><![CDATA[
 	; HAL 1 : ORGALUX
-	Do ..InitMag(3,0,2) ;WMSMag=2, TransBuilding=0, TransHal=1
+	Do ..InitMag(3,0,2) ;WMSMag=3, TransBuilding=0, TransHal=1
 	
-	Do ..InitGang(2,"B") ; EWMSGang, TransGang
-	Do ..CreateLocs(4,2,13,3,1,1,2) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..InitGang(5,"E") ; EWMSGang, TransGang
+	Do ..CreateLocs(4,10,13,3,1,3,3) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
 	Do ..PrintLabels()
 ]]></Implementation>
 </Method>
Index: EWORDSW.mac.rou
===================================================================
diff -u -r71990 -r73186
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 71990)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 73186)
@@ -34,12 +34,49 @@
     . Set ^ORDW("D",CONSNr)=Rec 
     Set ^ORDW("D",CONSNr,"S","V") ="W"
     Quit
- 
+    
+CLEARONEOBJT(CONSNr)
+	If $G(CONSNr)="" Do
+	.Read "CONSOLIDATIE NR : ",CONSNr
+	Quit:CONSNr'?6N
+	Quit:'$D(^ORDW("D",CONSNr))
+	Set Rec=^ORDW("D",CONSNr)
+	;if $P(Rec,D,20)'="W" Write "Status staat niet op 'W', niet doorgestuurd"
+	;Quit:$P(Rec,D,20)'="W"
+	Set ORDNr=""
+	For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do 
+	. Set OLUNr=""
+	. For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
+	. . Set Rec=^ORDW("D",CONSNr,"D",ORDNr,OLUNr)
+	. . ;Quit:$P(Rec,D,8)'="V"
+	. . Set SOLNr=""
+	. . For  Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)) Quit:SOLNr=""  Do
+	. . . Set Rec=^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)
+	. . . Quit:$P(Rec,D,13)'="V"
+	. . . Set $P(Rec,D,2)=""
+	. . . Set $P(Rec,D,4)=""
+	. . . Set ^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)=Rec 
+	. . Set Rec=^ORDW("D",CONSNr,"D",ORDNr,OLUNr)
+	. . ;Set $P(Rec,D,2)=""
+	. . ;Set $P(Rec,D,3)=""
+	. . ;Set $P(Rec,D,5)=""
+	. . Set ^ORDW("D",CONSNr,"D",ORDNr,OLUNr)=Rec 
+	. Set Rec=^ORDW("D",CONSNr)
+	. ;Set $P(Rec,D,20)=""
+	. ;Set $P(Rec,D,21)=""
+	. Set ^ORDW("D",CONSNr)=Rec 
+	;Kill ^ORDW("D",CONSNr,"S","V") 
+	Do SEND(CONSNr)
+	Quit
+
 CLEARONE(CONSNr)
 	If $G(CONSNr)="" Do
 	.Read "CONSOLIDATIE NR : ",CONSNr
 	Quit:CONSNr'?6N
 	Quit:'$D(^ORDW("D",CONSNr))
+	Set Rec=^ORDW("D",CONSNr)
+	if $P(Rec,D,20)'="W" Write "Status staat niet op 'W', niet doorgestuurd"
+	Quit:$P(Rec,D,20)'="W"
 	Set ORDNr=""
 	For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do 
 	. Set OLUNr=""
@@ -420,6 +457,7 @@
  Kill C
  Set ORDRec=^KOD(KLNr,"F",ORDNr,1)
  Set ConsRec=^ORDW("D",CONSNr)
+ Do ##class(Tools.Wlip).%New(207).String($G(ConsRec))
  Set C("CONSNR")=CONSNr
  Set C("KLNR")=KLNr
  Set KLId=^KK1(KLNr)
Index: EWORDS3.mac.rou
===================================================================
diff -u -r48614 -r73186
--- EWORDS3.mac.rou	(.../EWORDS3.mac.rou)	(revision 48614)
+++ EWORDS3.mac.rou	(.../EWORDS3.mac.rou)	(revision 73186)
@@ -42,7 +42,7 @@
  If CumOrd,'$L(Bewaar) Do ORDTYP
  If CumOrd,'$L(Bewaar) Do ORGAL
  If CumOrd,'$L(Bewaar) Do VERPTYP
- If CumOrd,'$L(Bewaar) Do VERZW
+ ;If CumOrd,'$L(Bewaar) Do VERZW ; (JWI/PV in commentaar gezet 26/4/2024, klant dft verzendwijze OD wordt op DI1 order gezet, en fout naar OBJT gestuurd.)
  If CumOrd,'$L(Bewaar) Do TRANSPORTLINK
  If CumOrd,'$L(Bewaar) Do CheckCumulManueelVolgensPersonality(.CumOrd, .Bewaar)
  If CumOrd,'$L(Bewaar) Do CONSCOMM
@@ -546,4 +546,3 @@
  Quit
  ;
 
-