Index: APPS/VKP/Maatwerk/impl/WinkelkarToProductVisitor.cls.xml
===================================================================
diff -u -r2180 -r2189
--- APPS/VKP/Maatwerk/impl/WinkelkarToProductVisitor.cls.xml	(.../WinkelkarToProductVisitor.cls.xml)	(revision 2180)
+++ APPS/VKP/Maatwerk/impl/WinkelkarToProductVisitor.cls.xml	(.../WinkelkarToProductVisitor.cls.xml)	(revision 2189)
@@ -52,8 +52,8 @@
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Familie=Kenmerken.Familie
-	Set Variant=Kenmerken.Variant
+	Set Familie=Kenmerken.GeefFamilie()
+	Set Variant=Kenmerken.GeefVariant()
 	
 	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
 	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(..HuidigeLijn.GeefAantal(),..KlantID,Personality)
Index: CHUI/Flow/ConfiguratorHelper.cls.xml
===================================================================
diff -u -r2151 -r2189
--- CHUI/Flow/ConfiguratorHelper.cls.xml	(.../ConfiguratorHelper.cls.xml)	(revision 2151)
+++ CHUI/Flow/ConfiguratorHelper.cls.xml	(.../ConfiguratorHelper.cls.xml)	(revision 2189)
@@ -30,7 +30,9 @@
 	Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
 	Set Applicatie.Naam = ..#ApplicatieID
 	Set WinkelkarID = ##class(APPS.EC.Winkelkar.WinkelkarService).%New().MaakWinkelkar(Applicatie, KlantNr).WinkelkarID
-	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(KlantNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen(),WinkelkarID,DocumentType,DocumentId,Familie,Variant,PRNr,LijnNr)
+	// FMA Hardcoded gebruiker
+ //	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(KlantNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen(),WinkelkarID,DocumentType,DocumentId,Familie,Variant,PRNr,LijnNr)
+	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(KlantNr,1,WinkelkarID,DocumentType,DocumentId,Familie,Variant,PRNr,LijnNr)
  	Set Status = Parameters.%Save()
  	Quit Parameters
 ]]></Implementation>
@@ -45,9 +47,10 @@
 	Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
 	Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
 	Set Applicatie.Naam = ..#ApplicatieID
-	Set Winkelkar = ##class(APPS.EC.Winkelkar.WinkelkarService).%New().MaakWinkelkar(Applicatie, KlantNr)
 	Set WinkelkarID = ##class(APPS.EC.Winkelkar.WinkelkarService).%New().MaakWinkelkar(Applicatie, KlantNr).WinkelkarID
-	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(KlantNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen(),WinkelkarID,DocumentType,DocumentId)
+	// FMA Hardcode gebruiker
+	//Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(KlantNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen(),WinkelkarID,DocumentType,DocumentId)
+	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(KlantNr,1,WinkelkarID,DocumentType,DocumentId)
  	Set Status = Parameters.%Save()
  	Quit Parameters
 ]]></Implementation>
Index: zTryout/FM/probox/VolumeTest.cls.xml
===================================================================
diff -u
--- zTryout/FM/probox/VolumeTest.cls.xml	(revision 0)
+++ zTryout/FM/probox/VolumeTest.cls.xml	(revision 2189)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.FM.probox.VolumeTest">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Main">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ToeNr:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Set Toelevering = ToeleveringAPI.GeefToelevering(ToeNr)
+	set VolumeAandeel = 0
+	set itToeleveringLijn = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product())
+	while itToeleveringLijn.HasNext() {
+		set Lijn = itToeleveringLijn.Next()
+		set Product = Lijn.GeefProduct()
+		set Verpakking = Product.GeefVerpakking()
+		Write "Product ", Product.GeefKorttekst(), " Aantal ", Lijn.GeefAantal()
+		if ( Verpakking = ( ##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen() ) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).ProboxZonderOnderdelen())) {
+			Set ProductAandeel = ##class(APPS.PM.Maatwerk.TBX.Probox.Calculator).GeefVolumeAandeelViaLade(Product)
+			Write ": Probox. Volume-aandeel = ", ProductAandeel
+			set VolumeAandeel = VolumeAandeel + (ProductAandeel * Lijn.GeefAantal())
+		}
+		Write !
+	}
+	Write "Totaal aandeel: ", VolumeAandeel, !
+	set AantalEtiketten = ##class(TECH.Math).Ceil(VolumeAandeel)
+	Write "Aantal etiketten: ", AantalEtiketten
+]]></Implementation>
+</Method>
+</Class>
+</Export>