Index: EXT/Unishop/PurchaseOrder001/OrderConverter.cls.xml
===================================================================
diff -u -r37067 -r37068
--- EXT/Unishop/PurchaseOrder001/OrderConverter.cls.xml	(.../OrderConverter.cls.xml)	(revision 37067)
+++ EXT/Unishop/PurchaseOrder001/OrderConverter.cls.xml	(.../OrderConverter.cls.xml)	(revision 37068)
@@ -30,23 +30,22 @@
 <FormalSpec>ExtOrder:EXT.Unishop.PurchaseOrder001.CreateOrder.Order</FormalSpec>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
 <Implementation><![CDATA[
-	set PlaatsBestellingAanvraag = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
-	set PlaatsBestellingAanvraag.Header = ..AanvraagHeader
+	Set PlaatsBestellingAanvraag = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
+	Set PlaatsBestellingAanvraag.Header = ..AanvraagHeader
 	
-	set AppsOrder = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order).%New()
+	Set AppsOrder = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order).%New()
 	
-	do ..Converter.Convert(ExtOrder,AppsOrder,..OrderConverteerOpties)
+	Do ..Converter.Convert(ExtOrder,AppsOrder,..OrderConverteerOpties)
 	
-	#dim OrderLine As EXT.Unishop.PurchaseOrder001.CreateOrder.OrderLijn
-	set LijnenIterator = ##class(TECH.ListIterator).%New(ExtOrder.Lijnen)
-	while LijnenIterator.HasNext() {
-		Set OrderLine = LijnenIterator.Next()
+	Set LijnenIterator = ##class(TECH.ListIterator).%New(ExtOrder.Lijnen)
+	While LijnenIterator.HasNext() {
+		#dim OrderLine As EXT.Unishop.PurchaseOrder001.CreateOrder.OrderLijn = LijnenIterator.Next()
 		Continue:OrderLine.Product.%Extends("EXT.Unishop.PurchaseOrder001.CreateOrder.VoorgedefinieerdProduct") 
-		do AppsOrder.Lijnen.Insert(..ConverteerLijn(OrderLine))
+		Do AppsOrder.Lijnen.Insert(..ConverteerLijn(OrderLine))
 	}
 	
-	set PlaatsBestellingAanvraag.Order = AppsOrder
-	quit PlaatsBestellingAanvraag
+	Set PlaatsBestellingAanvraag.Order = AppsOrder
+	Quit PlaatsBestellingAanvraag
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/OrderConverter/Converteer/Test.cls.xml
===================================================================
diff -u -r37067 -r37068
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/OrderConverter/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 37067)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/OrderConverter/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 37068)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.EXT.Unishop.PurchaseOrder001.OrderConverter.Converteer.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: 1 gewone lade mag verwerkt worden">
+<Method name="Test: 1 lade mag verwerkt worden">
 <Implementation><![CDATA[
 	Set AanvraagHeaderBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler).%New()
 	#dim AanvraagHeader As APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader = AanvraagHeaderBepaler.GeefAanvraagHeader("alpnachnorm_ch")
@@ -15,7 +15,7 @@
 	Set TeConverterenOrder = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.Order).%New()
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegToeLade("LBX", Orderlijnen)
 	
 	Set TeConverterenOrder.Lijnen = Orderlijnen
 	
@@ -37,7 +37,7 @@
 	Set TeConverterenOrder = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.Order).%New()
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegToeLade("LBX", Orderlijnen)
 	Do ..VoegBeslagToe(Orderlijnen)
 	
 	Set TeConverterenOrder.Lijnen = Orderlijnen
@@ -60,9 +60,9 @@
 	Set TeConverterenOrder = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.Order).%New()
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegToeLade("LBX", Orderlijnen)
 	Do ..VoegBeslagToe(Orderlijnen)
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Do ..VoegToeLade("TBX", Orderlijnen)
 	
 	Set TeConverterenOrder.Lijnen = Orderlijnen
 	
@@ -113,7 +113,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegLadeTypeToe">
+<Method name="VoegToeLade">
 <FormalSpec><![CDATA[LadeType:%String,&OrderLijnen:%ListOfDataTypes]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[