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
Regards,
Peter J. Kane
Pete