UNKNOWN '************************************** ' Name: Currency to text Conversion ' Description:Converts the Currency to T ' ext. For Ex: 100.90 is converted as one ' hundred dollars and ninety cents only. ' By: Dasari. Ravi Kumar(r&d; teamworks) ' ' ' Inputs:none ' ' Returns:String ' 'Assumes:Insert a formula field in cryst ' al reports and Paste the Code and replac ' e the currencyfield in the code with any reportfield whose datatype is currency or Integer. ' 'Side Effects:None 'This code is copyrighted and has limite ' d warranties. 'Please see http://www.Planet-Source-Cod ' e.com/xq/ASP/txtCodeId.4804/lngWId.1/qx/ ' vb/scripts/ShowCode.htm 'for details. '************************************** if right(totext({currencyfield}),2) = '00' then uppercase(left(towords(truncate({currencyfield}),0)+' ' +'dollars'+' '+ 'only',1)) + right(towords(truncate({currencyfield}),0)+' ' +'dollars' + ' ' + 'only',length(towords(truncate({currencyfield}),0)+' ' + 'dollars' +' '+ 'only') -1) else towords(truncate({currencyfield}),0) +' '+'dollars'+' '+ 'and'+' ' +towords(tonumber(right(TOTEXT({currencyfield}),2)),0)+' '+'cents'+ ' ' + 'only'