This TDL use BrowseFolder.dll to browse backup & restore folder like in windows

Discussion in 'Free Source Codes' started by JObimon Arackal JOhn, Jul 15, 2016.

    
  1. JObimon Arackal JOhn

    JObimon Arackal JOhn Active Member


    An Example for using dll in Tally.

    Please read before using this add on.

    I do not provide any warenty for this addon. this is for academic purpose only. You are free to use , modify at you own risk.

    Steps to activate this TDL.
    1. Copy file to C:\Windows\System32
    2. Open Cmd in administrator Mode (Elavated mode)
    3. CD C:\Windows\Microsoft.NET\Framework64\v4.0.30319
    4. Type without quote "regasm BrowseFolder.dll /codebase"

    1.png 2.png 3.png 4.png

    The Source code I have used for creating dll can be found txt file along with TDL code.
     

    Attached Files:



  2. sattam

    sattam Active Member


    Realy sir its superb.You r a jenious.
     


  3. Jitendra Velani

    Jitendra Velani New Member


    Dhanyavad, For Sharing this Code................ Thank You Very Much

    Jitendra Velani
    Mumbai
    jvgears@gmail.com
     


  4. mpal2311

    mpal2311 Active Member


    Great.
     



  5. Ohhhhhh, Very good TDL sir, Amazing mind............
     


  6. Maulik Patel

    Maulik Patel Active Member


    Really, very helpful for learners.
     


  7. Taufeeq Shaikh

    Taufeeq Shaikh Active Member


    Once again a Man had come back with a asusual great TDL. Welcome Back Mr. Jobimon
     


  8. anbhuselvan

    anbhuselvan Member


    Hi Sir, Please help me, im unable to show with Company address in own invoice page.(simple invoice page).
    Please correct my TLD.
    [#Form: Comprehensive Invoice]
    Add : Option : My Invoice : @@IsSales

    [#Form: Simple Printed Invoice]
    Add : Option : My Invoice : @@IsSales

    [! Form : My Invoice]
    Delete : Parts
    Delete : Bottom Parts
    Delete : PageBreak
    Space Top : 0
    Space Bottom: 0
    Space Left : 0
    Space Right : 0
    Add: Top Parts : INV,EXPSMPtitle1
    Add : Parts : My Invoice Top Part, My Invoice Body Part
    Add : Bottom Part: My Invoice Bottom Part
    Add : Pagebreak : CLPGBrk,OPGBrk

    [Part: INV]
    Line: MIINV,MI CmpName,MI PartyADd1
    [Line:MIINV]
    Field: MIINV
    Space Top: 1
    [Field:MIINV]
    Use : Name Field
    Set as : "INVOICE"
    Full Width :Yes
    Align :Centre
    Style :newSTY1

    [Style:newSTY1 ]
    Use : Normal Bold
    Height :11


    [Line: MI CmpName]
    Field : MI CmpName
    Space Top: 0
    [Field: MI CmpName]
    Use : Name Field
    Set as : @@CMPMailNAme
    FullWidth : yes
    Align : Centre
    Style :newSTY1

    [Style:newSTY2 ]
    Use : Normal Bold
    Height :11

    [Line: MI PartyADd1]
    Field : MI PartyADd1

    [Field: MI PartyADd1]
    Use : Name Field
    Set as : $Address
    Indent : 10


    [Part: EXPSMPtitle1]
    Lines : EXPINV Logo1
    Graph Type : "D:\TDL path\Tallylogo2.bmp"
    Height: 30 mms
    Width: 40 mms
    Invisible : If $$InPrintMode OR ($$InExportMode And $$IsSysNameEqual:HTML:##SVExportFormat) then No Else Yes
    [Line: EXPINV Logo1]
    Field : EXPINV Logo1
    [Field: EXPINV Logo1]
    Set as : ""

    [Part: My Invoice Top Part]
    Line : MI VCHDate,MI PartyName, MI ColumnTitles


    [Line: MI VCHDate]
    Field : Simple Prompt, MI VCHNo
    Right Field : Short Prompt, MI VCHDate
    Local : Field : Short Prompt : Set as : "Voucher Date : "
    Local : Field : Simple Prompt : Set as : " Voucher No : "

    [Field: MI VCHDate]
    Use : Short Date Field
    Set as : $Date

    [Field: MI VCHNo]
    Use : Short Name Field
    Set as : $VoucherNumber

    [Line: MI PartyName]
    Field : Short Prompt, MI PartyNAme
    Local : Field : Short Prompt : Set as : "Party Name : "

    [Field: MI PartyName]
    Use : Name Field
    Set as : $PartyLedgerName


    [Line: MI Column Titles]
    Use : IE Details
    Local : Field : Default : Lines : 2
    Local : Field : Default : Type : String
    Local : Field : Default : Style : Normal Bold
    Local : Field : Ie SRNo : Set as : "Sr No"
    Local : Field : IE SiName : Set as : "Stock Item Name"
    Local : Field : IE Qty : Set as : "Billed Qty"
    Local : Field : IE Rate : Set as : "Rate"
    Local : Field : IE PERUNIT: Set as: "Per"
    Local : Field : IE Amount : Set as : "Amount"
    Border: Column Titles

    [Part : My Invoice Body Part]
    Part : IE Details, LE Details
    Vertical : Yes
    Scroll : Vertical
    Common Border : yes

    [Part : IE Details]
    Line :IE Details
    Repeat : IE Details : Inventory Entries
    Total : IE Qty, IE Amount

    [Line : IE Details]
    Field : IE SrNo, IE SiName
    Right Field : IE Qty, IE Rate, IE PERUNIT,IE Amount
    Explode : Item Desc : $$NumItems:UserDescription > 0

    [Part : Item Desc]
    Line : Item Desc
    Repeat : Item Desc : UserDescription

    [Line : Item Desc]
    Field : Item Desc

    [Field : Item Desc]
    Use : Name Field
    Width : 40
    Indent : 8
    Set as : $UserDescription
    Style : Normal Italic


    [Field : IE SrNo]
    Use : Short Name Field
    Set as : $$Line
    Border : Thin Left
    Width : 4

    [Field : IE SIName]
    Use : Name Field
    Set as : $StockItemName
    Border : Thin Left
    FullWIdth : Yes
    [Field : IE Qty]
    Use : Number Field ;; Qty Primary Field
    Set as : $BilledQty
    Border : Thin Left
    Format : "NoSymbol,Primary"
    Align : Right

    [Field : IE rate]
    Use : Rate Price Field
    Set as : $Rate
    Border : Thin Left

    [Field : IE PERUNIT]
    Use : Rate Price Field
    Set as : $BaseUnits:StockItem:#IESIName
    Border : Thin Left

    [Field : IE Amount]
    Use : Amount Field
    Set as : $Amount
    Border : Thin Left Right
    Format : "NoComma,NoZero"

    [Part : LE Details]
    Line : LE Details
    Repeat : LE Details : Ledger Entries
    Scroll : Vertical

    [Line : LE Details]
    Use : IE Details
    Local : Field : IE SrNo : Set as : ""
    Local : Field : IE SiName: Set as : $LedgerName
    Local : Field : IE Qty : Set as : ""
    Local : Field : IE Rate : Set as : $RateOfInvoiceTax + "%"
    Local : Field : IE Amount: Set as : $Amount
    Local : Field : IE SiName: Align : Right
    Local : Field : IE Qty : Format : "NoZero"
    Local : Field : IE Rate : InActive: $RateOfInvoiceTax = 0
    Local : Field : IE Rate : Type : String
    Empty : $LedgerName = $PartyLedgerName


    [Part : My Invoice Bottom Part]
    Line : MI Total Line, MI AmtInWords, MI ForCmp, MI AuthSign

    [Line : MI Total Line]
    Use : IE Details
    Local : Field : Default : Style : Normal Bold
    Local : Field : IE SrNo : Set as : ""
    Local : Field : IE SiName: Set as : "Totals"
    Local : Field : IE Qty : Set as : $$Total:IEQty
    Local : Field : IE Rate : Set as : ""
    Local : Field : IE Amount: Set as : $Amount
    Border : Totals

    [Line : MI AmtInWords]
    Field : Short Prompt, MI AmtInWords
    Local : Field : Short Prompt : Set as : "Amount in words : "

    [Field : MI AmtInWords]
    Use : Name Field
    Set as : $$InWords:$Amount
    FullWidth : yes
    Style : Small

    [Line : MI ForCmp]
    Right Field : MI ForCmp
    [Field : MI ForCmp]
    Use : Name Field
    Set as : "For " + @@CMPMailNAme
    Align : Right
    Width : 0

    [Line : MI AuthSign]
    Right Field : MI AuthSign
    Space Top : 2

    [Field : MI AuthSign]
    Use : Name Field
    Set as : "Authorised Signatory"
    Width : 0
    Align : Right
    [Part : CLPGBrk]
    Line : CLPGBrkln
    [Line :CLPGBrkln]
    Right Field : CLPG Brkfld
    [Field :CLPG Brkfld]
    Use : Name Field
    Set as :" Continued…………………."
    [Part: OPGBrk]
    Use : My Invoice Top Part


    [Collection:VCHCollection1]
    Type: Stock Item
     



  9. Working Good..///
     


  10. kalpana

    kalpana New Member


    Dear Sir,
    1. Copy file to C:\Windows\System32

    2. Open Cmd in administrator Mode (Elavated mode)

    3. CD C:\Windows\Microsoft.NET\Framework64\v4.0.30319

    4. Type without quote "regasm BrowseFolder.dll /codebase"

    After doing this i am getting the error Please help me how to do the same

    Microsoft Windows [Version 6.1.7601]
    Copyright (c) 2009 Microsoft Corporation. All rights reserved.

    C:\Users\admin>c
    'c' is not recognized as an internal or external command,
    operable program or batch file.

    C:\Users\admin>cd
    C:\Users\admin

    C:\Users\admin>cd C:\Windows\Microsoft.NET\Framework64\v4.0.30319

    C:\Windows\Microsoft.NET\Framework64\v4.0.30319>regasm BrowseFolder.dll /codebas
    e
    'regasm' is not recognized as an internal or external command,
    operable program or batch file.

    C:\Windows\Microsoft.NET\Framework64\v4.0.30319>cd
    C:\Windows\Microsoft.NET\Framework64\v4.0.30319

    C:\Windows\Microsoft.NET\Framework64\v4.0.30319> regasm BrowseFolder.dll /codeba
    se
    'regasm' is not recognized as an internal or external command,
    operable program or batch file.

    C:\Windows\Microsoft.NET\Framework64\v4.0.30319>regasm BrowseFolder.dll /codebas
    e
    'regasm' is not recognized as an internal or external command,
    operable program or batch file.

    C:\Windows\Microsoft.NET\Framework64\v4.0.30319>cd C:\Windows\Microsoft.NET\Fram
    ework64\v4.0.30319 regasm BrowseFolder.dll /codebase
    The system cannot find the path specified.

    C:\Windows\Microsoft.NET\Framework64\v4.0.30319>regasm BrowseFolder.dll /codebas
    e
    'regasm' is not recognized as an internal or external command,
    operable program or batch file.

    C:\Windows\Microsoft.NET\Framework64\v4.0.30319>cd C:\Windows\Microsoft.NET\Fram
    ework64\v4.0.30319 regasm BrowseFolder.dll /codebase
    The system cannot find the path specified.

    C:\Windows\Microsoft.NET\Framework64\v4.0.30319>cd C:\Windows\Microsoft.NET\Fram
    ework64\v4.0.30319 regasm BrowseFolder.dll
    The system cannot find the path specified.

    C:\Windows\Microsoft.NET\Framework64\v4.0.30319>BrowseFolder.dll
    The system cannot execute the specified program.

    C:\Windows\Microsoft.NET\Framework64\v4.0.30319>^A
     


  11. vijayakumar

    vijayakumar New Member


    Once again you have done a very good sharing .
     


  12. Hari Malhotra

    Hari Malhotra New Member


    Very useful share !
    it will be helpful, to share the DLL for selecting a filename from browse window..
     



  13. Type of description is misspelt or incorrect shown while load tdl. what will be the cause
     


  14. sivam

    sivam Active Member



    Dear John,
    Really Excellent work. But i've doubt on this. I already try to develop this dll. But in class library we can't use Forms. How to u do it. can you explain Please...?
     


  15. Maulik Patel

    Maulik Patel Active Member


    Dear knsivam89,

    what you want to do in class library, can you share your requirements so that I can suggest you for the same.
     
    Dhrupal Gorasiya likes this.


  16. sivam

    sivam Active Member


    Dear Maulik Patel,
    How to open a OpenFileDialouge box in Class Library using C#.net or VB.net
     


  17. Maulik Patel

    Maulik Patel Active Member


    Dear knshivam89,

    you can do it with the help of "OpenFileDialog" class in .net
     
    Neha2017 and Dhrupal Gorasiya like this.


  18. sauravjain

    sauravjain Member




    NICE SIR, PLEASE INCLUDE A CODE IN THIS THAT ONLY ADMINISTRATOR OR SAY WHO HAS OWNER AS POWER CAN ONLY RESTORE THE DELETED ENTRIES.
     


  19. ebek

    ebek Member


    Thanks Sir
     


  20. Ankur Tiwari

    Ankur Tiwari Member


    Please Watch this TDL Tutorial

     


  21. sauravjain

    sauravjain Member


    sir, your above tdl will it help in the below image which i have attached instead of writing the path can we have the facility to browse to the particular file which tally then opens it.
     

    Attached Files:

    • t1.png
      t1.png
      File size:
      100.7 KB
      Views:
      871



  22. I guess you can add the button at [Form : CMP Select Action Form] to brows the path and modify the customization accordingly
     


  23. shivaji

    shivaji New Member


    getting error in cmd
     


  24. Aliasger

    Aliasger New Member


    Great work!!!
    Sir what can i do to modify the tdl so that i can browse like windows on data directory path.
     


  25. Sundar.L

    Sundar.L New Member


    superrrr
     


Share This Page