Index: BL/PPS/TBX/WPPers/InfoBepaler.cls.xml
===================================================================
diff -u -r57654 -r57656
--- BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57654)
+++ BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57656)
@@ -1,8 +1,21 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="BL.PPS.TBX.WPPers.InfoBepaler">
+<IncludeCode>BL.PPS.TBX.Common</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
+<Parameter name="MinIB">
+<Description>
+Minimum InterneBreedte</Description>
+<Default>200</Default>
+</Parameter>
+
+<Parameter name="MaxIB">
+<Description>
+Maximum InterneBreedte</Description>
+<Default>1500</Default>
+</Parameter>
+
 <Property name="MatFormatter">
 <Type>APPS.Halux.PPS.impl.Formatter.Mat</Type>
 <Private>1</Private>
@@ -26,9 +39,23 @@
 </Method>
 
 <Method name="GeefInfo1">
+<FormalSpec>LT:%String,ASM:%String,ODSP:%String,IsSpoel:%Boolean,BM:%String,DC:%String,IB:%Integer,DK:%Integer,IsSR:%Boolean,Status:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Info1 As %String = ""
+	
+	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))
+	Set:ODSP'="" Info1=$S($L(Info1):Info1_"; ",1:"R:")_"SPECIAAL : "_$CASE(ODSP,"F":"FRONT","R":"RUG","B":"BODEM","BR":"BODEM&RUG",:ODSP)
+	Set:IsSpoel Info1=$S($L(Info1):Info1_"; ",1:"R:")_"SPOELBAK/SYFON"
+	Set:BM="T" Info1=$S($L(Info1):Info1_"; ",1:"R:")_"TIP-ON"
+	Set:DC="B" Info1=$S($L(Info1):Info1_"; ",1:"R:")_"HOUTEN BALIKO LADE"
+	Set:IB<..#MinIB Info1=$S($L(Info1):Info1_"; ",1:"R:")_"EXTRA SMAL"
+	Set:IB>..#MaxIB Info1=$S($L(Info1):Info1_"; ",1:"R:")_">1500"
+	Set:DK=80 Info1=$S($L(Info1):Info1_"; ",1:"G:")_"80kg"
+	Set:IsSR Info1=$S($L(Info1):Info1_"; ",1:"G:")_"stalen rug"
+	Set:(Status=$$$tsRemoved) Info1="B:Verwijderd" ; overschrijft alle vorige
+
 	Quit Info1
 ]]></Implementation>
 </Method>