Hi Kevin,
I know it's probably old-fashioned, but this is how I do it


Function Sign_Transaction_Amt(nAmt,cTran_Type)


#define TRANSACTION_IS_A_DEBIT allt(upper(cTran_Type)) == 'DB'

if TRANSACTION_IS_A_DEBIT
nAmt = nAmt * -1
endif

return(nAmt)
endfunc

Cheers

Pete Kane