Index: DOM/PM/enu/TBXOpvullijstKleur/AutoComplete.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/TBXOpvullijstKleur/AutoComplete.cls.xml	(revision 0)
+++ DOM/PM/enu/TBXOpvullijstKleur/AutoComplete.cls.xml	(revision 35779)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.TBXOpvullijstKleur.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="Grijs">
+<Type>%String</Type>
+<InitialExpression>"PSG"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Lichtgrijs">
+<Type>%String</Type>
+<InitialExpression>"LG"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Wit">
+<Type>%String</Type>
+<InitialExpression>"WI"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Zwart">
+<Type>%String</Type>
+<InitialExpression>"S"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: DOM/PM/enu/TBXOpvullijstKleur.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/TBXOpvullijstKleur.cls.xml	(revision 0)
+++ DOM/PM/enu/TBXOpvullijstKleur.cls.xml	(revision 35779)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.TBXOpvullijstKleur">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;LG;WI;PSG;S</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Lichtgrijs;Wit;Grijs;Zwart</Default>
+</Parameter>
+
+<Method name="Lichtgrijs">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXOpvullijstKleur</ReturnType>
+<Implementation><![CDATA[	Quit "LG"
+]]></Implementation>
+</Method>
+
+<Method name="Wit">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXOpvullijstKleur</ReturnType>
+<Implementation><![CDATA[	Quit "WI"
+]]></Implementation>
+</Method>
+
+<Method name="Grijs">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXOpvullijstKleur</ReturnType>
+<Implementation><![CDATA[	Quit "PSG"
+]]></Implementation>
+</Method>
+
+<Method name="Zwart">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXOpvullijstKleur</ReturnType>
+<Implementation><![CDATA[	Quit "S"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml
===================================================================
diff -u -r35772 -r35779
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 35772)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 35779)
@@ -29,6 +29,7 @@
 	
 	Do ..ObjectConverter.Convert(Product,WebOrderLijn,..GeefConvertDataTBX())
 	Do ..ConvertCorpusWandDikte(Product,WebOrderLijn)
+	Do ..ConvertOpvullijst(Product,WebOrderLijn)
 	
 	Quit WebOrderLijn
 ]]></Implementation>
@@ -51,6 +52,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertOpvullijst">
+<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&WebOrderLijn:WS.TBX.EM.OrderLijn]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ((Product.HeeftOpvullijstLinks || Product.HeeftOpvullijstRechts) && (Product.OpvullijstKleur="")){
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Er moet een opvullijstkleur gegeven worden"))
+	}
+	If $$$Not(Product.HeeftOpvullijstLinks || Product.HeeftOpvullijstRechts) && $$$Not(Product.OpvullijstKleur=""){
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Er moet een opvullijst gegeven worden"))
+	}
+	
+	If Product.HeeftOpvullijstLinks && $$$Not(Product.HeeftOpvullijstRechts) {
+		Set WebOrderLijn.ItemOPVL = "L"
+	}
+	If $$$Not(Product.HeeftOpvullijstLinks) && Product.HeeftOpvullijstRechts {
+		Set WebOrderLijn.ItemOPVL = "R"
+	}
+	If Product.HeeftOpvullijstLinks && Product.HeeftOpvullijstRechts {
+		Set WebOrderLijn.ItemOPVL = "L+R"
+	}
+	Set WebOrderLijn.ItemKLROPVL = Product.OpvullijstKleur
+]]></Implementation>
+</Method>
+
 <Method name="GeefConvertDataTBX">
 <Private>1</Private>
 <ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
@@ -60,7 +85,6 @@
 	Do ConvertData.Add("BodemKleur","ItemKB")
 	Do ConvertData.Add("CorpusBreedte","ItemCB")
 	Do ConvertData.Add("FrontBevestiging","ItemFB")
