Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml
===================================================================
diff -u -r62497 -r63478
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(.../IDataOphaler.cls.xml)	(revision 62497)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(.../IDataOphaler.cls.xml)	(revision 63478)
@@ -39,6 +39,13 @@
 	
 	If (..Registratie.ObjectType="D")  ; via Dossiercode
 	{
+		If $Length(..Registratie.ObjectRef)=7 {
+			Set DnaCodeIterator = ##class(DOM.Halux.AAP.DnaCodeRepository).%New().ZoekViaDnaCode(..Registratie.ObjectRef)
+			If DnaCodeIterator.HasNext() {
+				#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+				Set ..Registratie.ObjectRef = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(DnaCode.LadeCode)
+			}
+		}
 		Do ..VulAanViaDossierCode(..Registratie.ObjectRef)
 	}