Index: BL/PPS/TBX/WPPers.cls.xml
===================================================================
diff -u -r57702 -r70716
--- BL/PPS/TBX/WPPers.cls.xml	(.../WPPers.cls.xml)	(revision 57702)
+++ BL/PPS/TBX/WPPers.cls.xml	(.../WPPers.cls.xml)	(revision 70716)
@@ -455,7 +455,7 @@
 <Type>%Query</Type>
 <FormalSpec>BatchID</FormalSpec>
 <Parameter name="CONTAINID" value="0"/>
-<Parameter name="ROWSPEC" value="UniqueID:%String,Status:%String,ID:%String,Breedte:%Integer,Diepte:%Integer,Rughoogte:%Integer,Tand:%String,Info1:%String,Info2:%String,Volgorde:%Integer,TimeOutShort:%Integer,TimeOutLong:%Integer"/>
+<Parameter name="ROWSPEC" value="UniqueID:%String,Status:%String,ID:%String,Breedte:%Integer,Diepte:%Integer,Rughoogte:%Integer,Tand:%String,Info1:%String,Info2:%String,Volgorde:%Integer,TimeOutShort:%Integer,TimeOutLong:%Integer,KlantId:%String"/>
 </Query>
 
 <Method name="GetTBXsProdDefExecute">
@@ -536,10 +536,11 @@
 	/* invullen Info1 en Info2 TBX*/
 	Set Info1= ..InfoBepaler.GeefInfo1(PRNr, oQ.Status)
 	Set Info2= ..InfoBepaler.GeefInfo2(oQ.BatchID,(..GetNext(oQ.%Id())=""))
+	Set KlantId= oQ.Klant.Nummer
 	
 	Set WaarschuwingTijd=40
 	Set RedenTijd=60
-	Set Row=$LB(oQ.%Id(),PersStatus,PersID,PersBreedte,PersDiepte,PersRugH,PersTand,Info1,Info2,$I(%SequenceNr),WaarschuwingTijd,RedenTijd)
+	Set Row=$LB(oQ.%Id(),PersStatus,PersID,PersBreedte,PersDiepte,PersRugH,PersTand,Info1,Info2,$I(%SequenceNr),WaarschuwingTijd,RedenTijd,KlantId)
 	Quit Row
 ]]></Implementation>
 </Method>