tdl to change name of all inventories to CAPITAL LETTERS

tdl to change name of all inventories to CAPITAL LETTERS

 

You can write a small function.

 

Just try this one.......

Same logic can have number of applications....

Enjoy and explore...

Code:

[#Menu : GateWay Of Tally]
    Add : Key Item : At End : Capitalize StockItems     : C : CALL : Capitalize StockItems

[Function : Capitalize StockItems]
    Variable        :    pName        :    String
    Variable        :    pUName    :    String
   
001    :    Start Batch Post    :    500

010     :     WALK COLLECTION : MyItems

020    :    Set        :    pName                    :    $Name
030    :    Set        :    pUName                    :    $$Upper:##PName
035    :    Log        :    ##pUName

040    :     NEW OBJECT        : StockItem    : $Name     : False

050    :     Set Object        :    (StockItem, $Name).
060    :    SET TARGET

070    :    Set Value            : Name                        :    ##pUName

075    :     ALTER TARGET
080    :     SET TARGET        : ..   

085    : Log    :    $Name
090     : END WALK
100    : End Batch Post


   
[Collection: My Items]

    Use                 :     Alias Collection
    Type                :     StockItem
    Title               :     $$LocaleString:"List of Items"
    Fetch            :     Name

 

SIR WILL YOY PROVIDE TDL TO SHOW LEDGERS I NAMES IN PROPER CASE LIKE.

 

Sanjeevji,

I tried for Proper Case

030 : Set : pUName : $$Proper:##PName

or

030 : Set : pUName : $$CaseConvertroperCase:##PName

but not getting...
Please reply.

 

Sir,

Proper case attribute means first letter Caps and exceptions are and, etc, ...... The need is all caps hence $$Upper. Actually now all new codes are written as

Code:

$$CaseConvert:UpperCase:##PName

Regards,

 

If there will be progress bar is good

 

Share it boss.

 

030 : Set : pUName : $$CaseConvertroperCase:##PName

its working fine
030 : Set : pUName : $$CaseConvertroperCase:##PName

 

Yes
Working fine.
Thank you.

 

Sir, can I get the coding Sir. It will be very helpful to me.

Thanks in Advance Sir.

 

Please include your code it will help many for learning function progress.

 

Selected Stock Item Group : Stock Item Name : Convert

 

Selected Ledger Group : Ledger Name : Case Convert

 

Dear Sir,

Who is complete full code for all the level( Letter - Ledger ,Stock Items) tally uppercase and lowercase. I need the code for the same.
Request the code for in stock or ledger Name word first letter should have the capital letter. Kindly do the needful.

 

Sir, can you please share this code? With case option selection one...

 

sir i tried
030 : Set : pUName : $$proper:##PName
030 : Set : pUName : $$propercase:##PName

030 : Set : pUName : $$title:##PName
030 : Set : pUName : $$titlecase:##PName

030 : Set : pUName : $$CaseConvertroper:##PName
030 : Set : pUName : $$CaseConvertroperCase:##PName

nothing working
but

030 : Set : pUName : $$lower:##PName working only

 

;; jay shri ram
[#Menu: gateway of tally]
Add: Button: Mychangeledname

[Button:Mychangeledname]
Title:"Change Case"
key : Alt+ 2
Action: Execute: myGlname

[Report:myGlname]
Title:"change ledname"
Form:myGlname

[Form:myGlname]
Part:myGlname
On: Form Accept: Yes: call : myfuncall

[Part:myGlname]
Line: myGlname1

[Line: myGlname1]
Field: name title field , mygl
Local:Field: name title field : set as :"For Ledger "

[Field:mygl]
Use: name field
Table: mytable
Show Table: Always

[Collection : mytable]
Title: "Select case"
List Name: All capital , All lower , first upper case , Title case

[Function:myfuncall]
Variable: myvar : String
101 : Set: myvar : #mygl
102 : Walk Collection: ledger
103 : Set Target
104 : Set Target: languagename[1].
105 : Set Target: name[1].
106 : Set Value: name: if ##myvar = "All capital" then $$CaseConvert:AllCapital$$tgtobject:$name) else +
if ##myvar = "All lower" then $$CaseConvert:Alllower$$tgtobject:$name) else +
if ##myvar = "First upper case" then $$CaseConvert:FirstUpperCase$$tgtobject:$name) else +
if ##myvar = "Title case" then $$CaseConvert:TitleCase$$tgtobject:$name) else ($$tgtobject:$name)

107 : Set Target: ..
108 : Set Target : ..
109 : Alter Target
111 : End Walk
110 : Msg Box: "Restart Tally" : "For applying changes"

 

Did you noitce that If Ledger names are all capital then this code is coverting to only small cases the other cases are not working. Plz check once