Index: BL/PPS/TBX/WPPers/InfoBepaler.cls.xml
===================================================================
diff -u -r57727 -r58564
--- BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57727)
+++ BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 58564)
@@ -55,31 +55,36 @@
 		Set Info1 = "B:Verwijderd" ; overschrijft alle vorige	
 	} Else {
 		#dim TBX As DOM.PM.TBXProduct.TBXLade = ..ProductAPI.GeefProduct(PRNr)
-		#dim Internebreedte As %Float = TBX.GeefInterneBreedte()
-		#dim Draagkracht As %Float = TBX.GeefDraagkracht()
-		#dim Variant As DOM.PM.enu.Variant = TBX.GeefVariant()
-		#dim Antislipmat As DOM.PM.enu.TBXAntislipmat =$S(TBX.GeefAntislipmatNietMeeleveren():"",1:TBX.GeefAntislipmat()) ; Antislipmat
-		#dim Blumotion As DOM.PM.enu.TBXBlumotion = TBX.GeefBlumotion()
-		#dim LadeType As DOM.PM.enu.TBXLadeType = TBX.GeefLadeType()
-		#dim RugMateriaal As DOM.PM.enu.TBXRugwandMateriaal = TBX.GeefRugMateriaal()
-		#dim Onderdelenspecial As %String = TBX.GeefOnderdelenSpeciaal()
-		#dim IsSpoelbakLade As %Boolean = TBX.IsSpoelbakLade()
-		
-		Set:(LadeType="B") Info1=..GeefInfoMetMelding(Info1,"FRONT")
-		Set:("0"'[Antislipmat) Info1=..GeefInfoMetMelding(Info1,"MAT "_..MatFormatter.GeefKorteNotatie(..TBXMatToEnuMatConverter.GeefMateriaal(Antislipmat),..TBXMatToEnuMatConverter.GeefKleur(Antislipmat)))
-		Set:(Onderdelenspecial'="") Info1=..GeefInfoMetMelding(Info1,"SPECIAAL : "_$CASE(Onderdelenspecial,"F":"FRONT","R":"RUG","B":"BODEM","BR":"BODEM&RUG",:Onderdelenspecial))
-		Set:(IsSpoelbakLade) Info1=..GeefInfoMetMelding(Info1,"SPOELBAK/SYFON")
-		Set:(Blumotion="T") Info1=..GeefInfoMetMelding(Info1,"TIP-ON")
-		Set:(Variant=##class(DOM.PM.enu.LadeVariant).TBXBaliko() ) Info1=..GeefInfoMetMelding(Info1,"HOUTEN BALIKO LADE")
-		Set:(Internebreedte<..#MinIB) Info1=..GeefInfoMetMelding(Info1,"EXTRA SMAL")
-		Set:(Internebreedte>..#MaxIB) Info1=..GeefInfoMetMelding(Info1,">1500")
-		Set:(Draagkracht=80) Info1=..GeefInfoMetMelding(Info1,"80kg",##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Groen())
-		If (RugMateriaal=##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()) {
-			Set Info1=..GeefInfoMetMelding(Info1,"stalen rug",##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Groen())
+		If $$$Not(TBX.%Extends("DOM.PM.TBXProduct.TBXLade")) {
+			Set Info1 = ##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Rood()_":NIET TBX"
 		}
-		
-		if (..BevatSynchro(TBX) || ..BevatTOBSynchroStang(TBX)) && $$$Not(..IsV1Verpakking(TBX)) {
-			Set Info1 = ..GeefInfoMetMelding(Info1,"SYNCST")
+		Else {
+			#dim Internebreedte As %Float = TBX.GeefInterneBreedte()
+			#dim Draagkracht As %Float = TBX.GeefDraagkracht()
+			#dim Variant As DOM.PM.enu.Variant = TBX.GeefVariant()
+			#dim Antislipmat As DOM.PM.enu.TBXAntislipmat =$S(TBX.GeefAntislipmatNietMeeleveren():"",1:TBX.GeefAntislipmat()) ; Antislipmat
+			#dim Blumotion As DOM.PM.enu.TBXBlumotion = TBX.GeefBlumotion()
+			#dim LadeType As DOM.PM.enu.TBXLadeType = TBX.GeefLadeType()
+			#dim RugMateriaal As DOM.PM.enu.TBXRugwandMateriaal = TBX.GeefRugMateriaal()
+			#dim Onderdelenspecial As %String = TBX.GeefOnderdelenSpeciaal()
+			#dim IsSpoelbakLade As %Boolean = TBX.IsSpoelbakLade()
+			
+			Set:(LadeType="B") Info1=..GeefInfoMetMelding(Info1,"FRONT")
+			Set:("0"'[Antislipmat) Info1=..GeefInfoMetMelding(Info1,"MAT "_..MatFormatter.GeefKorteNotatie(..TBXMatToEnuMatConverter.GeefMateriaal(Antislipmat),..TBXMatToEnuMatConverter.GeefKleur(Antislipmat)))
+			Set:(Onderdelenspecial'="") Info1=..GeefInfoMetMelding(Info1,"SPECIAAL : "_$CASE(Onderdelenspecial,"F":"FRONT","R":"RUG","B":"BODEM","BR":"BODEM&RUG",:Onderdelenspecial))
+			Set:(IsSpoelbakLade) Info1=..GeefInfoMetMelding(Info1,"SPOELBAK/SYFON")
+			Set:(Blumotion="T") Info1=..GeefInfoMetMelding(Info1,"TIP-ON")
+			Set:(Variant=##class(DOM.PM.enu.LadeVariant).TBXBaliko() ) Info1=..GeefInfoMetMelding(Info1,"HOUTEN BALIKO LADE")
+			Set:(Internebreedte<..#MinIB) Info1=..GeefInfoMetMelding(Info1,"EXTRA SMAL")
+			Set:(Internebreedte>..#MaxIB) Info1=..GeefInfoMetMelding(Info1,">1500")
+			Set:(Draagkracht=80) Info1=..GeefInfoMetMelding(Info1,"80kg",##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Groen())
+			If (RugMateriaal=##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()) {
+				Set Info1=..GeefInfoMetMelding(Info1,"stalen rug",##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Groen())
+			}
+			
+			If (..BevatSynchro(TBX) || ..BevatTOBSynchroStang(TBX)) && $$$Not(..IsV1Verpakking(TBX)) {
+				Set Info1 = ..GeefInfoMetMelding(Info1,"SYNCST")
+			}
 		}
 	}
 	
Index: vhUnitTest/BL/PPS/TBX/WPPers/InfoBepaler/Test.cls.xml
===================================================================
diff -u -r57727 -r58564
--- vhUnitTest/BL/PPS/TBX/WPPers/InfoBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 57727)
+++ vhUnitTest/BL/PPS/TBX/WPPers/InfoBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58564)
@@ -60,6 +60,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: info1 voor andere lade dan TBX geeft &apos;NIET TBX&apos;">
+<Implementation><![CDATA[
+	Set ProductAPIStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductAPIStub.IndienMethodCall("GeefProduct", "ProductNummerTAX").DanReturn(##class(vhTest.Mock.DOM.PM.TAORProduct.TAORLade).%New())
+
+	Set InfoBepaler = ##class(BL.PPS.TBX.WPPers.InfoBepaler).%New(,,ProductAPIStub)
+	#dim Info1 As %String = InfoBepaler.GeefInfo1("ProductNummerTAX","")
+	
+	Do $$$AssertEquals(Info1,"R:NIET TBX")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Geeft info1 zonder stangen voor V1 verpakking">
 <Implementation><![CDATA[
 	Do ..TBXLadeMock.VerwachtMethodCall("GeefVerpakking").DanReturn(##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen())