Index: AX/Uitgaand/PM/impl/RunAll2a.cls.xml =================================================================== diff -u -r41580 -r41603 --- AX/Uitgaand/PM/impl/RunAll2a.cls.xml (.../RunAll2a.cls.xml) (revision 41580) +++ AX/Uitgaand/PM/impl/RunAll2a.cls.xml (.../RunAll2a.cls.xml) (revision 41603) @@ -14,7 +14,7 @@ Do ##class(AX.Uitgaand.PM.Product.impl.ProductDixfGenerator).%New().GenerateAll() Do ##class(AX.Uitgaand.PM.VestSpecOrdInst.impl.VestSpecOrdInstDixfGenerator).%New().GenerateAll("VanHoecke") Do ##class(AX.Uitgaand.PM.VestSpecOrdInst.impl.VestSpecOrdInstDixfGenerator).%New().GenerateAll("Halux") - Do ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfGenerator).%New().GenerateAll("VanHoecke") + //Do ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfGenerator).%New().GenerateAll("VanHoecke") Do ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfGenerator).%New().GenerateAll("Halux") Do ##class(AX.Uitgaand.PM.UOMConversie.impl.UOMConversieDixfGenerator).%New().GenerateAll() Do ##class(AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevDixfGenerator).%New().GenerateAll("VanHoecke") Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml =================================================================== diff -u -r41601 -r41603 --- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml (.../VrijgegProductDixfGenerator.cls.xml) (revision 41601) +++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml (.../VrijgegProductDixfGenerator.cls.xml) (revision 41603) @@ -28,8 +28,8 @@ Try { #dim ProductIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductIterator).%New(,Vestiging) do ..Generate(ProductIterator) - Write !,"Klaar. Aantal uren voor 23.500 producten: " - write $$TimeFromStart^vhLib()/60/60/41*23500 + Write !,"Klaar. Aantal uren voor ca. 23.500 producten: " + write $$TimeFromStart^vhLib()/60/60 // /41*23500 // Indien filter opstaat van 41 producten, aanpassen } Catch { Write ##class(TECH.ExceptionHandler).Catch().ToString() } Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIterator.cls.xml =================================================================== diff -u -r41594 -r41603 --- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIterator.cls.xml (.../VrijgegProductIterator.cls.xml) (revision 41594) +++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIterator.cls.xml (.../VrijgegProductIterator.cls.xml) (revision 41603) @@ -51,9 +51,9 @@ #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 (1175,1988,2865,1572233,16445091,432226,1432225,1425096,1425095,682391,1359867,1168696,1168689,830507,1155640,161442,906194,709825,924268," + /*_" and ID in (1175,1988,2865,1572233,16445091,432226,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)" + _"1168369,668615,878186,878220,1169509,1194443,383880,830257)"*/ Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement)) ]]>