Index: CHUI/Prod/ProductLabel.cls.xml
===================================================================
diff -u -r60522 -r62188
--- CHUI/Prod/ProductLabel.cls.xml	(.../ProductLabel.cls.xml)	(revision 60522)
+++ CHUI/Prod/ProductLabel.cls.xml	(.../ProductLabel.cls.xml)	(revision 62188)
@@ -104,11 +104,20 @@
 <Description>
 d ##class(CHUI.Prod.ProductLabel).PrintVHMaatwerk(483079,"XSDS",1)</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>PRNr,KlantNaam,TOENr,ORDNr,Aantal,Device,DnaCode</FormalSpec>
+<FormalSpec>DnaCodeObject:DOM.Halux.AAP.DnaCode</FormalSpec>
 <Implementation><![CDATA[
-	Set bl=..Instantiate()
+	#dim KlantNaam As %String = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(DnaCodeObject.KlantNummer).GeefNaam()
+	#dim PRNr As %String = DnaCodeObject.ProductNummer
+	#dim TOENr As %String = DnaCodeObject.Toelevering
+	#dim ORDNr As %String = DnaCodeObject.OrderId
+	#dim Aantal As TECH.Integer = 1
+	#dim DnaCode As %String = DnaCodeObject.DnaCode
+	#dim Device As %String = ""
+	
+	#dim bl As CHUI.Prod.ProductLabel =..Instantiate()
 	Do bl.Init(PRNr)
 	Set bl.DefaultLayout="Product verpak maatwerk VH 5x10"
+	
 
 	#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(ORDNr)
 	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(Order.GeefPersonalityID())
@@ -125,7 +134,7 @@
 		Set bl.pxLabel.StockCode=$G(TOENr)
 		Set bl.pxLabel.OrderNr=$G(ORDNr)
 		Set bl.pxLabel.KlantNaam=$G(KlantNaam)
-		Set LocId="X"_$TR($J(..GetUniqueLocID(),5)," ","0")
+		#dim LocId As %String ="X"_$TR($J(..GetUniqueLocID(),5)," ","0")
 		Set bl.pxLabel.Barcode=LocId
 		Set bl.pxLabel.BarcodeTekst="Loc: "_LocId
 		Set bl.pxLabel.Device=$G(Device)
@@ -141,6 +150,7 @@
 		}
 		Do LabelPrinter.Add(bl.pxLabel)
 	}
+	
 	Do LabelPrinter.Print2Bartender()
 ]]></Implementation>
 </Method>
Index: WSimpl/Halux/AAP/AfdrukService.cls.xml
===================================================================
diff -u -r61730 -r62188
--- WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 61730)
+++ WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 62188)
@@ -111,15 +111,10 @@
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen DnaCodes aangeleverd om af te drukken"))
 		}
 		#dim DnaCodeIterator As TECH.Iterator = ..EtiketAfdrukkenHelper.MaakDnaCodeIteratorVanDnaCodeStringLijst(ProductEtiketAfdrukkenRequest.DnaCodes)
-		#dim DnaCode As TECH.Iterator = DnaCodeIterator.Next()
-		Do DnaCodeIterator.Reset()
 		
 		While DnaCodeIterator.HasNext() {
 			#dim DnaCodeInfo As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
-			//Set PRNr = DnaCodeInfo.ProductNummer
-			
-			//Do ##class(CHUI.Prod.ProductLabel).DoOne(DnaCodeInfo.ProductNummer) //PRNr
-			//Do ##class(CHUI.Prod.ProductLabel).PrintProductEtiketMetDnaCode(DnaCodeInfo) //PRNr
+			Do ##class(CHUI.Prod.ProductLabel).PrintVHMaatwerkMetDnaCodes(DnaCodeInfo) //PRNr
 		}
 						
 		Set Response.Header.Status = "200"