Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml
===================================================================
diff -u -r73300 -r74396
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(.../IDataOphaler.cls.xml)	(revision 73300)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(.../IDataOphaler.cls.xml)	(revision 74396)
@@ -46,6 +46,8 @@
 			Set DnaCodeIterator = ##class(DOM.Halux.AAP.DnaCodeRepository).%New().ZoekViaDnaCode(..Registratie.ObjectRef)
 			If DnaCodeIterator.HasNext() {
 				Set DnaCode = DnaCodeIterator.Next()
+				Set ..Registratie.ToeleveringID = DnaCode.Toelevering
+				Set ..Registratie.ToeleveringLijnID = DnaCode.ToeleveringLijn
 				Set ..Registratie.ObjectRef = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(DnaCode.LadeCode)
 			}
 		}
@@ -63,6 +65,8 @@
 		If DnaCodeIterator.HasNext() {
 			Set DnaCode = DnaCodeIterator.Next()
 			Set ..Registratie.PRNr = DnaCode.ProductNummer
+			Set ..Registratie.ToeleveringID = DnaCode.Toelevering
+			Set ..Registratie.ToeleveringLijnID = DnaCode.ToeleveringLijn
 			#dim DossierCode As %String = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(DnaCode.LadeCode)
 		}
 		Do ..VulAanViaDossierCode(DossierCode)
@@ -218,8 +222,8 @@
 		{
 			Set TLUNr=$O(^TO("IP",PRNr,TOENr,""))
 			If TLUNr,(($O(^TO("IP",PRNr,TOENr,""),-1)#10)=(TLUNr#10)) ; Toeleveringslijn er er is er maar één (gesplitste lijnen zijn wel toegelaten)
-			Set ..Registratie.ToeleveringID=TOENr
-			Set ..Registratie.ToeleveringLijnID=TLUNr
+			Set:(..Registratie.ToeleveringID="") ..Registratie.ToeleveringID=TOENr
+			Set:(..Registratie.ToeleveringLijnID="") ..Registratie.ToeleveringLijnID=TLUNr
 		}
 	}
 ]]></Implementation>