Index: Prod/Kenmerk/Orgalux.cls.xml
===================================================================
diff -u -r2629 -r2636
--- Prod/Kenmerk/Orgalux.cls.xml	(.../Orgalux.cls.xml)	(revision 2629)
+++ Prod/Kenmerk/Orgalux.cls.xml	(.../Orgalux.cls.xml)	(revision 2636)
@@ -673,7 +673,14 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Kenmerk:%String,lbKenmerkWaarden:%String,Taal:%String="N",DoNotConvert2Html:%Boolean=1</FormalSpec>
 <ReturnType>%List</ReturnType>
-<Implementation><![CDATA[	Quit ##class(Prod.Kenmerk.Utils).GetVertalingKenmerkWaardenList($$$OLKenmerkGroepID, Kenmerk, lbKenmerkWaarden, Taal, "K", DoNotConvert2Html)
+<Implementation><![CDATA[
+	Set ListBuild = $LB()
+	Set KenmerkWaardenIterator = ##class(TECH.ListbuildIterator).%New(lbKenmerkWaarden)
+	While (KenmerkWaardenIterator.HasNext())
+	{
+		Set ListBuild = ListBuild_$LB(..GetVertaaldeKenmerkWaarde(Kenmerk, KenmerkWaardenIterator.Next(), Taal, DoNotConvert2Html))
+	}
+	Quit ListBuild
 ]]></Implementation>
 </Method>
 
@@ -682,9 +689,9 @@
 Geeft de Korte Omschrijving voor een KenmerkWaarde 
 Geeft altijd een %String terug. </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Kenmerk:%String,KenmerkWaarde:%String,Taal:%String="N",DoNotConvert2Html:%Boolean=1</FormalSpec>
+<FormalSpec>Kenmerk:%String,KenmerkWaarde:%String,Taal:%String="N",DoNotConvert2Html:%Boolean=0</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ##class(Prod.Kenmerk.Utils).GetVertalingKenmerkWaardeItem($$$OLKenmerkGroepID, Kenmerk, KenmerkWaarde, Taal, "K", DoNotConvert2Html)
+<Implementation><![CDATA[	Quit ##class(Res.Vertaling).GetVertaling("PK",KenmerkWaarde,"K",Taal,,DoNotConvert2Html)
 ]]></Implementation>
 </Method>
 
@@ -695,7 +702,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Kenmerk:%String,KenmerkWaarde:%String,Taal:%String="N",DoNotConvert2Html:%Boolean=1</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ##class(Prod.Kenmerk.Utils).GetVertalingKenmerkWaardeItem($$$OLKenmerkGroepID, Kenmerk, KenmerkWaarde, Taal, "O", DoNotConvert2Html)
+<Implementation><![CDATA[	Quit ##class(Res.Vertaling).GetVertaling("PK",KenmerkWaarde,"O",Taal,,DoNotConvert2Html)
 ]]></Implementation>
 </Method>
 
@@ -704,9 +711,16 @@
 Geeft de Lange Omschrijving voor een KenmerkWaarde 
 Geeft altijd een %String terug. </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Kenmerk:%String,KenmerkWaarde:%String,Taal:%String="N",DoNotConvert2Html:%Boolean=1</FormalSpec>
+<FormalSpec>Kenmerk:%String,lbKenmerkWaarden:%String,Taal:%String="N",DoNotConvert2Html:%Boolean=1</FormalSpec>
 <ReturnType>%List</ReturnType>
-<Implementation><![CDATA[	Quit ##class(Prod.Kenmerk.Utils).GetVertalingKenmerkWaardenList($$$OLKenmerkGroepID, Kenmerk, KenmerkWaarde, Taal, "O", DoNotConvert2Html)
+<Implementation><![CDATA[
+	Set ListBuild = $LB()
+	Set KenmerkWaardenIterator = ##class(TECH.ListbuildIterator).%New(lbKenmerkWaarden)
+	While (KenmerkWaardenIterator.HasNext())
+	{
+		Set ListBuild = ListBuild_$LB(..GetLangeOmsVanKenmerkWaarde(Kenmerk, KenmerkWaardenIterator.Next(), Taal, DoNotConvert2Html))
+	}
+	Quit ListBuild
 ]]></Implementation>
 </Method>
 
@@ -954,7 +968,7 @@
 	}Elseif (LadenTypes.Count() > 1){
 		Set InfoMetLadehoogte = ##class(Res.Vertaling).GetVertaling("OLW","MetLadehoogtes","K",..Taal,,1)
 	}
-	Do ##class(TECH.ListUtils).CopyListOfObjects(BinnenladenTypes,LadenTypes)
+	Do ##class(TECH.ListUtils).CopyList(BinnenladenTypes,LadenTypes)
 	For ctrLadenTypes = 1 : 1 : LadenTypes.Count() {
 		Set InfoMetLadehoogte = InfoMetLadehoogte_LadenTypes.GetAt(ctrLadenTypes)
 		If (ctrLadenTypes < LadenTypes.Count()){