Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml
===================================================================
diff -u -r60312 -r60416
--- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 60312)
+++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 60416)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LadeHoogte">
+<Type>DOM.PM.enu.LBXLadeHoogte</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Logger">
 <Type>vhLib.Logger</Type>
 <Private>1</Private>
@@ -42,46 +47,17 @@
 <ReturnType>WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse</ReturnType>
 <Implementation><![CDATA[
 	Do ..LogRequest(OCCKenmerkenRequest)
+	
 	Set ..MeldingenAanGebruiker = ##class(%ListOfDataTypes).%New()
 	#dim EconConfiguratieArray As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
 	#dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OCCKenmerkenRequest.BlumKenmerken)
-	#dim BlumKenmerk, EconKenmerk, BlumKenmerkVersionOfFront As WS.Vhisie4.OCC.dto.Kenmerk
-	#dim IsBlumKenmerkVersionOfFrontAanwezig As %Boolean = $$$False
-	#dim LadeHoogte As DOM.PM.enu.LBXLadeHoogte = ""
 	#dim IsTestRequestVolgensBlumKenmerken As %Boolean = ..BevatKenmerkenIteratorKenmerk(KenmerkenIterator, "test")
 	#dim LadeType As %String = ..GeefLadeType(KenmerkenIterator)
 	
 	If IsTestRequestVolgensBlumKenmerken {
 		Set EconConfiguratieArray = ..GeefTestEconConfiguratieArray()
 	} ElseIf ((LadeType = "TBX") || (LadeType = "LBX")) {
-		While (KenmerkenIterator.HasNext()) {
-			Set BlumKenmerk = KenmerkenIterator.Next()
-			If (BlumKenmerk.Name = "Version of front") {
-				Set BlumKenmerkVersionOfFront = BlumKenmerk
-				Set IsBlumKenmerkVersionOfFrontAanwezig = $$$True
-			} Else {
-				Set EconKenmerk = ..BlumNaarEconKenmerkenConverter.ConvertBlumNaarEconKenmerk(BlumKenmerk, LadeType)
-				If ((EconKenmerk.Name = ..#OnvertaalbaarKenmerk) || (EconKenmerk.Value = ..#OnvertaalbaarKenmerk)) {
-					Do ..MeldingenAanGebruiker.Insert("Geen conversie voor BlumKenmerk: '"_BlumKenmerk.Name_"' met Waarde: '"_BlumKenmerk.Value_"'. ")
-				} Else {
-					Do EconConfiguratieArray.SetAt(EconKenmerk.Value, EconKenmerk.Name)
-					If (EconKenmerk.Name = "Data.Kenmerken.Ladehoogte") {
-						Set LadeHoogte = EconKenmerk.Value
-					}
-				}
-			}
-		}
-		
-		If (IsBlumKenmerkVersionOfFrontAanwezig) {
-			Set EconKenmerk = ..BlumNaarEconKenmerkenConverter.ConvertVersionOfFrontBlumNaarEconKenmerk(BlumKenmerkVersionOfFront, LadeType, LadeHoogte)
-			If ((EconKenmerk.Name = ..#OnvertaalbaarKenmerk) || (EconKenmerk.Value = ..#OnvertaalbaarKenmerk)) {
-				Do ..MeldingenAanGebruiker.Insert("Geen conversie voor BlumKenmerk: '"_BlumKenmerkVersionOfFront.Name_"' met Waarde: '"_BlumKenmerkVersionOfFront.Value_"'. Mogelijke oorzaak: LadeType: '"_LadeType_"' en LadeHoogte: '"_LadeHoogte_"' zijn hiervoor noodzakelijk. ")
-			} Else {
-				Do EconConfiguratieArray.SetAt(EconKenmerk.Value, EconKenmerk.Name)
-			}
-		}
-		
-		Do ..VoegToeDefaults(EconConfiguratieArray, LadeType, KenmerkenIterator)
+		Do ..VertaalKenmerken(OCCKenmerkenRequest.BlumKenmerken, LadeType, EconConfiguratieArray)
 	} Else {
 		#dim OCCKenmerkenRequestHeader As WS.Vhisie4.RequestHeader = OCCKenmerkenRequest.Header
 		#dim Logging As %String = "Onvoorzien LadeType: '"_LadeType_"'. Binnenkomend OCC-request voor klant: '"_OCCKenmerkenRequestHeader.KlantId_"' en Personality: '"_OCCKenmerkenRequestHeader.PersonalityId_"'. "
@@ -99,6 +75,56 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VertaalKenmerken">
+<FormalSpec>BlumKenmerken:%ListOfObjects,LadeType:%String,EconConfiguratieArray:%ArrayOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BlumKenmerken)
+	#dim BlumKenmerk, BlumKenmerkVersionOfFront As WS.Vhisie4.OCC.dto.Kenmerk
+	#dim IsBlumKenmerkVersionOfFrontAanwezig As %Boolean = $$$False
+	
+	While (KenmerkenIterator.HasNext()) {
+		Set BlumKenmerk = KenmerkenIterator.Next()
+		If (BlumKenmerk.Name = "Version of front") {
+			Set BlumKenmerkVersionOfFront = BlumKenmerk
+			Set IsBlumKenmerkVersionOfFrontAanwezig = $$$True
+		} Else {
+			Do ..VertaalKenmerkEnVoegToe(BlumKenmerk, $$$False, LadeType, EconConfiguratieArray)
+		}
+	}
+	If (IsBlumKenmerkVersionOfFrontAanwezig) {
+		Do ..VertaalKenmerkEnVoegToe(BlumKenmerkVersionOfFront, $$$True, LadeType, EconConfiguratieArray)
+	}
+	Do ..VoegToeDefaults(EconConfiguratieArray, LadeType, KenmerkenIterator)
+]]></Implementation>
+</Method>
+
+<Method name="VertaalKenmerkEnVoegToe">
+<FormalSpec>BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,IsVersionOfFrontKenmerk:%Boolean=0,LadeType:%String,EconConfiguratieArray:%ArrayOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim EconKenmerk As WS.Vhisie4.OCC.dto.Kenmerk
+	#dim MeldingenAanGebruiker As %String
+	
+	If IsVersionOfFrontKenmerk {
+		Set EconKenmerk = ..BlumNaarEconKenmerkenConverter.ConvertVersionOfFrontBlumNaarEconKenmerk(BlumKenmerk, LadeType, ..LadeHoogte)
+		Set MeldingenAanGebruiker = "Geen conversie voor BlumKenmerk: '"_BlumKenmerk.Name_"' met Waarde: '"_BlumKenmerk.Value_"'. Mogelijke oorzaak: LadeType: '"_LadeType_"' en LadeHoogte: '"_..LadeHoogte_"' zijn hiervoor noodzakelijk. "
+	} Else {
+		Set EconKenmerk = ..BlumNaarEconKenmerkenConverter.ConvertBlumNaarEconKenmerk(BlumKenmerk, LadeType)
+		Set MeldingenAanGebruiker = "Geen conversie voor BlumKenmerk: '"_BlumKenmerk.Name_"' met Waarde: '"_BlumKenmerk.Value_"'. "
+	}
+	
+	If ((EconKenmerk.Name = ..#OnvertaalbaarKenmerk) || (EconKenmerk.Value = ..#OnvertaalbaarKenmerk)) {
+		Do ..MeldingenAanGebruiker.Insert(MeldingenAanGebruiker)
+	} Else {
+		Do EconConfiguratieArray.SetAt(EconKenmerk.Value, EconKenmerk.Name)
+		If (EconKenmerk.Name = "Data.Kenmerken.Ladehoogte") {
+			Set ..LadeHoogte = EconKenmerk.Value
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefTestEconConfiguratieArray">
 <Private>1</Private>
 <ReturnType>%ArrayOfDataTypes</ReturnType>