Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r60460 -r60570
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 60460)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 60570)
@@ -1186,7 +1186,7 @@
 		#dim Mat As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo= UitvoeringLijstIterator.Next()			
 		#dim OvereenkomstigeMatGevonden As %Boolean = $$$False
 		#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(Mat.BatchID)
-		If ( $IsObject(Mat) && ((..IsProductiegroepKast(Batch)) || (..IsProductiegroepProbox(Batch))) && (Mat.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")   ){
+		If ( $IsObject(Mat) && ((..IsProductiegroepKastOfPallet(Batch)) || (..IsProductiegroepProbox(Batch))) && (Mat.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")   ){
 			Do LijstAantallen.Insert(Mat.Aantal)
 			while (SamengesteldeLijstIterator.HasNext() & $$$Not(OvereenkomstigeMatGevonden)){			
 				#dim Mat2 As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo= SamengesteldeLijstIterator.Next()
@@ -1205,7 +1205,7 @@
 	set ActiviteitParameters.Printer = ..Printer
 	
 	set Afdrukker = ##class(APPS.Halux.PPS.Document.impl.GekoppeldeIK.Matten).%New()
-	If ((SamengesteldeLijst.Count()>0) && (..IsProductiegroepKast(Batch) || (..IsProductiegroepProbox(Batch)))){
+	If ((SamengesteldeLijst.Count()>0) && (..IsProductiegroepKastOfPallet(Batch) || (..IsProductiegroepProbox(Batch)))){
 		Do Afdrukker.VerwerkUitvoeringInfoLijst(SamengesteldeLijst,ActiviteitParameters)
 		
 		Do UitvoeringLijstIterator.Reset()
@@ -1295,11 +1295,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsProductiegroepKast">
+<Method name="IsProductiegroepKastOfPallet">
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Pallet())
+<Implementation><![CDATA[	Quit ((Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Pallet()) || (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()))
 ]]></Implementation>
 </Method>