Index: DOM/PM/Maatwerk/Calc/HF/impl/HFV1Verpakkingv001.cls.xml
===================================================================
diff -u -r29326 -r29491
--- DOM/PM/Maatwerk/Calc/HF/impl/HFV1Verpakkingv001.cls.xml	(.../HFV1Verpakkingv001.cls.xml)	(revision 29326)
+++ DOM/PM/Maatwerk/Calc/HF/impl/HFV1Verpakkingv001.cls.xml	(.../HFV1Verpakkingv001.cls.xml)	(revision 29491)
@@ -17,7 +17,7 @@
 	Set ..KartonSpecificatie = KartonSpecificatie
 	Set ..Rol = $Select(KartonSpecificatie.BenamingVerpakkingsOnderdeel=##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).Wikkel():"",1:"V1 ")_
 					##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).LogicalToDisplay(KartonSpecificatie.BenamingVerpakkingsOnderdeel)
-	Set ..Rol = $$$UCase($Extract(..Rol,1))_$Extract(..Rol,2,*) 
+	Set ..Rol = $$$FCase(..Rol)
 	Quit ##super(SamengesteldHalffabItemBuilder)
 ]]></Implementation>
 </Method>