Code: Select all
Function RoundZ(nValue)
Return (Round(Round(nValue, 4), 2))
Code: Select all
Function RoundZ(nValue)
Return (Round(Round(nValue, 4), 2))
I am missing the "Hello World" in your applicationMy application is not as complex as this
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