Report 1401

njaiku · 2006-11-10

Hi,
To Everybody. When I run the report to display the Amount,
example
Amount = 20000
I need the Amount in words so I used the report (1401) in my report and it's working fine. It displays the Amount in words as
TWO THOUSAND RUPEES AND ZERO PAISA ONLY

But, I don't need to display this Zero Paisa in my report.

In case my amount is 2500.56, the it must display as
TWO THOUSAND FIVE HUNDRED AND FIFTY SIX PAISA ONLY

In case my amount is 2500.00, the it must display as
TWO THOUSAND RUPEES ONLY.

Is there any solution for this, I'm in need of urgent. Can anyone help me out.
Regards,
Jai

ara3n · 2006-11-10

hello njaiku

In the function FormatNoText you need change the code to this.

CLEAR(NoText);
NoTextIndex := 1;
NoText[1] := '****';

IF No < 1 THEN
  AddToNoText(NoText,NoTextIndex,PrintExponent,Text026)
ELSE BEGIN
  FOR Exponent := 4 DOWNTO 1 DO BEGIN
    PrintExponent := FALSE;
    Ones := No DIV POWER(1000,Exponent - 1);
    Hundreds := Ones DIV 100;
    Tens := (Ones MOD 100) DIV 10;
    Ones := Ones MOD 10;
    IF Hundreds > 0 THEN BEGIN
      AddToNoText(NoText,NoTextIndex,PrintExponent,OnesText[Hundreds]);
      AddToNoText(NoText,NoTextIndex,PrintExponent,Text027);
    END;
    IF Tens >= 2 THEN BEGIN
      AddToNoText(NoText,NoTextIndex,PrintExponent,TensText[Tens]);
      IF Ones > 0 THEN
        AddToNoText(NoText,NoTextIndex,PrintExponent,OnesText[Ones]);
    END ELSE
      IF (Tens * 10 + Ones) > 0 THEN
        AddToNoText(NoText,NoTextIndex,PrintExponent,OnesText[Tens * 10 + Ones]);
    IF PrintExponent AND (Exponent > 1) THEN
      AddToNoText(NoText,NoTextIndex,PrintExponent,ExponentText[Exponent]);
    No := No - (Hundreds * 100 + Tens * 10 + Ones) * POWER(1000,Exponent - 1);
  END;
END;
//S001 Start
if No <> 0 then begin
AddToNoText(NoText,NoTextIndex,PrintExponent,Text028);
AddToNoText(NoText,NoTextIndex,PrintExponent,FORMAT(No * 100) + '/100');
end;
//S001 End
IF CurrencyCode <> '' THEN
  AddToNoText(NoText,NoTextIndex,PrintExponent,CurrencyCode)
ELSE
  AddToNoText(NoText,NoTextIndex,PrintExponent,Text1020000);

njaiku · 2006-12-05

Hi,
Thank you very much. But when i used this code the result is tremendous bcoz

For 480,824 it displays as
Four Hundred Eighty thousand Eight Hundred twenty four Rupees

but actually i need it to be display as

Four Lakhs and Eighty thousand and Eight Hundred and Twenty four Rupees .

Another Example

For Rs 1 it displays as
One Rupees

but actually i need it to be display as
One Rupee.

Another Example is 2970.76
it displays as
Two thousand Nine Hundred seventy and 76/100 rupees.

but it need to be display as
Two thousand and Nine hundred and seventy rupees and seventy six paisa.
Please help me out for this solution

ara3n · 2006-12-05

well the new request you are asking to add Lakhs, which the western world doesn't have a name for. well it's 100 thousand.

I could write the code for you, but I believe you can use the example I have given you above and change it.

njaiku · 2006-12-07

Hi,
I have tried it with your coding, but i am not getting the result.Could you please help me out.

ara3n · 2006-12-07

Are you a developer or end user? Have you tried to modify the code?

David_Singleton · 2006-12-07

Microsoft India should have addressed this as a part of the Indian Localization. I would contact them, since printing of Checks correctly is generally considered as a legal requirement for the country version.

Report 1401

Comments

Categories