CR Help
-
Anyone know where i can get some good help with a CR problem it is pretty advanced stuff. James Kennelly
-
Anyone know where i can get some good help with a CR problem it is pretty advanced stuff. James Kennelly
is it a programming related cr question? if so, ask away. you can always register to try sample chapters from Brian Bischoff's Crystal Reports and .Net book as well... or try the crystal/business objects knowledgebase.
-jim
-
is it a programming related cr question? if so, ask away. you can always register to try sample chapters from Brian Bischoff's Crystal Reports and .Net book as well... or try the crystal/business objects knowledgebase.
-jim
Ok you asked for it This converts decimals to fractions for reporting but when you have a whole number with out a decimal it display X 1/1 behind it and i am trying to only display the whole number in that case. Good Luck NumberVar Dec; NumberVar Zeroes; NumberVar Denom; NumberVar Numerator; NumberVar Whole; NumberVar CommonDenom; StringVar StringDec; StringVar FinalNumerator; StringVar FinalDenom; StringVar Fraction; //Initialize the Decimal. Dec := CDbl ({PROPOSAL.HEIGHT}); //Convert the Integer to a String to retrieve the Decimal value. StringDec := ToText (Dec - (Truncate (Dec)), 10); //Remove the trailing zeroes and get the exponent. If StringDec [12] <> "0" then Zeroes := 10; If StringDec [12] = "0" then Zeroes := 9 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" then Zeroes := 8 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" and StringDec [10] = "0" Then Zeroes := 7 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" and StringDec [10] = "0" and StringDec [9] = "0" Then Zeroes := 6 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" and StringDec [10] = "0" and StringDec [9] = "0" and StringDec [8] = "0" Then Zeroes := 5 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" and StringDec [10] = "0" and StringDec [9] = "0" and StringDec [8] = "0" and StringDec [7] = "0" Then Zeroes := 4 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" and StringDec [10] = "0" and StringDec [9] = "0" and StringDec [8] = "0" and StringDec [7] = "0" and StringDec [6] = "0" Then Zeroes := 3 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" and StringDec [10] = "0" and StringDec [9] = "0" and StringDec [8] = "0" and StringDec [7] = "0" and StringDec [6] = "0" and StringDec [5] = "0" Then Zeroes := 2 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" and StringDec [10] = "0" and StringDec [9] = "0" and StringDec [8] = "0" and StringDec [7] = "0" and StringDec [6] = "0" and StringDec [5] = "0" and StringDec [4] = "0" Then Zeroes := 1 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" and StringDec [10] = "0" and StringDec [9] = "0" and StringDec [8] = "0" and StringDec [7] = "0" and StringDec [6] = "0" and StringDec [5] = "0" and StringDe
-
Ok you asked for it This converts decimals to fractions for reporting but when you have a whole number with out a decimal it display X 1/1 behind it and i am trying to only display the whole number in that case. Good Luck NumberVar Dec; NumberVar Zeroes; NumberVar Denom; NumberVar Numerator; NumberVar Whole; NumberVar CommonDenom; StringVar StringDec; StringVar FinalNumerator; StringVar FinalDenom; StringVar Fraction; //Initialize the Decimal. Dec := CDbl ({PROPOSAL.HEIGHT}); //Convert the Integer to a String to retrieve the Decimal value. StringDec := ToText (Dec - (Truncate (Dec)), 10); //Remove the trailing zeroes and get the exponent. If StringDec [12] <> "0" then Zeroes := 10; If StringDec [12] = "0" then Zeroes := 9 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" then Zeroes := 8 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" and StringDec [10] = "0" Then Zeroes := 7 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" and StringDec [10] = "0" and StringDec [9] = "0" Then Zeroes := 6 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" and StringDec [10] = "0" and StringDec [9] = "0" and StringDec [8] = "0" Then Zeroes := 5 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" and StringDec [10] = "0" and StringDec [9] = "0" and StringDec [8] = "0" and StringDec [7] = "0" Then Zeroes := 4 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" and StringDec [10] = "0" and StringDec [9] = "0" and StringDec [8] = "0" and StringDec [7] = "0" and StringDec [6] = "0" Then Zeroes := 3 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" and StringDec [10] = "0" and StringDec [9] = "0" and StringDec [8] = "0" and StringDec [7] = "0" and StringDec [6] = "0" and StringDec [5] = "0" Then Zeroes := 2 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" and StringDec [10] = "0" and StringDec [9] = "0" and StringDec [8] = "0" and StringDec [7] = "0" and StringDec [6] = "0" and StringDec [5] = "0" and StringDec [4] = "0" Then Zeroes := 1 Else Zeroes := Zeroes; If StringDec [12] = "0" and StringDec [11] = "0" and StringDec [10] = "0" and StringDec [9] = "0" and StringDec [8] = "0" and StringDec [7] = "0" and StringDec [6] = "0" and StringDec [5] = "0" and StringDe
alright, i may be oversimplifying this and might be way off base, so correct me if i'm wrong, but couldn't you just evaluate whether or not the FinalNumerator and FinalDenom are equal?
//Build the Fraction Whole := (Truncate (Dec)); If Whole = 0 Then FinalNumerator + "/" + FinalDenom else if FinalNumerator = FinalDenom Then Cstr(Whole) else ToText (Whole, 0) + " " + FinalNumerator + "/" + FinalDenom;i'm not a crystal scripting expert by any means, so if this doesn't make any sense i apologize.
-jim
-
alright, i may be oversimplifying this and might be way off base, so correct me if i'm wrong, but couldn't you just evaluate whether or not the FinalNumerator and FinalDenom are equal?
//Build the Fraction Whole := (Truncate (Dec)); If Whole = 0 Then FinalNumerator + "/" + FinalDenom else if FinalNumerator = FinalDenom Then Cstr(Whole) else ToText (Whole, 0) + " " + FinalNumerator + "/" + FinalDenom;i'm not a crystal scripting expert by any means, so if this doesn't make any sense i apologize.
-jim
Jim, That works it does give me a .00 but I am working on types to try to remove it. I was trying to make it much harder than that. Thank you James Kennelly