Index: APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml
===================================================================
diff -u -r1341 -r1355
--- APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml	(.../AbstractOpMaatFactory.cls.xml)	(revision 1341)
+++ APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml	(.../AbstractOpMaatFactory.cls.xml)	(revision 1355)
@@ -72,7 +72,7 @@
 	Do SamengesteldProduct.Save()
 	
 	// Korttekst herwerken
-	Set $Piece(^KPR(PRNr,0),"\",1) = ..GeefKorttekstIngekortProduct(OrgaluxProduct, InbouwBreedte)
+	Set $Piece(^KPR(PRNr,0),"\",1) = ..GeefKorttekstIngekortProduct(OrgaluxProduct, InbouwBreedte, IngekortProduct)
 	
 	// Classficiatie correct instellen
 	Set Classificatie = ProductAPI.GeefOrgaluxOpMaatClassificatie().GeefID()
@@ -143,11 +143,11 @@
 </Method>
 
 <Method name="GeefKorttekstIngekortProduct">
-<FormalSpec>OrgaluxProduct:DOM.PM.OLProduct.OLProduct,InbouwBreedte:%Integer</FormalSpec>
+<FormalSpec>OrgaluxProduct:DOM.PM.OLProduct.OLProduct,InbouwBreedte:%Integer,IngekortProduct:DOM.PM.Product</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set Korttekst = OrgaluxProduct.GeefKorttekst()
-	Quit "IO."_$Extract(Korttekst,4,11)_" KORT"_$J(InbouwBreedte,4)_$Extract(Korttekst,21,25)
+	Quit "IO."_$Extract(Korttekst,4,13)_$J(InbouwBreedte,4)_$J(IngekortProduct.GeefDossierNr(),4)_$Extract(Korttekst,22,25)
 ]]></Implementation>
 </Method>