Crystal Report-Amount in Words Need correction and Delivery date.

Question

Dear Experts,
Issue 1
                        In crystal reports i'm converting Amount in to words using the following formula. In that i am getting Every thing in Uppercase with - i.e. RUPEES ONE THOUSAND-FIVE HUNDRED AND .
I need in Sentence case i.e all First Letters in Capital and also want to Remove '-'
Amount in Word
numbervar RmVal:=0;
numbervar Amt:=0;
numbervar pAmt:=0;
stringvar InWords :="Rupees ";
Amt := {OPOR.DocTotal};
if Amt > 10000000 then RmVal := truncate(Amt/10000000);
if Amt = 10000000 then RmVal := 1;
if RmVal = 1 then
InWords := InWords + " " + towords(RmVal,0) + " crore"
else
        if RmVal > 1 then InWords := InWords + " " + towords(RmVal,0) + " crores";
    Amt := Amt - Rmval * 10000000;
    if Amt > 100000 then RmVal := truncate(Amt/100000);
    if Amt = 100000 then RmVal := 1;
    if RmVal = 1 then
        InWords := InWords + " " + towords(RmVal,0) + " lakhs"
    Else
        If RmVal > 1 then InWords := InWords + " " + ToWords(RmVal,0) + "Lakhs";
        Amt := Amt - Rmval * 100000;
        if Amt > 0 then InWords := InWords + " " + towords(truncate(Amt),0);
        pAmt := (Amt - truncate(Amt)) * 100;
        if pAmt > 0 then
            InWords := InWords + " and " + towords(pAmt,0) + " paisa only"
        else
            InWords := InWords + " only";
        UPPERCASE(InWords)
Issue 2.
At Delivery terms I'm using the following formula to display the delivery data. If the document date and due date is same it will print Delivery Immediate otherwise it should calculate the Delivery date from document date, but now it's printing DocDue date.
I need to calculate Delivery Date = DocDuedate - DocDate. 
If {OPOR.DocDate} = {OPOR.DocDueDate} Then
    "2. Delivery immediate"
Else
    "2. Delivery on or before " &  {OPOR.DocDueDate}
Thanks
Kamal

Answer 1

Hi
Try this formula
numbervar RmVal:=0;
numbervar Amt:=0;
numbervar pAmt:=0;
stringvar InWords :="Rupees ";
Amt := {@GrandTotal} ;
if Amt > 10000000 then RmVal := truncate(Amt/10000000);
if Amt = 10000000 then RmVal := 1;
   if RmVal = 1 then
        InWords := InWords + " " + ProperCase (towords(RmVal,0)) + " crore"
   else
        if RmVal > 1 then InWords := InWords + " " + ProperCase (towords(RmVal,0)) + " crores";
    Amt := Amt - Rmval * 10000000;
    if Amt > 100000 then RmVal := truncate(Amt/100000);
    if Amt = 100000 then RmVal := 1;
    if RmVal = 1 then
        InWords := InWords + " " + ProperCase (towords(RmVal,0)) + " lakhs"
    Else
        If RmVal > 1 then InWords := InWords + " " + ProperCase (ToWords(RmVal,0)) + " Lakhs";
        Amt := Amt - Rmval * 100000;
        if Amt > 0 then InWords := InWords + " " + ProperCase (towords(truncate(Amt),0));
        pAmt := (Amt - truncate(Amt)) * 100;
        if pAmt > 0 then
            InWords := InWords + " and " + ProperCase (towords(pAmt,0)) + " paise only"
        else
            InWords := InWords + " only";
        ProperCase(InWords)
Regards
Vivek