Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn/Test.cls.xml =================================================================== diff -u -r38849 -r38854 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn/Test.cls.xml (.../Test.cls.xml) (revision 38849) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn/Test.cls.xml (.../Test.cls.xml) (revision 38854) @@ -12,7 +12,7 @@ Do WinkelkarRepositoryStub.IndienMethodCall("GeefViaExterneId", $$$ElkeWaarde).DanReturn(WinkelkarDummy) #dim WinkelkarServiceMock As vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService).%New() - Do WinkelkarServiceMock.VerwachtMethodCall("VoegToeProduct","DummyID", "ProductId", 5 , "" , "ProjectReferentie").DanDoeNiks() + Do WinkelkarServiceMock.VerwachtMethodCall("VoegToeProduct","DummyID", "ProductId", 5 , "PakketReferentie" , "ProjectReferentie").DanDoeNiks() #dim BewaarProductLijn As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BewaarProductLijn = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BewaarProductLijn).%New(WinkelkarServiceMock, WinkelkarRepositoryStub) @@ -31,7 +31,7 @@ Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefViaExterneId", "WinkelkarId").DanReturn(WinkelkarDummy) #dim WinkelkarServiceStub As vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService).%New() - Do WinkelkarServiceStub.IndienMethodCall("VoegToeProduct","DummyID", "ProductId", 5 , "" , "ProjectReferentie").DanDoeNiks() + Do WinkelkarServiceStub.IndienMethodCall("VoegToeProduct","DummyID", "ProductId", 5 , "PakketReferentie" , "ProjectReferentie").DanDoeNiks() #dim BewaarProductLijn As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BewaarProductLijn = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BewaarProductLijn).%New(WinkelkarServiceStub, WinkelkarRepositoryMock) @@ -66,6 +66,7 @@ Set BewaarProductLijnRequest.ProductId = "ProductId" Set BewaarProductLijnRequest.Aantal = 5 Set BewaarProductLijnRequest.ProjectReferentie = "ProjectReferentie" + Set BewaarProductLijnRequest.PakketReferentie = "PakketReferentie" Quit BewaarProductLijnRequest ]]> Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn.cls.xml =================================================================== diff -u -r38852 -r38854 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn.cls.xml (.../BewaarProductLijn.cls.xml) (revision 38852) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn.cls.xml (.../BewaarProductLijn.cls.xml) (revision 38854) @@ -33,9 +33,8 @@ Do ..ControleerExterneId(BewaarProductLijnRequest.Header.WinkelkarId) #dim WinkelkarID As %String = ..WinkelkarRepository.GeefViaExterneId(BewaarProductLijnRequest.Header.WinkelkarId).GeefID() - #dim PakketReferentie As %String = "" - Do ..WinkelkarService.VoegToeProduct(WinkelkarID, BewaarProductLijnRequest.ProductId, BewaarProductLijnRequest.Aantal, PakketReferentie, BewaarProductLijnRequest.ProjectReferentie) + Do ..WinkelkarService.VoegToeProduct(WinkelkarID, BewaarProductLijnRequest.ProductId, BewaarProductLijnRequest.Aantal, BewaarProductLijnRequest.PakketReferentie, BewaarProductLijnRequest.ProjectReferentie) ]]> Index: WS/Vhisie4/Winkelkar/BewaarProductLijnRequest.cls.xml =================================================================== diff -u -r37707 -r38854 --- WS/Vhisie4/Winkelkar/BewaarProductLijnRequest.cls.xml (.../BewaarProductLijnRequest.cls.xml) (revision 37707) +++ WS/Vhisie4/Winkelkar/BewaarProductLijnRequest.cls.xml (.../BewaarProductLijnRequest.cls.xml) (revision 38854) @@ -53,6 +53,10 @@ TECH.String + +TECH.String + + %Library.CacheSerialState BewaarProductLijnRequestState @@ -91,6 +95,9 @@ ProductId + +PakketReferentie +