Index: OBJTimpl/WMSOrder/dtoOntvangst.cls.xml
===================================================================
diff -u -r66310 -r66510
--- OBJTimpl/WMSOrder/dtoOntvangst.cls.xml	(.../dtoOntvangst.cls.xml)	(revision 66310)
+++ OBJTimpl/WMSOrder/dtoOntvangst.cls.xml	(.../dtoOntvangst.cls.xml)	(revision 66510)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="OBJTimpl.WMSOrder.dtoOntvangst">
 <IncludeCode>Prod.Product</IncludeCode>
-<Super>%SerialObject,%XML.Adaptor</Super>
+<Super>%SerialObject,TECH.DataTransferObject</Super>
 
 <Parameter name="DefaultLocatie">
 <Default>0109</Default>
@@ -59,6 +59,23 @@
 <Parameter name="XMLITEMNAME" value="ControleMagazijnier"/>
 </Property>
 
+<Property name="OBJTIdentLookupService">
+<Type>OBJTimpl.PM.OBJTIdentLookupService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OBJTIdentLookupService:OBJTimpl.PM.OBJTIdentLookupService=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OBJTIdentLookupService = $$$Inject(OBJTIdentLookupService,##class(OBJTimpl.PM.OBJTIdentLookupService).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VulInVanuitEWMSControle">
 <FormalSpec><![CDATA[&C:%String]]></FormalSpec>
 <Implementation><![CDATA[
@@ -76,11 +93,11 @@
 </Method>
 
 <Method name="VulIn">
-<FormalSpec>PRNr,PaletId,Aantal</FormalSpec>
+<FormalSpec>PRNr:%String,PaletId:%String,Aantal:%Numeric</FormalSpec>
 <Implementation><![CDATA[
 	Set ..ReceptieId="Init "_PaletId_";"_PRNr
 	;
-	Set ..ItemId=$$$ProductGet(PRNr,$$$IdentNummer)
+	Set ..ItemId=..OBJTIdentLookupService.GeefOBJTIdentNr($$$ProductGet(PRNr,$$$IdentNummer))
 	Set ..ItemNm=$$$ProductGet(PRNr,$$$KortTekst)
 	Set ..Aantal=Aantal
 	Set ..PalletId=PaletId
@@ -123,6 +140,9 @@
 <Value name="9">
 <Value>Locatie</Value>
 </Value>
+<Value name="10">
+<Value>OBJTIdentLookupService</Value>
+</Value>
 </Data>
 </Storage>
 </Class>