-	Do ConvertData.Add("HeeftOpvullijstLinks","ItemOPVL")
 	Do ConvertData.Add("Dwarsverdeling","ItemDWV")
 	Do ConvertData.Add("ZijwandVerhogingType","ItemBX")
 	Do ConvertData.Add("KleurInschuifElement","ItemKV")
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml
===================================================================
diff -u -r35772 -r35779
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 35772)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 35779)
@@ -80,7 +80,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductFeatures: &apos;B&apos; -&gt; ItemWD als IsInteriorCabinetWidth = true">
+<Method name="Test: ProductFeatures: CorpusWandDikte: &apos;B&apos; -&gt; ItemWD als IsInteriorCabinetWidth = true">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set TeConverterenProduct.CorpusWandDikte = "16"
@@ -106,32 +106,90 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductFeatures - FrontBevestiging -&gt; ItemFB">
+<Method name="Test: ProductFeatures: Opvullijsten: HeeftOpvullijstLinks -&gt; &apos;L&apos;">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-	Set TeConverterenProduct.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroeven()
+	Set TeConverterenProduct.HeeftOpvullijstLinks = $$$True
+	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
 	Set TeConverterenProduct.CorpusWandDikte = "16"
-		
+	
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
 	
-	Do $$$AssertEquals(WebOrderLijn.ItemFB,"S")
+	Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"L")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductFeatures - HeeftOpvullijstLinks -&gt; ItemOPVL">
+<Method name="Test: ProductFeatures: Opvullijsten: HeeftOpvullijstRechts -&gt; &apos;R&apos;">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.HeeftOpvullijstRechts = $$$True
+	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
+	Set TeConverterenProduct.CorpusWandDikte = "16"
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"R")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: Opvullijsten: HeeftOpvullijstLinks en -Rechts -&gt; &apos;L+R&apos;">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set TeConverterenProduct.HeeftOpvullijstLinks = $$$True
+	Set TeConverterenProduct.HeeftOpvullijstRechts = $$$True
+	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
 	Set TeConverterenProduct.CorpusWandDikte = "16"
 	
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
 	
-	Do $$$AssertTrue(WebOrderLijn.ItemOPVL)
+	Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"L+R")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: ProductFeatures: Opvullijsten: Indien Links of Rechts, en geen Kleur, dan error">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.HeeftOpvullijstLinks = $$$True
+	Set TeConverterenProduct.CorpusWandDikte = "16"
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er moet een opvullijstkleur gegeven worden")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: Opvullijsten: Indien kleur ingevuld, en geen Links of Rechts, dan error">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
+	Set TeConverterenProduct.CorpusWandDikte = "16"	
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er moet een opvullijst gegeven worden")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures - FrontBevestiging -&gt; ItemFB">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroeven()
+	Set TeConverterenProduct.CorpusWandDikte = "16"
+		
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemFB,"S")
+]]></Implementation>
+</Method>
+
 <Method name="Test: ProductFeatures - ZijwandverhogingType -&gt; ItemBX">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
Index: DOM/PM/enu/TBXOpvullijstKleur/Verwerker.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/TBXOpvullijstKleur/Verwerker.cls.xml	(revision 0)
+++ DOM/PM/enu/TBXOpvullijstKleur/Verwerker.cls.xml	(revision 35779)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.TBXOpvullijstKleur.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>TBXOpvullijstKleur:DOM.PM.enu.TBXOpvullijstKleur</FormalSpec>
+<Implementation><![CDATA[
+	If TBXOpvullijstKleur = "PSG" {
+		Do ..VerwerkGrijs()
+	} ElseIf TBXOpvullijstKleur = "LG" {
+		Do ..VerwerkLichtgrijs()
+	} ElseIf TBXOpvullijstKleur = "WI" {
+		Do ..VerwerkWit()
+	} ElseIf TBXOpvullijstKleur = "S" {
+		Do ..VerwerkZwart()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TBXOpvullijstKleur,"DOM.PM.enu.TBXOpvullijstKleur",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkGrijs">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkLichtgrijs">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkWit">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkZwart">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>