ListEnumerator listIterator;List _id;Container con;_id = Contract.parmPurchId();listIterator = _id.getEnumerator();while (listIterator.moveNext()){ con += listIterator.current();}
internal final class Demo
{
MyTable myTable;
static Array fieldIds;
public static void main(Args _args)
{
new Demo().run();
}
static void typeNew()
{
fieldIds = new Array(Types::Integer);
fieldIds.value(1, fieldNum(MyTable, Field1));
fieldIds.value(2, fieldNum(MyTable, Field2));
fieldIds.value(3, fieldNum(MyTable, Field3));
fieldIds.value(4, fieldNum(MyTable, Field4));
fieldIds.value(5, fieldNum(MyTable, Field5));
}
private void run()
{
List list = this.createList();
System.Int32[] array = this.listToClrArray(list);
System.Array::Sort(array);
this.setFieldValuesFromArray(array);
}
private List createList()
{
List l = new List(Types::Integer);
l.addEnd(1);
l.addEnd(3);
l.addEnd(5);
l.addEnd(2);
l.addEnd(4);
l.addEnd(7);
l.addEnd(8);
l.addEnd(18);
l.addEnd(12);
l.addEnd(10);
l.addEnd(11);
l.addEnd(14);
l.addEnd(13);
l.addEnd(19);
return l;
}
private System.Int32[] listToClrArray(List _list)
{
System.Int32[] array = new System.Int32[_list.elements()]();
int i;
ListEnumerator enumerator = _list.getEnumerator();
while (enumerator.moveNext())
{
array.Set(i, enumerator.current());
i++;
}
return array;
}
private void setFieldValuesFromArray(System.Int32[] _array)
{
int valueIdx;
int colIdx;
int rowIdx, previousRowIdx;
int fieldCount = fieldIds.lastIndex();
System.Collections.IEnumerator enumerator = _array.GetEnumerator();
while (enumerator.MoveNext())
{
int value = enumerator.Current;
valueIdx++;
rowIdx = ((valueIdx - 1) div fieldCount) + 1;
if (rowIdx != previousRowIdx)
{
if (previousRowIdx)
{
myTable.insert();
}
myTable.clear();
previousRowIdx = rowIdx;
}
if (rowIdx div 2)
{
colIdx = fieldCount - (valueIdx mod fieldCount);
}
else
{
colIdx = (valueIdx mod fieldCount);
}
myTable.(fieldIds.value(colIdx)) = value;
}
// Save the last row, if any.
if (rowIdx)
{
myTable.insert();
}
}
}
André Arnaud de Cal...
291,965
Super User 2025 Season 1
Martin Dráb
230,836
Most Valuable Professional
nmaenpaa
101,156