473,386 Members | 1,766 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

home > topics > .net framework > questions > crystal report currency conversion

Join Bytes to post your question to a community of 473,386 software developers and data experts.

crystal report currency conversion

Hi, i am developing software in asp.net using vb coding and MS ACCESS database.

I created a crystal report for printing sales bill.

Now i need to convert currency into words and need to print. ex: 3,250 as "Three Thousand Two Hundred and Fifty only".

How can i write codings and make to print using crystal report.

Thanks in advance.
May 10 '07 #1
13 12477
dip_developer
648 Expert 512MB
Hi, i am developing software in asp.net using vb coding and MS ACCESS database.

I created a crystal report for printing sales bill.

Now i need to convert currency into words and need to print. ex: 3,250 as "Three Thousand Two Hundred and Fifty only".

How can i write codings and make to print using crystal report.

Thanks in advance.
crystal report has nothing to do your conversion.....you have to convert Currency in Words through code in your application....Then pass the string(e.g--"Three Thousand Two Hundred and Fifty only".) to crystal report as a parameter....

to convert your currency to word search google...many vb.net classes are available on NET for this conversion.....
May 10 '07 #2
Hi Perumal,
I used a formula field for this conversion. type the following code in it and try.

All the best.
Expand|Select|Wrap|Line Numbers
  1. if Split (cstr(Sum ({ExportView.Amount})),".")[2]="00" then 
  2.  
  3.    {ExportView.CurrencyName} + " " + ToWords (Sum ({ExportView.Amount}),0) + " Only "
  4.  
  5. else 
  6.     {ExportView.CurrencyName} + " " + ToWords (Sum ({ExportView.Amount}),0) + " and " 
  7.    + ToWords ((Round(Sum ({ExportView.Amount}),2)
  8.    - Int(Sum ({ExportView.Amount}))) * 100, 0) + " " + {ExportView.DecimalPart} + " only "
sudha
May 10 '07 #3
Hi Perumal,
i used a decimal number rounded to two decimal places and so used the above code which is perplexing. if you dont want to check the paise part ur code is like this.

Expand|Select|Wrap|Line Numbers
  1. "Rupees " + ToWords (Sum ({ExportView.Amount}),0) + " Only "
or else you find in the below url
"http://www.eggheadcafe.com/community/aspnet/14/10016490/convert-number-to-words.aspx"
with regards,
sudha
May 10 '07 #4
Hi Sudha,
Thanks for your reply.

I implemented your coding in my crystal report. but i am getting error in part + " " + before ToWords
And also i am not aware of Exportiew.Amount and ExportView.Currency.

could you please tell me the details of those fields.
May 11 '07 #5
Thanks.

Its working fine.

TRY THIS CODE
Expand|Select|Wrap|Line Numbers
  1. if split(cstr({tablename.fieldname)),".")[2]="00" then
  2.      replace(ToWords({tablename.fieldname},0)+ " only","-"," ")
  3. else
  4.      replace(ToWords(cdbl((tablename.fieldname})-cdbl(split(cstr({tablename.fieldname}),"."[2]/100),0) + " and " + ToWords(cdblsplit(cstr({tablename.fieldname}),"."[2]),0) + " paise only","-"," ")
May 12 '07 #6
Hi


I tried ur code and got error message as "The ) is missing". So, can u please tell me wat could be wrong.

Regards,
Pavithra.C
May 26 '07 #7
Hi pavithra,
Now try the following code
Expand|Select|Wrap|Line Numbers
  1. if split(cstr({tablename.fieldname}),".")[2]="00" then
  2. replace(ToWords({tablename.fieldname},0)+ " only","-"," ")
  3. else
  4. replace(ToWords(cdbl({tablename.fieldname})-cdbl(split(cstr({tablename.fieldname}),"."[2]/100),0)) + " and " + ToWords(cdblsplit(cstr({tablename.fieldname}),"."[2]),0) + " paise only","-"," ")
May 26 '07 #8
Expand|Select|Wrap|Line Numbers
  1. if split(cstr({tablename.fieldname}),".")[2]="00" then
  2. replace(ToWords({tablename.fieldname},0)+ " only","-"," ")
  3. else
  4. replace(ToWords(cdbl({tablename.fieldname})-cdbl(split(cstr({tablename.fieldname}),"."[2]/100),0)) + " and " + ToWords(cdblsplit(cstr({tablename.fieldname}),"."[2]),0) + " paise only","-"," ")

I have try your code but still there is error showing ) is missing out please sort out it's urgent
Sep 28 '07 #9
Hi

You try this code now

