Index: vhTest/Mock/AX/Uitgaand/PM/VrijgegProduct/impl/AliasConverter.cls.xml =================================================================== diff -u --- vhTest/Mock/AX/Uitgaand/PM/VrijgegProduct/impl/AliasConverter.cls.xml (revision 0) +++ vhTest/Mock/AX/Uitgaand/PM/VrijgegProduct/impl/AliasConverter.cls.xml (revision 48320) @@ -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.VrijgegProduct.impl.AliasConverter,Tools.Mock.MockClassBase +right + + +IdentNummer:%String +%String + + + + + + Index: AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter.cls.xml =================================================================== diff -u -r47984 -r48320 --- AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter.cls.xml (.../GenVrijgegProductDixfConverter.cls.xml) (revision 47984) +++ AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter.cls.xml (.../GenVrijgegProductDixfConverter.cls.xml) (revision 48320) @@ -157,6 +157,8 @@ Set ..AxProduct.Stopped = "Nee" Set ..AxProduct.UOMSeqGroupId = "STK" Set ..AxProduct.ADUPriceUnitNetPrice = ..AxProduct.InventTableModuleSalesPriceUnit + Set ..AxProduct.AltItemId = "" + Set ..AxProduct.UseAltItemId = "" Quit ..AxProduct ]]> Index: AX/Uitgaand/PM/VrijgegProduct/impl/AliasConverter.cls.xml =================================================================== diff -u -r48300 -r48320 --- AX/Uitgaand/PM/VrijgegProduct/impl/AliasConverter.cls.xml (.../AliasConverter.cls.xml) (revision 48300) +++ AX/Uitgaand/PM/VrijgegProduct/impl/AliasConverter.cls.xml (.../AliasConverter.cls.xml) (revision 48320) @@ -1,7 +1,7 @@ -TECH.RegisteredObject +TECH.RegisteredObject,TECH.Mockable IdentNummer:%String Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml =================================================================== diff -u -r47984 -r48320 --- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 47984) +++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 48320) @@ -8,6 +8,11 @@ 1000 + +AX.Uitgaand.PM.VrijgegProduct.impl.AliasConverter +1 + + AX.Uitgaand.PM.VrijgegProduct.impl.ArtikelGroepBepaler 1 @@ -57,6 +62,7 @@ Set ..BestelImpulsRepositoryMock = ##class(vhTest.Mock.DOM.AKP.BestelImpuls.impl.BestelImpulsRepository).%New() Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$True) Set ..ArtikelGroepBepaler = ##class(vhTest.Fake.AX.Uitgaand.PM.VrijgegProduct.impl.ArtikelGroepBepaler).%New() + Set ..AliasConverter = ##class(vhTest.Fake.AX.Uitgaand.PM.VrijgegProduct.impl.AliasConverter).%New() ]]> @@ -1512,86 +1518,73 @@ ]]> - - - - + - - - - - + - + @@ -2370,7 +2363,7 @@ 1 AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter - Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml =================================================================== diff -u -r47984 -r48320 --- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml (.../VrijgegProductDixfGenerator.cls.xml) (revision 47984) +++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml (.../VrijgegProductDixfGenerator.cls.xml) (revision 48320) @@ -145,6 +145,8 @@ Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemInventSetupOverride","InventItemInventSetup_Override") Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ADUPriceCodexGroupId","ADUPriceCodexGroupId") Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ADUPriceUnitNetPrice","ADUPriceUnitNetPrice") + Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "AltItemId","AltItemId") + Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "UseAltItemId","UseAltItemId") Set AXProductData.ScheidingsTeken = ";" Set AXProductData.Iterator = ProductIterator Index: AXdixf/VrijgegProduct/VrijgegProduct.cls.xml =================================================================== diff -u -r47984 -r48320 --- AXdixf/VrijgegProduct/VrijgegProduct.cls.xml (.../VrijgegProduct.cls.xml) (revision 47984) +++ AXdixf/VrijgegProduct/VrijgegProduct.cls.xml (.../VrijgegProduct.cls.xml) (revision 48320) @@ -11,23 +11,23 @@ %String - + %String - + %String - + %String - + %String - + %String @@ -47,14 +47,18 @@ %String - + %String - + %String + +%String + + %String @@ -83,11 +87,11 @@ %String - + %String - + %String @@ -439,17 +443,21 @@ %String - + %String - + %String - + %String + + +%String + Index: AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfGenerator.cls.xml =================================================================== diff -u -r47984 -r48320 --- AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfGenerator.cls.xml (.../GenVrijgegProductDixfGenerator.cls.xml) (revision 47984) +++ AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfGenerator.cls.xml (.../GenVrijgegProductDixfGenerator.cls.xml) (revision 48320) @@ -145,6 +145,8 @@ Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemInventSetupOverride","InventItemInventSetup_Override") Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ADUPriceCodexGroupId","ADUPriceCodexGroupId") Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ADUPriceUnitNetPrice","ADUPriceUnitNetPrice") + Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "AltItemId","AltItemId") + Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "UseAltItemId","UseAltItemId") Set AXProductData.ScheidingsTeken = ";" Set AXProductData.Iterator = ProductIterator Index: vhTest/Fake/AX/Uitgaand/PM/VrijgegProduct/impl/AliasConverter.cls.xml =================================================================== diff -u --- vhTest/Fake/AX/Uitgaand/PM/VrijgegProduct/impl/AliasConverter.cls.xml (revision 0) +++ vhTest/Fake/AX/Uitgaand/PM/VrijgegProduct/impl/AliasConverter.cls.xml (revision 48320) @@ -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.VrijgegProduct.impl.AliasConverter + + +IdentNummer:%String +%String + + + + + + Index: AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml =================================================================== diff -u -r48215 -r48320 --- AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml (.../PakketReferentiesDixfGenerator.cls.xml) (revision 48215) +++ AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml (.../PakketReferentiesDixfGenerator.cls.xml) (revision 48320) @@ -148,7 +148,7 @@ #dim SearchName As %String = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(EcoResProductTranslationName) Do ..ProductStream.WriteLine("2;0;;"_..NieuwArticleID_";;"_PakketNaam_";nl-be;"_EcoResProductTranslationName_";WMS;None;Nee;Nee;Product;Artikel;"_SearchName_";") - Do ..VrijgegProductStream.WriteLine(";;;;;;;;;1;STK;Batch;;;VHEPN1;Productie;"_..NieuwArticleID_";WMS;None;;;Nee;1;;VHEPN1;0;;;Nee;;Nee;Nee;1;;VHEPN1;;;Nee;;Nee;;Nee;CTP;;;VHEPN1;;;;Nee;;Nee;Nee;;;;;Nee;;;VHEPN1;Ja;;STK;Ja;0;G3;0;STK;Ja;;G3;STK;;Nee;HG;"_..NieuwArticleID_";CACHE;Artikel;;;SOPR;"_SearchName_";;;;Ja;Stuklijst;;Finish;CACHE;;;;;;;;Handmatig;CACHE;;;;;;;;"_SearchName_";Nee;STK;") + Do ..VrijgegProductStream.WriteLine(";;;;;;;;;1;;STK;Batch;;;VHEPN1;Productie;"_..NieuwArticleID_";WMS;None;;;Nee;1;;VHEPN1;0;;;Nee;;Nee;Nee;1;;VHEPN1;;;Nee;;Nee;;Nee;CTP;;;VHEPN1;;;;Nee;;Nee;Nee;;;;;Nee;;;VHEPN1;Ja;;STK;Ja;0;G3;0;STK;Ja;;G3;STK;;Nee;HG;"_..NieuwArticleID_";CACHE;Artikel;;;SOPR;"_SearchName_";;;;Ja;Stuklijst;;Finish;CACHE;;;;;;;;Handmatig;CACHE;;;;;;;;"_SearchName_";Nee;STK;;") Do ..WHSReservationHierarchyItemStream.WriteLine("vhbe;"_..NieuwArticleID_";5637144578") Do ..ExtArtOmschrStream.WriteLine("1;"_AxKlantNr_";"_PakketNaam_";;AllBlank;"_..NieuwArticleID_";04") Do ..ProductHierarchyStream.WriteLine(..NieuwArticleID_";Assortiment;3. Klantgebonden producten") Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml =================================================================== diff -u -r48301 -r48320 --- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 48301) +++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 48320) @@ -8,11 +8,6 @@ 1 - -%String -1 - - %String 1 @@ -104,7 +99,7 @@ -DataDefinitieService:BL.Prod.Kenmerk.DataDefinitieService,VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator,AXimplFormatter:AXimpl.Formatter,IsBasisProductFilter:AX.Uitgaand.PM.impl.IsBasisProductFilter,ArtikelGroepBepaler:AX.Uitgaand.PM.VrijgegProduct.impl.ArtikelGroepBepaler,ProductLegacyApi:DOM.PM.LegacyProductAPI +DataDefinitieService:BL.Prod.Kenmerk.DataDefinitieService,VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator,AXimplFormatter:AXimpl.Formatter,IsBasisProductFilter:AX.Uitgaand.PM.impl.IsBasisProductFilter,ArtikelGroepBepaler:AX.Uitgaand.PM.VrijgegProduct.impl.ArtikelGroepBepaler,ProductLegacyApi:DOM.PM.LegacyProductAPI,AliasConverter:AX.Uitgaand.PM.VrijgegProduct.impl.AliasConverter 1 1 %Status @@ -116,7 +111,7 @@ Set ..IsBasisProductFilter = $$$Inject(IsBasisProductFilter,##class(AX.Uitgaand.PM.impl.IsBasisProductFilter).%New()) Set ..ArtikelGroepBepaler = $$$Inject(ArtikelGroepBepaler,##class(AX.Uitgaand.PM.VrijgegProduct.impl.ArtikelGroepBepaler).%New()) Set ..ProductLegacyApi = $$$Inject(ProductLegacyApi,##class(DOM.DomeinContext).Instance().GeefLegacyProductAPI()) - Set ..AliasConverter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.AliasConverter).%New() + Set ..AliasConverter = $$$Inject(AliasConverter,##class(AX.Uitgaand.PM.VrijgegProduct.impl.AliasConverter).%New()) Set ..Utils = ##class(AXimpl.Utils).%New() Quit $$$OK ]]> @@ -222,9 +217,8 @@ Set ..AxProduct.SearchName = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(Product.Basis.KortTekst) Set ..AxProduct.Stopped = "Nee" Set ..AxProduct.UOMSeqGroupId = ..Utils.ConvertUOMSeqGroupId(Product) - ;Set ..AxProduct.AltItemId = ..BepaalAltItemId(Product) - ;Set ..AltItemId = ..AxProduct.AltItemId - ;Set ..AxProduct.UseAltItemId = ..BepaalUseAltItemId(Product) + Set ..AxProduct.AltItemId = $$$If(..IsBasisProductFilter.IsValid(Product),"",..AliasConverter.GeefAliasVoorIdentNummer(Product.Basis.IdentNummer)) + Set ..AxProduct.UseAltItemId = $$$If(..IsBasisProductFilter.IsValid(Product),"",($$$If($$$HasLength(..AxProduct.AltItemId),"3",""))) Set ..AxProduct.ADUProductVersion = "1" Set ..AxProduct.SalesInventLocationId = "CACHE" Set ..AxProduct.SalesSetupHighestQty = "" @@ -735,29 +729,6 @@ ]]> - -Product:AX.Uitgaand.PM.Product.impl.Product -1 -%String - - - - -Product:AX.Uitgaand.PM.Product.impl.Product -1 -%String - - - Product:AX.Uitgaand.PM.Product.impl.Product 1