Index: WSimpl/OBJT/MESService.cls.xml
===================================================================
diff -u -r72987 -r72989
--- WSimpl/OBJT/MESService.cls.xml	(.../MESService.cls.xml)	(revision 72987)
+++ WSimpl/OBJT/MESService.cls.xml	(.../MESService.cls.xml)	(revision 72989)
@@ -68,7 +68,7 @@
 	}
 	
 	#dim DataOphaler As APPS.VKP.Maatwerk.LadeRegistratie.impl.IDataOphaler = ..BepaalDataOphaler(Werkpost)
-	Do DataOphaler.Registreer("D", RegisterOlTag.PinCode, RegisterOlTag.OlTag, "2")
+	Do DataOphaler.Registreer("O", RegisterOlTag.PinCode, RegisterOlTag.OlTag, "2")
 	
 	Quit Response
 ]]></Implementation>
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml
===================================================================
diff -u -r72909 -r72989
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(.../IDataOphaler.cls.xml)	(revision 72909)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(.../IDataOphaler.cls.xml)	(revision 72989)
@@ -31,6 +31,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim  ReturnWaarde as %String=""
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
 	#dim RegistratieCodeVanUrl As %String = ..ExtractRegistratieCodeVanURL(Registratie)
 	Set ..Registratie=##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie).%New(..Werkpost,..Familie)
 	Set ..Registratie.ObjectType=ObjectType
@@ -44,7 +45,7 @@
 		If IsVermoedelijkEenDnaCode { ; Dossiercode (=ladecode) opvissen uit DnaCode
 			Set DnaCodeIterator = ##class(DOM.Halux.AAP.DnaCodeRepository).%New().ZoekViaDnaCode(..Registratie.ObjectRef)
 			If DnaCodeIterator.HasNext() {
-				#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+				Set DnaCode = DnaCodeIterator.Next()
 				Set ..Registratie.ObjectRef = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(DnaCode.LadeCode)
 			}
 		}
@@ -56,6 +57,11 @@
 		Do ..VulAanViaQueueID(..Registratie.ObjectRef)
 	}
 	
+	If (..Registratie.ObjectType="O") ; via DnaCode
+	{
+		Do ..VulAanViaDossierCode(..Registratie.ObjectRef)
+	}
+	
 	try {
 		If ..Registratie.PRNr
 		{