Index: APPS/Halux/PPS/MVXPers/impl/Werkpost.cls.xml
===================================================================
diff -u -r64191 -r70697
--- APPS/Halux/PPS/MVXPers/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 64191)
+++ APPS/Halux/PPS/MVXPers/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 70697)
@@ -7,7 +7,7 @@
 <ClassType/>
 <IncludeCode>TECH.Error,BL.PPS.TBX.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,APPS.Halux.PPS.TBXPers.IWerkpost</Super>
+<Super>TECH.RegisteredObject,APPS.Halux.PPS.TBXPers.IWerkpost</Super>
 <Inheritance>right</Inheritance>
 
 <Property name="Werkpost">
@@ -187,7 +187,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim WerklijstItem As  APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ##class(APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem).OpenId(UniqueID)
-	#dim Product As DOM.PM.MVXProduct.impl.MVXLadeImpl = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(WerklijstItem.UitvoeringInfo.ProductID)
+	#dim Product As DOM.PM.MVXProduct.impl.MVXLadeImpl = ##class(DOM.PM.impl.ProductAPI).%New().GeefProduct(WerklijstItem.UitvoeringInfo.ProductID)
 	// TODOPA
 	Quit "http://NotSupportedYet"
 ]]></Implementation>
@@ -197,7 +197,7 @@
 <Type>%Query</Type>
 <FormalSpec>BatchID,ActiviteitGroepID,ActiviteitID,ActiviteitLijnID,InformatieID</FormalSpec>
 <Parameter name="CONTAINID" value="0"/>
-<Parameter name="ROWSPEC" value="UniqueID:%String,Status:%String,ID:%String,Breedte:%Integer,Diepte:%Integer,Rughoogte:%Integer,Tand:%String,Info1:%String,Info2:%String,Volgorde:%Integer,TimeOutShort:%Integer,TimeOutLong:%Integer"/>
+<Parameter name="ROWSPEC" value="UniqueID:%String,Status:%String,ID:%String,Breedte:%Integer,Diepte:%Integer,Rughoogte:%Integer,Tand:%String,Info1:%String,Info2:%String,Volgorde:%Integer,TimeOutShort:%Integer,TimeOutLong:%Integer,KlantId:%String"/>
 </Query>
 
 <Method name="GeefLadeInfoVoorPersExecute">
@@ -234,10 +234,11 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>UitvoeringInfoID:%String</FormalSpec>
 <Private>1</Private>
+<ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 	#dim Row As %List = ""
 	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.LadePersUitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.LadePersUitvoeringInfo).OpenId(UitvoeringInfoID)
-	Set Row=$LB(
+	Set Row = $LB(
 		UitvoeringInfo.UniqueID,
 		UitvoeringInfo.GeperstStatus,
 		UitvoeringInfo.Omschrijving,
@@ -249,7 +250,8 @@
 		UitvoeringInfo.Info2,
 		UitvoeringInfo.SequentieNummer,
 		UitvoeringInfo.WaarschuwingTijd,
-		UitvoeringInfo.RedenTijd
+		UitvoeringInfo.RedenTijd,
+		UitvoeringInfo.KlantId
 	)
 	Quit Row
 ]]></Implementation>