Crystal Formula Help 1

[JBourne77]

"10" & LEFT({Data.GL Number} & SPACE(25),25) & LEFT({Data.Debit Amount} & SPACE(12),12) & LEFT({Data.Credit Amount} & SPACE(12),12)

Right now, my {Data.Debit Amount} and {Data.Credit Amount} are formatted incorrect and I sure could use some help, as I have a difficult client needing this yesterday. Right now, its coming out like this:

1002.1973.08PP             $0.00       $90.00

I need it to not print the "$", the decimal and if zero, just be blank, not reported as a 0.00

Any help is deeply appreciated.

 

[Turkbear]

Hi,
Can you explain why you are concatenating these ?

Are the Debit and Credit amount fields actually strings and not numbers? Why LEFT ?





To Paraphrase:"The Help you get is proportional to the Help you give.."

 

[JBourne77]

Turkbear,

Its for a flat file report and when I tried them as RIGHT, nothing showed.

Are the Debit and Credit amount fields actually strings and not numbers? - I don't know the answer to this one. How can I tell - they may be, due to how the SQL was done.

 

[JBourne77]

When I show the field type on the Debit and Credit fields, they show up as Currency.

 

[JBourne77]

WhilePrintingRecords;
Local StringVar D_Amount;
Local StringVar C_Amount;
If ({Data.Debit Amount}= 0) then
    D_Amount := Space(12)
Else
    D_Amount := Mid(CStr({Data.Debit Amount}) & Space(12),2,12);
If ({Data.Credit Amount}= 0) then
    D_Amount := Space(12)
Else
    D_Amount := Mid(CStr({Data.Credit Amount}) & Space(12),2,12);

"10" & LEFT({Data.GL Number} & SPACE(25),25) & D_Amount & C_Amount

I tried using the above code and I still see my decimal and comma. I additionally do not see my Debit's in my report.

In my original attempt, I pulled them both in as:

LEFT({Data.Debit Amount} & SPACE(12),12)

LEFT({Data.Credit Amount} & SPACE(12),12)

Can someone help me get the commas and decimal out and look over my coding?

 

[lbass]

Try:

"10" & LEFT({Data.GL Number} & SPACE(25),25) & LEFT(totext(tonumber({Data.Debit Amount}),0,"") & SPACE(12),12) & LEFT(totext(tonumber({Data.Credit Amount}),0,"") & SPACE(12),12)

-LB

 

[JBourne77]

lbass -

This is the closest I've come and I changed from Lefts to Right as I read the spec's alittle wrong. Can you help me eliminate the 0 (zero) output this is creating?

"10" & LEFT({Data.GL Number} & SPACE(25),25) & RIGHT(SPACE(12) & totext(tonumber({Data.Debit Amount}*100),0,""),12) & RIGHT(SPACE(12) & totext(tonumber({Data.Credit Amount}*100),0,""),12)

 

[JBourne77]

lbass -

I got it. THANKS!