Index: APPS/VKP/Offerte/dto/Verpakking.cls.xml
===================================================================
diff -u -r37519 -r37524
--- APPS/VKP/Offerte/dto/Verpakking.cls.xml	(.../Verpakking.cls.xml)	(revision 37519)
+++ APPS/VKP/Offerte/dto/Verpakking.cls.xml	(.../Verpakking.cls.xml)	(revision 37524)
@@ -31,8 +31,12 @@
 <Type>APPS.VKP.Offerte.enu.VerpakkingType</Type>
 </Property>
 
+<Property name="LadeType">
+<Type>APPS.VKP.Offerte.enu.LadeType</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Afmeting:APPS.TRANSP.dto.Afmeting="",Gewicht:TECH.Decimal="",WaardeGoederen:TECH.Decimal="",ProductID:%String="",Aantal:TECH.Integer="",VolumeAandeel:TECH.Decimal="",VerpakkingType:APPS.VKP.Offerte.enu.VerpakkingType=""</FormalSpec>
+<FormalSpec>Afmeting:APPS.TRANSP.dto.Afmeting="",Gewicht:TECH.Decimal="",WaardeGoederen:TECH.Decimal="",ProductID:%String="",Aantal:TECH.Integer="",VolumeAandeel:TECH.Decimal="",VerpakkingType:APPS.VKP.Offerte.enu.VerpakkingType="",LadeType:APPS.VKP.Offerte.enu.LadeType=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -45,6 +49,7 @@
 	Set ..Aantal = Aantal
 	Set ..VolumeAandeel = VolumeAandeel
 	Set ..VerpakkingType = VerpakkingType
+	Set ..LadeType = LadeType
 	quit $$$OK
 ]]></Implementation>
 </Method>
Index: APPS/VKP/impl/OfferteService.cls.xml
===================================================================
diff -u -r37519 -r37524
--- APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 37519)
+++ APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 37524)
@@ -293,6 +293,7 @@
 		Set Verpakking.Aantal = Lijn.GeefAantal()
 		Set Verpakking.VolumeAandeel = Lijn.GeefVolumeAandeel()
 		Set Verpakking.VerpakkingType = ..GeefVerpakkingType(Lijn.GeefIngegevenKenmerken())
+		Set Verpakking.LadeType = ..GeefLadeType(Lijn.GeefIngegevenKenmerken())
 		Do VerpakkingList.Insert(Verpakking)
 	}
 	Quit VerpakkingList
@@ -314,7 +315,6 @@
 			If ##class(APPS.VKP.Offerte.enu.VerpakkingType).IsValid(TAXKenmerken.VerpakkingType) {
 				Quit TAXKenmerken.VerpakkingType
 			}