Expand|Select|Wrap|Line Numbers
  1. if split(cstr({tablename.fieldname}),".")[2]="00" then replace(ToWords({tablename.fieldname},0)+" only","-"," ")
  2. else
  3. replace(Towords((cdbl({tablename.fieldname})-cdbl(split(cstr({tablename.fieldname}),".")[2])/100),0)+" and " +ToWords(cdbl(split(cstr({tablename.fieldname}),".")[2]),0)+" paise only","-"," ")


Hope it will work.

If not you just mail me to perumalvps@gmail.com
Oct 4 '07 #10
sans
2
hai

I am santhanam

I need number to word convertion in crystal report for 100041.22

(one Lakh forty one and twentytwo only)
Jan 10 '08 #11
sans
2
hai

I am santhanam

I need a code for number to word convertion for 100041.22
Jan 10 '08 #12
It is worthless to post now but still for the sake of others who come to this link on searching.

You can do the same in the code behind as follows for ASP.NET

ASPX page:

Expand|Select|Wrap|Line Numbers
  1.   <form id="form1" runat="server">
  2.   <div>
  3.     <asp:TextBox ID="TextBox1" runat="server">
  4.     </asp:TextBox><asp:Button ID="Button1" runat="server" Text="Button" />
  5.   </div>
  6.   </form>
Code behind:

Expand|Select|Wrap|Line Numbers
  1. Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.     Response.Write(NumberToWords(CDbl(TextBox1.Text)))
  3.   End Sub
  4.   Public Function NumberToWords(ByVal OrigNum As Long) As String
  5.     'This function converts numbers to words. For example 101 -> One hundred and one
  6.     'It uses standard english notation and will only accept positive long numbers
  7.     Dim billionpart As Long
  8.     Dim millionpart As Long
  9.     billionpart = Int(OrigNum / 10000000)
  10.     millionpart = OrigNum Mod 10000000
  11.     NumberToWords = HundredsToWords(billionpart) & IIf(billionpart <> 0, " Crore", "")
  12.     If millionpart > 99 Then
  13.       NumberToWords = NumberToWords & IIf(millionpart <> 0 And billionpart <> 0, " ", "") & millionstowords(millionpart)
  14.     Else
  15.       NumberToWords = NumberToWords & IIf(millionpart <> 0 And billionpart <> 0, " and ", "") & millionstowords(millionpart)
  16.     End If
  17.   End Function
  18.  
  19.   Public Function millionstowords(ByVal millionnumber As Long)
  20.     Dim millionpart As Long
  21.     Dim thousandpart As Long
  22.     millionpart = Int(millionnumber / 100000)
  23.     thousandpart = millionnumber Mod 100000
  24.     millionstowords = HundredsToWords(millionpart) & IIf(millionpart <> 0, " Lac", "")
  25.     If thousandpart > 99 Then
  26.       millionstowords = millionstowords & IIf(thousandpart <> 0 And millionpart <> 0, " ", "") & thousandstowords(thousandpart)
  27.     Else
  28.       millionstowords = millionstowords & IIf(thousandpart <> 0 And millionpart <> 0, " and ", "") & thousandstowords(thousandpart)
  29.     End If
  30.   End Function
  31.  
  32.  
  33.   Public Function thousandstowords(ByVal thousandnumber As Long) As String
  34.     Dim thousandpart As Long
  35.     Dim HundredPart As Long
  36.     HundredPart = thousandnumber Mod 1000
  37.     thousandpart = Int(thousandnumber / 1000)
  38.     thousandstowords = HundredsToWords(thousandpart) & IIf(thousandpart <> 0, " thousand", "")
  39.     If HundredPart > 99 Then
  40.       thousandstowords = thousandstowords & IIf(HundredPart <> 0 And thousandpart <> 0, " ", "") & HundredsToWords(HundredPart)
  41.     Else
  42.       thousandstowords = thousandstowords & IIf(HundredPart <> 0 And thousandpart <> 0, " and ", "") & HundredsToWords(HundredPart)
  43.     End If
  44.   End Function
  45.  
  46.  
  47.   Public Function HundredsToWords(ByVal HundredNumber As Long) As String
  48.     'This function converts a three digit long to the hundred wording
  49.     Dim TensPart As Long
  50.     Dim HundredPart As Long
  51.     TensPart = HundredNumber Mod 100
  52.     HundredPart = Int(HundredNumber / 100)
  53.     Select Case HundredPart
  54.       Case 0
  55.         HundredsToWords = TensToWords(TensPart)
  56.       Case Else
  57.         HundredsToWords = SingleToWord(HundredPart) & " Hundred" & IIf(TensPart <> 0, " and ", "") & TensToWords(TensPart)
  58.     End Select
  59.   End Function
  60.  
  61.  
  62.   Public Function TensToWords(ByVal TensNumber As Long) As String
  63.     'This function converts a two digit long to a two digit wording
  64.     Dim tens As Long
  65.     Dim Singles As Long
  66.     tens = Int(TensNumber / 10)
  67.     Singles = TensNumber Mod 10
  68.     Select Case tens
  69.       Case 0
  70.         TensToWords = SingleToWord(Singles)
  71.       Case 1
  72.         TensToWords = teens(TensNumber)
  73.       Case 2
  74.         TensToWords = "Twenty" & IIf(Singles <> 0, " ", "") & SingleToWord(Singles)
  75.       Case 3
  76.         TensToWords = "Thirty" & IIf(Singles <> 0, " ", "") & SingleToWord(Singles)
  77.       Case 4
  78.         TensToWords = "Fourty" & IIf(Singles <> 0, " ", "") & SingleToWord(Singles)
  79.       Case 5
  80.         TensToWords = "Fifty" & IIf(Singles <> 0, " ", "") & SingleToWord(Singles)
  81.       Case 6
  82.         TensToWords = "Sixty" & IIf(Singles <> 0, " ", "") & SingleToWord(Singles)
  83.       Case 7
  84.         TensToWords = "Seventy" & IIf(Singles <> 0, " ", "") & SingleToWord(Singles)
  85.       Case 8
  86.         TensToWords = "Eighty" & IIf(Singles <> 0, " ", "") & SingleToWord(Singles)
  87.       Case 9
  88.         TensToWords = "Ninety" & IIf(Singles <> 0, " ", "") & SingleToWord(Singles)
  89.     End Select
  90.   End Function
  91.  
  92.  
  93.   Public Function SingleToWord(ByVal SingleDigit As Long) As String
  94.     Select Case SingleDigit
  95.       Case 1
  96.         SingleToWord = "One"
  97.       Case 2
  98.         SingleToWord = "Two"
  99.       Case 3
  100.         SingleToWord = "Three"
  101.       Case 4
  102.         SingleToWord = "Four"
  103.       Case 5
  104.         SingleToWord = "Five"
  105.       Case 6
  106.         SingleToWord = "Six"
  107.       Case 7
  108.         SingleToWord = "Seven"
  109.       Case 8
  110.         SingleToWord = "Eight"
  111.       Case 9
  112.         SingleToWord = "Nine"
  113.       Case 0
  114.         SingleToWord = ""
  115.     End Select
  116.   End Function
  117.  
  118.  
  119.   Public Function teens(ByVal TeenNumber As Long) As String
  120.     Select Case TeenNumber
  121.       Case 10
  122.         teens = "Ten"
  123.       Case 11
  124.         teens = "Eleven"
  125.       Case 12
  126.         teens = "Twelve"
  127.       Case 13
  128.         teens = "Thirteen"
  129.       Case 14
  130.         teens = "Fourteen"
  131.       Case 15
  132.         teens = "Fifteen"
  133.       Case 16
  134.         teens = "Sixteen"
  135.       Case 17
  136.         teens = "Seventeen"
  137.       Case 18
  138.         teens = "Eighteen"
  139.       Case 19
  140.         teens = "Nineteen"
  141.     End Select
  142.   End Function
  143.  
