Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml
===================================================================
diff -u -r60734 -r60736
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 60734)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 60736)
@@ -31,8 +31,6 @@
 <FormalSpec>Batch:APPS.Halux.common.Batch,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters="",DnaCodeIterator:TECH.Iterator=""</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(43).String("PrintKlantEtiket Printer")
-	
 	Set ..Parameters = Parameters
 	
 	Set Q="K", U=";", D="\"
@@ -44,14 +42,11 @@
 	Kill %Print2File
 	Set %Print2File=1
 	Set PrintEtiketten = ##class(%ListOfObjects).%New()
-	#dim VoorkeurPrinter As %String = "HALUX_productie_TAOR"
-		
+	#dim VoorkeurPrinter As %String = "HALUX_productie_TAOR"		
 	
 	If (DnaCodeIterator = "") {
-		Do ##class(Tools.Wlip).%New(43).String("In ELSE")
 		Set itToeleveringen = Batch.GeefToeleveringIterator()
 	
-	
 		While itToeleveringen.HasNext() {
 			#dim Toelevering As DOM.AKP.Toelevering = itToeleveringen.Next()
 	
@@ -63,9 +58,6 @@
 			}
 		}
 	} Else {
-		Do ##class(Tools.Wlip).%New(43).String("In IF")
-		Do DnaCodeIterator.Reset()
-		//#dim DnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(LijstDnacode)
 		Do ..PrintKlantEtiketMetDnaCodes(DnaCodeIterator)				
 	}
 	
@@ -80,27 +72,19 @@
 <FormalSpec>DnaCodesIterator:TECH.Iterator=""</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(43).String("PrintKlantEtiketMetDnaCodes")
 	Do DnaCodesIterator.Reset()
 	While DnaCodesIterator.HasNext() {
 		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodesIterator.Next()
-		Set aantal = 1 //..GeefLijnAantal(DnaCode.Lijn) // Moet iets andere zijn want dnacode.lijn gaat over de productielijn
-		
-		;TODO controleren met de juiste data of aantal hetzelfde is als toelevering.aantal
-		;Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
-		;#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ToeleveringAPI.GeefToeleveringLijn(DnaCode.Toelevering, DnaCode.ToeleveringLijn)
-		;Set aantallijnen = ToeleveringLijn.GeefAantal()
-		; Waarschijnlijk is aantal in dit geval niet relevant .. als ik bekijk wat er in de hadetik mee gedaan wordt
-		; Tom eens vragen to be sure
-		
-		Do ##class(Tools.Wlip).%New(43).String("in PrintKlantEtiketMetDnaCodes iterator")
 		//TODO 
 		//Set aantal =  ..GeefLijnAantal(DnaCode.Lijn) // moet hier toch ook gebruikt worden aangezien dat te maken heeft met het aantal etiketten  volgens vooraf gedifinieer per product
-		Do ##class(Tools.Wlip).%New(43).String("IU"_" - "_DnaCode.Toelevering_" - "_DnaCode.ToeleveringLijn)
-		Do ##class(Tools.Wlip).%New(43).ObjToText(DnaCode)
-		Set TLNr=$G(^TO("IU",DnaCode.Toelevering,DnaCode.ToeleveringLijn))
+		Set aantal = 1 //..GeefLijnAantal(DnaCode.Lijn) // Moet iets andere zijn want dnacode.lijn gaat over de productielijn
+		
+		Set ToeleveringsLijnNummer=$G(^TO("IU",DnaCode.Toelevering,DnaCode.ToeleveringLijn))
 		// TODO check op stekren of dit leeg is want anders verder in hadetik foutmelding 
-		Do PRINT^HADETIK("|PRN|\\FOP\ICT","T",DnaCode.Toelevering,TLNr,DnaCode.ProductNummer,aantal,VoorkeurPrinter,DnaCode.DnaCode)
+		If (ToeleveringsLijnNummer = ""){
+			// Error gooien?
+		}
+		Do PRINT^HADETIK("|PRN|\\FOP\ICT","T",DnaCode.Toelevering,ToeleveringsLijnNummer,DnaCode.ProductNummer,aantal,VoorkeurPrinter,DnaCode.DnaCode)
 	}
 ]]></Implementation>
 </Method>