Index: APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml
===================================================================
diff -u -r39573 -r66228
--- APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 39573)
+++ APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 66228)
@@ -38,26 +38,48 @@
 <Private>1</Private>
 </Property>
 
-<Property name="IngegevenKenmerkenTypeAPI">
+<Property name="DomIngegevenKenmerkenTypeAPI">
+<Description>
+OPGELET : API voor DOM-Kenmerken! </Description>
 <Type>DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="AppsDtoIngegevenKenmerkenTypeAPI">
+<Description>
+OPGELET : API voor APPS-Kenmerken! </Description>
+<Type>APPS.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DoorHandelMeeleverenBepalerFactory">
+<Type>APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProjectSettings">
+<Type>DOM.common.impl.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>VerpakkingService:APPS.PM.Maatwerk.impl.VerpakkingService</FormalSpec>
+<FormalSpec>VerpakkingService:APPS.PM.Maatwerk.impl.VerpakkingService="",AdminTekstUtils:APPS.common.AdminTekstUtils="",DoorHandelMeeleverenBepalerFactory:APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory,ProjectSettings:DOM.common.impl.ProjectSettingsAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..IngegevenKenmerkenConverter = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New()
-	set ..AdminTekstUtils = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI().GeefAdminTekstUtils()
+	Set ..IngegevenKenmerkenConverter = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New()
+	Set ..AdminTekstUtils = $$$Inject(AdminTekstUtils, ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI().GeefAdminTekstUtils())
 	Set ..MaatwerkCalcAPI = ##class(DOM.PM.impl.MaatwerkCalcAPI).%New()
 	Set ..VerpakteAfmetingBerekenaarFactory = ##class(APPS.EC.Winkelkar.impl.VerpakteAfmetingBerekenaarFactory).%New()
 	Set ..VerpakkingService = $$$Inject(VerpakkingService, ##class(APPS.PM.Maatwerk.impl.VerpakkingService).%New())
-	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
-
-	quit $$$OK
+	Set ..DomIngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
+	Set ..AppsDtoIngegevenKenmerkenTypeAPI = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
+	Set ..DoorHandelMeeleverenBepalerFactory = $$$Inject(DoorHandelMeeleverenBepalerFactory,##class(APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory).%New())
+	Set ..ProjectSettings = $$$Inject(ProjectSettings, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
+	
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -70,19 +92,24 @@
 </Method>
 
 <Method name="MaakLijn">
-<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer,ProjectReferentie:%String,GroepNaam:%String,ExterneId:%String=""</FormalSpec>
+<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer,ProjectReferentie:%String,GroepNaam:%String,ExterneId:%String="",EconConfiguratieSleutel:%String="",HerbestellingBijProbleem:%Boolean=0</FormalSpec>
 <ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
 <Implementation><![CDATA[
 	#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
 	Set Lijn.ExterneId = ExterneId
+	Set Lijn.EconConfiguratieSleutel = EconConfiguratieSleutel
 	
 	Do Lijn.ZetAantal(Aantal)
-
 	Do ..ZetIngegevenKenmerken(Lijn, IngegevenKenmerken)
+
 	Do ..ZetProjectReferentie(Lijn,ProjectReferentie)
 
 	Do ..VoegToeAanGroep(GroepNaam, Lijn)
 
+	#dim DoorHandelMeeleverenBepaler as APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler = ..DoorHandelMeeleverenBepalerFactory.GeefDoorHandelMeeleverenBepaler(..Winkelkar.GeefPersonality().GeefID())
+	Do DoorHandelMeeleverenBepaler.ZetDoorHandelMeeleverens(Lijn)
+
+	Set Lijn.HerbestellingBijProbleem = HerbestellingBijProbleem
 	Quit Lijn
 ]]></Implementation>
 </Method>
@@ -95,14 +122,14 @@
 	#dim OorspronkelijkAantalVanLijn As %Integer = Lijn.GeefAantal()
 	
 	Do Lijn.ZetAantal(Aantal)
-
 	Do ..ZetIngegevenKenmerken(Lijn, IngegevenKenmerken)
-
-	If ProjectReferentie '= "" {
+	Do ..ResetBerekendeProductID(Lijn)
+	
+	If $$$Not(ProjectReferentie = "") {
 		Do ..ZetProjectReferentie(Lijn,ProjectReferentie)
 	}
 
-	If (GroepNaam '= "") { // Voorlopig is dit een optionele parameter op WS-niveau, om backward-compatible te zijn zolang de UI-code niet is aangepast...
+	If $$$Not(GroepNaam = "") { // Voorlopig is dit een optionele parameter op WS-niveau, om backward-compatible te zijn zolang de UI-code niet is aangepast...
 		Do ..VerplaatsLijnNaarGroepIndienNodig( Lijn, GroepNaam)
 	}
 	
@@ -112,35 +139,45 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ResetBerekendeProductID">
+<FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do Lijn.ZetProductID("")
+]]></Implementation>
+</Method>
+
 <Method name="ZetIngegevenKenmerken">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn,IngegevenKenmerkenDto:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	if ..Winkelkar.GeefApplicatieType() = ##class(APPS.common.enu.ApplicatieType).Extern() {
-		if ( IngegevenKenmerkenDto.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade() ) 
+
+	If ..Winkelkar.GeefApplicatieType() = ##class(APPS.common.enu.ApplicatieType).Extern() {
+		If ( IngegevenKenmerkenDto.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade() ) 
 			&& ( ( IngegevenKenmerkenDto.GeefVariant() = ##class(DOM.PM.enu.Variant).LegraboxPure()) && ( IngegevenKenmerkenDto.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade() ) )
 				|| (IngegevenKenmerkenDto.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) {
-			if $$$Not(IngegevenKenmerkenDto.LadeHoogte = IngegevenKenmerkenDto.RugHoogte) {
-			  	do ##class(vhLib.Logger).%New().InfoMail("Data Correctie","Rughoogte '"_IngegevenKenmerkenDto.RugHoogte_"' gelijkgesteld aan LadeHoogte '"_IngegevenKenmerkenDto.LadeHoogte_"'")
-			  	set IngegevenKenmerkenDto.RugHoogte = IngegevenKenmerkenDto.LadeHoogte
+			If ($$$Not(IngegevenKenmerkenDto.LadeHoogte = IngegevenKenmerkenDto.RugHoogte) && (IngegevenKenmerkenDto.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox())) {
+				If $$$Not(..AppsDtoIngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerkenDto)) {
+					Do ##class(vhLib.Logger).%New().Info("Data Correctie","Rughoogte '"_IngegevenKenmerkenDto.RugHoogte_"' gelijkgesteld aan LadeHoogte '"_IngegevenKenmerkenDto.LadeHoogte_"'")
+					Set IngegevenKenmerkenDto.RugHoogte = IngegevenKenmerkenDto.LadeHoogte
+				}
 			}
 			If ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID() = ##class(DOM.common.enu.Personality).Daro(){
-				If (IngegevenKenmerkenDto.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) {
-					Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).Glijder())
-					Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponBlumotionSetEenhedenEnMeenemers())
-					Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponBlumotionSynchronisatieAdapter())
-					Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponBlumotionSynchronisatieStang())
-					Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponSynchronisatieStang())
-					Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponSynchronisatieTandwiel())
-					Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).FrontBevestiging())  
+				If $$$Not(..ProjectSettings.IsDaroExcludeFromDeliveryEnabled()){
+					If (IngegevenKenmerkenDto.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) {
+						Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).Glijder())
+						Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponBlumotionSetEenhedenEnMeenemers())
+						Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponBlumotionSynchronisatieStang())
+						Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponSynchronisatieStang())
+						Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponSynchronisatieTandwiel())
+						Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).FrontBevestiging())  
+					}
+					If (IngegevenKenmerkenDto.GeefVariant() = ##class(DOM.PM.enu.Variant).LegraboxPure() && ( IngegevenKenmerkenDto.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade() )) {
+						Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXNietMeeleveren).Geleider())
+						Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXNietMeeleveren).FrontBevestiging())
+						Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXNietMeeleveren).BevestigingBodemFront())
+					}
 				}
