Index: WSimpl/Vhisie4/Winkelkar/MultipersonalityPrijsWebservice/BerekenProductPrijzen.cls.xml
===================================================================
diff -u -r62083 -r62087
--- WSimpl/Vhisie4/Winkelkar/MultipersonalityPrijsWebservice/BerekenProductPrijzen.cls.xml	(.../BerekenProductPrijzen.cls.xml)	(revision 62083)
+++ WSimpl/Vhisie4/Winkelkar/MultipersonalityPrijsWebservice/BerekenProductPrijzen.cls.xml	(.../BerekenProductPrijzen.cls.xml)	(revision 62087)
@@ -51,42 +51,53 @@
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	 
-	;Haal markup op voor de personality 
+	;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 = ..MessageManager.GenerateID()
+	;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 = BerekenProductPrijzenRequest.CalcPrice
+	Set Request.CalcPrice = $$$True
 	Set Request.CalcStock = $$$False
 	Set Request.MessageId = MessageId
 	Set Request.Lines = BerekenProductPrijzenRequest.Lines
-
-	;Haal korting voor klant
+	
+	#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
+	;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
-		Do ##class(Tools.Wlip).%New(252).String("oorspronkelijke prijs: "_Product.Price)
-		Do ##class(Tools.Wlip).%New(252).String("korting: "_KortingPercentage_" Markup: "_Markup)
+		
 		Set Product.Price = Product.Price * Markup
 		Set Product.Price = Product.Price - (Product.Price * KortingPercentage)
 	}