1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Code request for Local TDL enable option in F11 Addon

Discussion in 'Requests' started by kapil22, Jul 18, 2018.

    
Tags:
  1. kapil22

    kapil22 Member


    Dear Experts,

    Please help to provide code for local tdl enable option in F11 addon

    thanks
     
    kapil22, Jul 18, 2018
    #1


  2. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Code:
    [#Part: CMP TallyShopFeaturesTitle]
    Add    : Line    : After        : CMP TallyShopFeaturesTitle    : MyLocalTDLModule
   
    [Line    : MyLocalTDL Module]
        Field    : Long Prompt, MyLocalTDL Module   
        Local    : Field    : Long Prompt    : Info    : $$LocaleString:"Enable my Local TDL ?"
        Local    : Field    : Long Prompt    : Width    : 50

        [Field    : MyLocalTDL Module]
        Use    : Logical Field
        Storage    : IsMyLocalTDLModuleOn

[System: UDF]
    IsMyLocalTDLModuleOn    : Logical    : 101
     
    Amit Kamdar, Jul 18, 2018
    #2


  3. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Also Add this...

    [System : Formula]
    IsMyLocalTDLModuleOn : Yes
     
    Amit Kamdar, Jul 18, 2018
    #3


  4. kapil22

    kapil22 Member


    Error of Memory violation

    code as follow:

    [#Part: CMP TallyShopFeaturesTitle]
    Add : Line : After : CMP TallyShopFeaturesTitle : MyLocalTDLModule

    [Line : MyLocalTDL Module]
    Field : Long Prompt, MyLocalTDL Module
    Local : Field : Long Prompt : Info : $$LocaleString:"Enable Width Increase of Ledger and Inventory ?"
    Local : Field : Long Prompt : Width : 50

    [Field : MyLocalTDL Module]
    Use : Logical Field
    Storage : IsMyLocalTDLModuleOn

    [System: UDF]
    IsMyLocalTDLModuleOn : Logical : 101

    [System : Formula]
    IsMyLocalTDLModuleOn : Yes



    [System : Formula]
    isEnhancedFieldsOn: Yes

    [#Field: EI Desc]
    Add: Option: Enhanced Ei Desc: @@isEnhancedFieldsOn

    [!Field : Enhanced Ei Desc]
    Add: Max: 1000
    Add: Width: 50

    Option: Ei Desc Print: Not $$inPrintMode
    Add: Lines: 0
    Add: Align: Justified

    [!Field : Ei Desc Print]
    Add: FullWidth: Yes
    Add: Lines: 1


    [#Field: DSP VchNumberTitle]
    Add: Option: Enhanced VNum: @@isEnhancedFieldsOn

    [#Field: DSP VchNumber]
    Add: Option: Enhanced VNum: @@isEnhancedFieldsOn

    [#Field: BILLRef]
    Add: Option: Enhanced VNum: @@isEnhancedFieldsOn

    [#Field : VCH Short Title]
    Add: Option: Enhanced VNum: @@isEnhancedFieldsOn

    [#Field: VCHBILL Name]
    Add: Option: Enhanced VNum: @@isEnhancedFieldsOn

    [#Field: VCH Ref]
    Add: Option: Enhanced VNum: @@isEnhancedFieldsOn

    [!Field : Enhanced VNum]
    Add: Width: 25


    [#Field: Voucher Name Field]
    Add : Option: Enhanced Voucher Name: @@isEnhancedFieldsOn

    [#Field: Master Name Field]
    Add : Option: Enhanced Voucher Name: @@isEnhancedFieldsOn

    [#Field: Item Name Field]
    Add : Option: Enhanced Voucher Name: @@isEnhancedFieldsOn


    [!Field : Enhanced Voucher Name]
    Add: Width: 70
    Add: Max: 1000



    [#Field : VCH Narration]
    Add: Option: Enhanced Narration: @@isEnhancedFieldsOn

    [!Field : Enhanced Narration]
    Add: FullWidth: Yes
    Add: Max: 1000
    Add: Lines: 3





    [#Collection: List of Stock Items]

    Use : Alias Collection
    Title : $$LocaleString:"List of Stock Items"
    Type : Stock Item
    Fetch : Name
    Report : Stock Item
    Variable : SStockItem
    Trigger : SStockItem
    IsODBCTable : Yes
    Delete : Format
    Add : Format : $Name,60
    Add : SubTitle : $$LocaleString:"PRODUCT", "Category", "GROUP", "%", "Cost", "LSP", "CL Qty"
    Add :Format : $Category
    Fetch :Category
    Add :Format : $parent
    Fetch :parent
    Add :Format : $GSTIGSTRate
    Fetch :GSTIGSTRate
    Add :Format : $Standardcost
    Fetch :standardcost
    Add :Format : $LastSalePrice
    Fetch :LastSalePrice
    Add :Format : $closingbalance
    Fetch :closingbalance

    [#Collection: List of Ledgers]

    Use : Alias Collection
    Title : $$LocaleString:"List of Ledgers"
    Type : ledger
    Fetch : Name
    Report : ledger
    Variable : Sledger
    Trigger : Sledger
    IsODBCTable : Yes
    Delete : Format
    Add : Format : $Name,60
    Add : SubTitle : $$LocaleString:"Ledger Name","Group","CL Bal"
    Add : Format : $parent
    Fetch : parent
    Add : Format : $ClosingBalance
    Fetch : ClosingBalance


    [#Collection : VLedTable]

    Use : Alias Collection
    Title : $$LocaleString:"List of Ledger Accounts"
    Type : ledger
    Fetch : Name
    Report : ledger
    Variable: Sledger
    Trigger : Sledger
    IsODBCTable : Yes
    Delete : Format
    Add : Format : $Name
    Add : SubTitle : $$LocaleString:"Ledger Name","Group", "CL Balance"
    Add : Format : $parent
    Fetch : parent
    Add : Format : $ClosingBalance
    Fetch : ClosingBalance
     
    kapil22, Jul 18, 2018
    #4


  5. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Remove all @@isEnhancedFieldsOn

    and replace with ............. @@IsMyLocalTDLModuleOn
     
    Amit Kamdar, Jul 18, 2018
    #5


  6. kapil22

    kapil22 Member


    thank you :) wow
     
    kapil22, Jul 18, 2018
    #6


  7. kapil22

    kapil22 Member


    Not working still problem exist

    [#Part: CMP TallyShopFeaturesTitle]
    Add : Line : After : CMP TallyShopFeaturesTitle : MyLocalTDLModule

    [Line : MyLocalTDL Module]
    Field : Long Prompt, MyLocalTDL Module
    Local : Field : Long Prompt : Info : $$LocaleString:"Enable Width Increase of Ledger and Inventory ?"
    Local : Field : Long Prompt : Width : 50

    [Field : MyLocalTDL Module]
    Use : Logical Field
    Storage : IsMyLocalTDLModuleOn

    [System: UDF]
    IsMyLocalTDLModuleOn : Logical : 101

    [System : Formula]
    IsMyLocalTDLModuleOn : Yes



    [System : Formula]
    IsMyLocalTDLModuleOn: Yes

    [#Field: EI Desc]
    Add: Option: Enhanced Ei Desc: @@IsMyLocalTDLModuleOn

    [!Field : Enhanced Ei Desc]
    Add: Max: 1000
    Add: Width: 50

    Option: Ei Desc Print: Not $$inPrintMode
    Add: Lines: 0
    Add: Align: Justified

    [!Field : Ei Desc Print]
    Add: FullWidth: Yes
    Add: Lines: 1


    [#Field: DSP VchNumberTitle]
    Add: Option: Enhanced VNum: @@IsMyLocalTDLModuleOn

    [#Field: DSP VchNumber]
    Add: Option: Enhanced VNum: @@IsMyLocalTDLModuleOn

    [#Field: BILLRef]
    Add: Option: Enhanced VNum: @@IsMyLocalTDLModuleOn

    [#Field : VCH Short Title]
    Add: Option: Enhanced VNum: @@IsMyLocalTDLModuleOn

    [#Field: VCHBILL Name]
    Add: Option: Enhanced VNum: @@IsMyLocalTDLModuleOn

    [#Field: VCH Ref]
    Add: Option: Enhanced VNum: @@IsMyLocalTDLModuleOn

    [!Field : Enhanced VNum]
    Add: Width: 25


    [#Field: Voucher Name Field]
    Add : Option: Enhanced Voucher Name: @@IsMyLocalTDLModuleOn

    [#Field: Master Name Field]
    Add : Option: Enhanced Voucher Name: @@IsMyLocalTDLModuleOn

    [#Field: Item Name Field]
    Add : Option: Enhanced Voucher Name: @@IsMyLocalTDLModuleOn


    [!Field : Enhanced Voucher Name]
    Add: Width: 70
    Add: Max: 1000



    [#Field : VCH Narration]
    Add: Option: Enhanced Narration: @@IsMyLocalTDLModuleOn

    [!Field : Enhanced Narration]
    Add: FullWidth: Yes
    Add: Max: 1000
    Add: Lines: 3





    [#Collection: List of Stock Items]

    Use : Alias Collection
    Title : $$LocaleString:"List of Stock Items"
    Type : Stock Item
    Fetch : Name
    Report : Stock Item
    Variable : SStockItem
    Trigger : SStockItem
    IsODBCTable : Yes
    Delete : Format
    Add : Format : $Name,60
    Add : SubTitle : $$LocaleString:"PRODUCT", "Category", "GROUP", "%", "Cost", "LSP", "CL Qty"
    Add :Format : $Category
    Fetch :Category
    Add :Format : $parent
    Fetch :parent
    Add :Format : $GSTIGSTRate
    Fetch :GSTIGSTRate
    Add :Format : $Standardcost
    Fetch :standardcost
    Add :Format : $LastSalePrice
    Fetch :LastSalePrice
    Add :Format : $closingbalance
    Fetch :closingbalance

    [#Collection: List of Ledgers]

    Use : Alias Collection
    Title : $$LocaleString:"List of Ledgers"
    Type : ledger
    Fetch : Name
    Report : ledger
    Variable : Sledger
    Trigger : Sledger
    IsODBCTable : Yes
    Delete : Format
    Add : Format : $Name,60
    Add : SubTitle : $$LocaleString:"Ledger Name","Group","CL Bal"
    Add : Format : $parent
    Fetch : parent
    Add : Format : $ClosingBalance
    Fetch : ClosingBalance


    [#Collection : VLedTable]

    Use : Alias Collection
    Title : $$LocaleString:"List of Ledger Accounts"
    Type : ledger
    Fetch : Name
    Report : ledger
    Variable: Sledger
    Trigger : Sledger
    IsODBCTable : Yes
    Delete : Format
    Add : Format : $Name
    Add : SubTitle : $$LocaleString:"Ledger Name","Group", "CL Balance"
    Add : Format : $parent
    Fetch : parent
    Add : Format : $ClosingBalance
    Fetch : ClosingBalance
     
    kapil22, Jul 18, 2018
    #7


  8. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Maxwidth is 51...default in tally....
    theoretically if there are no field after the field u want to increase, you can set it upto 100....
    depends on data after the field...it will give memory error.

    decrease your width to a respectable level...........
     
    Amit Kamdar, Jul 18, 2018
    #8


  9. kapil22

    kapil22 Member


    Last Three 3 collection code relate to of list of ledger, vledtable & inventory table comes without enabling module. please see
     
    kapil22, Jul 18, 2018
    #9


  10. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Am not aware...as per my knowledge that you can have a CONDITION in a Collection......

    You must find out the LINE/FIELD from where this collection is called upon and there you must put the condition of "Module enable"
     
    Amit Kamdar, Jul 18, 2018
    #10


  11. kapil22

    kapil22 Member


    not working
     
    kapil22, Jul 20, 2018
    #11


  12. kapil22

    kapil22 Member


    thanks it work :) wow
     
    kapil22, Jul 21, 2018
    #12


  13. mukeshb

    mukeshb Member


    Dear Kapil,
    If possible kindly upload the Final code or Mail me to mukesh@benir.in
     
    mukeshb, Jun 9, 2020
    #13


  14. amol bhide

    amol bhide New Member


    try
    $IsMyLocalTDLModuleOn:Company:##SVCurrentCompany
    instead
    @@IsMyLocalTDLModuleOn

    worked for me
     
    amol bhide, Jun 12, 2020
    #14


  15. Gangadhar C Beldar

    Gangadhar C Beldar Member


    Can Name field used instead of MyLocalTDL Module
    [Line : MyLocalTDL Module]
    Field : Long Prompt, Name Field
    Local : Field : Long Prompt : Info : $$LocaleString:"Enable my Local TDL ?"
    Local : Field : Long Prompt : Width : 50
    Local : Name Field : Type : Locigal
    Local : Name Field : Storage : IsMyLocalTDLModuleOn
     
    Gangadhar C Beldar, Jul 7, 2020
    #15


  16. kapil22

    kapil22 Member


    [#Part: CMP TallyShopFeaturesTitle]
    Add : Line : After : CMP TallyShopFeaturesTitle : MyLocalTDLModule

    [Line : MyLocalTDL Module]
    Field : Long Prompt, MyLocalTDL Module
    Local : Field : Long Prompt : Info : $$LocaleString:"Enable Width Enhancement ?"
    Local : Field : Long Prompt : Width : 30

    [Field : MyLocalTDL Module]
    Use : Logical Field
    Storage : IsMyLocalTDLModuleOn

    [System: UDF]
    IsMyLocalTDLModuleOn : Logical : 51


    [System : Formula]
    IsMyLocalTDLModuleOn: $IsMyLocalTDLModuleOn:Company:##SVCurrentCompany



    [#Report : Ledger Vouchers]
    Set : ShowRunBalance : Yes


    [#Line : EI InvInfo]
    Local : Field : VCH Stockitem : Width: 38% Screen


    [#Field : BILLRef]
    Option : EnhancedNewBillRef : @@IsMyLocalTDLModuleOn
    [!Field : EnhancedNewBillRef]
    Width : 40


    [#Field : VCH Short Title]
    Option : EnhancedNewVNum : @@IsMyLocalTDLModuleOn
    [!Field : EnhancedNewVNum]
    Width : 30


    [#Field : VCHBILL Name]
    Option : EnhancedNewVCHBILLName : @@IsMyLocalTDLModuleOn
    [!Field : EnhancedNewVCHBILLName]
    Width : 30


    [#Field : VCH Ref]
    Option : EnhancedNewVCHRef : @@IsMyLocalTDLModuleOn
    [!Field : EnhancedNewVCHRef]
    Width : 30


    [#Field : Master Name Field]
    Option : EnhancedNewMasterName : @@IsMyLocalTDLModuleOn
    [!Field : EnhancedNewMasterName]
    Width : 80
    Max : 80


    [#Field : Item Name Field]
    Option : EnhancedNewItemName : @@IsMyLocalTDLModuleOn
    [!Field : EnhancedNewItemName]
    Width : 50
    Max : 50


    [#Field : Voucher Name Field]
    Option : EnhancedNewVoucherName : @@IsMyLocalTDLModuleOn
    [!Field : EnhancedNewVoucherName]
    Width : 50
    Max : 50


    [#Field : EI Desc]
    Option : Enhanced Ei Desc : @@IsMyLocalTDLModuleOn
    [!Field : Enhanced Ei Desc]
    Max : 40
    Width : 40


    [#Field : VCH Narration]
    Option : EnhancedNewVCHNarration : @@IsMyLocalTDLModuleOn
    [!Field : EnhancedNewVCHNarration]
    FullWidth : Yes
    Max : 400
    Lines : 4


    [#Field : VCH LedNarr]
    Option : EnhancedNewVCHLedNarr : @@IsMyLocalTDLModuleOn
    [!Field : EnhancedNewVCHLedNarr]
    Width : 50 % Screen
    Max : @@MaxNarrWidth
    Lines : 1
    Style : Small
    Storage : Narration
    Skip : ##SVTDSDeduction


    [#Collection : VLedTable]
    Option : EnhancedNewVLedTable : @@IsMyLocalTDLModuleOn
    [!Collection : EnhancedNewVLedTable]
    Title : $$LocaleString:"LIST OF LEDGERS-VOUCHER"
    Delete : Format
    Add : Format : $$Name,50
    Add : Format : $Parent,22
    Add : Format : $Description,15
    Add : SubTitle : "LEDGER NAME","GROUP NAME","DESCRIPTION"


    [#Collection : List of Ledgers]
    Option : EnhancedNewListofledgers : @@IsMyLocalTDLModuleOn
    [!Collection : EnhancedNewListofledgers]
    Title : $$LocaleString:"LIST OF LEDGERS"
    Delete : Format
    Add : Format : $$Name,50
    Add : Format : $Parent,22
    Add : Format : $Description,15
    Add : Format : $IncomeTaxNumber,10
    Add : Format : $Closingbalance,9
    Add : SubTitle : "LEDGER NAME","GROUP NAME","DESCRIPTION","PAN","Cl.BAL."


    [#Collection : List of Groups]
    Option : EnhancedNewListofGroups : @@IsMyLocalTDLModuleOn
    [!Collection : EnhancedNewListofGroups]
    Title : $$LocaleString:"LIST OF GROUPS"
    Delete : Format
    Add : Format : $$Name,50
    Add : Format : $Parent,22
    Add : SubTitle : "GROUP NAME","PARENT GROUP NAME"


    [#Collection : List of Stock groups]
    Option : EnhancedNewListStockgroups : @@IsMyLocalTDLModuleOn
    [!Collection : EnhancedNewListStockgroups]
    Title : $$LocaleString:"LIST OF STOCK GROUPS"
    Delete : Format
    Add : Format : $Name,50
    Add : Format : $$Alias,10


    [#Collection : List of Stock Categories]
    Option : EnhancedNewListStockCategories : @@IsMyLocalTDLModuleOn
    [!Collection : EnhancedNewListStockCategories]
    Title : $$LocaleString:"LIST OF STOCK CATEGORIES"
    Delete : Format
    Add : Format : $$Name,30


    [#Collection : List of Godowns]
    Option : EnhancedNewListGodowns : @@IsMyLocalTDLModuleOn
    [!Collection : EnhancedNewListGodowns]
    Title : $$LocaleString:"LIST OF GODOWNS"
    Delete : Format
    Add : Format : $Name,40


    [#Collection : Vch Stock Item Extract]
    Option : EnhancedNewVchStockItemExtract : @@IsMyLocalTDLModuleOn
    [!Collection : EnhancedNewVchStockItemExtract]
    Title : $$LocaleString:"LIST OF STOCK ITEMS-VOUCHER"
    ;Use : ExtractAlias Collection
    Delete : Format
    Add : Format : $$Name,50,
    Add : Format : $Partno,10
    Add : Format : $GSTIGSTRATE,3
    Add : Format : $GSTHSNCode,6
    Add : Format : $ClosingBalance,8
    Add : Format : $MRPDetails[Last].MRPRateDetails[Last].MRPRate,10
    Add : Subtitle : "STOCK ITEM NAME","BAR CODE","RATE","HSN","CL.QTY","MRP"


    [#Collection : List of Stock Items]
    Option : EnhancedNewListStockItems : @@IsMyLocalTDLModuleOn
    [!Collection : EnhancedNewListStockItems]
    Title : $$LocaleString:"LIST OF STOCK ITEMS"
    Delete : Format
    Add : Format : $$Name,50,
    Add : Format : $Partno,10
    Add : Format : $GSTIGSTRATE,3
    Add : Format : $GSTHSNCode,6
    Add : Format : $ClosingBalance,8
    Add : Format : $MRPDetails[Last].MRPRateDetails[Last].MRPRate,10
    Add : Subtitle : "STOCK ITEM NAME","BAR CODE","RATE","HSN","CL.QTY","MRP"



    [#Collection : List of Companies On Disk]
    Title : $$LocaleString:"List of Companies"
    Type : Company on Disk
    Child of : $Dest
    Format : $Name, 50
    Format : @@DskCompanyNumberStr, 15
    Format : $CompanyPeriodStr, 40
    Align : Centre
    FullHeight : Yes





    [#Collection : Cost Centre VchSRC]
    Option : EnhancedNewcostcentre : @@IsMyLocalTDLModuleOn
    [!Collection : EnhancedNewcostcentre]
    Title : $$LocaleString:"LIST OF COST CENTRES"
    Delete : Format
    Add : Format : $$Name,100
    Add : SubTitle : "COST CENTRE NAME"
     
    kapil22, Jul 29, 2020
    #16


Share This Page