Index: BL/Legacy/EWORDS6/InfoMelder.cls.xml
===================================================================
diff -u
--- BL/Legacy/EWORDS6/InfoMelder.cls.xml	(revision 0)
+++ BL/Legacy/EWORDS6/InfoMelder.cls.xml	(revision 47787)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Legacy.EWORDS6.InfoMelder">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Controleer">
+<FormalSpec>OrderNummer:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim DoorsturenOrderPickingService As APPS.OrderUitvoering.DoorsturenOrderPickingService = ##class(APPS.OrderUitvoering.DoorsturenOrderPickingService).%New()
+	#dim OrderStaatVolledigBijVanHoecke As %Boolean = ##class(BL.Legacy.EWTOE).OrderStaatVolledigBijVanHoecke(OrderNummer)
+	
+	If ($$$Not(DoorsturenOrderPickingService.OrderKanWordenDoorgestuurd(OrderNummer)) || $$$Not(OrderStaatVolledigBijVanHoecke)) {
+		// N.B. NOT OrderStaatVolledigBijVanHoecke is uitzonderlijk mogelijk, want bij manueel doorsturen kan men kiezen om toch de orders met producten bij Halux al door te sturen.
+		
+		#dim Info As %String = ""
+		
+		Set Info = Info _ "Order toch doorgestuurd ondanks : " _ $Char(13,10)
+	 	Set Info = Info _ "OrderKanWordenDoorgestuurd : " _ DoorsturenOrderPickingService.OrderKanWordenDoorgestuurd(OrderNummer) _ $Char(13,10) 
+	 	Set Info = Info _ "OrderStaatVolledigBijVanHoecke : " _ OrderStaatVolledigBijVanHoecke
+	 	
+	 	Do ##class(vhLib.Logger).%New("EWMS").WarningMail("SendWMS automatisch doorsturen is in de war", Info)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: EWORDS6.mac.rou
===================================================================
diff -u -r47700 -r47787
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 47700)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 47787)
@@ -15,23 +15,15 @@
 	
  */ 
  
- 
  ; WMS verwerking en eventueel doorsturen naar Egemin software indien voor vandaag
 SendWMS(ORDNr)
- New %J,I,R,KLNr,PRNr,Aantal,OLUNr,LeverDag,CONSNr,VerzDat,DOutDate,DOutTime,VerzW,VerzZ,LevAdr,ChkBeletDone,IsVoorVandaagOfMorgen,IsVoorVandaag,ORDNrs,CumulORDNr,WaitORDNrs
- New LandCode,PostCode,Info
- Set IsVoorVandaagOfMorgen=##class(BL.Legacy.EWORDS6).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(ORDNr)
- 
- #dim Info As %String = "OrderKanWordenDoorgestuurd : "_##class(APPS.OrderUitvoering.DoorsturenOrderPickingService).%New().OrderKanWordenDoorgestuurd(ORDNr)
- Set Info = Info_$C(13,10) _ "OrderStaatVolledigBijVanHoecke : "_##class(BL.Legacy.EWTOE).OrderStaatVolledigBijVanHoecke(ORDNr)
-	 
- If ('##class(APPS.OrderUitvoering.DoorsturenOrderPickingService).%New().OrderKanWordenDoorgestuurd(ORDNr) || '##class(BL.Legacy.EWTOE).OrderStaatVolledigBijVanHoecke(ORDNr))
- { 
- 	 // N.B. NOT OrderStaatVolledigBijVanHoecke is uitzonderlijk mogelijk, want bij manueel doorsturen kan 
- 	 // men kiezen om toch de orders met producten bij Halux al door te sturen.
-	 Set Info = "Order toch doorgestuurd ondanks : "_$C(13,10)_Info
-	 Do ##class(vhLib.Logger).%New("EWMS").WarningMail("SendWMS automatisch doorsturen is in de war",Info)
- }
+	New %J,I,R,KLNr,PRNr,Aantal,OLUNr,LeverDag,CONSNr,VerzDat,DOutDate,DOutTime,VerzW,VerzZ,LevAdr,ChkBeletDone,IsVoorVandaagOfMorgen,IsVoorVandaag,ORDNrs,CumulORDNr,WaitORDNrs
+	New LandCode,PostCode
+	New InfoMelder
+	
+	Set IsVoorVandaagOfMorgen=##class(BL.Legacy.EWORDS6).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(ORDNr)
+	
+	#dim InfoMelder As BL.Legacy.EWORDS6.InfoMelder = ##class(BL.Legacy.EWORDS6.InfoMelder).%New(ORDNr)
   
  If IsVoorVandaagOfMorgen {
   // Heel het volgende stuk 2x uitvoeren: 1x voor ORGALUX en 1x voor niet-ORGALUX.
@@ -787,4 +779,3 @@
  }
  Quit
 
-