Index: APPS/Halux/common/ProductieService.cls.xml
===================================================================
diff -u -r54300 -r68724
--- APPS/Halux/common/ProductieService.cls.xml	(.../ProductieService.cls.xml)	(revision 54300)
+++ APPS/Halux/common/ProductieService.cls.xml	(.../ProductieService.cls.xml)	(revision 68724)
@@ -5,34 +5,55 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Mockable</Super>
 
+<Property name="ProjectSettingsApi">
+<Type>DOM.common.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProjectSettingsApi:DOM.common.ProjectSettingsAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProjectSettingsApi = $$$Inject(ProjectSettingsApi,##class(DOM.common.impl.ProjectSettingsAPI).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductieGroep">
-<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,ProductID:%String</FormalSpec>
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,ProductID:%String,ToeleveringSplitser:APPS.Halux.common.ToeleveringSplitser=""</FormalSpec>
 <ReturnType>APPS.Halux.common.enu.ProductieGroep</ReturnType>
 <Implementation><![CDATA[
-	#dim ProductGroepBepaler As APPS.Halux.common.impl.ProductieGroepBepaler = ..GeefProductieGroepBepaler(ProductID)
+	#dim ProductGroepBepaler As APPS.Halux.common.impl.ProductieGroepBepaler = ..GeefProductieGroepBepaler(ProductID,ToeleveringSplitser)
 	#dim ProductieGroep As APPS.Halux.common.enu.ProductieGroep  = ProductGroepBepaler.GeefProductieGroep(KlantID,ProductID)
 	Quit ProductieGroep
 ]]></Implementation>
 </Method>
 
 <Method name="GeefProductieGroepBepaler">
-<FormalSpec>ProductID:%String</FormalSpec>
+<FormalSpec>ProductID:%String,ToeleveringSplitser:APPS.Halux.common.ToeleveringSplitser</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.common.impl.ProductieGroepBepaler</ReturnType>
 <Implementation><![CDATA[
 	#dim Categorie As APPS.Halux.common.enu.Categorie = ..GeefCategorie(ProductID)
-	if Categorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox() {
-		set Bepaler = ##class(APPS.Halux.common.impl.ProductieGroepBepalerTBX).%New()
-	} elseif Categorie = ##class(APPS.Halux.common.enu.Categorie).Kaderdeur() {
-		set Bepaler = ##class(APPS.Halux.common.impl.ProductieGroepBepalerKAD).%New()
-	} elseif Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox() {
-		set Bepaler = ##class(APPS.Halux.common.impl.ProductieGroepBepalerLBX).%New()
-	} elseif Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox() {
-		set Bepaler = ##class(APPS.Halux.common.impl.ProductieGroepBepalerTAX).%New()
-	} else {
-		set Bepaler = ##class(APPS.Halux.common.impl.ProductieGroepBepaler).%New()
+	If Categorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox() {
+		Set Bepaler = ##class(APPS.Halux.common.impl.ProductieGroepBepalerTBX).%New(,,,ToeleveringSplitser)
+	} Elseif Categorie = ##class(APPS.Halux.common.enu.Categorie).Kaderdeur() {
+		Set Bepaler = ##class(APPS.Halux.common.impl.ProductieGroepBepalerKAD).%New()
+	} Elseif Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox() {
+		Set Bepaler = ##class(APPS.Halux.common.impl.ProductieGroepBepalerLBX).%New(,,,ToeleveringSplitser)
+	} Elseif Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox() {
+		Set Bepaler = ##class(APPS.Halux.common.impl.ProductieGroepBepalerTAX).%New()
+	} Elseif Categorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox() {
+		Set Bepaler = ##class(APPS.Halux.common.impl.ProductieGroepBepalerMVX).%New(,,,ToeleveringSplitser)
+	} Elseif Categorie = ##class(APPS.Halux.common.enu.Categorie).Revego() {
+		Set Bepaler = ##class(APPS.Halux.common.impl.ProductieGroepBepalerRVG).%New()
+	} Else {
+		Set Bepaler = ##class(APPS.Halux.common.impl.ProductieGroepBepaler).%New()
 	}
-	quit Bepaler
+	Quit Bepaler
 ]]></Implementation>
 </Method>
 
@@ -119,10 +140,12 @@
 		}
 		
 		Set:(##class(TECH.StringUtils).ToUpper(Order.GeefCommissieReferentie()) [ "TALSEE") DisplayNaam = "TALSEE | " _ DisplayNaam
-		Set:(##class(TECH.StringUtils).ToUpper(Order.GeefCommissieReferentie()) [ "ALPNACH") DisplayNaam = "ALPNACH | " _ DisplayNaam
-		
 		Set:(##class(TECH.StringUtils).ToUpper(Order.GeefOrderReferentie()) [ "TALSEE") DisplayNaam = "TALSEE | " _ DisplayNaam
-		Set:(##class(TECH.StringUtils).ToUpper(Order.GeefOrderReferentie()) [ "ALPNACH") DisplayNaam = "ALPNACH | " _ DisplayNaam
+		
+		If $$$Not(..ProjectSettingsApi.IsActiefAlpnachRechtstreeks()) {
+			Set:(##class(TECH.StringUtils).ToUpper(Order.GeefCommissieReferentie()) [ "ALPNACH") DisplayNaam = "ALPNACH | " _ DisplayNaam
+			Set:(##class(TECH.StringUtils).ToUpper(Order.GeefOrderReferentie()) [ "ALPNACH") DisplayNaam = "ALPNACH | " _ DisplayNaam
+		}
 	}
 	
 	Quit DisplayNaam