Index: vhTest/Mock/APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml =================================================================== diff -u -r38997 -r39318 --- vhTest/Mock/APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 38997) +++ vhTest/Mock/APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 39318) @@ -129,7 +129,7 @@ WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer,ProjectReferentie:%String="",ExterneId:%String="" -%String +APPS.EC.Winkelkar.dto.MaatwerkLijn Index: APPS/VKP/impl/OfferteService.cls.xml =================================================================== diff -u -r39157 -r39318 --- APPS/VKP/impl/OfferteService.cls.xml (.../OfferteService.cls.xml) (revision 39157) +++ APPS/VKP/impl/OfferteService.cls.xml (.../OfferteService.cls.xml) (revision 39318) @@ -98,8 +98,8 @@ Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml =================================================================== diff -u -r39216 -r39318 --- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 39216) +++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 39318) @@ -202,15 +202,25 @@ WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer,ProjectReferentie:%String="",ExterneId:%String="" -%String +APPS.EC.Winkelkar.dto.MaatwerkLijn Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/Test.cls.xml =================================================================== diff -u -r33645 -r39318 --- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/Test.cls.xml (.../Test.cls.xml) (revision 33645) +++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/Test.cls.xml (.../Test.cls.xml) (revision 39318) @@ -204,7 +204,7 @@ WinkelkarID:%String,TAORKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken 1 %String - Index: vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService.cls.xml =================================================================== diff -u -r38997 -r39318 --- vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 38997) +++ vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 39318) @@ -141,7 +141,7 @@ WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer,ProjectReferentie:%String="",ExterneId:%String="" -%String +APPS.EC.Winkelkar.dto.MaatwerkLijn Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml =================================================================== diff -u -r33649 -r39318 --- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml (.../TestHandel.cls.xml) (revision 33649) +++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml (.../TestHandel.cls.xml) (revision 39318) @@ -233,7 +233,7 @@ %String Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml =================================================================== diff -u -r37224 -r39318 --- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml (.../TestVanHoecke.cls.xml) (revision 37224) +++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml (.../TestVanHoecke.cls.xml) (revision 39318) @@ -201,7 +201,7 @@ // Setup #dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID() #dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID) - + // Actie #dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.GeefLijn(WinkelkarID, MaatwerkLijnID) @@ -540,8 +540,8 @@ %String Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn/Test.cls.xml =================================================================== diff -u -r39179 -r39318 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn/Test.cls.xml (.../Test.cls.xml) (revision 39179) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn/Test.cls.xml (.../Test.cls.xml) (revision 39318) @@ -38,7 +38,7 @@ 1 - + 1 WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer,ProjectReferentie:%String="" -%String +APPS.EC.Winkelkar.dto.MaatwerkLijn Index: vhUnitTest/APPS/EC/Verkoop/impl/Externe/VerkoopService/Base.cls.xml =================================================================== diff -u -r36817 -r39318 --- vhUnitTest/APPS/EC/Verkoop/impl/Externe/VerkoopService/Base.cls.xml (.../Base.cls.xml) (revision 36817) +++ vhUnitTest/APPS/EC/Verkoop/impl/Externe/VerkoopService/Base.cls.xml (.../Base.cls.xml) (revision 39318) @@ -107,9 +107,9 @@ Index: APPS/EC/Winkelkar/WinkelkarService.cls.xml =================================================================== diff -u -r38997 -r39318 --- APPS/EC/Winkelkar/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 38997) +++ APPS/EC/Winkelkar/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 39318) @@ -58,7 +58,7 @@ 1 WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer,ProjectReferentie:%String="",ExterneId:%String="" -%String +APPS.EC.Winkelkar.dto.MaatwerkLijn Index: WS/EC/Winkelkar/WinkelkarService.cls.xml =================================================================== diff -u -r38507 -r39318 --- WS/EC/Winkelkar/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 38507) +++ WS/EC/Winkelkar/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 39318) @@ -101,7 +101,7 @@ Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID) - Quit ..WinkelkarService.VoegToeMaatwerk(WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, .ProjectReferentie) + Quit ..WinkelkarService.VoegToeMaatwerk(WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, .ProjectReferentie).LijnID ]]> Index: vhUnitTest/APPS/VKP/impl/OfferteService/VoegToeMaatwerk/Test.cls.xml =================================================================== diff -u -r38997 -r39318 --- vhUnitTest/APPS/VKP/impl/OfferteService/VoegToeMaatwerk/Test.cls.xml (.../Test.cls.xml) (revision 38997) +++ vhUnitTest/APPS/VKP/impl/OfferteService/VoegToeMaatwerk/Test.cls.xml (.../Test.cls.xml) (revision 39318) @@ -15,10 +15,16 @@ Do OfferteMock.IndienMethodCall("GeefKlantID").DanReturn(DummyKlantId) Do OfferteMock.IndienMethodCall("GeefWinkelkarID").DanReturn(DummyWinkelkarId) Do OfferteMock.IndienMethodCall("GeefPersonalityID").DanReturn(DummyPersonalityId) + + #dim MaatwerkLijnDummy As APPS.EC.Winkelkar.dto.MaatwerkLijn = ##class(APPS.EC.Winkelkar.dto.MaatwerkLijn).%New() + Set MaatwerkLijnDummy.LijnID = "MaatwerkLijnID" + Set WinkelkarServiceMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService).%New() - Do WinkelkarServiceMock.VerwachtMethodCall("VoegToeMaatwerk",DummyWinkelkarId,"",LBXKenmerkenFake,DummyAantal,"","").DanReturn(DummyWinkelkarId) + Do WinkelkarServiceMock.VerwachtMethodCall("VoegToeMaatwerk",DummyWinkelkarId,"",LBXKenmerkenFake,DummyAantal,"","").DanReturn(MaatwerkLijnDummy) + Set LijnRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New() - Do LijnRepositoryMock.VerwachtMethodCall("GeefViaID",DummyWinkelkarId) + Do LijnRepositoryMock.VerwachtMethodCall("GeefViaID","MaatwerkLijnID") + Set TaalBepalerMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.TaalBepaler).%New() Do TaalBepalerMock.VerwachtMethodCall("GeefTaal",DummyKlantId,DummyPersonalityId).DanDoeNiks() Set OfferteService = ##class(APPS.VKP.impl.OfferteService).%New(,WinkelkarServiceMock,LijnRepositoryMock,TaalBepalerMock) Index: APPS/EC/Winkelkar/dto/Winkelkar.cls.xml =================================================================== diff -u -r39244 -r39318 --- APPS/EC/Winkelkar/dto/Winkelkar.cls.xml (.../Winkelkar.cls.xml) (revision 39244) +++ APPS/EC/Winkelkar/dto/Winkelkar.cls.xml (.../Winkelkar.cls.xml) (revision 39318) @@ -59,7 +59,8 @@ Set LijnIt = ##class(TECH.ListIterator).%New(..Lijnen) While (LijnIt.HasNext()) { - Do LijnIt.Next().Accept(Visitor) + Set a = LijnIt.Next() + Do a.Accept(Visitor) } Do Visitor.Finalize() ]]> Index: APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml =================================================================== diff -u -r33279 -r39318 --- APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml (.../PrijsBerekeningService.cls.xml) (revision 33279) +++ APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml (.../PrijsBerekeningService.cls.xml) (revision 39318) @@ -102,8 +102,8 @@ Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigMeerdereMaatwerkLijnen/Test.cls.xml =================================================================== diff -u -r31570 -r39318 --- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigMeerdereMaatwerkLijnen/Test.cls.xml (.../Test.cls.xml) (revision 31570) +++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigMeerdereMaatwerkLijnen/Test.cls.xml (.../Test.cls.xml) (revision 39318) @@ -49,9 +49,9 @@ #dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).CLade() Set WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New() - #dim LijnID1 As %String = WinkelkarService.VoegToeMaatwerk(WinkelkarID, ..#GroepNaam, IngegevenKenmerken, 1) - #dim LijnID2 As %String = WinkelkarService.VoegToeMaatwerk(WinkelkarID, ..#GroepNaam, IngegevenKenmerken, 1) - #dim LijnID3 As %String = WinkelkarService.VoegToeMaatwerk(WinkelkarID, ..#GroepNaam, IngegevenKenmerken, 1) + #dim LijnID1 As %String = WinkelkarService.VoegToeMaatwerk(WinkelkarID, ..#GroepNaam, IngegevenKenmerken, 1).LijnID + #dim LijnID2 As %String = WinkelkarService.VoegToeMaatwerk(WinkelkarID, ..#GroepNaam, IngegevenKenmerken, 1).LijnID + #dim LijnID3 As %String = WinkelkarService.VoegToeMaatwerk(WinkelkarID, ..#GroepNaam, IngegevenKenmerken, 1).LijnID #dim GewijzigdeIngegevenKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = IngegevenKenmerken.%ConstructClone(1) Set GewijzigdeIngegevenKenmerken.LadeDiepte = 450 Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml =================================================================== diff -u -r39176 -r39318 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml (.../BewaarMaatwerkLijn.cls.xml) (revision 39176) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml (.../BewaarMaatwerkLijn.cls.xml) (revision 39318) @@ -52,10 +52,8 @@ #dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerken = ..EconConfiguratieConverter.Convert(BewaarMaatwerkLijnRequest.IngegevenKenmerken) - #dim WinkelkarLijnId As %String = ..WinkelkarService.VoegToeMaatwerk(WinkelkarId, "", IngegevenKenmerken, BewaarMaatwerkLijnRequest.Aantal, BewaarMaatwerkLijnRequest.ProjectReferentie, BewaarMaatwerkLijnRequest.LijnID) + #dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.VoegToeMaatwerk(WinkelkarId, "", IngegevenKenmerken, BewaarMaatwerkLijnRequest.Aantal, BewaarMaatwerkLijnRequest.ProjectReferentie, BewaarMaatwerkLijnRequest.LijnID) - #dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.GeefLijn(WinkelkarId, WinkelkarLijnId) - #dim Offerte As APPS.VKP.impl.Offerte = ..WinkelkarRepository.GeefOfferteViaID(BewaarMaatwerkLijnRequest.WinkelkarID) #dim Resultaat As WS.Vhisie4.Winkelkar.BewaarMaatwerkLijnResponse @@ -64,7 +62,7 @@ Set Resultaat.TotaalPrijs = MaatwerkLijn.TotaalPrijs Set Resultaat.PrijzenGeldigTotEnMet = Offerte.GeefPrijzenGeldigTotEnMetDatum() - Set Resultaat.UnishopKenmerken = IngegevenKenmerken + Set Resultaat.UnishopKenmerken = MaatwerkLijn.IngegevenKenmerken Quit Resultaat ]]> Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/Base.cls.xml =================================================================== diff -u -r33393 -r39318 --- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/Base.cls.xml (.../Base.cls.xml) (revision 33393) +++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/Base.cls.xml (.../Base.cls.xml) (revision 39318) @@ -65,8 +65,8 @@ 1 TECH.String