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