Index: BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler.cls.xml
===================================================================
diff -u -r65869 -r65870
--- BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler.cls.xml	(.../HtmlInhoudProboxEtiketBepaler.cls.xml)	(revision 65869)
+++ BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler.cls.xml	(.../HtmlInhoudProboxEtiketBepaler.cls.xml)	(revision 65870)
@@ -88,16 +88,12 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
- 	#dim LijnNrLoop As %String = ""
- 	#dim Rec As %String = ""
- 	#dim ProductNummer As %String = ""
  	#dim Resultaat As %String = ""
-	
 	#dim ProductAantalLijst = ##class(TECH.KeyValue.UniqueList).%New()
-	
 	#dim DnaCode As DOM.Halux.AAP.DnaCode
 	#dim AantalReedsOpPallet As %Integer = 0
 	#dim OrderId As %String = 0
+	
 	While DnaCodeIterator.HasNext() {
 		Set DnaCode = DnaCodeIterator.Next()		
 		Set AantalReedsOpPallet = 0