-			
 		} elseif IsVariantLBX {
 			#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = IngegevenKenmerken
 			If ##class(APPS.VKP.Offerte.enu.VerpakkingType).IsValid(LBXKenmerken.VerpakkingType) {
@@ -326,6 +326,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLadeType">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VKP.Offerte.enu.LadeType</ReturnType>
+<Implementation><![CDATA[
+	#dim IsFamilieLade As %Boolean = (IngegevenKenmerken.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())
+
+	if IsFamilieLade {
+		If ##class(APPS.VKP.Offerte.enu.LadeType).IsValid(IngegevenKenmerken.GeefVariant()) {
+			Quit IngegevenKenmerken.GeefVariant()
+		}
+	}
+	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="ConverteerVerpakteAfmeting">
 <FormalSpec>VerpakteAfmeting:APPS.Halux.common.impl.VerpakteAfmeting=""</FormalSpec>
 <ReturnType>APPS.TRANSP.OfferteService.dto.Afmeting</ReturnType>
Index: vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/LBX/TestLadeType.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/LBX/TestLadeType.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/LBX/TestLadeType.cls.xml	(revision 37524)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.impl.OfferteService.GeefProductVerpakkingDetails.LBX.TestLadeType">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: geeft ladetype LBX terug van een LBX lade">
+<Implementation><![CDATA[
+	Set OfferteService = ##class(APPS.VKP.impl.OfferteService).%New(..MaakOfferteRepositoryFake(), ..MaakWinkelkarServiceMock())
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = OfferteService.GeefProductVerpakkingDetails("OfferteIDDummy")
+	
+	Do $$$AssertEquals(VerpakkingList.GetAt(1).LadeType, ##class(APPS.VKP.Offerte.enu.LadeType).LegraboxPure())
+]]></Implementation>
+</Method>
+
+<Method name="MaakWinkelkarServiceMock">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService</ReturnType>
+<Implementation><![CDATA[
+	#dim WinkelkarServiceMock As vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	#dim MaatwerkLijnIterator As %ListOfObjects = ##class(%ListOfObjects).%New( )
+	
+	Do MaatwerkLijnIterator.Insert(..MaakMaatwerkLijn())
+	
+	Do WinkelkarServiceMock.IndienMethodCall("GeefMaatwerkLijnen",$$$ElkeWaarde).DanReturn(MaatwerkLijnIterator)
+	Quit WinkelkarServiceMock
+]]></Implementation>
+</Method>
+
+<Method name="MaakMaatwerkLijn">
+<Private>1</Private>
+<ReturnType>vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01 = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01).%New()
+
+	#dim MaatwerkLijn As vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	Do MaatwerkLijn.ZetIngegevenKenmerken(IngegevenKenmerken)
+	
+	Quit MaatwerkLijn
+]]></Implementation>
+</Method>
+
+<Method name="MaakOfferteRepositoryFake">
+<Private>1</Private>
+<ReturnType>APPS.VKP.Offerte.OfferteRepository</ReturnType>
+<Implementation><![CDATA[	Quit ##class(vhTest.Fake.APPS.VKP.Offerte.OfferteRepository).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/TBX/TestLadeType.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/TBX/TestLadeType.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/TBX/TestLadeType.cls.xml	(revision 37524)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.impl.OfferteService.GeefProductVerpakkingDetails.TBX.TestLadeType">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: geeft geen ladetype terug van een TBX lade">
+<Implementation><![CDATA[
+	Set OfferteService = ##class(APPS.VKP.impl.OfferteService).%New(..MaakOfferteRepositoryFake(), ..MaakWinkelkarServiceMock())
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = OfferteService.GeefProductVerpakkingDetails("OfferteIDDummy")
+	
+	Do $$$AssertEquals(VerpakkingList.GetAt(1).LadeType, "")
+]]></Implementation>
+</Method>
+
+<Method name="AssertLadeType">
+<FormalSpec>Verpakking:APPS.VKP.Offerte.dto.Verpakking,VerwachtResultaat:APPS.VKP.Offerte.enu.LadeType</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertEquals(Verpakking.LadeType, VerwachtResultaat)
+]]></Implementation>
+</Method>
+
+<Method name="MaakWinkelkarServiceMock">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService</ReturnType>
+<Implementation><![CDATA[
+	#dim WinkelkarServiceMock As vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	#dim MaatwerkLijnIterator As %ListOfObjects = ##class(%ListOfObjects).%New( )
+	
+	Do MaatwerkLijnIterator.Insert(..MaakMaatwerkLijn())
+	
+	Do WinkelkarServiceMock.IndienMethodCall("GeefMaatwerkLijnen",$$$ElkeWaarde).DanReturn(MaatwerkLijnIterator)
+	Quit WinkelkarServiceMock
+]]></Implementation>
+</Method>
+
+<Method name="MaakMaatwerkLijn">
+<Private>1</Private>
+<ReturnType>vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+
+	#dim MaatwerkLijn As vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	Do MaatwerkLijn.ZetIngegevenKenmerken(IngegevenKenmerken)
+	
+	Quit MaatwerkLijn
+]]></Implementation>
+</Method>
+
+<Method name="MaakOfferteRepositoryFake">
+<Private>1</Private>
+<ReturnType>APPS.VKP.Offerte.OfferteRepository</ReturnType>
+<Implementation><![CDATA[	Quit ##class(vhTest.Fake.APPS.VKP.Offerte.OfferteRepository).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/enu/LadeType/Verwerker.cls.xml
===================================================================
diff -u
--- APPS/VKP/Offerte/enu/LadeType/Verwerker.cls.xml	(revision 0)
+++ APPS/VKP/Offerte/enu/LadeType/Verwerker.cls.xml	(revision 37524)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Offerte.enu.LadeType.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>LadeType:APPS.VKP.Offerte.enu.LadeType</FormalSpec>
+<Implementation><![CDATA[
+	If LadeType = "LBX_Pure" {
+		Do ..VerwerkLegraboxPure()
+	} ElseIf LadeType = "TAOR" {
+		Do ..VerwerkTaorbox()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(LadeType,"APPS.VKP.Offerte.enu.LadeType",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLegraboxPure">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkTaorbox">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/enu/LadeType.cls.xml
===================================================================
diff -u
--- APPS/VKP/Offerte/enu/LadeType.cls.xml	(revision 0)
+++ APPS/VKP/Offerte/enu/LadeType.cls.xml	(revision 37524)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Offerte.enu.LadeType">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>,TAOR,LBX_Pure</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>,TA'OR BOX,LEGRABOX pure</Default>
+</Parameter>
+
+<Method name="LegraboxPure">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.VKP.Offerte.enu.LadeType</ReturnType>
+<Implementation><![CDATA[	Quit "LBX_Pure"
+]]></Implementation>
+</Method>
+
+<Method name="Taorbox">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.VKP.Offerte.enu.LadeType</ReturnType>
+<Implementation><![CDATA[	Quit "TAOR"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/enu/LadeType/AutoComplete.cls.xml
===================================================================
diff -u
--- APPS/VKP/Offerte/enu/LadeType/AutoComplete.cls.xml	(revision 0)
+++ APPS/VKP/Offerte/enu/LadeType/AutoComplete.cls.xml	(revision 37524)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Offerte.enu.LadeType.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="LegraboxPure">
+<Type>%String</Type>
+<InitialExpression>"LBX_Pure"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Taorbox">
+<Type>%String</Type>
+<InitialExpression>"TAOR"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/TAX/TestLadeType.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/TAX/TestLadeType.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/TAX/TestLadeType.cls.xml	(revision 37524)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.impl.OfferteService.GeefProductVerpakkingDetails.TAX.TestLadeType">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: geeft ladetype Taor terug van een Taor lade">
+<Implementation><![CDATA[
+	Set OfferteService = ##class(APPS.VKP.impl.OfferteService).%New(..MaakOfferteRepositoryFake(), ..MaakWinkelkarServiceMock())
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = OfferteService.GeefProductVerpakkingDetails("OfferteIDDummy")
+
+	Do $$$AssertEquals(VerpakkingList.GetAt(1).LadeType, ##class(APPS.VKP.Offerte.enu.LadeType).Taorbox())
+]]></Implementation>
+</Method>
+
+<Method name="MaakWinkelkarServiceMock">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService</ReturnType>
+<Implementation><![CDATA[
+	#dim WinkelkarServiceMock As vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	#dim MaatwerkLijnIterator As %ListOfObjects = ##class(%ListOfObjects).%New( )
+	
+	Do MaatwerkLijnIterator.Insert(..MaakMaatwerkLijn())
+	
+	Do WinkelkarServiceMock.IndienMethodCall("GeefMaatwerkLijnen",$$$ElkeWaarde).DanReturn(MaatwerkLijnIterator)
+	Quit WinkelkarServiceMock
+]]></Implementation>
+</Method>
+
+<Method name="MaakMaatwerkLijn">
+<Private>1</Private>
+<ReturnType>vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+
+	#dim MaatwerkLijn As vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	Do MaatwerkLijn.ZetIngegevenKenmerken(IngegevenKenmerken)
+	
+	Quit MaatwerkLijn
+]]></Implementation>
+</Method>
+
+<Method name="MaakOfferteRepositoryFake">
+<Private>1</Private>
+<ReturnType>APPS.VKP.Offerte.OfferteRepository</ReturnType>
+<Implementation><![CDATA[	Quit ##class(vhTest.Fake.APPS.VKP.Offerte.OfferteRepository).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>