make a new array for display:
Code: Select all
FOR J=1 To Len(aArreglo)
if (p := AScan(aNew, {|a| a[1] == aArreglo[J][1]}) == 0
** not in aNew
AAdd(aNew, aArreglo[J])
else
** add quantity to existing item
aNew[p][3] += aArreglo[J][3]
endif
NEXT