Dear Experts by Default $$Inwords:$amount 155557.00 One Lakh Fifty five thousand five hundred fifty seven only But I Want Lakhs Thousands Hundreds Tens Units One Fifty Five Five Fifty Seven How do Achieve it? Please Help
Dear Experts Please give any Idea for above Method I am Using $$StringWord But It is not come correct .
Code: [#Menu : Gateway of Tally] Add : Key Item : Before : @@LocQuit : Amount Digits in Words : M : Execute : VCS_AD Words : NOT $$IsEmpty:$$SelectedCmps [Report : VCS_AD Words] Form : VCS_AD Words [Form : VCS_AD Words] Part : VCS_AD Words Space Left : 2% Screen Width : 90% Screen [Part : VCS_AD Words] Line : VCS_ADW Amount Line : VCS_AD Words1 Line : VCS_AD Words2 Line : VCS_AD Words3 Line : VCS_AD Words4 Line : VCS_AD Words5 Line : VCS_AD Words6 [Line : VCS_ADW Amount] Field : Medium Prompt,VCS_ADW Amount Local : Field : Medium Prompt : Info : "Enter Amount:" [Field : VCS_ADW Amount] Use : Amount Field [Line : VCS_AD Words1] Field : Medium Prompt,VCS_AD Words1 Local : Field : Medium Prompt : Info : "Lakhs:" [Line : VCS_AD Words2] Field : Medium Prompt,VCS_AD Words2 Local : Field : Medium Prompt : Info : "Thousands:" [Line : VCS_AD Words3] Field : Medium Prompt,VCS_AD Words3 Local : Field : Medium Prompt : Info : "Hundreds:" [Line : VCS_AD Words4] Field : Medium Prompt,VCS_AD Words4 Local : Field : Medium Prompt : Info : "Tens:" [Line : VCS_AD Words5] Field : Medium Prompt,VCS_AD Words5 Local : Field : Medium Prompt : Info : "Units:" [Line : VCS_AD Words6] Field : VCS_AD Words6 [Field : VCS_AD Words1] Use : Name Field Set As : $$VCS_ADWords:#VCS_ADWAmount:"Lakh" Set Always : Yes Skip : Yes Full Width : Yes [Field : VCS_AD Words2] Use : Name Field Set As : $$VCS_ADWords:#VCS_ADWAmount:"Thousand" Set Always : Yes Skip : Yes Full Width : Yes [Field : VCS_AD Words3] Use : Name Field Set As : $$VCS_ADWords:#VCS_ADWAmount:"Hundred" Set Always : Yes Skip : Yes Full Width : Yes [Field : VCS_AD Words4] Use : Name Field Set As : $$VCS_ADWords:#VCS_ADWAmount:"Ten" Set Always : Yes Skip : Yes Full Width : Yes [Field : VCS_AD Words5] Use : Name Field Set As : $$VCS_ADWords:#VCS_ADWAmount:"Unit" Set Always : Yes Skip : Yes Full Width : Yes [Field : VCS_AD Words6] Use : Name Field Width : 3 Readonly : Yes [Function : VCS_AD Words] Parameter : ParmAmount : Number Parameter : ParmWord : String Variable : WordString : String Variable : AmountLength : Number Variable : VarAmount : Number Variable : VarLakh : Number Variable : VarThousand : Number Variable : VarHundred : Number Variable : VarTen : Number Variable : VarUnit : Number Return : String X01 : Set : WordString : $$String:##ParmAmount X02 : Set : WordString : $$ZeroFill:##WordString:6 X03 : Set : AmountLength : $$StringLength:##WordString A01 : Set : VarLakh : $$Number:($$StringPart:##WordString:0:(##AmountLength-5)) A02 : Set : VarThousand : $$Number:($$StringPart:##WordString:(##AmountLength-5):2) ;;(##AmountLength-4)) A03 : Set : VarHundred : $$Number:($$StringPart:##WordString:(##AmountLength-3):1) ;;(##AmountLength-5)) A04 : Set : VarTen : $$Number:($$StringPart:##WordString:(##AmountLength-2):1) * 10 ;;(##AmountLength-5)) * 10 A05 : Set : VarUnit : $$Number:($$StringPart:##WordString:(##AmountLength-1):1) ;;(##AmountLength-1)) 002 : If : ##ParmWord = "Lakh" 003 : Return : $$Inwords:##VarLakh 004 : End If 005 : If : ##ParmWord = "Thousand" 007 : Return : $$Inwords:##VarThousand 008 : End If 009 : If : ##ParmWord = "Hundred" 011 : Return : $$Inwords:##VarHundred 012 : End If 013 : If : ##ParmWord = "Ten" 015 : Return : $$Inwords:##VarTen 016 : End If 017 : If : ##ParmWord = "Unit" 019 : Return : $$Inwords:##VarUnit 020 : End If
