Index: APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml
===================================================================
diff -u -r29059 -r29438
--- APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml	(.../LijnNaarDtoVisitor.cls.xml)	(revision 29059)
+++ APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml	(.../LijnNaarDtoVisitor.cls.xml)	(revision 29438)
@@ -42,12 +42,9 @@
 <Method name="VoegToeLijn">
 <FormalSpec>Lijn:APPS.EC.Winkelkar.dto.Lijn</FormalSpec>
 <Implementation><![CDATA[
-	If ($IsObject(..HuidigeGroep))
-	{
+	If ($IsObject(..HuidigeGroep)) {
 		Do ..HuidigeGroep.Lijnen.Insert(Lijn)
-	}
-	Else
-	{
+	} Else {
 		Do ..Winkelkar.Lijnen.Insert(Lijn)
 	}
 ]]></Implementation>
@@ -67,21 +64,22 @@
 <Private>1</Private>
 <ReturnType>APPS.EC.Winkelkar.dto.MaatwerkLijn</ReturnType>
 <Implementation><![CDATA[
-	Set Lijn = ##class(APPS.EC.Winkelkar.dto.MaatwerkLijn).%New()
-	Set Lijn.LijnID = MaatwerkLijn.%Id()
+	#Dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ##class(APPS.EC.Winkelkar.dto.MaatwerkLijn).%New()
 	
+	Set Lijn.LijnID = MaatwerkLijn.%Id()
 	Set Lijn.Aantal = MaatwerkLijn.GeefAantal()
 	Set Lijn.EenheidPrijs = MaatwerkLijn.GeefEindklantEenheidPrijsNettoExclBTW()
 	Set Lijn.TotaalPrijs = MaatwerkLijn.GeefEindklantTotaalPrijs()
 	Set Lijn.ProjectReferentie = MaatwerkLijn.GeefProjectReferentie()
 	Set Lijn.IngegevenKenmerken = ..GeefIngegevenKenmerken(MaatwerkLijn)
 	
-	#dim InfoDiverseItems As %ListOfDataTypes = ..GeefInfoDiverseItems(MaatwerkLijn)
-	If InfoDiverseItems.Count()>0 {
-		Set Lijn.InfoDiverse=InfoDiverseItems
+	#Dim InfoDiverseItems As %ListOfDataTypes = ..GeefInfoDiverseItems(MaatwerkLijn)
+	
+	If (InfoDiverseItems.Count() > 0) {
+		Set Lijn.InfoDiverse = InfoDiverseItems
 	}
 	
-	If ..ApplicatieType = ##class(APPS.common.enu.ApplicatieType).Extern(){
+	If (..ApplicatieType = ##class(APPS.common.enu.ApplicatieType).Extern()) {
 		Do ..ZetCorrectePrijsOpLijn(.Lijn)
 		Set Lijn.AfbeeldingURL = ..GeefAfbeeldingURL(MaatwerkLijn)
 	}
@@ -94,8 +92,8 @@
 <FormalSpec><![CDATA[&MaatwerkLijn:APPS.EC.Winkelkar.dto.MaatwerkLijn]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set LijnPrijsBepaler = ##class(APPS.EC.Winkelkar.impl.LijnPrijsBepaler).%New()
-	Do LijnPrijsBepaler.Process(.MaatwerkLijn,..Winkelkar.Klant.ID)
+	#Dim LijnPrijsBepaler As APPS.EC.Winkelkar.impl.LijnPrijsBepaler = ##class(APPS.EC.Winkelkar.impl.LijnPrijsBepaler).%New()
+	Do LijnPrijsBepaler.Process(.MaatwerkLijn, ..Winkelkar.Klant.ID)
 ]]></Implementation>
 </Method>
 
@@ -104,8 +102,9 @@
 <Private>1</Private>
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
-	Set IngegevenKenmerkenConverter = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New()
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = MaatwerkLijn.GeefIngegevenKenmerken()
+	#Dim IngegevenKenmerkenConverter As APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New()
+	#Dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = MaatwerkLijn.GeefIngegevenKenmerken()
+	
 	Quit IngegevenKenmerkenConverter.NaarDataTransferObject(IngegevenKenmerken)
 ]]></Implementation>
 </Method>
@@ -115,20 +114,23 @@
 <Private>1</Private>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	Set InfoDiverseItems = ##class(%ListOfDataTypes).%New()
-	#dim Taal As DOM.enu.Taal = ..GeefTaal()
+	#Dim InfoDiverseItems As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#Dim Taal As DOM.enu.Taal = ..GeefTaal()
 	
-	Set IKInfoDiverseBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler).%New()
-	Set IKInfoDiverseIterator = ##class(TECH.ListIterator).%New(IKInfoDiverseBepaler.BepaalInfoDiverseItems(MaatwerkLijn.GeefIngegevenKenmerken(), Taal))
-	While IKInfoDiverseIterator.HasNext() {
-		Do InfoDiverseItems.Insert(IKInfoDiverseIterator.Next())
+	#Dim InfoDiverseBepaler As DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler).%New()
+	#Dim InfoDiverseIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(InfoDiverseBepaler.BepaalInfoDiverseItems(MaatwerkLijn.GeefIngegevenKenmerken(), Taal))
+	
+	While (InfoDiverseIterator.HasNext()) {
+		Do InfoDiverseItems.Insert(InfoDiverseIterator.Next())
 	}
 
-	Set ActieIterator = ##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()
-		Do InfoDiverseItems.Insert(..GeefActieInfo(Actie,Taal))
+		#Dim Actie As DOM.EC.Winkelkar.PrijsLijnActie = ActieIterator.Next()
+		Do InfoDiverseItems.Insert(..GeefActieInfo(Actie, Taal))
 	}
