Index: vhDeploy/CW/Deploy20110928x1320.cls.xml
===================================================================
diff -u
--- vhDeploy/CW/Deploy20110928x1320.cls.xml	(revision 0)
+++ vhDeploy/CW/Deploy20110928x1320.cls.xml	(revision 2203)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.CW.Deploy20110928x1320">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>Doorlinken naar ADMIN</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ^SD("D","HADPPROBOX")="17`""Afdrukken Proboxetiketten""`T`80`92`15"
+	Set ^SD("D","HADPPROBOX","E",1,"E")="N DERDENr D STORE^vhTERMINA() S sEr=-1,DERDENr(""L"")=6332,DERDENr(""N"")=1,TOENr=$$SELECT^FLOW(""KTO"",""KTO1"",1,,.DERDENr) D REFRESH^vhTERMINA()"
+	Set ^SD("D","HADPPROBOX","F",1)="``Toelevering``2`20`TOENr`C`L`37``:```TOENR"
+	Set ^SD("D","HADPPROBOX","F",1,"F")="X_$S(X:$S($L($P(^KTO(6332,X,1),D,8)):"" (""_$P(^KTO(6332,X,1),D,8)_"" ""_$P(^KKL(^KK1($P(^KTO(6332,X,1),D,8)),0),D,2)_"")"",1:""""),1:"""")"
+	Set ^SD("D","HADPPROBOX","F",2)="``Aantal``3`20`Aantal`+N.`L`3``:```AANTAL"
+	Set ^SD("D","HADPPROBOX","I")="D:TOENr PUTATTR^vhScherm(""TOENR"",""D"",""D"")"
+	
+	Set ^MN("D","LEANBATCHF")="Halux tandembox lean File`1`"
+	Set ^MN("D","LEANBATCHF","F",1)="Selecteer batch`S`K`SB```S`"
+	Set ^MN("D","LEANBATCHF","F",2)="Nieuwe batch``K`NB````"
+	Set ^MN("D","LEANBATCHF","F",3)="&S```````"
+	Set ^MN("D","LEANBATCHF","F",4)="Print`PRINT`D`chuiLeanBatch.mnPrint()`Lijst(""SELECT"")``PRINT`"
+	Set ^MN("D","LEANBATCHF","F",5)="Print Proboxetiketten`X`D`chuiLeanBatch.ProboxOverdoosEtiket(TOENr)`$G(BatchNr),'chuiLeanBatch.BatchIsProbox(BatchNr)``X`"
+	Set ^MN("D","LEANBATCHF","F",6)="Verwijder Sequence``D`chuiLeanBatch.mnVerwijderSequence(BatchNr)`chuiLeanBatch.BatchInSequence(BatchNr)```"
+	Set ^MN("D","LEANBATCHF","F",7)="&S``B`````"
+	Set ^MN("D","LEANBATCHF","F",8)="Sluit``K`CANC```CANC;-`"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
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