Index: BL/PPS/TBX/WPPers.cls.xml
===================================================================
diff -u -r57663 -r57664
--- BL/PPS/TBX/WPPers.cls.xml	(.../WPPers.cls.xml)	(revision 57663)
+++ BL/PPS/TBX/WPPers.cls.xml	(.../WPPers.cls.xml)	(revision 57664)
@@ -534,9 +534,8 @@
 	Set:ODSP'="" PersStatus="?"
 	
 	/* invullen Info1 en Info2 TBX*/
-	Set (Info1,Info2)=""
 	Set Info1= ..InfoBepaler.GeefInfo1(PRNr, oQ.Status)
-	Set:(..GetNext(oQ.%Id())="") Info2= ..InfoBepaler.GeefInfo2(oQ.BatchID)
+	Set Info2= ..InfoBepaler.GeefInfo2(PRNr, oQ.BatchID,(..GetNext(oQ.%Id())=""))
 	
 	Set WaarschuwingTijd=40
 	Set RedenTijd=60
Index: BL/PPS/TBX/WPPers/InfoBepaler.cls.xml
===================================================================
diff -u -r57662 -r57664
--- BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57662)
+++ BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57664)
@@ -48,8 +48,6 @@
 
 	Set KLAS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS"))
 	Set Internebreedte =$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB"))
-	//Set Rughoogte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RH"))
-	//Set Ladediepte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD"))
 	Set Draagkracht=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DK"))
 	Set DesignCode=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DC"))
 	Set Antislipmat=$S($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"NMASM")):"",1:$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM"))) ; Antislipmat
@@ -89,10 +87,16 @@
 </Method>
 
 <Method name="GeefInfo2">
-<FormalSpec>BatchID:%String</FormalSpec>
+<FormalSpec>PRNr:%String,BatchID:%String,LaatsteBatch:%Boolean</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim Info2 As %String = "G:Laatste "_BatchID
+	#dim TBX As DOM.PM.TBXProduct.TBXLade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
+
+	#dim Info2 As %String = ""
+	
+	Set:(TBX.GeefDwarsverdeling()>0) Info2 = ..GeefInfoMetMelding(Info2, "DWV:"_TBX.AantalDwarsverdelingen)
+	Set:(LaatsteBatch) Info2 = ..GeefInfoMetMelding(Info2, "Laatste "_BatchID, ##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Groen())
+	
 	Quit Info2
 ]]></Implementation>
 </Method>