Index: vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml =================================================================== diff -u -r48177 -r48586 --- vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml (.../Test.cls.xml) (revision 48177) +++ vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml (.../Test.cls.xml) (revision 48586) @@ -1742,7 +1742,25 @@ Set AxProduct.Basis.HerbestelSurplus = "" Set AxProduct.Basis.HerbestelAfronding = "" Set AxProduct.Basis.LinkType = "S" - + + #dim IteratorMockKind As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockKind.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockKind.IndienMethodCall("HasNext").DanReturn($$$False) + + #dim IteratorMockHF As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockHF.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockHF.IndienMethodCall("HasNext").DanReturn($$$False) + + Set ProductImplMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() + Do ProductImplMock.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(IteratorMockKind) + Do ProductImplMock.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(IteratorMockHF) + Do ProductImplMock.IndienMethodCall("GeefGenerischProductID").DanReturn("") + + Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() + Do ProductApiMock.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductImplMock) + + Set ..ProductApi = ProductApiMock + #dim Converter As AXimpl.Utils = ..GeefConverter() #dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct) @@ -1763,6 +1781,24 @@ Set AxProduct.Basis.HerbestelSurplus = "5" Set AxProduct.Basis.HerbestelAfronding = "" + #dim IteratorMockKind As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockKind.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockKind.IndienMethodCall("HasNext").DanReturn($$$False) + + #dim IteratorMockHF As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockHF.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockHF.IndienMethodCall("HasNext").DanReturn($$$False) + + Set ProductImplMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() + Do ProductImplMock.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(IteratorMockKind) + Do ProductImplMock.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(IteratorMockHF) + Do ProductImplMock.IndienMethodCall("GeefGenerischProductID").DanReturn("") + + Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() + Do ProductApiMock.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductImplMock) + + Set ..ProductApi = ProductApiMock + #dim Converter As AXimpl.Utils = ..GeefConverter() #dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct) @@ -1782,7 +1818,25 @@ Set AxProduct.Basis.StockNietStock = "1" Set AxProduct.Basis.HerbestelSurplus = "" Set AxProduct.Basis.HerbestelAfronding = "5" - + + #dim IteratorMockKind As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockKind.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockKind.IndienMethodCall("HasNext").DanReturn($$$False) + + #dim IteratorMockHF As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockHF.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockHF.IndienMethodCall("HasNext").DanReturn($$$False) + + Set ProductImplMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() + Do ProductImplMock.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(IteratorMockKind) + Do ProductImplMock.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(IteratorMockHF) + Do ProductImplMock.IndienMethodCall("GeefGenerischProductID").DanReturn("") + + Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() + Do ProductApiMock.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductImplMock) + + Set ..ProductApi = ProductApiMock + #dim Converter As AXimpl.Utils = ..GeefConverter() #dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct) @@ -1808,6 +1862,24 @@ Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux + #dim IteratorMockKind As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockKind.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockKind.IndienMethodCall("HasNext").DanReturn($$$False) + + #dim IteratorMockHF As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockHF.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockHF.IndienMethodCall("HasNext").DanReturn($$$False) + + Set ProductImplMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() + Do ProductImplMock.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(IteratorMockKind) + Do ProductImplMock.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(IteratorMockHF) + Do ProductImplMock.IndienMethodCall("GeefGenerischProductID").DanReturn("") + + Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() + Do ProductApiMock.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductImplMock) + + Set ..ProductApi = ProductApiMock + #dim Converter As AXimpl.Utils = ..GeefConverter() #dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct) @@ -1831,7 +1903,25 @@ Set AxProduct.Basis.LinkType = "HH" Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux - + + #dim IteratorMockKind As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockKind.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockKind.IndienMethodCall("HasNext").DanReturn($$$False) + + #dim IteratorMockHF As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockHF.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockHF.IndienMethodCall("HasNext").DanReturn($$$False) + + Set ProductImplMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() + Do ProductImplMock.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(IteratorMockKind) + Do ProductImplMock.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(IteratorMockHF) + Do ProductImplMock.IndienMethodCall("GeefGenerischProductID").DanReturn("") + + Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() + Do ProductApiMock.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductImplMock) + + Set ..ProductApi = ProductApiMock + #dim Converter As AXimpl.Utils = ..GeefConverter() #dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct) @@ -1855,7 +1945,25 @@ Set AxProduct.Basis.LinkType = "HH" Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux - + + #dim IteratorMockKind As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockKind.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockKind.IndienMethodCall("HasNext").DanReturn($$$False) + + #dim IteratorMockHF As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockHF.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockHF.IndienMethodCall("HasNext").DanReturn($$$False) + + Set ProductImplMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() + Do ProductImplMock.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(IteratorMockKind) + Do ProductImplMock.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(IteratorMockHF) + Do ProductImplMock.IndienMethodCall("GeefGenerischProductID").DanReturn("") + + Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() + Do ProductApiMock.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductImplMock) + + Set ..ProductApi = ProductApiMock + #dim Converter As AXimpl.Utils = ..GeefConverter() #dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct) @@ -1879,7 +1987,25 @@ Set AxProduct.Basis.LinkType = "HH" Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux - + + #dim IteratorMockKind As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockKind.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockKind.IndienMethodCall("HasNext").DanReturn($$$False) + + #dim IteratorMockHF As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockHF.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockHF.IndienMethodCall("HasNext").DanReturn($$$False) + + Set ProductImplMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() + Do ProductImplMock.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(IteratorMockKind) + Do ProductImplMock.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(IteratorMockHF) + Do ProductImplMock.IndienMethodCall("GeefGenerischProductID").DanReturn("") + + Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() + Do ProductApiMock.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductImplMock) + + Set ..ProductApi = ProductApiMock + #dim Converter As AXimpl.Utils = ..GeefConverter() #dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct) @@ -1903,7 +2029,25 @@ Set AxProduct.Basis.LinkType = "HH" Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux - + + #dim IteratorMockKind As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockKind.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockKind.IndienMethodCall("HasNext").DanReturn($$$False) + + #dim IteratorMockHF As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockHF.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockHF.IndienMethodCall("HasNext").DanReturn($$$False) + + Set ProductImplMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() + Do ProductImplMock.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(IteratorMockKind) + Do ProductImplMock.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(IteratorMockHF) + Do ProductImplMock.IndienMethodCall("GeefGenerischProductID").DanReturn("") + + Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() + Do ProductApiMock.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductImplMock) + + Set ..ProductApi = ProductApiMock + #dim Converter As AXimpl.Utils = ..GeefConverter() #dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct) @@ -1927,7 +2071,25 @@ Set AxProduct.Basis.LinkType = "HH" Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux - + + #dim IteratorMockKind As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockKind.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockKind.IndienMethodCall("HasNext").DanReturn($$$False) + + #dim IteratorMockHF As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockHF.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockHF.IndienMethodCall("HasNext").DanReturn($$$False) + + Set ProductImplMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() + Do ProductImplMock.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(IteratorMockKind) + Do ProductImplMock.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(IteratorMockHF) + Do ProductImplMock.IndienMethodCall("GeefGenerischProductID").DanReturn("") + + Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() + Do ProductApiMock.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductImplMock) + + Set ..ProductApi = ProductApiMock + #dim Converter As AXimpl.Utils = ..GeefConverter() #dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct) @@ -1951,7 +2113,25 @@ Set AxProduct.Basis.LinkType = "HH" Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux - + + #dim IteratorMockKind As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockKind.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockKind.IndienMethodCall("HasNext").DanReturn($$$False) + + #dim IteratorMockHF As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockHF.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockHF.IndienMethodCall("HasNext").DanReturn($$$False) + + Set ProductImplMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() + Do ProductImplMock.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(IteratorMockKind) + Do ProductImplMock.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(IteratorMockHF) + Do ProductImplMock.IndienMethodCall("GeefGenerischProductID").DanReturn("") + + Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() + Do ProductApiMock.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductImplMock) + + Set ..ProductApi = ProductApiMock + #dim Converter As AXimpl.Utils = ..GeefConverter() #dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct) @@ -1975,7 +2155,25 @@ Set AxProduct.Basis.LinkType = "HH" Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux - + + #dim IteratorMockKind As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockKind.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockKind.IndienMethodCall("HasNext").DanReturn($$$False) + + #dim IteratorMockHF As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockHF.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockHF.IndienMethodCall("HasNext").DanReturn($$$False) + + Set ProductImplMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() + Do ProductImplMock.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(IteratorMockKind) + Do ProductImplMock.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(IteratorMockHF) + Do ProductImplMock.IndienMethodCall("GeefGenerischProductID").DanReturn("") + + Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() + Do ProductApiMock.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductImplMock) + + Set ..ProductApi = ProductApiMock + #dim Converter As AXimpl.Utils = ..GeefConverter() #dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct) @@ -1999,7 +2197,25 @@ Set AxProduct.Basis.LinkType = "HH" Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux - + + #dim IteratorMockKind As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockKind.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockKind.IndienMethodCall("HasNext").DanReturn($$$False) + + #dim IteratorMockHF As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockHF.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockHF.IndienMethodCall("HasNext").DanReturn($$$False) + + Set ProductImplMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() + Do ProductImplMock.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(IteratorMockKind) + Do ProductImplMock.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(IteratorMockHF) + Do ProductImplMock.IndienMethodCall("GeefGenerischProductID").DanReturn("") + + Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() + Do ProductApiMock.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductImplMock) + + Set ..ProductApi = ProductApiMock + #dim Converter As AXimpl.Utils = ..GeefConverter() #dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct) @@ -2023,7 +2239,25 @@ Set AxProduct.Basis.LinkType = "HH" Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux - + + #dim IteratorMockKind As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockKind.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockKind.IndienMethodCall("HasNext").DanReturn($$$False) + + #dim IteratorMockHF As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockHF.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockHF.IndienMethodCall("HasNext").DanReturn($$$False) + + Set ProductImplMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() + Do ProductImplMock.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(IteratorMockKind) + Do ProductImplMock.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(IteratorMockHF) + Do ProductImplMock.IndienMethodCall("GeefGenerischProductID").DanReturn("") + + Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() + Do ProductApiMock.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductImplMock) + + Set ..ProductApi = ProductApiMock + #dim Converter As AXimpl.Utils = ..GeefConverter() #dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct) @@ -2047,7 +2281,25 @@ Set AxProduct.Basis.LinkType = "HH" Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux - + + #dim IteratorMockKind As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockKind.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockKind.IndienMethodCall("HasNext").DanReturn($$$False) + + #dim IteratorMockHF As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New() + Do IteratorMockHF.IndienMethodCall("Reset").DanDoeNiks() + Do IteratorMockHF.IndienMethodCall("HasNext").DanReturn($$$False) + + Set ProductImplMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() + Do ProductImplMock.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(IteratorMockKind) + Do ProductImplMock.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(IteratorMockHF) + Do ProductImplMock.IndienMethodCall("GeefGenerischProductID").DanReturn("") + + Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() + Do ProductApiMock.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductImplMock) + + Set ..ProductApi = ProductApiMock + #dim Converter As AXimpl.Utils = ..GeefConverter() #dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct) @@ -2056,18 +2308,78 @@ ]]> - + + + + +