When I use towords(), it returns a fraction at the end: "and xx/100". To remove this, create the following formula {@towords}:
left(towords({table.money}),instrrev(towords({table.money}),"and")-1) +"Dollars"
Then, if you want leading caps, you can use the following formula:
whileprintingrecords;
stringvar array x;
redim preserve x[ubound(x)+1];
numbervar counter := 0;
stringvar result := "";
x := split({@towords}," ");
for counter := 1 to ubound(x) do(
result := result + ucase(left(x[counter],1))+
mid(x[counter],2) + " ");
result;
This doesn't add in commas, but then I don't believe the commas are technically necessary--but maybe that's a matter of personal preference.
-LB