Index: Prod/GAMeta/BT/TBOpvullijstKleur.cls.xml
===================================================================
diff -u
--- Prod/GAMeta/BT/TBOpvullijstKleur.cls.xml	(revision 0)
+++ Prod/GAMeta/BT/TBOpvullijstKleur.cls.xml	(revision 13610)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Prod.GAMeta.BT.TBOpvullijstKleur">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>0</ProcedureBlock>
+<Super>%Library.Persistent,Res.PI.Abstract,Prod.GAMeta.BT.TBAbstract</Super>
+<Inheritance>right</Inheritance>
+
+<Index name="PrimaryKey">
+<Extent>0</Extent>
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>ItemID</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^Res.PI.Items("PR;GA;TBKLROPVL")</DataLocation>
+<DefaultData>TBOpvullijstKleurDefaultData</DefaultData>
+<IdLocation>^Res.PI.Items("PR;GA;TBKLROPVL")</IdLocation>
+<IndexLocation>^Res.PI.Items("index","PR;GA;TBKLROPVL")</IndexLocation>
+<StreamLocation>^Res.PI.Items("stream","PR;GA;TBKLROPVL")</StreamLocation>
+<Data name="BeperkGUI">
+<Attribute>BeperkGUI</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"BPG"</Subscript>
+</Data>
+<Data name="ProductKenmerken">
+<Attribute>ProductKenmerken</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"PKM"</Subscript>
+</Data>
+<Data name="TBOpvullijstKleurDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>ItemCode</Value>
+</Value>
+<Value name="3">
+<Value>Omschrijving</Value>
+</Value>
+<Value name="4">
+<Value>KortTekstCode</Value>
+</Value>
+<Value name="5">
+<Value>VolgNr</Value>
+</Value>
+<Value name="6">
+<Value>FilterDC</Value>
+</Value>
+</Data>
+<Data name="TaalOms">
+<Attribute>TaalOms</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"TO"</Subscript>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r8749 -r13610
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 8749)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 13610)
@@ -647,6 +647,7 @@
  ; Opvullijst
  If '..Val("NMOVL")&&((..Val("OPVLL")=25)||(..Val("OPVLR")=25)) Do
  . Set Txt=##class(Res.Vertaling).GetVertaling("TB",$S((..Val("OPVLL")=25)&&(..Val("OPVLR")=25):"LT-OPVULLIJSTEN",1:"LT-OPVULLIJST"),"O",Taal,,1)
+ . Set Txt=Txt_" "_##class(Prod.GAMeta.BT.TBOpvullijstKleur).TaalAfhOmsClass("",..Val("KLROPVL"),Taal,,1,DC)
  . Do AddLT(Taal,.Oms,.Txt,.Optie)
  ; Dwarstukjes
  If ..Val("KLAS")="SP",'..Val("NMSPDL") Do
Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r13199 -r13610
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 13199)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 13610)
@@ -111,7 +111,7 @@
 	Quit $LB("TBDesign","TBKlasse","TBGlijderType","TBLadeType","TBZijwand","TBRugHoogte","TBFBevestiging","TBCBreedte","TBWandDikte",
                    "TBSPZijkant","TBLadeDiepte","TBDraagKracht","TBBodemKleur","TBRelingKleur","TBFrontKleur","TBLadeKleur","TBRugKleur",
                    "TBBlumotion","TBBoxSide","TBBoxsideKleur","TBVulstukKleur","TBVulstukMateriaal","TBStabilisator","TBHangMap","TBFrontSteun",
-                   "TBStalenRug","TBMat","TBBinnenGreep","TBDesignCode","TBDwarsVerdeling","TBOndSpecial","TBRugStukVerlaagd","PlaatMat","Verpakking")   ; ,"TBSpoelbakKleur"
+                   "TBStalenRug","TBMat","TBBinnenGreep","TBDesignCode","TBDwarsVerdeling","TBOndSpecial","TBRugStukVerlaagd","TBOpvullijstKleur","PlaatMat","Verpakking")   ; ,"TBSpoelbakKleur"
 ]]></Implementation>
 </Method>
 
@@ -196,6 +196,7 @@
  Set tmpAr("TBDwarsVerdeling")= $LB("DWV")
  Set tmpAr("TBRugStukVerlaagd")=$LB("RSTL")
  Set tmpAr("TBVulstukMateriaal")=$LB("VSM")
