Index: vhTest/Mock/DOM/PM/Maatwerk/MVX/DATA/StalenRugRepository.cls.xml =================================================================== diff -u -r62479 -r67669 --- vhTest/Mock/DOM/PM/Maatwerk/MVX/DATA/StalenRugRepository.cls.xml (.../StalenRugRepository.cls.xml) (revision 62479) +++ vhTest/Mock/DOM/PM/Maatwerk/MVX/DATA/StalenRugRepository.cls.xml (.../StalenRugRepository.cls.xml) (revision 67669) @@ -67,9 +67,9 @@ -LadeHoogte:%String,LadeKleur:%String,InterneBreedte:%String,RugHoogte:%String +LadeHoogte:%String,LadeKleur:%String,InterneBreedte:%String,RugHoogte:%String,KlantId:%String TECH.Iterator - Index: vhUnitTest/WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug/Test.cls.xml =================================================================== diff -u -r67667 -r67669 --- vhUnitTest/WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug/Test.cls.xml (.../Test.cls.xml) (revision 67667) +++ vhUnitTest/WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug/Test.cls.xml (.../Test.cls.xml) (revision 67669) @@ -9,15 +9,16 @@ #dim LadeKleur As %String = "OG-M" #dim InterneBreedte As %String = "5556" #dim RugHoogte As %String = "M" + #dim KlantId As %String = "6819" Set LegeIterator = ##class(TECH.StringIterator).%New("") - #dim Request As WS.ECON.Kenmerken.StalenRug.BestaatStalenRugRequest = ..GeefRequest(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte) + #dim Request As WS.ECON.Kenmerken.StalenRug.BestaatStalenRugRequest = ..GeefRequest(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte, KlantId) Set Request.LadeVariant = "LBX" Set StalenRugRepository = ##class(vhTest.Mock.DOM.PM.Maatwerk.LBX.DATA.StalenRugRepository).%New() - Do StalenRugRepository.VerwachtMethodCall("ZoekStalenRugViaKenmerken",LadeHoogte,LadeKleur,InterneBreedte, RugHoogte).DanReturn(LegeIterator) + Do StalenRugRepository.VerwachtMethodCall("ZoekStalenRugViaKenmerken",LadeHoogte,LadeKleur,InterneBreedte, RugHoogte, KlantId).DanReturn(LegeIterator) Set StalenRugService = ##class(WSimpl.ECON.Kenmerken.StalenRuggenService.BestaatStalenRug).%New(StalenRugRepository,) #dim Response As WS.ECON.Kenmerken.StalenRug.BestaatStalenRugResponse = StalenRugService.BestaatStalenRug(Request) @@ -32,15 +33,16 @@ #dim LadeKleur As %String = ##class(DOM.PM.enu.MVXLadeKleur).Oriongrijs() #dim InterneBreedte As %String = "5556" #dim RugHoogte As %String = ##class(DOM.PM.enu.MVXRugHoogte).E() + #dim KlantId As %String = "6819" Set LegeIterator = ##class(TECH.StringIterator).%New("") - #dim Request As WS.ECON.Kenmerken.StalenRug.BestaatStalenRugRequest = ..GeefRequest(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte) + #dim Request As WS.ECON.Kenmerken.StalenRug.BestaatStalenRugRequest = ..GeefRequest(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte, KlantId) Set Request.LadeVariant = "MVX" Set StalenRugRepository = ##class(vhTest.Mock.DOM.PM.Maatwerk.MVX.DATA.StalenRugRepository).%New() - Do StalenRugRepository.VerwachtMethodCall("ZoekStalenRugViaKenmerken",LadeHoogte,LadeKleur,InterneBreedte, RugHoogte).DanReturn(LegeIterator) + Do StalenRugRepository.VerwachtMethodCall("ZoekStalenRugViaKenmerken",LadeHoogte,LadeKleur,InterneBreedte, RugHoogte, KlantId).DanReturn(LegeIterator) Set StalenRugService = ##class(WSimpl.ECON.Kenmerken.StalenRuggenService.BestaatStalenRug).%New(,StalenRugRepository) #dim Response As WS.ECON.Kenmerken.StalenRug.BestaatStalenRugResponse = StalenRugService.BestaatStalenRug(Request) Index: DOM/PM/Maatwerk/LBX/DATA/StalenRugRepository.cls.xml =================================================================== diff -u -r61360 -r67669 --- DOM/PM/Maatwerk/LBX/DATA/StalenRugRepository.cls.xml (.../StalenRugRepository.cls.xml) (revision 61360) +++ DOM/PM/Maatwerk/LBX/DATA/StalenRugRepository.cls.xml (.../StalenRugRepository.cls.xml) (revision 67669) @@ -9,13 +9,13 @@ -LadeHoogte:%String,LadeKleur:%String,InterneBreedte:%String,RugHoogte:%String +LadeHoogte:%String,LadeKleur:%String,InterneBreedte:%String,RugHoogte:%String,KlantId:%String TECH.Iterator = ? or GeldigTOT is NULL) and (GeldigVan <= ? or GeldigVan is NULL)", $LB(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte, HuidigeDatum, HuidigeDatum)) + Quit ..ZoekViaFilter("LadeHoogte = ? and LadeKLeur = ? and InterneBreedte = ? and RugHoogte = ? and RugWandMateriaal = 'Staal' and (GeldigTot >= ? or GeldigTOT is NULL) and (GeldigVan <= ? or GeldigVan is NULL) and (Klantbeperking IS NULL or Klantbeperking = ?)", $LB(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte, HuidigeDatum, HuidigeDatum, KlantId)) ]]> Index: vhTest/Fake/DOM/PM/Maatwerk/LBX/DATA/StalenRugRepository.cls.xml =================================================================== diff -u -r61385 -r67669 --- vhTest/Fake/DOM/PM/Maatwerk/LBX/DATA/StalenRugRepository.cls.xml (.../StalenRugRepository.cls.xml) (revision 61385) +++ vhTest/Fake/DOM/PM/Maatwerk/LBX/DATA/StalenRugRepository.cls.xml (.../StalenRugRepository.cls.xml) (revision 67669) @@ -16,8 +16,7 @@ Data:TECH.Persistent - + @@ -42,14 +41,12 @@ ID:%String - + Data:TECH.Persistent - + Index: vhTest/Mock/DOM/PM/Maatwerk/LBX/DATA/StalenRugRepository.cls.xml =================================================================== diff -u -r61385 -r67669 --- vhTest/Mock/DOM/PM/Maatwerk/LBX/DATA/StalenRugRepository.cls.xml (.../StalenRugRepository.cls.xml) (revision 61385) +++ vhTest/Mock/DOM/PM/Maatwerk/LBX/DATA/StalenRugRepository.cls.xml (.../StalenRugRepository.cls.xml) (revision 67669) @@ -67,9 +67,9 @@ -LadeHoogte:%String,LadeKleur:%String,InterneBreedte:%String,RugHoogte:%String +LadeHoogte:%String,LadeKleur:%String,InterneBreedte:%String,RugHoogte:%String,KlantId:%String TECH.Iterator - Index: WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug.cls.xml =================================================================== diff -u -r67667 -r67669 --- WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug.cls.xml (.../BestaatStalenRug.cls.xml) (revision 67667) +++ WSimpl/ECON/Kenmerken/StalenRuggenService/BestaatStalenRug.cls.xml (.../BestaatStalenRug.cls.xml) (revision 67669) @@ -43,13 +43,13 @@ #dim LadeKleur As TECH.String = Request.LadeKleur #dim InterneBreedte As TECH.String = Request.InterneBreedte #dim RugHoogte As TECH.String = Request.RugHoogte + #dim KlantId As %String = ..GeefKlantIdVanRequest(Request) If (Request.LadeVariant = "LBX") { - Set StalenRugIterator = ..StalenRugRepositoryLBX.ZoekStalenRugViaKenmerken(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte) + Set StalenRugIterator = ..StalenRugRepositoryLBX.ZoekStalenRugViaKenmerken(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte, KlantId) } ElseIf (Request.LadeVariant = "MVX") { - Set StalenRugIterator = ..StalenRugRepositoryMVX.ZoekStalenRugViaKenmerken(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte) + Set StalenRugIterator = ..StalenRugRepositoryMVX.ZoekStalenRugViaKenmerken(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte, KlantId) } ElseIf (Request.LadeVariant = "TBX") { - #dim KlantId As %String = ..GeefKlantIdVanRequest(Request) Set StalenRugIterator = ..StalenRugRepositoryTBX.ZoekStalenRugViaKenmerken(RugHoogte, LadeKleur, InterneBreedte, KlantId) } Index: DOM/PM/Maatwerk/MVX/DATA/StalenRugRepository.cls.xml =================================================================== diff -u -r62478 -r67669 --- DOM/PM/Maatwerk/MVX/DATA/StalenRugRepository.cls.xml (.../StalenRugRepository.cls.xml) (revision 62478) +++ DOM/PM/Maatwerk/MVX/DATA/StalenRugRepository.cls.xml (.../StalenRugRepository.cls.xml) (revision 67669) @@ -9,13 +9,13 @@ -LadeHoogte:%String,LadeKleur:%String,InterneBreedte:%String,RugHoogte:%String +LadeHoogte:%String,LadeKleur:%String,InterneBreedte:%String,RugHoogte:%String,KlantId:%String TECH.Iterator = ? or GeldigTOT is NULL) and (GeldigVan <= ? or GeldigVan is NULL)", $LB(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte, HuidigeDatum, HuidigeDatum)) + Quit ..ZoekViaFilter("LadeHoogte = ? and LadeKLeur = ? and InterneBreedte = ? and RugHoogte = ? and RugWandMateriaal = 'Staal' and (GeldigTot >= ? or GeldigTOT is NULL) and (GeldigVan <= ? or GeldigVan is NULL) and (Klantbeperking IS NULL or Klantbeperking = ?)", $LB(LadeHoogte, LadeKleur, InterneBreedte, RugHoogte, HuidigeDatum, HuidigeDatum, KlantId)) ]]>