Index: zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductIterator.cls.xml
===================================================================
diff -u -r41387 -r41511
--- zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductIterator.cls.xml (.../TestProductIterator.cls.xml) (revision 41387)
+++ zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductIterator.cls.xml (.../TestProductIterator.cls.xml) (revision 41511)
@@ -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 (1379217,1432226,1432225,1425096,1425095,682391,1359867,1168696,1168689,830507,1155640,161442,906194,709825,924268,"
+ _" and ID in (1641390,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/AXdixf/TestProduct/TestProduct.cls.xml
===================================================================
diff -u -r41387 -r41511
--- zTryout/THB/AXdixf/TestProduct/TestProduct.cls.xml (.../TestProduct.cls.xml) (revision 41387)
+++ zTryout/THB/AXdixf/TestProduct/TestProduct.cls.xml (.../TestProduct.cls.xml) (revision 41511)
@@ -64,6 +64,10 @@
]]>
+
+%String
+
+
%String
Index: zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfGenerator.cls.xml
===================================================================
diff -u -r41387 -r41511
--- zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfGenerator.cls.xml (.../TestProductDixfGenerator.cls.xml) (revision 41387)
+++ zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfGenerator.cls.xml (.../TestProductDixfGenerator.cls.xml) (revision 41511)
@@ -30,6 +30,7 @@
// Hieronder kunnen de niet-default velden bijgevoegd worden (Zie ook klasse: zTryout.THB.AXdixf.TestProduct.TestProduct):
// Do AXTestProductData.VoegToeVeld("zTryout.THB.AXdixf.TestProduct.TestProduct", "")
+ Do AXTestProductData.VoegToeVeld("zTryout.THB.AXdixf.TestProduct.TestProduct", "Ontdek")
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", "IdentNrAlias")
Index: zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfConverter.cls.xml
===================================================================
diff -u -r41387 -r41511
--- zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfConverter.cls.xml (.../TestProductDixfConverter.cls.xml) (revision 41387)
+++ zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfConverter.cls.xml (.../TestProductDixfConverter.cls.xml) (revision 41511)
@@ -46,6 +46,10 @@
// Te ontdekken velden:
// Set AxTestProduct. =
+ #dim VoorraadBewegingObject As Prod.VoorraadBewegingRepository = ##class(Prod.VoorraadBewegingRepository).%New().GeefViaID(AxTestProduct.ID_"||"_$order(^PRHIST(AxTestProduct.ID,"")))
+ #dim Formatter As AX.common.impl.Formatter = ##class(AX.common.impl.Formatter).%New()
+ //Set AxTestProduct.Ontdek = Formatter.FormatDate(VoorraadBewegingObject.Datum) // Omzetting naar dd-mm-yyy, indien nodig als check.
+ Set AxTestProduct.Ontdek = VoorraadBewegingObject.Datum
Set AxTestProduct.HoofdGroep = Product.Klassificatie.HoofdGroep
Set AxTestProduct.SubGroep = Product.Klassificatie.SubGroep
Break