Index: WSimpl/Vhisie4/Winkelkar/MultipersonalityPrijsWebservice/BerekenProductPrijzen.cls.xml
===================================================================
diff -u -r62087 -r62093
--- WSimpl/Vhisie4/Winkelkar/MultipersonalityPrijsWebservice/BerekenProductPrijzen.cls.xml	(.../BerekenProductPrijzen.cls.xml)	(revision 62087)
+++ WSimpl/Vhisie4/Winkelkar/MultipersonalityPrijsWebservice/BerekenProductPrijzen.cls.xml	(.../BerekenProductPrijzen.cls.xml)	(revision 62093)
@@ -50,58 +50,63 @@
 <ReturnType>WS.Vhisie4.Winkelkar.dto.PrijsHeaderOutput</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	 
-	;haal markup op voor de personality 
-	#dim Personality As DOM.common.impl.Personality = ..PersonalityRepository.GeefViaID(BerekenProductPrijzenRequest.PersonalityID)
-	#dim Markup As TECH.Decimal
-	#dim PrijsFactorBepaler As APPS.EC.Winkelkar.WinkelkarService.PrijsFactorBepaler = ..PrijsFactorBepalerFactory.GeefPrijsFactorBepaler(Personality)
-	Set Markup = PrijsFactorBepaler.GeefOrgaluxPrijsFactor()
 	
-	;genereer MessageId, mogelijk niet meer nodig in echt gebruik
-	#dim MessageId As %String
-	If (##class(TECH.StringUtils).IsEmpty(BerekenProductPrijzenRequest.MessageId)) {
-		Set MessageId = ..MessageManager.GenerateID()
-	} Else {
-		Set MessageId = BerekenProductPrijzenRequest.MessageId
-	}
-	
-	;maak request van input met de personality als cust account
-	#dim Request As AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceHeaderInputDC = ##class(AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceHeaderInputDC).%New()
-	Set Request.CustAccount = Personality.Klant.Nummer
-	Set Request.CalcPrice = $$$True
-	Set Request.CalcStock = $$$False
-	Set Request.MessageId = MessageId
-	Set Request.Lines = BerekenProductPrijzenRequest.Lines
-	
-	#dim LinesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Request.Lines)
-	
-	While (LinesIterator.HasNext()) {
-		#dim Line As AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceLineInputDC = LinesIterator.Next()
-		Set Line.MessageId = MessageId
-	}
-	
-	;haal korting voor klant
-	#dim Output As  WS.Vhisie4.Winkelkar.dto.PrijsHeaderOutput = ..SalesPriceService.getPrice(Request)
-
-	;pas markup en korting toe op alle producten
-	#dim ProductIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Output.Lines)
-	
-	While (ProductIterator.HasNext()) {
-		#dim Product As WS.Vhisie4.Winkelkar.dto.MultipersonalityPrijsWebservice.PrijsLijnInput = ProductIterator.Next()
+	Try {
+		;haal markup op voor de personality 
+		#dim Personality As DOM.common.impl.Personality = ..PersonalityRepository.GeefViaID(BerekenProductPrijzenRequest.PersonalityID)
+		#dim Markup As TECH.Decimal
+		#dim PrijsFactorBepaler As APPS.EC.Winkelkar.WinkelkarService.PrijsFactorBepaler = ..PrijsFactorBepalerFactory.GeefPrijsFactorBepaler(Personality)
+		Set Markup = PrijsFactorBepaler.GeefOrgaluxPrijsFactor()
 		
-		#dim KortingSpecificatie As DOM.VKP.dto.KortingSpecificaties = ##class(DOM.VKP.dto.KortingSpecificaties).%New()
-		Set KortingSpecificatie.PersonalityID = BerekenProductPrijzenRequest.PersonalityID
-		Set KortingSpecificatie.KlantID = Personality.GeefPrefix()_BerekenProductPrijzenRequest.CustAccount
-		Set KortingSpecificatie.Familie = ##class(DOM.PM.enu.Familie).Lade()
-		Set KortingSpecificatie.Variant = ##class(DOM.PM.enu.Variant).LegraboxPure()
-		Set KortingSpecificatie.Aantal = Product.PriceUnit
-		#dim KortingInfo As DOM.VKP.dto.KortingInfo = ..KortingService.GeefKortingInfo(KortingSpecificatie)
-		#dim KortingPercentage = KortingInfo.Percentage
+		;genereer MessageId, mogelijk niet meer nodig in echt gebruik
+		#dim MessageId As %String
+		If (##class(TECH.StringUtils).IsEmpty(BerekenProductPrijzenRequest.MessageId)) {
+			Set MessageId = ..MessageManager.GenerateID()
+		} Else {
+			Set MessageId = BerekenProductPrijzenRequest.MessageId
+		}
 		
-		Set Product.Price = Product.Price * Markup
-		Set Product.Price = Product.Price - (Product.Price * KortingPercentage)
+		;maak request van input met de personality als cust account
+		#dim Request As AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceHeaderInputDC = ##class(AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceHeaderInputDC).%New()
+		Set Request.CustAccount = Personality.Klant.Nummer
+		Set Request.CalcPrice = $$$True
+		Set Request.CalcStock = $$$False
+		Set Request.MessageId = MessageId
+		Set Request.Lines = BerekenProductPrijzenRequest.Lines
+		
+		#dim LinesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Request.Lines)
+		
+		While (LinesIterator.HasNext()) {
+			#dim Line As AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceLineInputDC = LinesIterator.Next()
+			Set Line.MessageId = MessageId
+		}
+		
+		;haal korting voor klant
+		#dim Output As  WS.Vhisie4.Winkelkar.dto.PrijsHeaderOutput = ..SalesPriceService.getPrice(Request)
+
+		;pas markup en korting toe op alle producten
+		#dim ProductIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Output.Lines)
+		
+		While (ProductIterator.HasNext()) {
+			#dim Product As WS.Vhisie4.Winkelkar.dto.MultipersonalityPrijsWebservice.PrijsLijnInput = ProductIterator.Next()
+			
+			#dim KortingSpecificatie As DOM.VKP.dto.KortingSpecificaties = ##class(DOM.VKP.dto.KortingSpecificaties).%New()
+			Set KortingSpecificatie.PersonalityID = BerekenProductPrijzenRequest.PersonalityID
+			Set KortingSpecificatie.KlantID = Personality.GeefPrefix()_BerekenProductPrijzenRequest.CustAccount
+			Set KortingSpecificatie.Familie = ##class(DOM.PM.enu.Familie).Lade()
+			Set KortingSpecificatie.Variant = ##class(DOM.PM.enu.Variant).LegraboxPure()
+			Set KortingSpecificatie.Aantal = Product.PriceUnit
+			#dim KortingInfo As DOM.VKP.dto.KortingInfo = ..KortingService.GeefKortingInfo(KortingSpecificatie)
+			#dim KortingPercentage = KortingInfo.Percentage
+			
+			Set Product.Price = Product.Price * Markup
+			Set Product.Price = Product.Price - (Product.Price * KortingPercentage)
 	}
-	
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(vhLib.Logger).%New().LogExceptie(Exception)
+		Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
+	}
 	;return alle producten 
 	Quit Output
 ]]></Implementation>