Index: APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml
===================================================================
diff -u -r53495 -r53503
--- APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 53495)
+++ APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 53503)
@@ -97,7 +97,8 @@
 	}
 
 	Try {
-		#dim Palletten As APPS.TRANSP.OfferteService.dto.Palletten = ..StapelingBepaler.Bepaal(..BerekenInput)
+		#dim Palletten As APPS.TRANSP.OfferteService.dto.Palletten = ..GeefPalletten()
+	
 		Set ..AantalPalletten = Palletten.Count()
 		If ..AantalPalletten=0 {
 			Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Palletten zijn nog niet (volledig) berekend voor DHL of het berekende aantal is 0 voor berekeninput referentie " _..BerekenInput.Referentie)
@@ -118,6 +119,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPalletten">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.Palletten</ReturnType>
+<Implementation><![CDATA[
+	#dim AantalPogingen As %Integer = 5
+	#dim WachttijdInSeconden As %Integer = 1
+	
+	Set Palletten = ##class(APPS.TRANSP.OfferteService.dto.Palletten).%New()
+	
+	While (Palletten.Count()=0) && (AantalPogingen>0) {
+		Set AantalPogingen = AantalPogingen - 1
+		Set Palletten = ..StapelingBepaler.Bepaal(..BerekenInput)
+		If (Palletten.Count()=0) && (AantalPogingen>0) {
+			Hang WachttijdInSeconden
+		}
+	}
+	
+	Quit Palletten
+]]></Implementation>
+</Method>
+
 <Method name="BerekenTarief">
 <FormalSpec>Palletten:APPS.TRANSP.OfferteService.dto.Palletten</FormalSpec>
 <Private>1</Private>