Index: APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml
===================================================================
diff -u -r47684 -r52097
--- APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml	(.../LijnNaarDtoVisitor.cls.xml)	(revision 47684)
+++ APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml	(.../LijnNaarDtoVisitor.cls.xml)	(revision 52097)
@@ -63,7 +63,8 @@
 <FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	#Dim Lijn As APPS.EC.Winkelkar.dto.ProductLijn = ##class(APPS.EC.Winkelkar.dto.ProductLijn).%New()
+	#dim Lijn As APPS.EC.Winkelkar.dto.ProductLijn = ##class(APPS.EC.Winkelkar.dto.ProductLijn).%New()
+	
 	Set Lijn.LijnID = ProductLijn.GeefID()
 	Set Lijn.Aantal = ProductLijn.Aantal
 	Set Lijn.ProjectReferentie = ProductLijn.ProjectReferentie
@@ -83,7 +84,7 @@
 <Private>1</Private>
 <ReturnType>APPS.EC.Winkelkar.dto.MaatwerkLijn</ReturnType>
 <Implementation><![CDATA[
-	#Dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ##class(APPS.EC.Winkelkar.dto.MaatwerkLijn).%New()
+	#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ##class(APPS.EC.Winkelkar.dto.MaatwerkLijn).%New()
 	
 	Set Lijn.LijnID = MaatwerkLijn.GeefID()
 	Set Lijn.Aantal = MaatwerkLijn.GeefAantal()
@@ -95,7 +96,7 @@
 	Set Lijn.IngegevenKenmerken = ..GeefIngegevenKenmerken(MaatwerkLijn)
 	Set Lijn.ExterneId = MaatwerkLijn.ExterneId
 	
-	#Dim InfoDiverseItems As %ListOfDataTypes = ..GeefInfoDiverseItems(MaatwerkLijn)
+	#dim InfoDiverseItems As %ListOfDataTypes = ..GeefInfoDiverseItems(MaatwerkLijn)
 	
 	If (InfoDiverseItems.Count() > 0) {
 		Set Lijn.InfoDiverse = InfoDiverseItems
@@ -130,20 +131,20 @@
 <Private>1</Private>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	#Dim InfoDiverseItems As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	#Dim Taal As DOM.enu.Taal = ..GeefTaal()
+	#dim InfoDiverseItems As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim Taal As DOM.enu.Taal = ..GeefTaal()
 	
-	#Dim InfoDiverseBepaler As DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler).%New(Taal)
-	#Dim InfoDiverseIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(InfoDiverseBepaler.BepaalInfoDiverseItems(MaatwerkLijn.GeefIngegevenKenmerken()))
+	#dim InfoDiverseBepaler As DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler).%New(Taal)
+	#dim InfoDiverseIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(InfoDiverseBepaler.BepaalInfoDiverseItems(MaatwerkLijn.GeefIngegevenKenmerken()))
 	
 	While (InfoDiverseIterator.HasNext()) {
 		Do InfoDiverseItems.Insert(InfoDiverseIterator.Next())
 	}
 
-	#Dim ActieIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(MaatwerkLijn.GeefActies())
+	#dim ActieIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(MaatwerkLijn.GeefActies())
 	
 	While (ActieIterator.HasNext()) {
-		#Dim Actie As DOM.EC.Winkelkar.PrijsLijnActie = ActieIterator.Next()
+		#dim Actie As DOM.EC.Winkelkar.PrijsLijnActie = ActieIterator.Next()
 		Do InfoDiverseItems.Insert(..GeefActieInfo(Actie, Taal))
 	}
 	
@@ -155,10 +156,10 @@
 <Private>1</Private>
 <ReturnType>DOM.enu.Taal</ReturnType>
 <Implementation><![CDATA[
-	#Dim Taal As DOM.enu.Taal = ##class(TECH.Context.RuntimeContext).Instance().GeefTaal()
+	#dim Taal As DOM.enu.Taal = ##class(TECH.Context.RuntimeContext).Instance().GeefTaal()
 	
 	If (Taal = "") {
-		#Dim WinkelkarTaalBepaler As APPS.EC.Winkelkar.impl.TaalBepaler = ##class(APPS.EC.Winkelkar.impl.TaalBepaler).%New() 
+		#dim WinkelkarTaalBepaler As APPS.EC.Winkelkar.impl.TaalBepaler = ##class(APPS.EC.Winkelkar.impl.TaalBepaler).%New() 
 		Set Taal = WinkelkarTaalBepaler.GeefTaal(..Winkelkar.KlantID)
 	}
 	
@@ -171,11 +172,11 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#Dim VertaalGroep As DOM.common.Transl.enu.VertaalGroep = ##class(DOM.common.Transl.enu.VertaalGroep).Unishop()
-	#Dim OmschrijvingKortSleutel As %String = "Actie_GratisCP_OmschrijvingKort"
-	#Dim OmschrijvingKortVertaling As %String = ##class(Res.Vertaling).GetVertaling(VertaalGroep, OmschrijvingKortSleutel, "L", Taal)
-	#Dim ActieInfoSleutel As %String = "Actie_LijnInfo"
-	#Dim ActieInfo As %String = ##class(Res.Vertaling).GetVertaling(VertaalGroep, ActieInfoSleutel, "L", Taal)
+	#dim VertaalGroep As DOM.common.Transl.enu.VertaalGroep = ##class(DOM.common.Transl.enu.VertaalGroep).Unishop()
+	#dim OmschrijvingKortSleutel As %String = "Actie_GratisCP_OmschrijvingKort"
+	#dim OmschrijvingKortVertaling As %String = ##class(Res.Vertaling).GetVertaling(VertaalGroep, OmschrijvingKortSleutel, "L", Taal)
+	#dim ActieInfoSleutel As %String = "Actie_LijnInfo"
+	#dim ActieInfo As %String = ##class(Res.Vertaling).GetVertaling(VertaalGroep, ActieInfoSleutel, "L", Taal)
 	
 	Set ActieInfo = $Replace(ActieInfo, "::ActieOmschrijving", "\n" _ $$$UCase(OmschrijvingKortVertaling))
 	Set ActieInfo = $Replace(ActieInfo, "::ActieKorting", Actie.KortingBedrag)
@@ -198,9 +199,9 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#Dim AfbeeldingService As APPS.PM.Maatwerk.AfbeeldingService = ##class(APPS.ApplicatieContext).Instance().GeefMaatwerkAPI().GeefAfbeeldingService()	
-	#Dim Toepassing As APPS.common.enu.Toepassing = ##class(APPS.common.enu.Toepassing).Web()
-	#Dim AfbeeldingURL As %String = AfbeeldingService.GeefAfbeeldingVoorIngegevenKenmerken(MaatwerkLijn.GeefIngegevenKenmerken(), Toepassing)	
+	#dim AfbeeldingService As APPS.PM.Maatwerk.AfbeeldingService = ##class(APPS.ApplicatieContext).Instance().GeefMaatwerkAPI().GeefAfbeeldingService()	
+	#dim Toepassing As APPS.common.enu.Toepassing = ##class(APPS.common.enu.Toepassing).Web()
+	#dim AfbeeldingURL As %String = AfbeeldingService.GeefAfbeeldingVoorIngegevenKenmerken(MaatwerkLijn.GeefIngegevenKenmerken(), Toepassing)	
 	
 	Quit AfbeeldingURL
 ]]></Implementation>