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