Index: zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfConverter.cls.xml
===================================================================
diff -u -r41316 -r41387
--- zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfConverter.cls.xml (.../TestProductDixfConverter.cls.xml) (revision 41316)
+++ zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfConverter.cls.xml (.../TestProductDixfConverter.cls.xml) (revision 41387)
@@ -48,8 +48,10 @@
// Set AxTestProduct. =
Set AxTestProduct.HoofdGroep = Product.Klassificatie.HoofdGroep
Set AxTestProduct.SubGroep = Product.Klassificatie.SubGroep
- Set AxTestProduct.Klas = Product.Klassificatie.Klas
+ Break
+ Set AxTestProduct.IdentNrAlias = $$ListToPieces^vhLib(##class(Prod.Kenmerk.DataDefinitie).Get("OEI",Product.Basis.%Id(),"AliasI"),",")
+
Set ..AxTestProduct = AxTestProduct
Set ..LeverancierNummer = ""
Quit ..AxTestProduct
Index: zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductIterator.cls.xml
===================================================================
diff -u -r41316 -r41387
--- zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductIterator.cls.xml (.../TestProductIterator.cls.xml) (revision 41316)
+++ zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductIterator.cls.xml (.../TestProductIterator.cls.xml) (revision 41387)
@@ -43,7 +43,7 @@
#Dim SqlStatement as %String
Set SqlStatement = "SELECT ID FROM Prod.Product WHERE isnull(Gentype,'')='' and KortTekst not like 'GEN%'"
// Indien nodig is hieronder een filter voorzien om het resultaat te beperken tot overzichtelijk, voor debugging:
- _" and ID in (1432226,1432225,1425096,1425095,682391,1359867,1168696,1168689,830507,1155640,161442,906194,709825,924268,"
+ _" and ID in (1379217,1432226,1432225,1425096,1425095,682391,1359867,1168696,1168689,830507,1155640,161442,906194,709825,924268,"
_"1124771,1038806,1039173,1039208,1247980,353741,353743,353744,254245,254258,1259381,161441,665626,1067709,1067714,268026,"
_"1168369,668615,878186,878220,1169509,1194443,383880,830257)"
Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
Index: zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfGenerator.cls.xml
===================================================================
diff -u -r41316 -r41387
--- zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfGenerator.cls.xml (.../TestProductDixfGenerator.cls.xml) (revision 41316)
+++ zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfGenerator.cls.xml (.../TestProductDixfGenerator.cls.xml) (revision 41387)
@@ -32,7 +32,7 @@
// Do AXTestProductData.VoegToeVeld("zTryout.THB.AXdixf.TestProduct.TestProduct", "")
Do AXTestProductData.VoegToeVeld("zTryout.THB.AXdixf.TestProduct.TestProduct", "HoofdGroep")
Do AXTestProductData.VoegToeVeld("zTryout.THB.AXdixf.TestProduct.TestProduct", "SubGroep")
- Do AXTestProductData.VoegToeVeld("zTryout.THB.AXdixf.TestProduct.TestProduct", "Klas")
+ Do AXTestProductData.VoegToeVeld("zTryout.THB.AXdixf.TestProduct.TestProduct", "IdentNrAlias")
Set AXTestProductData.ScheidingsTeken = ";"
Index: zTryout/THB/AXdixf/TestProduct/TestProduct.cls.xml
===================================================================
diff -u -r41316 -r41387
--- zTryout/THB/AXdixf/TestProduct/TestProduct.cls.xml (.../TestProduct.cls.xml) (revision 41316)
+++ zTryout/THB/AXdixf/TestProduct/TestProduct.cls.xml (.../TestProduct.cls.xml) (revision 41387)
@@ -72,7 +72,7 @@
%String
-
+
%String