As far as I tested it wont work over 999999999 (1 Hundred Crores) but you can modify it accordingly and set limitations

Modified from <link snipped>
See Ya!
Sep 21 '10 #13
Thx a lot CandorZ for writing whole code.it help a lot to me.
Here I have done this Code in C#.NET,hope it will help to others who wants code in C#.


Expand|Select|Wrap|Line Numbers
  1. Protected Sub Button1_Click(object sender, EventArgs e) 
  2. {
  3.     Response.Write(NumberToWords(CDbl(TextBox1.Text)));
  4. }
  5.  
  6.   Public string NumberToWords(Long OrigNum)
  7.   {
  8.   'This function converts numbers to words. For example 101 -> One hundred and one
  9.     'It uses standard english notation and will only accept positive long numbers
  10.     Long bilionpart;
  11.     Long millionpart;
  12.  
  13.     billionpart = Convert.ToInt32(OrigNum / 10000000);
  14.     millionpart = OrigNum Mod 10000000;
  15.     NumberToWords = HundredsToWords(billionpart) & IIf(billionpart <> 0, " Crore", "")
  16.     If( millionpart > 99)
  17.       NumberToWords = NumberToWords & IIf(millionpart <> 0 And billionpart <> 0, " ", "") & millionstowords(millionpart);
  18.     Else
  19.       NumberToWords = NumberToWords & IIf(millionpart <> 0 And billionpart <> 0, " and ", "") & millionstowords(millionpart);
  20.     return NumberToWords;
  21.   }
  22.  
  23.   Public void millionstowords(Long millionnumber)
  24.     {
  25.         Long millionpart;
  26.         Long thousandpart;
  27.         millionpart = Convert.ToInt32(millionnumber / 100000);
  28.         thousandpart = millionnumber Mod 100000;
  29.         millionstowords = HundredsToWords(millionpart) & IIf(millionpart <> 0, " Lac", "");
  30.         If (thousandpart > 99)
  31.             millionstowords = millionstowords & IIf(thousandpart <> 0 And millionpart <> 0, " ", "") & thousandstowords(thousandpart);
  32.         Else
  33.         millionstowords = millionstowords & IIf(thousandpart <> 0 And millionpart <> 0, " and ", "") & thousandstowords(thousandpart);
  34.     }
  35.  
