Code request for Local TDL enable option in F11 Addon

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

         
Tags:
  1. kapil22

    kapil22 New Member


    Dear Experts,

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

    thanks
     


  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
     


  3. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Also Add this...

    [System : Formula]
    IsMyLocalTDLModuleOn : Yes
     


  4. kapil22

    kapil22 New 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
     


  5. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Remove all @@isEnhancedFieldsOn

    and replace with ............. @@IsMyLocalTDLModuleOn
     


  6. kapil22

    kapil22 New Member


    thank you :) wow
     


  7. kapil22

    kapil22 New 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
     


  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...........
     


  9. kapil22

    kapil22 New Member


    Last Three 3 collection code relate to of list of ledger, vledtable & inventory table comes without enabling module. please see
     


  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"
     


  11. kapil22

    kapil22 New Member


    not working
     


  12. kapil22

    kapil22 New Member


    thanks it work :) wow
     


  13. mukeshb

    mukeshb Member


    Dear Kapil,
    If possible kindly upload the Final code or Mail me to mukesh@benir.in
     


  14. amol bhide

    amol bhide New Member


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

    worked for me
     



  15. 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
     


  16. kapil22

    kapil22 New 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"
     


Share This Page