Index: CHUI/PPS/TBX/LeanBatch.cls.xml
===================================================================
diff -u -r2203 -r2204
--- CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 2203)
+++ CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 2204)
@@ -635,14 +635,16 @@
 <FormalSpec>TOENr</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	New %SC,Aantal,ToeleveringAPI,Toelevering
+	New %SC,Aantal,ToeleveringAPI,Toelevering,DocsV1
 	Set TOENr=$G(TOENr),Aantal=""
 	Do NIEUW^vhScherm("HADPPROBOX",,,,,,3,"A")
 	Quit:'%SC
 	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
 	Set Toelevering=ToeleveringAPI.GeefToelevering(TOENr)
+	set DocsV1 = ##Class(BL.PPS.TBX.DocsV1).%New()
+	do DocsV1.Init(..HaluxBatch.GeefBatchID())
 	While Aantal {
-		Do ##Class(BL.PPS.TBX.DocsV1).%New().ProboxOverdoosEtiket(Toelevering)
+		do DocsV1.ProboxOverdoosEtiket(Toelevering)
 		Set Aantal=Aantal-1
 	}
 ]]></Implementation>