Index: APPS/EC/Winkelkar/impl/LijnKopieerder.cls.xml
===================================================================
diff -u -r44422 -r52096
--- APPS/EC/Winkelkar/impl/LijnKopieerder.cls.xml	(.../LijnKopieerder.cls.xml)	(revision 44422)
+++ APPS/EC/Winkelkar/impl/LijnKopieerder.cls.xml	(.../LijnKopieerder.cls.xml)	(revision 52096)
@@ -16,8 +16,9 @@
 <Method name="Kopieer">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,WinkelkarKopie:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
 <Implementation><![CDATA[
-	set ..WinkelkarKopie = WinkelkarKopie
+	Set ..WinkelkarKopie = WinkelkarKopie
 	Set ..Stack = ##class(TECH.Stack).%New()
+	
 	Do Winkelkar.Accept($this)
 ]]></Implementation>
 </Method>
@@ -27,53 +28,59 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim NieuweGroepLijn As DOM.EC.Winkelkar.GroepLijn = ##class(DOM.EC.Winkelkar.GroepLijn).%New(GroepLijn.Naam)
-	if ..Stack.Count() {
+	
+	If ..Stack.Count() {
 		#dim ParentGroep As DOM.EC.Winkelkar.GroepLijn = ..Stack.Peek()
-		do ParentGroep.VoegToe(NieuweGroepLijn)
-	} else  {
-		do ..WinkelkarKopie.VoegToe(NieuweGroepLijn)	
+		Do ParentGroep.VoegToe(NieuweGroepLijn)
+	} Else {
+		Do ..WinkelkarKopie.VoegToe(NieuweGroepLijn)	
 	}
+	
 	Do ..Stack.Push(NieuweGroepLijn)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkGroepEind">
 <FormalSpec>GroepLijn:DOM.EC.Winkelkar.GroepLijn</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	do ..Stack.Pop()
+<Implementation><![CDATA[	Do ..Stack.Pop()
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkMaatwerkLijn">
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Implementation><![CDATA[
-	Set NieuweMaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	#dim NieuweMaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	
 	Do NieuweMaatwerkLijn.ZetAantal(MaatwerkLijn.GeefAantal())
 	Do NieuweMaatwerkLijn.ZetIKIDID(MaatwerkLijn.GeefIKIDID())
 	Do NieuweMaatwerkLijn.ZetProjectReferentie(MaatwerkLijn.GeefProjectReferentie())
 	Do NieuweMaatwerkLijn.ZetVerpakteAfmeting(MaatwerkLijn.GeefVerpakteAfmeting())
 	Do NieuweMaatwerkLijn.ZetTotaalGewicht(MaatwerkLijn.GeefTotaalGewicht())
 	Do NieuweMaatwerkLijn.ZetVolumeAandeel(MaatwerkLijn.GeefVolumeAandeel())
-	Do ..KopieerPrijsInformatie(MaatwerkLijn,NieuweMaatwerkLijn)
+	
+	Do ..KopieerPrijsInformatie(MaatwerkLijn, NieuweMaatwerkLijn)
 	Do ..VoegToeLijn(NieuweMaatwerkLijn)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkProductLijn">
 <FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
 <Implementation><![CDATA[
-	set NieuweProductLijn = ##class(DOM.EC.Winkelkar.ProductLijn).%New(ProductLijn.GeefProductId(),ProductLijn.GeefAantal())
-	do ..KopieerPrijsInformatie(ProductLijn,NieuweProductLijn)
-	do ..VoegToeLijn(NieuweProductLijn)
+	#dim NieuweProductLijn As DOM.EC.Winkelkar.ProductLijn = ##class(DOM.EC.Winkelkar.ProductLijn).%New(ProductLijn.GeefProductId(), ProductLijn.GeefAantal())
+	
+	Do ..KopieerPrijsInformatie(ProductLijn, NieuweProductLijn)
+	Do ..VoegToeLijn(NieuweProductLijn)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkTekstLijn">
 <FormalSpec>TekstLijn:DOM.EC.Winkelkar.TekstLijn</FormalSpec>
 <Implementation><![CDATA[
-	set NieuweTekstLijn = ##class(DOM.EC.Winkelkar.TekstLijn).%New()
-	do NieuweTekstLijn.ZetTekst(TekstLijn.GeefTekst())
-	do ..VoegToeLijn(NieuweTekstLijn)
+	#dim NieuweTekstLijn As DOM.EC.Winkelkar.TekstLijn = ##class(DOM.EC.Winkelkar.TekstLijn).%New()
+	
+	Do NieuweTekstLijn.ZetTekst(TekstLijn.GeefTekst())
+	Do ..VoegToeLijn(NieuweTekstLijn)
 ]]></Implementation>
 </Method>
 
@@ -82,18 +89,18 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim GroepLijn As DOM.EC.Winkelkar.GroepLijn = ..Stack.Peek()
-	do GroepLijn.VoegToe(NieuweLijn)
+	Do GroepLijn.VoegToe(NieuweLijn)
 ]]></Implementation>
 </Method>
 
 <Method name="KopieerPrijsInformatie">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.PrijsLijn,NieuweLijn:DOM.EC.Winkelkar.PrijsLijn</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	do NieuweLijn.ZetEenheidPrijsNettoExclBTW(Lijn.GeefEenheidPrijsNettoExclBTW())
-	do NieuweLijn.ZetTotaalPrijs(Lijn.GeefTotaalPrijs())
-	do NieuweLijn.ZetEindklantEenheidPrijsNettoExclBTW(Lijn.GeefEindklantEenheidPrijsNettoExclBTW())
-	do NieuweLijn.ZetEindklantTotaalPrijs(Lijn.GeefEindklantTotaalPrijs())
+	Do NieuweLijn.ZetEenheidPrijsNettoExclBTW(Lijn.GeefEenheidPrijsNettoExclBTW())
+	Do NieuweLijn.ZetTotaalPrijs(Lijn.GeefTotaalPrijs())
+	Do NieuweLijn.ZetEindklantEenheidPrijsNettoExclBTW(Lijn.GeefEindklantEenheidPrijsNettoExclBTW())
+	Do NieuweLijn.ZetEindklantTotaalPrijs(Lijn.GeefEindklantTotaalPrijs())
 ]]></Implementation>
 </Method>
 </Class>