-				If (IngegevenKenmerkenDto.GeefVariant() = ##class(DOM.PM.enu.Variant).LegraboxPure() && ( IngegevenKenmerkenDto.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade() )) {
-					Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXNietMeeleveren).Geleider())
-					Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXNietMeeleveren).FrontBevestiging())
-					Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXNietMeeleveren).BevestigingBodemFront())
-				}
-			}
-			
+			}			
 		}
 	}
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken
@@ -154,7 +191,7 @@
  	}
 	
 	if ( IngegevenKenmerkenDto.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade() ) && (IngegevenKenmerkenDto.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) {
-		if ( ..Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).SFS() ) && ( ..Winkelkar.GeefKlantID() = "SFS_83723" ) {
+		if ..IsAlpnach(..Winkelkar) {
 			set IngegevenKenmerken.BevatGeleiderBevestigingSchroeven = $$$True
 		}
 	}
@@ -163,12 +200,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsAlpnach">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As %String = $$$False
+	If ((..Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).SFS() ) && (..Winkelkar.GeefKlantID() = ##class(DOM.VKP.enu.SfsKlant).Alpnach())) {
+		Set Resultaat = $$$True
+	}
+	If (..Winkelkar.GeefKlantID() = ##class(DOM.VKP.enu.Klant).Alpnach()) {
+		Set Resultaat = $$$True
+	}
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
 <Method name="VerplaatsLijnNaarGroepIndienNodig">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn,GroepNaam:%String</FormalSpec>
 <Implementation><![CDATA[
 	// Cases: er was geen groep=>in nieuwe steken; er was een verkeerde groep=>uit oude halen en in nieuwe steken; er was een juiste groep=>niets
-	#dim ZatNietInGroep As %Boolean = '$IsObject(Lijn.Groep)
-	#dim ZatInVerkeerdeGroep As %Boolean = 'ZatNietInGroep && (GroepNaam '= Lijn.Groep.Naam)
+	#dim ZatNietInGroep As %Boolean = $$$Not($IsObject(Lijn.Groep))
+	#dim ZatInVerkeerdeGroep As %Boolean = $$$Not(ZatNietInGroep) && $$$Not(GroepNaam = Lijn.Groep.Naam)
 	If (ZatInVerkeerdeGroep) {
 		Do Lijn.Groep.Verwijder(Lijn)
 		Do ..VerwijderGroepIndienLeeg(Lijn.Groep)
@@ -182,7 +235,7 @@
 <Method name="VerwijderGroepIndienLeeg">
 <FormalSpec>GroepLijn:DOM.EC.Winkelkar.GroepLijn</FormalSpec>
 <Implementation><![CDATA[
-	If (('GroepLijn.SublijnIterator().HasNext()) && $IsObject(GroepLijn.Groep)) {
+	If ($$$Not(GroepLijn.SublijnIterator().HasNext()) && $IsObject(GroepLijn.Groep)) {
 		Do GroepLijn.Groep.Verwijder(GroepLijn)
 		Do GroepLijn.Delete()
 	}
@@ -242,50 +295,56 @@
 <Method name="BerekenMaatwerkLijnGewicht">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Implementation><![CDATA[
-	Quit:(..IngegevenKenmerkenTypeAPI.IsTandemboxLade(Lijn.GeefIngegevenKenmerken()))
-	
-	#dim BerekenTotaalGewichtOpdracht As APPS.EC.Winkelkar.impl.MaatwerkLijnGewichtOpdracht = ##class(APPS.EC.Winkelkar.impl.MaatwerkLijnGewichtOpdracht).%New()
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(Lijn.GeefIngegevenKenmerken()) 
-	#dim CommandList As %ListOfObjects = ##class(TECH.ListUtils).CreateListOfObjects(BerekenTotaalGewichtOpdracht)
-	Do ##class(TECH.IteratorUitvoerder).%New(HalffabItemsBoom.GeefHalffabItemsIterator(), CommandList).VoerUit()
-	Do Lijn.ZetTotaalGewicht(BerekenTotaalGewichtOpdracht.GeefResultaat())
+	If (..DomIngegevenKenmerkenTypeAPI.IsTandemboxLade(Lijn.GeefIngegevenKenmerken())) {
+		Do Lijn.ZetTotaalGewicht(1)
+	} else {
+		#dim BerekenTotaalGewichtOpdracht As APPS.EC.Winkelkar.impl.MaatwerkLijnGewichtOpdracht = ##class(APPS.EC.Winkelkar.impl.MaatwerkLijnGewichtOpdracht).%New()
+		#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(Lijn.GeefIngegevenKenmerken()) 
+		#dim CommandList As %ListOfObjects = ##class(TECH.ListUtils).CreateListOfObjects(BerekenTotaalGewichtOpdracht)
+		Do ##class(TECH.IteratorUitvoerder).%New(HalffabItemsBoom.GeefHalffabItemsIterator(), CommandList).VoerUit()
+		Do Lijn.ZetTotaalGewicht(BerekenTotaalGewichtOpdracht.GeefResultaat())
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="ZetVerpakteAfmeting">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Implementation><![CDATA[
-	Quit:(..IngegevenKenmerkenTypeAPI.IsTandemboxLade(Lijn.GeefIngegevenKenmerken()))
-	
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(Lijn.GeefIngegevenKenmerken()) 
-	#dim VerpakteAfmetingBerekenaar	As APPS.EC.Winkelkar.VerpakteAfmetingBerekenaar
-	Set VerpakteAfmetingBerekenaar = ..VerpakteAfmetingBerekenaarFactory.GeefVerpakteAfmetingBerekenaar(HalffabItemsBoom,Lijn.GeefIngegevenKenmerken())
-	if $IsObject(VerpakteAfmetingBerekenaar) {
-		Do Lijn.ZetVerpakteAfmeting(VerpakteAfmetingBerekenaar.GeefVerpakteAfmeting())
+	If (..DomIngegevenKenmerkenTypeAPI.IsTandemboxLade(Lijn.GeefIngegevenKenmerken())) {
+		Do Lijn.ZetVerpakteAfmeting(##class(APPS.Halux.common.impl.VerpakteAfmeting).%New(1,1,1))
+	} else {
+		#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(Lijn.GeefIngegevenKenmerken()) 
+		#dim VerpakteAfmetingBerekenaar	As APPS.EC.Winkelkar.VerpakteAfmetingBerekenaar
+		Set VerpakteAfmetingBerekenaar = ..VerpakteAfmetingBerekenaarFactory.GeefVerpakteAfmetingBerekenaar(HalffabItemsBoom,Lijn.GeefIngegevenKenmerken())
+		if $IsObject(VerpakteAfmetingBerekenaar) {
+			Do Lijn.ZetVerpakteAfmeting(VerpakteAfmetingBerekenaar.GeefVerpakteAfmeting())
+		}
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="ZetVolumeAandeel">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Implementation><![CDATA[
-	Quit:(..IngegevenKenmerkenTypeAPI.IsTandemboxLade(Lijn.GeefIngegevenKenmerken()))
-	
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Lijn.GeefIngegevenKenmerken()
-	#dim IsFamilieLade As %Boolean = (IngegevenKenmerken.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())
-	#dim IsVariantTAX As %Boolean = (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox())	
-	#dim IsVariantLBX As %Boolean = (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).LegraboxPure())	
-	
-	if IsFamilieLade {
-	 	If IsVariantTAX {
-			#dim TAXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = IngegevenKenmerken
-			if (TAXKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()) {
-				Do Lijn.ZetVolumeAandeel(..VerpakkingService.ProboxVolumeAandeel(Lijn.GeefIngegevenKenmerken()))
-			} 
-		} elseif IsVariantLBX {
-			#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = IngegevenKenmerken
-			if (LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Probox()) {
-				Do Lijn.ZetVolumeAandeel(..VerpakkingService.ProboxVolumeAandeel(Lijn.GeefIngegevenKenmerken()))
+	if (..DomIngegevenKenmerkenTypeAPI.IsTandemboxLade(Lijn.GeefIngegevenKenmerken())) {
+		Do Lijn.ZetVolumeAandeel(0.125)
+	} else {
+		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Lijn.GeefIngegevenKenmerken()
+		#dim IsFamilieLade As %Boolean = (IngegevenKenmerken.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())
+		#dim IsVariantTAX As %Boolean = (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox())	
+		#dim IsVariantLBX As %Boolean = (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).LegraboxPure())	
+		
+		if IsFamilieLade {
+		 	If IsVariantTAX {
+				#dim TAXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = IngegevenKenmerken
+				if (TAXKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()) {
+					Do Lijn.ZetVolumeAandeel(..VerpakkingService.ProboxVolumeAandeel(Lijn.GeefIngegevenKenmerken()))
+				} 
+			} elseif IsVariantLBX {
+				#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = IngegevenKenmerken
+				if (LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Probox()) {
+					Do Lijn.ZetVolumeAandeel(..VerpakkingService.ProboxVolumeAandeel(Lijn.GeefIngegevenKenmerken()))
+				}
 			}
 		}
 	}
@@ -294,9 +353,7 @@
 
 <Method name="BewaarLijn">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
-<Implementation><![CDATA[
-	Quit:(..IngegevenKenmerkenTypeAPI.IsTandemboxLade(Lijn.GeefIngegevenKenmerken()))
-	Do Lijn.Save()
+<Implementation><![CDATA[	Do Lijn.Save()
 ]]></Implementation>
 </Method>