Index: APPS/EC/Transport/Service.cls.xml
===================================================================
diff -u -r41644 -r41655
--- APPS/EC/Transport/Service.cls.xml	(.../Service.cls.xml)	(revision 41644)
+++ APPS/EC/Transport/Service.cls.xml	(.../Service.cls.xml)	(revision 41655)
@@ -92,16 +92,15 @@
 		#dim LadeType As APPS.VKP.Offerte.enu.LadeType = LadeTypeIterator.Next()
 		#dim VerpakkingTypeIterator As TECH.ListIterator = ##class(APPS.VKP.Offerte.enu.VerpakkingType).ValueListIterator()
 		While VerpakkingTypeIterator.HasNext(){
+
 			#dim VerpakkingType As APPS.VKP.Offerte.enu.VerpakkingType = VerpakkingTypeIterator.Next()
 			#dim CollisOpPallet As APPS.TRANSP.Stapeling.dto.CollisOpPallet
+
 			Set CollisOpPallet = ..MaakCollisOpPallet(Verpakkingen.ZoekVerpakkingen(VerpakkingType, LadeType), OfferteID, VerpakkingType, LadeType)
-			if (LadeType = ##class(APPS.VKP.Offerte.enu.LadeType).Tandembox()) {
-				if $IsObject(CollisOpPallet) && (CollisOpPallet.Collis.Count() > 0) {
+			if $IsObject(CollisOpPallet) && (CollisOpPallet.Collis.Count() > 0) {
+				if (LadeType = ##class(APPS.VKP.Offerte.enu.LadeType).Tandembox()) {
 					Do ..StapelingBepaler.BerekenMetVastAantal(CollisOpPallet, 16)
-				}
-			} elseIf (VerpakkingType '= ##class(APPS.VKP.Offerte.enu.VerpakkingType).FlatpackV1()) || (LadeType '= ##class(APPS.VKP.Offerte.enu.LadeType).LegraboxPure()) {
-				Set CollisOpPallet = ..MaakCollisOpPallet(Verpakkingen.ZoekVerpakkingen(VerpakkingType, LadeType), OfferteID, VerpakkingType, LadeType)
-				if $IsObject(CollisOpPallet) && (CollisOpPallet.Collis.Count() > 0) {
+				} elseIf (VerpakkingType '= ##class(APPS.VKP.Offerte.enu.VerpakkingType).FlatpackV1()) || (LadeType '= ##class(APPS.VKP.Offerte.enu.LadeType).LegraboxPure()) {
 					Do ..StapelingBepaler.Bereken(CollisOpPallet)
 				}
 			}
@@ -114,7 +113,7 @@
 <FormalSpec>Verpakkingen:APPS.VKP.Offerte.dto.VerpakkingList,OfferteID:%String,VerpakkingType:APPS.VKP.Offerte.enu.VerpakkingType,LadeType:APPS.VKP.Offerte.enu.LadeType</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim CollisOpPallet As APPS.TRANSP.Stapeling.dto.CollisOpPallet = ##class(APPS.TRANSP.Stapeling.dto.CollisOpPallet).%New()
+	Set CollisOpPallet = ##class(APPS.TRANSP.Stapeling.dto.CollisOpPallet).%New()
 	Set CollisOpPallet.Referentie = OfferteID
 	Set CollisOpPallet.Groep = LadeType _"_" _VerpakkingType
 	Set CollisOpPallet.Settings = ##class(APPS.TRANSP.Stapeling.dto.Settings).%New()
@@ -123,18 +122,26 @@
 
 	#dim VerpakkingenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Verpakkingen)
 	while VerpakkingenIterator.HasNext() {
-		#dim Verpakking As APPS.VKP.Offerte.dto.Verpakking = VerpakkingenIterator.Next()
-		#dim ColliOpPallet As APPS.TRANSP.Stapeling.dto.ColliOpPallet = ##class(APPS.TRANSP.Stapeling.dto.ColliOpPallet).%New()
-		Set ColliOpPallet.Aantal = Verpakking.Aantal
-		Set ColliOpPallet.GewichtInKg = (Verpakking.Gewicht / 1000)
-		Set ColliOpPallet.ProductID = Verpakking.ProductID
-		Set ColliOpPallet.Afmeting = ##class(APPS.TRANSP.dto.Afmeting).%New(Verpakking.Afmeting.Hoogte,Verpakking.Afmeting.Breedte,Verpakking.Afmeting.Lengte)
-		Do CollisOpPallet.Collis.Insert(ColliOpPallet)
+		Do CollisOpPallet.Collis.Insert(..MaakColliOpPallet(VerpakkingenIterator.Next()))
 	}
 	Quit CollisOpPallet
 ]]></Implementation>
 </Method>
 
+<Method name="MaakColliOpPallet">
+<FormalSpec>Verpakking:APPS.VKP.Offerte.dto.Verpakking</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Stapeling.dto.ColliOpPallet</ReturnType>
+<Implementation><![CDATA[
+	Set ColliOpPallet = ##class(APPS.TRANSP.Stapeling.dto.ColliOpPallet).%New()
+	Set ColliOpPallet.Aantal = Verpakking.Aantal
+	Set ColliOpPallet.GewichtInKg = (Verpakking.Gewicht / 1000)
+	Set ColliOpPallet.ProductID = Verpakking.ProductID
+	Set ColliOpPallet.Afmeting = ##class(APPS.TRANSP.dto.Afmeting).%New(Verpakking.Afmeting.Hoogte,Verpakking.Afmeting.Breedte,Verpakking.Afmeting.Lengte)
+	Quit ColliOpPallet
+]]></Implementation>
+</Method>
+
 <Method name="GeefVroegsteAfhaalDatum">
 <FormalSpec>OfferteID:%String</FormalSpec>
 <Private>1</Private>
@@ -207,7 +214,7 @@
 <Private>1</Private>
 <ReturnType>WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Selectie</ReturnType>
 <Implementation><![CDATA[
-	#dim Selectie As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Selectie = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Selectie).%New()
+	Set Selectie = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Selectie).%New()
 	If ($IsObject(OptieKeuze)) {
 		Set Selectie.ID = OptieKeuze.ID
 		Set Selectie.Omschrijving = OptieKeuze.Omschrijving
@@ -220,16 +227,16 @@
 <Method name="OngeldigeVerzendKeuze">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set Exception = ##class(TECH.Exceptions.OngeldigeVerzendKeuze).%New("Ongeldige verzend keuze.")	
-	do ##class(TECH.ExceptionHandler).Throw(Exception)
+	Set Exception = ##class(TECH.Exceptions.OngeldigeVerzendKeuze).%New("Ongeldige verzend keuze.")	
+	Do ##class(TECH.ExceptionHandler).Throw(Exception)
 ]]></Implementation>
 </Method>
 
 <Method name="OngeldigeOptieKeuze">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set Exception = ##class(TECH.Exceptions.OngeldigeOptieKeuze).%New("Ongeldige optie keuze.")	
-	do ##class(TECH.ExceptionHandler).Throw(Exception)
+	Set Exception = ##class(TECH.Exceptions.OngeldigeOptieKeuze).%New("Ongeldige optie keuze.")	
+	Do ##class(TECH.ExceptionHandler).Throw(Exception)
 ]]></Implementation>
 </Method>
 
@@ -254,7 +261,7 @@
 <Private>1</Private>
 <ReturnType>%GlobalCharacterStream</ReturnType>
 <Implementation><![CDATA[
-	#Dim VhintraLink As %GlobalCharacterStream = ##class(%GlobalCharacterStream).%New()
+	Set VhintraLink = ##class(%GlobalCharacterStream).%New()
 	Do VhintraLink.WriteLine("Opgelet, de transportkost kon niet berekend worden en is niet toegevoegd als manuele lijn aan de offerte. Gelieve het nodige te doen.")
 	Do VhintraLink.WriteLine("")
 	Do VhintraLink.WriteLine("vhintra:vkp-externeofferteverwerking-presentation-mainview?offerteId=" _BerekenInput.Referentie)