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
-
+