Index: CHUI/PPS/TBX/LeanBatch.cls.xml
===================================================================
diff -u -r2134 -r2203
--- CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 2134)
+++ CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 2203)
@@ -631,6 +631,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ProboxOverdoosEtiket">
+<FormalSpec>TOENr</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	New %SC,Aantal,ToeleveringAPI,Toelevering
+	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)
+	While Aantal {
+		Do ##Class(BL.PPS.TBX.DocsV1).%New().ProboxOverdoosEtiket(Toelevering)
+		Set Aantal=Aantal-1
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BatchIsProbox">
+<Description>
+Controleert of Batch Probox is</Description>
+<FormalSpec>BatchNr</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set HaluxBatch = ##class(APPS.Halux.common.BatchService).%New().GeefBatch(BatchNr)
+	Set ProductieGroep = HaluxBatch.GeefProductieGroep()
+	Quit ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Probox()
+]]></Implementation>
+</Method>
+
 <Method name="AanpassenTipOn">
 <Description>
 Callback-functie in de global ^RES