Index: APPS/PM/Maatwerk/OLM/impl/AntislipmatOpMaatFactory.cls.xml
===================================================================
diff -u -r1073 -r1102
--- APPS/PM/Maatwerk/OLM/impl/AntislipmatOpMaatFactory.cls.xml	(.../AntislipmatOpMaatFactory.cls.xml)	(revision 1073)
+++ APPS/PM/Maatwerk/OLM/impl/AntislipmatOpMaatFactory.cls.xml	(.../AntislipmatOpMaatFactory.cls.xml)	(revision 1102)
@@ -1,9 +1,55 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="APPS.PM.Maatwerk.OLM.impl.AntislipmatOpMaatFactory">
-<Description>
-</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.PM.Maatwerk.OLM.impl.AbstractOpMaatFactory</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefToeslagPerBewerking">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit 2.855
+]]></Implementation>
+</Method>
+
+<Method name="GeefBreedteTeVervangenProduct">
+<FormalSpec>TeVervangenProduct:DOM.PM.Product,BreedteOLProduct:%Integer</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit BreedteOLProduct
+]]></Implementation>
+</Method>
+
+<Method name="BerekenIngekortProduct">
+<FormalSpec>InTeKortenProduct:DOM.PM.Product,TeVervangenProduct:DOM.PM.Product,TeBekomenLengte:%Integer,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Product</ReturnType>
+<Implementation><![CDATA[
+	Set Diepte = TeVervangenProduct.GeefLadeDiepte()
+	Set Breedte = TeBekomenLengte
+	Set Kleur = TeVervangenProduct.GeefKleur()
+	
+	Set PRNr=##class(BL.PR.GA.AntislipmatBuilder).GenereerProduct(Kleur,Diepte,Breedte,"B",Aantal)
+	
+	// Achteraan bestelreferentie toevoegen
+	For Positie = "4.1","4.2","4.3","5.1","5.2","5.3","4.4","4.5","4.6","4.7","4.8","4.9","4.10","5.4","5.5","5.6","5.7","5.8","5.9","5.10"
+	{
+		Set Node = $Piece(Positie,".",1)
+		Set Piece = $Piece(Positie,".",2)
+		Set Gevonden = $Piece($Get(^KPR(PRNr,Node),""),"\",Piece)
+		If (Gevonden [ "corpusbreedte")
+		{
+			Set $Piece(^KPR(PRNr,Node),"\",Piece) = Gevonden_", WD:0"
+		}
+		If (Gevonden = "")
+		{
+			Set $Piece(^KPR(PRNr,Node),"\",Piece) = "voor ORGALUX"
+			Quit
+		}
+	}
+	
+	
+	Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
+	Quit Product
+]]></Implementation>
+</Method>
 </Class>
 </Export>