Index: BL/Legacy/EWPAL.cls.xml
===================================================================
diff -u
--- BL/Legacy/EWPAL.cls.xml	(revision 0)
+++ BL/Legacy/EWPAL.cls.xml	(revision 7529)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.Legacy.EWPAL">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefOrderIDsVanProductOpDrager">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductID:%String,DragerID:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set OrderIDs = ##class(%ListOfDataTypes).%New()
+	If $Data(^EWPAL("D",ProductID,DragerID))
+	{
+		Set OrderID = $O(^EWPAL("D",ProductID,DragerID,""))
+		While OrderID '= ""	
+		{
+			Do OrderIDs.Insert(OrderID)
+			Set OrderID = $O(^EWPAL("D",ProductID,DragerID,OrderID))
+		}
+	}
+	Quit OrderIDs
+]]></Implementation>
+</Method>
+
+<Method name="GeefDragerIDsVoorOrder">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderID:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set UniekeDragerIDs = ##class(%ArrayOfDataTypes).%New()
+	
+	Set Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID)
+	
+	Set Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.OV.enu.OrderLijnType).Product())
+	While (Iterator.HasNext())
+	{
+		Set OrderLijn = Iterator.Next()
+		Set DragerID = $Order(^EWPAL("D",OrderLijn.GeefPRNr(),""))
+		While (DragerID '= "")
+		{
+			If ($Data(^EWPAL("D",OrderLijn.GeefPRNr(),DragerID,OrderID)))
+			{
+				Do UniekeDragerIDs.SetAt(1,DragerID)
+			}
+			Set DragerID = $Order(^EWPAL("D",OrderLijn.GeefPRNr(),DragerID))
+		}
+	}
+	
+	Set DragerIDs = ##class(%ListOfDataTypes).%New()
+	Set Iterator = ##class(TECH.ListIterator).%New(UniekeDragerIDs)
+	While (Iterator.HasNext())
+	{
+		Do Iterator.Next()
+		Do DragerIDs.Insert(Iterator.Key())
+	}
+	
+	Quit DragerIDs
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: EWTOE.mac.rou
===================================================================
diff -u -r4734 -r7529
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 4734)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 7529)
@@ -518,6 +518,7 @@
  .....If $G(KLNr),ORDNr,LEVNr=$$$LevHalux,'$D(^KTO1(TOENr)) Do
  ......If $$GetPickDatum^EWORDS6(ORDNr)'<$H Quit:$$IsVoorVandaagOfMorgen^EWORDS6(ORDNr)'=1
  ......Quit:$$CheckAutoSend^EWORDS6(ORDNr)
+ ......Quit:'##class(BL.Legacy.EWTOE).OrderStaatVolledigBijVanHoecke(ORDNr)
  ......Set Text(1)="Volgend order is klaar:~",Text(2)="~"_ORDNr_" - "_$P(^KKL(^KK1(KLNr),0),D,2)
  ......Set R=^KOD(KLNr,"F",ORDNr,1),BelDat=$P(R,D,36)
  ......Set:'BelDat BelDat=$$LEVERDATUM^KLVERZW($$DEFAULT^KLVERZW(,,ORDNr))
@@ -672,6 +673,7 @@
 UPAANTNOK ;"Aantal in toelevering te weinig "_TOENr_";"_TLUNr_" "_TAantal_" - "_Aantal
 UPTRAP ;"TRAP "_TOENr_";"_TLUNr_";"_Error
  ;
-
-
-
+ 
+ 
+ 
+ 
\ No newline at end of file
Index: BL/Legacy/EWTOE.cls.xml
===================================================================
diff -u
--- BL/Legacy/EWTOE.cls.xml	(revision 0)
+++ BL/Legacy/EWTOE.cls.xml	(revision 7529)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.Legacy.EWTOE">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="OrderStaatVolledigBijVanHoecke">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Quit 1
+	Set StaatBijVanHoecke = 0
+	Set DragerIDs = ##class(BL.Legacy.EWPAL).GeefDragerIDsVoorOrder(OrderID)
+	Set InventarisService = ##class(APPS.MAG.InventarisService).%New()
+	
+	Set Iterator = ##class(TECH.ListIterator).%New(DragerIDs)
+	While ('StaatBijVanHoecke && Iterator.HasNext())
+	{
+		Set DragerID = Iterator.Next()
+		Set ResultSet = ##class(%ResultSet).%New()
+		Do ResultSet.Prepare("SELECT L.loc_m AS Magazijn, L.loc_g AS Gang, L.loc_x As x, L.loc_y AS y "
+			_" from EWMS.Locations L"
+	  		_" WHERE L.loc_id = ? ")	
+		Do ResultSet.Execute(DragerID)
+		If ResultSet.Next()
+		{
+			Set LocatieInfo = InventarisService.GeefLocatieInfoVoorPallet(DragerID).GetAt(1) // enkel bij auto magazijn kunnen er meerdere zijn
+			Set StaatBijVanHoecke = ##class(APPS.MAG.const.MagazijnLocatie).Halux2Transit() '= ("0"_ResultSet.Data("Magazijn")_"0"_ResultSet.Data("Gang")_"0"_ResultSet.Data("x")_"0"_ResultSet.Data("y"))
+		}
+	}
+
+	Quit StaatBijVanHoecke
+]]></Implementation>
+</Method>
+</Class>
+</Export>