Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Tandembox/Aansturing/Test002.cls.xml
===================================================================
diff -u -r36656 -r58992
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Tandembox/Aansturing/Test002.cls.xml	(.../Test002.cls.xml)	(revision 36656)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Tandembox/Aansturing/Test002.cls.xml	(.../Test002.cls.xml)	(revision 58992)
@@ -51,6 +51,21 @@
 	quit TandemboxenPerToeleveringArray
 ]]></Implementation>
 </Method>
+
+<Method name="PrintZaagEtiketten">
+<Private>1</Private>
+<Implementation><![CDATA[
+	set LijstHelper = ##class(APPS.Halux.PPS.TBXZaag.impl.LijstHelperVoorTBX).%New()
+	#dim SubBatch As APPS.Halux.PPS.TBXZaag.enu.SubBatch = ""
+	set Iterator = ##class(TECH.ListIterator).%New(LijstHelper.GetZaagLijst(..#BatchID,""))
+	while Iterator.HasNext() {
+		#dim Opdracht As APPS.Halux.PPS.TBXZaag.dto.Opdracht = Iterator.Next()
+		set ZaagServer = ##class(WS.Halux.PPS.TBXZaagServer).%New()
+		do ZaagServer.PrintLabel("HOFFMANN ZAAG",##class(APPS.Halux.common.enu.Werkpost).Zaag1(),..GeefCategorie(),Opdracht.ZaagID,"L1","LA")
+		
+	}
+]]></Implementation>
+</Method>
 </Class>