Index: APPS/PM/Maatwerk/OLM/OrgaluxOpMaatFactory.cls.xml
===================================================================
diff -u -r1073 -r1102
--- APPS/PM/Maatwerk/OLM/OrgaluxOpMaatFactory.cls.xml	(.../OrgaluxOpMaatFactory.cls.xml)	(revision 1073)
+++ APPS/PM/Maatwerk/OLM/OrgaluxOpMaatFactory.cls.xml	(.../OrgaluxOpMaatFactory.cls.xml)	(revision 1102)
@@ -18,14 +18,15 @@
 	 	Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.PM.Maatwerk.OLM.OrgaluxOpMaatException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Er zijn geen of meerdere in te korten producten in dit orgalux product"))
  	}
  	
- 	Set Classificatie = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProductClassificatie(InTeKortenKinderen.GetAt(1).GeefProduct().GeefPRNr()).GeefSubGroep()
+ 	Set InTeKortenProduct = InTeKortenKinderen.GetAt(1).GeefProduct()
+ 	Set Classificatie = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProductClassificatie(InTeKortenProduct.GeefPRNr()).GeefSubGroep()
  	
  	Set OrgaluxOpMaatFactory = ""
  	If (Classificatie = "BX-ACC-ORG/BL")
  	{
 	 	Set OrgaluxOpMaatFactory = ##class(APPS.PM.Maatwerk.OLM.impl.DwarslatOpMaatFactory).%New()
  	}
- 	ElseIf (Classificatie = "ZZ-INZ-MAM/HA")
+ 	ElseIf (InTeKortenProduct.%Extends("DOM.PM.ASMProduct.ASMAntislipmat"))
  	{
 	 	Set OrgaluxOpMaatFactory = ##class(APPS.PM.Maatwerk.OLM.impl.AntislipmatOpMaatFactory).%New()
  	}
Index: APPS/PM/Maatwerk/OLM/impl/DwarslatOpMaatFactory.cls.xml
===================================================================
diff -u -r1073 -r1102
--- APPS/PM/Maatwerk/OLM/impl/DwarslatOpMaatFactory.cls.xml	(.../DwarslatOpMaatFactory.cls.xml)	(revision 1073)
+++ APPS/PM/Maatwerk/OLM/impl/DwarslatOpMaatFactory.cls.xml	(.../DwarslatOpMaatFactory.cls.xml)	(revision 1102)
@@ -6,7 +6,7 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefBreedteTeVervangenProduct">
-<FormalSpec>TeVervangenProduct:DOM.PM.Product</FormalSpec>
+<FormalSpec>TeVervangenProduct:DOM.PM.Product,BreedteOLProduct:%Integer</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	Set Korttekst = TeVervangenProduct.GeefKorttekst()
@@ -19,25 +19,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefClassificatieID">
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit 1328
-]]></Implementation>
-</Method>
-
 <Method name="GeefToeslagPerBewerking">
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[	Quit 3
 ]]></Implementation>
 </Method>
-
-<Method name="GeefKorttekstIngekortProduct">
-<FormalSpec>OrgaluxProduct:DOM.PM.OLProduct.OLProduct,InbouwBreedte:%Integer</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set Korttekst = OrgaluxProduct.GeefKorttekst()
-	Quit "IO."_$Extract(Korttekst,4,11)_" KORT"_$J(InbouwBreedte,4)_$Extract(Korttekst,21,25)
-]]></Implementation>
-</Method>
 </Class>
 </Export>
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>
Index: APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml
===================================================================
diff -u -r1073 -r1102
--- APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml	(.../AbstractOpMaatFactory.cls.xml)	(revision 1073)
+++ APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml	(.../AbstractOpMaatFactory.cls.xml)	(revision 1102)
@@ -18,6 +18,7 @@
  	Set ToeTeVoegenKinderen = OrgaluxProduct.GeefInkortInfo().GeefToeTeVoegenKinderen()
  	
 	Set BreedteOLProduct = ..GeefBreedteOrgaluxProduct(OrgaluxProduct)
+	
 	If (InbouwBreedte >= BreedteOLProduct)
 	{
 		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.PM.Maatwerk.OLM.OrgaluxOpMaatException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"De inbouwbreedte mag niet groter zijn dan het ORGALUX product"))
@@ -31,7 +32,7 @@
  	
  	// Bepalen van het product dat moet verwijderd worden
 	Set TeVervangenProduct = TeVervangenKinderen.GetAt(1).GeefProduct()