+ Set tmpAr("TBOpvullijstKleur")=$LB("KLROPVL")
  
  Kill %this.LookUp
  ;New BT
@@ -1217,7 +1218,7 @@
 	Set:(WSLn.ItemSB>0    ) tmpLB=tmpLB_$LB("SB",##class(cspBasis.GAProdTBox).WebTextValue("Stabilisator",actTaal,"L"))
 	Set:($$$FScond        ) tmpLB=tmpLB_$LB("FS",  $$$FCase(##class(Prod.GAMeta.BT.TBFrontSteun).TaalAfhOmsClass("",WSLn.ItemFS,actTaal,,,DC)) )         ; ##class(cspBasis.GAProdTBox).WebTextValue("Frontsteun",actTaal,"L")_": "_WSLn.ItemFS)
 	Set:($$$DWVcond       ) tmpLB=tmpLB_$LB("DWV", $$$FCase(##class(Prod.GAMeta.BT.TBDwarsVerdeling).TaalAfhOmsClass("",WSLn.ItemDWV,actTaal,,,DC)) )   ; ##class(cspBasis.GAProdTBox).WebTextValue("Dwarsverdeling",actTaal,"L")_": "_WSLn.ItemDWV)
-	Set:($L(WSLn.ItemOPVL)) tmpLB=tmpLB_$LB("OPVL",##class(cspBasis.GAProdTBox).WebTextValue("Opvullijst",actTaal,"L")_": "_WSLn.ItemOPVL)
+	Set:($L(WSLn.ItemOPVL)) tmpLB=tmpLB_$LB("OPVL",##class(cspBasis.GAProdTBox).WebTextValue("Opvullijst",actTaal,"L")_": "_WSLn.ItemOPVL)   ; _ ##class(Prod.GAMeta.BT.TBOpvullijstKleur).TaalAfhOmsClass("",WSLn.ItemKLROPVL,actTaal,,,DC) 
 	Set:($$$isBulkVPK     ) tmpLB=tmpLB_$LB("VPK",##class(cspBasis.GAProdTBox).WebTextValue("VerpakBulk",actTaal,"L")_" - "_##class(cspBasis.GAProdTBox).WebTextValue("VPK_"_WSLn.ItemVPK_"_kort",actTaal,"L"))
 	Set:($IsObject(ActieTeksten)) tmpLB=tmpLB_$LB("ACTIE",ActieTeksten.GetNext(""))   ; Moet uitgebreid worden naar alle acties, te overlopen met een iterator (added by WimV on 21/12/2010)
 
Index: vhDeploy/WV/Deploy20130627xCreateMetaDefinitieTBXxKLROPVL.cls.xml
===================================================================
diff -u
--- vhDeploy/WV/Deploy20130627xCreateMetaDefinitieTBXxKLROPVL.cls.xml	(revision 0)
+++ vhDeploy/WV/Deploy20130627xCreateMetaDefinitieTBXxKLROPVL.cls.xml	(revision 13610)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.WV.Deploy20130627xCreateMetaDefinitieTBXxKLROPVL">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aanmaken van het TBX-Kenmerk MetaDefinitie "KLROPVL" voor story BUS80.</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	If '##class(Prod.Kenmerk.MetaDefinitie).%ExistsId("TBX||KLROPVL") {
+		Set BestaandeMetaDef=##class(Prod.Kenmerk.MetaDefinitie).%OpenId("TBX||KV")
+		#dim NieuweMetaDef As Prod.Kenmerk.MetaDefinitie = BestaandeMetaDef.%ConstructClone(0)
+		Set NieuweMetaDef.Groep=BestaandeMetaDef.Groep
+		Set NieuweMetaDef.Kenmerk="KLROPVL"
+		Set NieuweMetaDef.Omschrijving="Kleur: Opvullijst"
+		Set NieuweMetaDef.VolgNr="418"
+		Set NieuweMetaDef.IsReadOnly=0
+		Set NieuweMetaDef.NieuweWaardeToegelaten=0
+	
+		#dim sc As %Status = NieuweMetaDef.%Save()
+		If $$$ISERR(sc) {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Bewaren van de nieuwe MetaDef KLROPVL is niet gelukt.",sc))
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>