Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml
===================================================================
diff -u -r903 -r946
--- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 903)
+++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 946)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-03 12:04:05">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-22 16:39:54">
 <Class name="DOM.PM.TBXProduct.impl.TBXLadeImpl">
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.impl.MaatwerkProductImpl,DOM.PM.TBXProduct.TBXLade</Super>
-<TimeChanged>62153,43514.313378</TimeChanged>
+<TimeChanged>62172,60078.735853</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Reling">
@@ -27,12 +27,32 @@
 <Private>1</Private>
 </Property>
 
+<Method name="BevatInTeKortenAntislipmat">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set Key = $Order(^PRBS("BS",..GeefPRNr(),"PRASM"))
+	Quit (("."_Key [ ".PRASM") && (Key '= "PRASM")) // Enkel PRASM is niet in te korten
+]]></Implementation>
+</Method>
+
 <Method name="BevatInTeKortenGlas">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ..BevatInTeKortenFrontGlas() || ..BevatInTeKortenZijkantGlas()
 ]]></Implementation>
 </Method>
 
+<Method name="BevatInTeKortenFront">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefLadeType() = ##class(DOM.PM.enu.TBXLadeType).BinnenLade()
+]]></Implementation>
+</Method>
+
+<Method name="BevatInTeKortenFrontReling">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..HeeftKey("PRFRRL.001")
+]]></Implementation>
+</Method>
+
 <Method name="BevatInTeKortenFrontGlas">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
@@ -175,6 +195,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAantalRelingen">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set Aantal = 0
+	If (..BevatReling())
+	{
+		Set RelingBouwsteen = ##class(DOM.PR.BouwStenen.BouwSteen).%OpenId(..GeefPRNr()_"||PRRL.001")
+		Set Aantal = RelingBouwsteen.Aantal
+		Set Verpakking = ..GeefReling().GeefVerpakking()
+		If (Verpakking '= ##class(DOM.PM.enu.Verpakking).Industrie()) {
+			Set Aantal = Aantal * 2
+		}
+	}
+	Quit Aantal
+]]></Implementation>
+</Method>
+
 <Method name="GeefRug">
 <ReturnType>DOM.PM.TBXProduct.TBXRug</ReturnType>
 <Implementation><![CDATA[
@@ -233,10 +270,7 @@
 	{
 		Set BoxsideKleur = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"KX"))
 	}
-	ElseIf (Boxside = "BG")
-	{
-		Set BoxsideKleur = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"KV"))
-	}
+	// BG -> Glas is geen boxside element
 	Quit BoxsideKleur
 ]]></Implementation>
 </Method>
@@ -293,6 +327,10 @@
 	{
 		Set MatCode = "DIA8"
 	}
+	ElseIf (BS = "FZ") || (BS = "FG")
+	{
+		Set Matcode = BS
+	}
 	Else
 	{
 		Set MatCode = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"KV"))
@@ -600,5 +638,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1845008141"/>
+<Checksum value="2640372603"/>
 </Export>