Index: BL/PPS/TBX/WPPers/InfoBepaler.cls.xml
===================================================================
diff -u
--- BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(revision 0)
+++ BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(revision 57653)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.PPS.TBX.WPPers.InfoBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefInfo1">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Info1 As %String = ""
+	Quit Info1
+]]></Implementation>
+</Method>
+
+<Method name="GeefInfo2">
+<FormalSpec>BatchID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Info2 As %String = "G:Laatste "_BatchID
+	Quit Info2
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BL/PPS/TBX/WPPers.cls.xml
===================================================================
diff -u -r38442 -r57653
--- BL/PPS/TBX/WPPers.cls.xml	(.../WPPers.cls.xml)	(revision 38442)
+++ BL/PPS/TBX/WPPers.cls.xml	(.../WPPers.cls.xml)	(revision 57653)
@@ -73,6 +73,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="InfoBepaler">
+<Type>BL.PPS.TBX.WPPers.InfoBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="TBXMatToEnuMatConverter">
 <Type>BL.PPS.TBX.impl.TBXMatToEnuMatConverter</Type>
 <Private>1</Private>
@@ -86,6 +91,7 @@
 <Implementation><![CDATA[
 	set ..MatFormatter = ##class(APPS.Halux.PPS.impl.Formatter.Mat).%New()
 	set ..TBXMatToEnuMatConverter = ##class(BL.PPS.TBX.impl.TBXMatToEnuMatConverter).%New()
+	Set ..InfoBepaler = ##class(BL.PPS.TBX.WPPers.InfoBepaler).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -543,6 +549,8 @@
 	Set PersStatus=$S(oQ.Status=$$$tsRemoved:"?",oQ.WPPers.WPStatus=$$$wsFinished:"*",oQ.WPPers.WPStatus=$$$wsWachtend:"")
 	Set:IsSpoel PersStatus="?"
 	Set:ODSP'="" PersStatus="?"
+	
+	/* invullen Info1 en Info2 TBX*/
 	Set (Info1,Info2)=""
 	Set:LT="B" Info1=$S($L(Info1):Info1_"; ",1:"R:")_"FRONT"
 	Set:"0"'[ASM Info1=$S($L(Info1):Info1_"; ",1:"R:")_"MAT "_..MatFormatter.GeefKorteNotatie(..TBXMatToEnuMatConverter.GeefMateriaal(ASM),..TBXMatToEnuMatConverter.GeefKleur(ASM))
@@ -556,7 +564,8 @@
 	Set:IsSR Info1=$S($L(Info1):Info1_"; ",1:"G:")_"stalen rug"
 	Set:oQ.Status=$$$tsRemoved Info1="B:Verwijderd" ; overschrijft alle vorige
 	If ..GetNext(oQ.%Id())="" Do
-	. Set Info2="G:Laatste "_oQ.BatchID
+	. Set Info2= ..InfoBepaler.GeefInfo2(oQ.BatchID)
+	
 	Set WaarschuwingTijd=40
 	Set RedenTijd=60
 	Set Row=$LB(oQ.%Id(),PersStatus,PersID,PersBreedte,PersDiepte,PersRugH,PersTand,Info1,Info2,$I(%SequenceNr),WaarschuwingTijd,RedenTijd)