Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn.cls.xml
===================================================================
diff -u -r39653 -r40819
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn.cls.xml (.../BewaarProductLijn.cls.xml) (revision 39653)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn.cls.xml (.../BewaarProductLijn.cls.xml) (revision 40819)
@@ -50,7 +50,7 @@
Do ..WinkelkarService.VerwijderLijn(WinkelkarID, LijnID)
}
- Do ..WinkelkarService.VoegToeProduct(WinkelkarID, "EenGroep", BewaarProductLijnRequest.ProductId, BewaarProductLijnRequest.Aantal, BewaarProductLijnRequest.PakketReferentie, BewaarProductLijnRequest.ProjectReferentie, BewaarProductLijnRequest.LijnId)
+ Do ..WinkelkarService.VoegToeProduct(WinkelkarID, "EenGroep", BewaarProductLijnRequest.ProductId, BewaarProductLijnRequest.Aantal, BewaarProductLijnRequest.PakketReferentie, BewaarProductLijnRequest.ProjectReferentie, BewaarProductLijnRequest.LijnId, BewaarProductLijnRequest.EenheidPrijs,BewaarProductLijnRequest.TotaalPrijs)
]]>
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r40052 -r40819
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 40052)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 40819)
@@ -225,12 +225,14 @@
-WinkelkarID:%String,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String=""
+WinkelkarID:%String,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String="",EenheidPrijs:%Decimal="",TotaalPrijs:%Decimal=""
%String
1
-WinkelkarID:%String,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String=""
+WinkelkarID:%String,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String="",EenheidPrijs:%Decimal="",TotaalPrijs:%Decimal=""
%String
Index: vhUnitTest/APPS/VKP/impl/OfferteService/VoegToeProduct/Test.cls.xml
===================================================================
diff -u -r39591 -r40819
--- vhUnitTest/APPS/VKP/impl/OfferteService/VoegToeProduct/Test.cls.xml (.../Test.cls.xml) (revision 39591)
+++ vhUnitTest/APPS/VKP/impl/OfferteService/VoegToeProduct/Test.cls.xml (.../Test.cls.xml) (revision 40819)
@@ -11,7 +11,7 @@
Set OfferteMock = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
Do OfferteMock.IndienMethodCall("GeefWinkelkarID").DanReturn(DummyWinkelkarId)
Set WinkelkarServiceMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
- Do WinkelkarServiceMock.VerwachtMethodCall("VoegToeProduct",DummyWinkelkarId,"Producten",DummyProductID,DummyAantal,"","","").DanReturn(DummyWinkelkarId)
+ Do WinkelkarServiceMock.VerwachtMethodCall("VoegToeProduct",DummyWinkelkarId,"Producten",DummyProductID,DummyAantal,"","","","","").DanReturn(DummyWinkelkarId)
Set LijnRepository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
Do LijnRepository.VerwachtMethodCall("GeefViaID",DummyWinkelkarId)
Set OfferteService = ##class(APPS.VKP.impl.OfferteService).%New(,WinkelkarServiceMock,LijnRepository)
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn/Test.cls.xml
===================================================================
diff -u -r39653 -r40819
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn/Test.cls.xml (.../Test.cls.xml) (revision 39653)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn/Test.cls.xml (.../Test.cls.xml) (revision 40819)
@@ -17,7 +17,7 @@
Set WinkelkarServiceMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
Do WinkelkarServiceMock.VerwachtMethodCall("VerwijderLijn","DummyID", "DummyLijnID").DanDoeNiks()
- Do WinkelkarServiceMock.VerwachtMethodCall("VoegToeProduct", "DummyID", "EenGroep", "ProductId", 5, "PakketReferentie", "ProjectReferentie", "ExterneId").DanDoeNiks()
+ Do WinkelkarServiceMock.VerwachtMethodCall("VoegToeProduct", "DummyID", "EenGroep", "ProductId", 5, "PakketReferentie", "ProjectReferentie", "ExterneId","1.95","9.75").DanDoeNiks()
Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BewaarProductLijn).%New(WinkelkarServiceMock, WinkelkarRepositoryStub, WinkelkarLijnRepositoryMock, ProductApiStub)
@@ -40,7 +40,7 @@
Do WinkelkarLijnRepositoryMock.VerwachtMethodCall("BestaatViaID", "ExterneId").DanReturn($$$False)
Set WinkelkarServiceMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
- Do WinkelkarServiceMock.VerwachtMethodCall("VoegToeProduct","DummyID", "EenGroep", "ProductId", 5 , "PakketReferentie" , "ProjectReferentie","ExterneId").DanDoeNiks()
+ Do WinkelkarServiceMock.VerwachtMethodCall("VoegToeProduct","DummyID", "EenGroep", "ProductId", 5 , "PakketReferentie" , "ProjectReferentie","ExterneId","1.95","9.75").DanDoeNiks()
Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BewaarProductLijn).%New(WinkelkarServiceMock, WinkelkarRepositoryStub, WinkelkarLijnRepositoryMock,ProductApiStub)
@@ -60,7 +60,7 @@
Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefWinkelkarIDViaID", "WinkelkarId").DanReturn("DummyID")
Set WinkelkarServiceStub = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
- Do WinkelkarServiceStub.IndienMethodCall("VoegToeProduct", "DummyID", "EenGroep", "ProductId", 5 , "PakketReferentie" , "ProjectReferentie","ExterneId").DanDoeNiks()
+ Do WinkelkarServiceStub.IndienMethodCall("VoegToeProduct", "DummyID", "EenGroep", "ProductId", 5 , "PakketReferentie" , "ProjectReferentie","ExterneId","1.95","9.75").DanDoeNiks()
Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BewaarProductLijn).%New(WinkelkarServiceStub, WinkelkarRepositoryMock,,ProductApiStub)
@@ -94,6 +94,8 @@
Set BewaarProductLijnRequest.Aantal = 5
Set BewaarProductLijnRequest.ProjectReferentie = "ProjectReferentie"
Set BewaarProductLijnRequest.PakketReferentie = "PakketReferentie"
+ Set BewaarProductLijnRequest.EenheidPrijs = 1.95
+ Set BewaarProductLijnRequest.TotaalPrijs = 9.75
Set BewaarProductLijnRequest.LijnId = "ExterneId"
Quit BewaarProductLijnRequest
Index: APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml
===================================================================
diff -u -r40796 -r40819
--- APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml (.../VerkoopService.cls.xml) (revision 40796)
+++ APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml (.../VerkoopService.cls.xml) (revision 40819)
@@ -72,7 +72,7 @@
Set Offerte.PersonalityID = PersonalityID
Set Offerte.LeverAdres = ..GeefStandaardLeverAdres(Offerte)
Set Offerte.ExterneId = ExterneId
- Do ##class(Tools.Wlip).%New(26).String("ExterneId " _ ExterneId)
+
#dim OfferteBewaarder As APPS.VKP.OfferteBewaarder = ..OfferteService.GeefOfferteBewaarder()
Do OfferteBewaarder.Bewaar(Offerte)
Index: vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r39991 -r40819
--- vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 39991)
+++ vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 40819)
@@ -161,9 +161,9 @@
-WinkelkarID:%String,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String=""
+WinkelkarID:%String,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String="",EenheidPrijs:%Decimal="",TotaalPrijs:%Decimal=""
%String
-