Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn/Test.cls.xml =================================================================== diff -u -r53535 -r61675 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn/Test.cls.xml (.../Test.cls.xml) (revision 53535) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn/Test.cls.xml (.../Test.cls.xml) (revision 61675) @@ -16,11 +16,9 @@ Do WinkelkarServiceMock.VerwachtMethodCall("VoegToeMaatwerk", "OfferteId", "MaatwerkLijn", EconMaatwerkLijn.IngegevenKenmerken, "", "", "LijnID", BewaarMaatwerkLijnRequest.EconConfiguratieSleutel,"").DanReturn(MaatwerkLijn) #dim OfferteMock As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New() - Do OfferteMock.VerwachtMethodCall("GeefPrijzenGeldigTotEnMetDatum").DanReturn($$$CurrentDate) #dim WinkelkarRepositoryMock As vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New() Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefWinkelkarIDViaID","ExterneId").DanReturn("OfferteId") - Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteViaID","ExterneId").DanReturn(OfferteMock) #dim WinkelkarLijnRepositoryMock As vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarLijnRepository = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarLijnRepository).%New() Do WinkelkarLijnRepositoryMock.VerwachtMethodCall("BestaatViaID", "LijnID").DanReturn($$$False) @@ -35,7 +33,7 @@ Do $$$AssertEquals(BewaarMaatwerkLijnResponse.AankoopPrijs, 5.00) Do $$$AssertEquals(BewaarMaatwerkLijnResponse.VerkoopPrijs, 10.00) Do $$$AssertEquals(BewaarMaatwerkLijnResponse.TotaalPrijs, 20.0) - Do $$$AssertEquals(BewaarMaatwerkLijnResponse.PrijzenGeldigTotEnMet, $$$CurrentDate) + Do $$$AssertEquals(BewaarMaatwerkLijnResponse.PrijzenGeldigTotEnMet, $$$CurrentDate+30) Do $$$AssertEquals(BewaarMaatwerkLijnResponse.UnishopKenmerken, MaatwerkLijn.IngegevenKenmerken) Do $$$AssertEquals(BewaarMaatwerkLijnResponse.KlantId, BewaarMaatwerkLijnRequest.Header.KlantId) @@ -46,7 +44,6 @@ Do EconConfiguratieConverterMock.Verifieer() Do WinkelkarRepositoryMock.Verifieer() Do WinkelkarServiceMock.Verifieer() - Do OfferteMock.Verifieer() Do ZijkantLogoValidatorMock.Verifieer() ]]> @@ -58,7 +55,6 @@ #dim WinkelkarRepositoryStub As vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New() Do WinkelkarRepositoryStub.IndienMethodCall("GeefWinkelkarIDViaID",$$$ElkeWaarde).DanReturn("OfferteId") - Do WinkelkarRepositoryStub.IndienMethodCall("GeefOfferteViaID", $$$ElkeWaarde).DanReturn(##class(vhTest.Fake.APPS.VKP.Offerte).%New()) #dim TeConverterenProduct As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New() #dim EconMaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..GeefEconMaatwerkLijn() Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml =================================================================== diff -u -r53535 -r61675 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml (.../BewaarMaatwerkLijn.cls.xml) (revision 53535) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml (.../BewaarMaatwerkLijn.cls.xml) (revision 61675) @@ -55,7 +55,6 @@ Do ..ValideerInput(BewaarMaatwerkLijnRequest) #dim WinkelkarId As %String = ..WinkelkarRepository.GeefWinkelkarIDViaID(BewaarMaatwerkLijnRequest.WinkelkarID) - #dim Offerte As APPS.VKP.impl.Offerte = ..WinkelkarRepository.GeefOfferteViaID(BewaarMaatwerkLijnRequest.WinkelkarID) #dim EconMaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..EconConfiguratieConverter.Convert(BewaarMaatwerkLijnRequest.EconConfiguratie) @@ -74,7 +73,7 @@ Set Response.AankoopPrijs = MaatwerkLijn.AankoopPrijs Set Response.LijstPrijs = MaatwerkLijn.LijstPrijs Set Response.TotaalPrijs = MaatwerkLijn.TotaalPrijs - Set Response.PrijzenGeldigTotEnMet = Offerte.GeefPrijzenGeldigTotEnMetDatum() + Set Response.PrijzenGeldigTotEnMet = ..GeefPrijzenGeldigTotEnMetDatum() Set Response.UnishopKenmerken = MaatwerkLijn.IngegevenKenmerken Set Response.LijnId = BewaarMaatwerkLijnRequest.LijnID Set Response.WinkelkarId = BewaarMaatwerkLijnRequest.WinkelkarID @@ -90,6 +89,13 @@ ]]> + +1 +%Date + + + BewaarMaatwerkLijnRequest:WS.Vhisie4.Winkelkar.BewaarMaatwerkLijnRequest 1