Index: APPS/TRANSP/UPS/impl/Rate/BerekenInputConverteerder.cls.xml
===================================================================
diff -u -r32665 -r32666
--- APPS/TRANSP/UPS/impl/Rate/BerekenInputConverteerder.cls.xml	(.../BerekenInputConverteerder.cls.xml)	(revision 32665)
+++ APPS/TRANSP/UPS/impl/Rate/BerekenInputConverteerder.cls.xml	(.../BerekenInputConverteerder.cls.xml)	(revision 32666)
@@ -83,13 +83,13 @@
 <Method name="ZetVerzendDetails">
 <Private>1</Private>
 <Implementation><![CDATA[
-
 	set Iterator = ##class(TECH.ListIterator).%New(..BerekenInput.TeverzendItems)
 	while Iterator.HasNext() {
-		#dim PackageItem As APPS.TRANSP.UPS.impl.SoapClients.Rate.rate.PackageType = ##class(APPS.TRANSP.UPS.impl.SoapClients.Rate.rate.PackageType).%New()
 		#dim TeverzendItem As APPS.TRANSP.OfferteService.dto.BerekenInput = Iterator.Next()
 		
-		for Aantal=1:1:TeverzendItem.Aantal { 
+		#dim i As %Integer
+		for i = 1 : 1 : TeverzendItem.Aantal { 
+			#dim PackageItem As APPS.TRANSP.UPS.impl.SoapClients.Rate.rate.PackageType = ##class(APPS.TRANSP.UPS.impl.SoapClients.Rate.rate.PackageType).%New()
 			Set PackageItem.PackageWeight.UnitOfMeasurement.Code = "KGS"
 			Set PackageItem.PackageWeight.Weight = ..GewichtBerekenaar.Bereken(TeverzendItem.Afmeting,TeverzendItem.Gewicht)
 			Set PackageItem.PackagingType.Code = "02"