Click to See Complete Forum and Search --> : [RESOLVED] Error in Crystal Reports formula


mel_flynn
June 24th, 2008, 05:09 PM
I am trying to figure out how many TenThousands; Thousands; Hundreds; Tens are in a Number. (Sum ({@Line Total}, {tblMemPay.Member}) being the number). I keep getting an Error - The remaining text does not appear to be part of the formula. Global CurrencyVar NoTenThou;
Global CurrencyVar NoThou;
Global CurrencyVar NoHund;
Global CurrencyVar NoTen;
Global CurrencyVar Remain;

if Sum ({@Line Total}, {tblMemPay.Member}) >= 10000 then
NoTenThou = int(Sum ({@Line Total}, {tblMemPay.Member})/10000)
//Error Here
Remain = NoTenThou Mod ToNumber((Sum ({@Line Total}, {tblMemPay.Member})/10000))
else if Sum ({@Line Total}, {tblMemPay.Member}) >= 1000 then
NoTenThou = 0
NoThou = int(Sum ({@Line Total}, {tblMemPay.Member})/1000)
Remain = NoThou Mod ToNumber((Sum ({@Line Total}, {tblMemPay.Member})/1000))

NoHund = int(remain/100)
Remain = NoHund Mod ToNumber(Remain/100)

NoTen = int(Remain/10)
else if Sum ({@Line Total}, {tblMemPay.Member}) >= 100 then
NoTenThou = 0
NoThou = 0

NoHund = int(remain/100)
Remain = NoHund Mod ToNumber(Remain/100)

NoTen = int(Remain/10)
else if Sum ({@Line Total}, {tblMemPay.Member}) >= 10 then
NoTenThou := 0
NoThou := 0
NoHund := 0
NoTen = int(Remain/10)
else if Sum ({@Line Total}, {tblMemPay.Member}) >= 1 then
NoTenThou := 0
NoThou := 0
NoHund := 0
NoTen := 0
End If Can someone please Help?

jggtz
June 25th, 2008, 02:07 AM
Please, say : CR version & if CR or VB syntax

If CR syntax probably you need to enclose between ( ) the statements after each THEN until before each ELSE

mel_flynn
June 25th, 2008, 06:07 AM
Thanks for the reply. Was missing the () alright.