Index: DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml
===================================================================
diff -u -r45359 -r45362
--- DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml	(.../VerkoopPrijsUitzondering.cls.xml)	(revision 45359)
+++ DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml	(.../VerkoopPrijsUitzondering.cls.xml)	(revision 45362)
@@ -69,6 +69,7 @@
 	Set VerkoopPrijsUitzondering.Groep = $Extract($Piece(Subscript,",",4),2,*-2)
 	Set VerkoopPrijsUitzondering.HoofdGroep = $Extract($Piece(Subscript,",",3),2,*-2)
 	Set VerkoopPrijsUitzondering.KlantId = "K||"_$Piece(Subscript,",",2)
+	Set VerkoopPrijsUitzondering.PRNr = $Piece(Subscript,",",6)
 	Set VerkoopPrijsUitzondering.SubGroep = $Extract($Piece(Subscript,",",5),2,*-2)
 	
 	Quit VerkoopPrijsUitzondering
@@ -88,7 +89,7 @@
 	Set $Piece(Subscript,",",3) = $$$If(..HoofdGroep = "","""0""", """"_..HoofdGroep_" """)
 	Set $Piece(Subscript,",",4) = $$$If(..Groep = "","""0""", """"_..Groep_" """)
 	Set $Piece(Subscript,",",5) = $$$If(..SubGroep = "","""0""", """"_..SubGroep_" """)
-	Set $Piece(Subscript,",",6) = $$$If(..PRNr = "","""0""", """"_..PRNr_"""")
+	Set $Piece(Subscript,",",6) = $$$If(..PRNr = "", 0, ..PRNr)
 	Set $Piece(Subscript,",",7) = $$$If(..VolgNr = "", 0, ..VolgNr)
 	
 	Quit Subscript
Index: vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml
===================================================================
diff -u -r45359 -r45362
--- vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml	(.../Test.cls.xml)	(revision 45359)
+++ vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml	(.../Test.cls.xml)	(revision 45362)
@@ -101,6 +101,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: De 6e node zet het productnummer">
+<Implementation><![CDATA[
+	Set ..VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
+	Set ..VerkoopPrijsUitzondering.KlantId = "K||999"
+	Set ..VerkoopPrijsUitzondering.PRNr = "49698"
+	Set ..OpgezetteSubscript = ..VerkoopPrijsUitzondering.ToSubscript()
+	
+	Set @("^KLPUTZ("_..OpgezetteSubscript_")") = "20\0\\178177\\\64649\64663\64531;THB\\\\\\\"
+	
+	#dim VerkoopPrijsUitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(..OpgezetteSubscript)
+	
+	Do $$$AssertEquals(VerkoopPrijsUitzondering.PRNr,"49698")
+]]></Implementation>
+</Method>
+
 <Method name="KuisDataOp">
 <Private>1</Private>
 <Implementation><![CDATA[