Index: APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter.cls.xml
===================================================================
diff -u -r29059 -r30198
--- APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter.cls.xml	(.../IngegevenKenmerkenConverter.cls.xml)	(revision 29059)
+++ APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter.cls.xml	(.../IngegevenKenmerkenConverter.cls.xml)	(revision 30198)
@@ -20,40 +20,37 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
+	set ..IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
 	set ..SpoelbakKenmerkenBepaler = $$$Implementation(SpoelbakKenmerkenBepaler,##class(DOM.PM.Maatwerk.Lade.impl.SpoelbakKenmerkenBepaler).%New())
-	Quit $$$OK
+	
+	quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="NaarObject">
 <FormalSpec>IngegevenKenmerkenDto:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
-	Set DtoNaarKenmerkVisitor = ##class(APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor).%New()
-	
+	#dim DtoNaarKenmerkVisitor As APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor = ##class(APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor).%New()
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = DtoNaarKenmerkVisitor.GeefIngegevenKenmerken(IngegevenKenmerkenDto)
 	
-	if ..IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) {
-		Try { 
-			Set IngegevenKenmerken.SpoelbakKenmerken = ..SpoelbakKenmerkenBepaler.BepaalSpoelbakKenmerken(IngegevenKenmerken)
+	if (..IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken)) {
+		try { 
+			set IngegevenKenmerken.SpoelbakKenmerken = ..SpoelbakKenmerkenBepaler.BepaalSpoelbakKenmerken(IngegevenKenmerken)
 		} Catch {
 			#dim Exception As TECH.Exceptions.GeneralErrorException = ##class(TECH.ExceptionHandler).Catch()
-			Set IngegevenKenmerken.SpoelbakKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBX.SpoelbakKenmerken).%New()
+			set IngegevenKenmerken.SpoelbakKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBX.SpoelbakKenmerken).%New()
 		}
 	}
-	
-	Quit IngegevenKenmerken
+
+	quit IngegevenKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="NaarDataTransferObject">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[
-	Set Visitor = ##class(APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor).%New()
-	#dim dtoIngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = Visitor.GeefIngegevenKenmerken(IngegevenKenmerken)
-	quit dtoIngegevenKenmerken
+<Implementation><![CDATA[	quit ##class(APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor).%New().GeefIngegevenKenmerken(IngegevenKenmerken)
 ]]></Implementation>
 </Method>
 </Class>