+	
 	Quit InfoDiverseItems
 ]]></Implementation>
 </Method>
@@ -137,11 +139,13 @@
 <Private>1</Private>
 <ReturnType>DOM.enu.Taal</ReturnType>
 <Implementation><![CDATA[
-	#dim Taal As DOM.enu.Taal = ##class(TECH.Context.RuntimeContext).Instance().GeefTaal()
-	If Taal = "" {
-		Set WinkelkarTaalBepaler = ##class(APPS.EC.Winkelkar.impl.TaalBepaler).%New() 
+	#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() 
 		Set Taal = WinkelkarTaalBepaler.GeefTaal(..Winkelkar.KlantID)
 	}
+	
 	Quit Taal
 ]]></Implementation>
 </Method>
@@ -151,16 +155,15 @@
 <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 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 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, "::ActieOmschrijving", "\n" _ $$$UCase(OmschrijvingKortVertaling))
 	Set ActieInfo = $Replace(ActieInfo, "::ActieKorting", Actie.KortingBedrag)
-	Set ActieInfo = ..GeefTekstOpMeerdereLijnen(ActieInfo, ", ", ", "_$$$CRLF_"\n")
+	Set ActieInfo = ..GeefTekstOpMeerdereLijnen(ActieInfo, ", ", ", " _ $$$CRLF _ "\n")
 	
 	Quit ActieInfo
 ]]></Implementation>
@@ -170,7 +173,7 @@
 <FormalSpec>Tekst:%String,Delimiter:%String="~",CRLF:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $Replace(Tekst,Delimiter,CRLF)
+<Implementation><![CDATA[	Quit $Replace(Tekst, Delimiter, CRLF)
 ]]></Implementation>
 </Method>
 
@@ -179,9 +182,10 @@
 <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>
 </Method>
@@ -193,7 +197,9 @@
 <Implementation><![CDATA[
 	Set ..HuidigeGroep = ##class(APPS.EC.Winkelkar.dto.GroepLijn).%New()
 	Set ..HuidigeGroep.Naam = GroepLijn.Naam
+	
 	Do ..Winkelkar.Lijnen.Insert(..HuidigeGroep)
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>