Feb 7 '14 #14

Sign in to post your reply or Sign up for a free account.

Similar topics

3
Crystal Reports
by: Ave | last post by:
Hi I am hoping someone can help me or even point me in the right direction, this problem has been doing my head in, I have a report which has 3 groups say currency, payment method and bankable,...
.NET Framework
3
mysql and crystal reports
by: oscar | last post by:
is there a way of integrating mysql databases into the .net crystal reports? in the report wizard i have options for sql databases, but nothing for mysql. is there a plugin i'm missing for it? ...
.NET Framework
3
Crystal Number Format Problem.
by: John H. | last post by:
Hi, Why if set a DataTable in Crystal Report Net Table with method SetDataSource, 'ReportDocument.SetDataSource(oDataTable)', lost the Number and Currency format with the decimal digits and...
.NET Framework
0
Crystal Report formatting problem..
by: Zoury | last post by:
Hi there ! :O) I'm having a two strange behaviors with Crystal Report which seems to have the same cause.. All the fields used in the reports comes from some SQL Server views. *** 1st...
.NET Framework
2
Crystal Report: Format Horizontal Alignment
by: blackdevil1979 | last post by:
Hello, Is there a way to format the data when it is passed into the Crystal Report(CR).. for example.. In the original table, a number may be left aligned, how to change it to right alignment?.....
Visual Basic .NET
3
VB.NET + Crystal report .
by: Agnes | last post by:
I got this error when I preview report in Vb.net "Unknown query Engine Error" Is that my crystal report got something wrong ??? or my SQL server is too slow to response ?? Thanks a lot From...
Visual Basic .NET
5
Crystal Report or MS Word?
by: jmar | last post by:
I posted a week ago and received one response. I'm looking for the opinion of several experienced .NET people before I proceed so I'm posting again. Sorry for the repost... I am updating a...
Visual Basic .NET
3
Crystal Reports.Net and Stored Procedures!
by: LataChavan | last post by:
I have tried to look for a solution to the problem of sending parameters to stored procedures through crystal report. Following is the code: Now what happens is that if i do not apply the logon...
General
0
How to have access to the fields in the crystal report using VB.NET (outside the design of the crystal report) with SQL statements?
by: amiga500 | last post by:
Hello, I am developing a crystal report called Expense Report (I am not an expert Crystal Report designer) if someone could help me in this problem I would be greatly appreciate it. The report...
.NET Framework
0
Easy Steps to Fix "Canon Printer Won't Connect to WiFi Network"
by: taylorcarr | last post by:
A Canon printer is a smart device known for being advanced, efficient, and reliable. It is designed for home, office, and hybrid workspace use and can also be used for a variety of purposes. However,...
General
0
How to turn on java script in a villaon keypad mobile phone
by: Charles Arthur | last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
Java
0
Merging data from multiple Excel files
by: ryjfgjl | last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
Data Management
0
BarryA
Navigating the Data Structures and Algorithms (DSA)
by: BarryA | last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
Algorithms / Advanced Math
1
Looking to do Android software development, any suggestions? Is flutter better?
by: nemocccc | last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
General
1
Is that possible of reading the .csv file in column wise and the column have different lengths ?
by: Sonnysonu | last post by:
This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...
C / C++
0
marktang
What is ONU?
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
General
0
Oralloy
Problem With Comparison Operator <=> in G++
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...
C / C++
0
jinu1996
Maximizing Business Potential: The Nexus of Website Design and Digital Marketing
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
Online Marketing

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.

BYTES.COM © 2024
About Bytes
Terms Of Use
Privacy Policy
Sitemap
Advertise on Bytes:
Post a Job
Sponsored Posts
Platinum & Gold Sponsors
Hire Now!