Character check total as word

Question

Hi all,
1. Anyone know how to expand character Check total as word (i.e. Ten Thousand Eight Hundred Dollar only) generating by system in Checks for payment program? If there have any setting or coding need to adjust?
2. How about maximum character is allow? I'm using SAP B1 2005 SP01 PL 45 and database Ms. SQL Server 2005. If there need to amend in database, how to adjust it?
Thanks in advance.
uddin
Edited by: Muhd Mahyuddin Zakaria on Feb 3, 2009 12:55 PM

Answer 1

Hi,
I don't know if any standard method is available for that, but you can use following code:
    Public Function AmtToWords(ByVal Amount As Single) As String
        Dim Paise, Rupees As Integer
        Dim Words As String
        Dim N1, N2 As Integer
        Rupees = Amount
        Select Case Rupees
            Case Is <= 9
                Words = Digit(Rupees)
            Case Is < 20
                Words = EleToNin(Rupees)
            Case Is < 100
                N2 = Rupees Mod 10
                N1 = (Rupees - N2) / 10
                Words = Ten(N1) & " " & IIf(N2 = 0, "", Digit(N2))
            Case Is < 1000
                N2 = Rupees Mod 100
                N1 = (Rupees - N2) / 100
                Words = Digit(N1) & " Hundred " & AmtToWords(N2)
            Case Is < 100000
                N2 = Rupees Mod 1000
                N1 = (Rupees - N2) / 1000
                Words = AmtToWords(N1) & " Thousand " & AmtToWords(N2)
            Case Is < 10000000
                N2 = Rupees Mod 100000
                N1 = (Rupees - N2) / 100000
                Words = AmtToWords(N1) & " Lakhs " & AmtToWords(N2)
        End Select
        Return Words
    End Function
    Public Function Digit(ByVal Number As Integer) As String
        Select Case Number
            Case 0
                Return ""
            Case 1
                Return "One"
            Case 2
                Return "Two"
            Case 3
                Return "Three"
            Case 4
                Return "Four"
            Case 5
                Return "Five"
            Case 6
                Return "Six"
            Case 7
                Return "Seven"
            Case 8
                Return "Eight"
            Case 9
                Return "Nine"
        End Select
    End Function
    Public Function Ten(ByVal Number As Integer) As String
        Select Case Number
            Case 1
                Return "Ten"
            Case 2
                Return "Twenty"
            Case 3
                Return "Thirty"
            Case 4
                Return "Fourty"
            Case 5
                Return "Fifty"
            Case 6
                Return "Sixty"
            Case 7
                Return "Seventy"
            Case 8
                Return "Eighty"
            Case 9
                Return "Ninety"
        End Select
    End Function
    Public Function EleToNin(ByVal Number As Integer) As String
        Select Case Number
            Case 10
                Return "Ten"
            Case 11
                Return "Eleven"
            Case 12
                Return "Twelve"
            Case 13
                Return "Thirteen"
            Case 14
                Return "Fourteen"
            Case 15
                Return "Fifteen"
            Case 16
                Return "Sixteen"
            Case 17
                Return "Seventeen"
            Case 18
                Return "Eighteen"
            Case 19
                Return "Nineteen"
        End Select
    End Function