Index: WSimpl/Vhisie4/Winkelkar/MultipersonalityPrijsWebservice/BerekenProductPrijzen.cls.xml =================================================================== diff -u -r62102 -r62114 --- WSimpl/Vhisie4/Winkelkar/MultipersonalityPrijsWebservice/BerekenProductPrijzen.cls.xml (.../BerekenProductPrijzen.cls.xml) (revision 62102) +++ WSimpl/Vhisie4/Winkelkar/MultipersonalityPrijsWebservice/BerekenProductPrijzen.cls.xml (.../BerekenProductPrijzen.cls.xml) (revision 62114) @@ -88,15 +88,15 @@ Do Request.Lines.Insert(NewLine) } - ;haal korting voor klant + ;haal prijs op bij ax #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() - + ;haal korting voor klant #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