Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml =================================================================== diff -u -r39457 -r39527 --- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 39457) +++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 39527) @@ -217,7 +217,7 @@ While $$$Not($IsObject(GevondenLijn)) && Iterator.HasNext() { #dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = Iterator.Next() - Set:(Lijn.LijnID = MaatwerkLijn.GeefID()) GevondenLijn = Lijn + Set:((Lijn.LijnID = MaatwerkLijn.GeefID()) && ($length(Lijn.LijnID))) GevondenLijn = Lijn } Quit GevondenLijn @@ -382,7 +382,6 @@ Do ..WinkelkarPrijsUpdater.HerberekenLijn(Winkelkar,Lijn) Do ..MaatwerkLijnBuilder.BewaarLijn(Lijn) - Quit:Lijn.GeefIngegevenKenmerken().GeefVariant()["TBX" Do ..WinkelkarRepository.Bewaar(Winkelkar) ]]> Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml =================================================================== diff -u -r39515 -r39527 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml (.../BewaarMaatwerkLijn.cls.xml) (revision 39515) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml (.../BewaarMaatwerkLijn.cls.xml) (revision 39527) @@ -46,25 +46,19 @@ #dim WinkelkarId As %String = ..WinkelkarRepository.GeefWinkelkarIDViaID(BewaarMaatwerkLijnRequest.WinkelkarID) If ..WinkelkarLijnRepository.BestaatViaID(BewaarMaatwerkLijnRequest.LijnID) { - #dim LijnID As %String = ..WinkelkarLijnRepository.GeefLijnIDViaID(BewaarMaatwerkLijnRequest.LijnID) - Do ..WinkelkarService.VerwijderLijn(WinkelkarId, LijnID) + #dim WinkelkarLijnId As %String = ..WinkelkarLijnRepository.GeefLijnIDViaID(BewaarMaatwerkLijnRequest.LijnID) + Do ..WinkelkarService.VerwijderLijn(WinkelkarId, WinkelkarLijnId) } - #dim IngegevenKenmerken As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..EconConfiguratieConverter.Convert(BewaarMaatwerkLijnRequest.IngegevenKenmerken) - Set IngegevenKenmerken.LadeVariant = "TBX_Antaro" + #dim EconMaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..EconConfiguratieConverter.Convert(BewaarMaatwerkLijnRequest.EconConfiguratie) - #dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.VoegToeMaatwerk(WinkelkarId, "", IngegevenKenmerken, BewaarMaatwerkLijnRequest.Aantal, BewaarMaatwerkLijnRequest.ProjectReferentie, BewaarMaatwerkLijnRequest.LijnID) - - #dim Offerte As APPS.VKP.impl.Offerte = ..WinkelkarRepository.GeefOfferteViaID(BewaarMaatwerkLijnRequest.WinkelkarID) - - #dim Resultaat As WS.Vhisie4.Winkelkar.BewaarMaatwerkLijnResponse + #dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.VoegToeMaatwerk(WinkelkarId, "MijnGroep", EconMaatwerkLijn.IngegevenKenmerken, EconMaatwerkLijn.Aantal, EconMaatwerkLijn.ProjectReferentie, BewaarMaatwerkLijnRequest.LijnID) + Set Resultaat = ##class(WS.Vhisie4.Winkelkar.BewaarMaatwerkLijnResponse).%New() Set Resultaat.EenheidPrijs = MaatwerkLijn.EenheidPrijs Set Resultaat.TotaalPrijs = MaatwerkLijn.TotaalPrijs - Set Resultaat.PrijzenGeldigTotEnMet = Offerte.GeefPrijzenGeldigTotEnMetDatum() - + Set Resultaat.PrijzenGeldigTotEnMet = MaatwerkLijn.PrijzenGeldigTotEnMet Set Resultaat.UnishopKenmerken = MaatwerkLijn.IngegevenKenmerken - Quit Resultaat ]]> Index: APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml =================================================================== diff -u -r39457 -r39527 --- APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml (.../MaatwerkLijnBuilder.cls.xml) (revision 39457) +++ APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml (.../MaatwerkLijnBuilder.cls.xml) (revision 39527) @@ -193,7 +193,7 @@ GroepNaam:%String,Lijn:DOM.EC.Winkelkar.Lijn Lijn:DOM.EC.Winkelkar.MaatwerkLijn - + Lijn:DOM.EC.Winkelkar.MaatwerkLijn - + Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,GroepNaam:%String,LijnIDIndienBestaandeLijn:%String="" - + Winkelkar:DOM.EC.Winkelkar.Winkelkar - + @@ -40,20 +36,17 @@ Lijn:DOM.EC.Winkelkar.Lijn,GroepNaam:%String - + GroepLijn:DOM.EC.Winkelkar.GroepLijn - + GroepNaam:%String,Lijn:DOM.EC.Winkelkar.Lijn - + @@ -65,26 +58,22 @@ Lijn:DOM.EC.Winkelkar.MaatwerkLijn,Aantal:%Integer - + Lijn:DOM.EC.Winkelkar.MaatwerkLijn,ProjectReferentie:%String="" - + Lijn:DOM.EC.Winkelkar.MaatwerkLijn - + Lijn:DOM.EC.Winkelkar.MaatwerkLijn - +