-	Set BreedteInTeKortenProduct = ..GeefBreedteTeVervangenProduct(TeVervangenProduct)
+	Set BreedteInTeKortenProduct = ..GeefBreedteTeVervangenProduct(TeVervangenProduct,BreedteOLProduct)
 	
 	Kill ^PRBS("BS",PRNr,TeVervangenKinderen.GetAt(1).GeefID())
 	
@@ -44,7 +45,7 @@
 	Set AantalInTeKorten = InTeKortenKinderen.GetAt(1).GeefAantal()
 	Set InTeKortenNaar = InbouwBreedte - (BreedteOLProduct - BreedteInTeKortenProduct)
 	
-	Set IngekortProduct = ..BerekenIngekortProduct(InTeKortenPRNr, InTeKortenNaar, AantalInTeKorten)
+	Set IngekortProduct = ..BerekenIngekortProduct(InTeKortenProduct, TeVervangenProduct, InTeKortenNaar, AantalInTeKorten)
 	Set VrijLabel = $Order(^PRBS("BS",PRNr,"KIND.999"),-1)
 	Set VolgendNr = $E(1000+$Piece(VrijLabel,".",2)+1,2,4)
 	Set ^PRBS("BS",PRNr,"KIND."_VolgendNr) = IngekortProduct.GeefPRNr()_"\"_AantalInTeKorten_"\K\\\\\\\\PROD\"
@@ -62,7 +63,7 @@
 	Set $Piece(^KPR(PRNr,0),"\",1) = ..GeefKorttekstIngekortProduct(OrgaluxProduct, InbouwBreedte)
 	
 	// Classficiatie correct instellen
-	Set Classificatie = ..GeefClassificatieID()
+	Set Classificatie = ProductAPI.GeefOrgaluxOpMaatClassificatie().GeefID()
 	Set $Piece(^KPR(PRNr,"I1"),"\",1) = $$GETSORT^KLASS(Classificatie,1)
 	Set $Piece(^KPR(PRNr,"I1"),"\",2) = $$GETSORT^KLASS(Classificatie,2)
 	Set $Piece(^KPR(PRNr,"I1"),"\",3) = $$GETSORT^KLASS(Classificatie,3)
@@ -120,24 +121,22 @@
 
 <Method name="GeefBreedteTeVervangenProduct">
 <Abstract>1</Abstract>
-<FormalSpec>TeVervangenProduct:DOM.PM.Product</FormalSpec>
+<FormalSpec>TeVervangenProduct:DOM.PM.Product,BreedteOLProduct:%Integer</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 </Method>
 
-<Method name="GeefClassificatieID">
-<Abstract>1</Abstract>
-<ReturnType>%Integer</ReturnType>
-</Method>
-
 <Method name="GeefToeslagPerBewerking">
 <Abstract>1</Abstract>
 <ReturnType>%Float</ReturnType>
 </Method>
 
 <Method name="GeefKorttekstIngekortProduct">
-<Abstract>1</Abstract>
 <FormalSpec>OrgaluxProduct:DOM.PM.OLProduct.OLProduct,InbouwBreedte:%Integer</FormalSpec>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Korttekst = OrgaluxProduct.GeefKorttekst()
+	Quit "IO."_$Extract(Korttekst,4,11)_" KORT"_$J(InbouwBreedte,4)_$Extract(Korttekst,21,25)
+]]></Implementation>
 </Method>
 
 <Method name="GeefBreedteOrgaluxProduct">
@@ -155,7 +154,7 @@
 </Method>
 
 <Method name="BerekenIngekortProduct">
-<FormalSpec>InTeKortenPRNr:%Integer,TeBekomenLengte:%Integer,Aantal:%Integer</FormalSpec>
+<FormalSpec>InTeKortenProduct:DOM.PM.Product,TeVervangenProduct:DOM.PM.Product,TeBekomenLengte:%Integer,Aantal:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Product</ReturnType>
 <Implementation><![CDATA[
@@ -169,7 +168,7 @@
 	
 	
 	Set IngegevenKenmerken=##class(DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken).%New()
-	Set IngegevenKenmerken.InTeKortenPRNr = InTeKortenPRNr
+	Set IngegevenKenmerken.InTeKortenPRNr = InTeKortenProduct.GeefPRNr()
 	Set IngegevenKenmerken.TeBekomenLengte = TeBekomenLengte