Index: AX/Uitgaand/PM/Product/impl/ProductDixfConverter.cls.xml =================================================================== diff -u -r47243 -r47312 --- AX/Uitgaand/PM/Product/impl/ProductDixfConverter.cls.xml (.../ProductDixfConverter.cls.xml) (revision 47243) +++ AX/Uitgaand/PM/Product/impl/ProductDixfConverter.cls.xml (.../ProductDixfConverter.cls.xml) (revision 47312) @@ -3,19 +3,19 @@ TECH.RegisteredObject - -AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter + +AX.Uitgaand.PM.impl.IsBasisProductFilter 1 -GenerischOrgaluxProductFilter:AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter +IsBasisProductFilter:AX.Uitgaand.PM.impl.IsBasisProductFilter 1 1 %Status 1 @@ -29,18 +29,18 @@ Set AxProduct.ADUCalcTechnologyBOMBOL = ..BepaalADUCalcTechnologyBOMBOL(Product) Set AxProduct.ADUCertClaimLevel = ..BepaalADUCertClaimLevel(Product) Set AxProduct.DisplayProductNumber = Product.Basis.IdentNummer - Set AxProduct.EcoResProductDimensionGroupName = $$$If(..GenerischOrgaluxProductFilter.IsGenerischOrgaluxProduct(Product),"Con","") + Set AxProduct.EcoResProductDimensionGroupName = $$$If(..IsBasisProductFilter.IsValid(Product),"Con","") Set AxProduct.EcoResProductTranslationDescription = $Translate(Product.Tekst.GetOmschrijving("N"," "),";",",") Set AxProduct.EcoResProductTranslationLanguageId = "nl-be" Set AxProduct.EcoResProductTranslationName = Product.Basis.KortTekst Set AxProduct.EcoResStorageDimensionGroupName = "WMS" Set AxProduct.EcoResTrackingDimensionGroupName = "Batch" Set AxProduct.IsReuseConfigurationEnabled = "Nee" Set AxProduct.IsVariantGenerationEnabled = "Nee" - Set AxProduct.ProductSubType = $$$If(..GenerischOrgaluxProductFilter.IsGenerischOrgaluxProduct(Product),"ProductMaster","Product") + Set AxProduct.ProductSubType = $$$If(..IsBasisProductFilter.IsValid(Product),"ProductMaster","Product") Set AxProduct.ProductType = "Artikel" Set AxProduct.SearchName = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(Product.Basis.KortTekst) - Set AxProduct.VariantConfigurationTechnology = $$$If(..GenerischOrgaluxProductFilter.IsGenerischOrgaluxProduct(Product),"Vooraf gedefinieerde variant","") + Set AxProduct.VariantConfigurationTechnology = $$$If(..IsBasisProductFilter.IsValid(Product),"Vooraf gedefinieerde variant","") Quit AxProduct ]]> @@ -52,7 +52,7 @@ + + +TECH.RegisteredObject,TECH.Mockable + + +AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter +1 + + + +GenerischOrgaluxProductFilter:AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter +1 +1 +%Status +1 + + + + +Product:AX.Uitgaand.PM.Product.impl.Product +%Boolean + + + + + + Index: vhUnitTest/AX/Uitgaand/PM/impl/IsBasisProductFilter/Test.cls.xml =================================================================== diff -u --- vhUnitTest/AX/Uitgaand/PM/impl/IsBasisProductFilter/Test.cls.xml (revision 0) +++ vhUnitTest/AX/Uitgaand/PM/impl/IsBasisProductFilter/Test.cls.xml (revision 47312) @@ -0,0 +1,67 @@ + + + +vhUnitTest.TestCase + + +%String +1000 + + + +AX.Uitgaand.PM.impl.IsBasisProductFilter +1 + + + + + + + + + + + + + + + +1 +AX.Uitgaand.PM.Product.impl.Product + + + + +1 +AX.Uitgaand.PM.impl.IsBasisProductFilter + + + + + + Index: vhTest/Fake/AX/Uitgaand/PM/impl/IsBasisProductFilter.cls.xml =================================================================== diff -u --- vhTest/Fake/AX/Uitgaand/PM/impl/IsBasisProductFilter.cls.xml (revision 0) +++ vhTest/Fake/AX/Uitgaand/PM/impl/IsBasisProductFilter.cls.xml (revision 47312) @@ -0,0 +1,19 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +AX.Uitgaand.PM.impl.IsBasisProductFilter + + +Product:AX.Uitgaand.PM.Product.impl.Product +%Boolean + + + + + + Index: vhUnitTest/AX/Uitgaand/PM/Product/impl/ProductDixfConverter/Test.cls.xml =================================================================== diff -u -r46428 -r47312 --- vhUnitTest/AX/Uitgaand/PM/Product/impl/ProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 46428) +++ vhUnitTest/AX/Uitgaand/PM/Product/impl/ProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 47312) @@ -8,8 +8,8 @@ 1000 - -AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter + +AX.Uitgaand.PM.impl.IsBasisProductFilter 1 @@ -32,10 +32,10 @@ 1 AX.Uitgaand.PM.Product.impl.ProductDixfConverter - Index: vhTest/Mock/AX/Uitgaand/PM/impl/IsBasisProductFilter.cls.xml =================================================================== diff -u --- vhTest/Mock/AX/Uitgaand/PM/impl/IsBasisProductFilter.cls.xml (revision 0) +++ vhTest/Mock/AX/Uitgaand/PM/impl/IsBasisProductFilter.cls.xml (revision 47312) @@ -0,0 +1,20 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +AX.Uitgaand.PM.impl.IsBasisProductFilter,Tools.Mock.MockClassBase +right + + +Product:AX.Uitgaand.PM.Product.impl.Product +%Boolean + + + + + +