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