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))
]]>