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 -