New to TDL: Need help in Voucher Creation TDL

Discussion in 'Requests' started by rohitmokashi16, Jul 2, 2018.

    
  1. rohitmokashi16

    rohitmokashi16 New Member


    Hi Experts,

    I'm new to TDL. I was successful in creating Ledgers by providing a option in Gateway of Tally.
    Following is Ledger Creation TDL:


    [#Menu : Gateway of Tally]
    Add : Item : Ledger : Menu : MyLedger Create
    [Menu : MyLedger Create]
    Item : Create Ledger : Create : CreateMyLedger
    Item : Alter Ledger : Execute : AlterMyLedgers
    Item : Display Ledger : Execute : DisplayMyLedger
    [Report : CreateMyLedger]
    Form :CreateMyLedger
    Object : Ledger
    [Form :CreateMyLedger]
    Part :CreateMyLedger
    Vertical Align : Top
    Horizontal Align: Left
    On : Form Accept : yes : Form Accept
    On : Form Accept : yes : Create : CreateMyLedger
    [Part :CreateMyLedger]
    Line :CreateMyLedger, MyLedgerGroup, MyLedgerContact, MyLedgerPhone, MyLedger Opening
    [Line :CreateMyLedger]
    Field : Medium Prompt,Name Field
    Local : Field : Medium Prompt : Set As : “Name :”
    Local : Field : Name Field : Storage : Name
    [Line :MyLedgerGroup]
    Field : Medium Prompt,Name Field
    Local : Field : Medium Prompt : Set As : “Group :”
    Local : Field : Name Field : Storage : Parent
    Local : Field : Name Field : Table : MyLedgerGroup
    Local : Field : Name Field : Show Table : Always
    [Line :MyLedgerContact]
    Field : Medium Prompt,Name Field
    Local : Field : Medium Prompt : Set As : “Contact Person :”
    Local : Field : Name Field : Storage : Ledger Contact
    [Line :MyLedgerPhone]
    Field : Medium Prompt,Name Field
    Local : Field : Medium Prompt : Set As : “Phone No. :”
    Local : Field : Name Field : Storage : Ledger Phone
    [Line :MyLedger Opening]
    Field : Medium Prompt,Amount Field
    Local : Field : Medium Prompt : Set As : “Opening Balance :”
    Local : Field : Amount Field : Storage : Opening Balance

    [Collection : MyLedgerGroup]
    Title : “List of Groups”
    Type : Group
    Format : $Name,25
    Fetch : Name
    Full Height : yes
    Align : Right

    ;;Ledger Alteration

    [Report : AlterMyLedgers]
    Form :AlterMyLedgers
    [Form :AlterMyLedgers]
    Part :AlterMyLedgers
    VerticalAlign : Top
    No Confirm : yes
    On : Form Accept : yes : Alter : AlterLedgerReport
    [Part :AlterMyLedgers]
    Line :AlterMyLedgers
    [Line :AlterMyLedgers]
    Field :AlterMyLedgers
    [Field :AlterMyLedgers]
    Use : Name Field
    Table : MyLedger List
    Show Table : Always
    [Report : AlterLedgerReport]
    Object : Ledger : #AlterMyLedgers
    Use: CreateMyLedger
    Local : Form :CreateMyLedger : Delete: On : Form Accept : yes : Create : CreateMyLedger

    [Collection : MyLedger List]
    Title : “List of Ledgers”
    Type : Ledger
    Format : $Name,25
    Fetch : Name
    Align : Center
    Full Height : yes

    ;;Ledger Display

    [Report : DisplayMyLedger]
    Form :DisplayMyLedger
    [Form : DisplayMyLedger]
    Use :AlterMyLedgers
    Delete : On : Form Accept : yes : Alter : AlterLedgerReport
    Add : On : Form Accept : yes : Display : AlterLedgerReport
    ==========================================================================

    Now, my question is that can we create Voucher (like Journal, Payment, etc) like Ledger creation mentioned above?

    I have created a TDL for Voucher:
    [#Menu: Gateway of Tally]
    Add: Item: Voucher : Menu : Voucher Create

    [Menu: Voucher Create]
    Item: Create Voucher : Create: CreateMyVoucher
    Item: Alter Voucher : Execute: AlterMyVoucher
    Item: Display Voucher: Execute: DisplayMyVoucher

    [Report: Create My Voucher]
    Form: CreateMyVoucherForm
    Object: Voucher
    Variable : SVViewName
    Set : SVViewName : $$SysName:AcctgVchView

    [Form: Create My VoucherForm]
    Part: CreateMyVoucherPart
    Vertical Align: Top
    Horizontal Align: Left
    On : Form Accept : Yes : From Accept
    On : Form Accept : Yes : Create : CreateMyVoucher

    [Part: CreateMyVoucherPart]

    Line: CreateJournalVoucher, MyVoucherParty, MyVoucherDr, MyVoucherAmountDr/*, DrTypeofRef*/, MyVoucherCr, MyVoucherAmountCr/*, CrTypeofRef*/, MyVoucherDate, MyVchNarration, MyVoucherView


    [Line: My Voucher View]
    Field : Medium Prompt, Name Field
    Local : Field : Medium Prompt : Set As : "Accounting Vouchers"
    Local : Field : Name Field : Storage : PersistedView


    [Line: Create Journal Voucher]
    Field : Medium Prompt, My Voucher Type
    Local : Field : Medium Prompt : Set As : "Voucher Type : "
    [Field : My Voucher Type]
    Use : VoucherTypeName
    Storage: VoucherTypeName

    [Line: My Voucher Party]
    Field : Medium Prompt, Name Field
    Local : Field : Medium Prompt : Set As : "Party Ledger Name : "
    Local : Field : Name Field : Storage : PartyLedgerName
    Local : Field : Name Field : Table : MyLedgerList
    Local : Field : Name Field : Show Table : Always

    [Line: My Voucher Dr]
    Field : Medium Prompt, Name Field
    Local : Field : Medium Prompt : Set As : "By : "
    Local : Field : Name Field : Storage : DrLedgerName
    Local : Field : Name Field : Table : MyLedgerList
    Local : Field : Name Field : Show Table : Always

    [Line: My Voucher Amount Dr]
    Field : Medium Prompt, Amount Field
    Local : Field : Medium Prompt : Set As : "Debit : "
    Local : Field : Amount Field : Storage : Vch DrAmt
    /*
    [Line: Dr Type of Ref]
    Field : Medium Prompt, Name Field
    Local : Field : Medium Prompt : Set As : "Type of Ref : "
    Local : Field : Name Field : Storage : DrRef
    */

    [Line: My Voucher Cr]
    Field : Medium Prompt, Name Field
    Local : Field : Medium Prompt : Set As : "To : "
    Local : Field : Name Field : Storage : CrLedgerName
    Local : Field : Name Field : Table : MyLedgerList
    Local : Field : Name Field : Show Table : Always

    [Line: My Voucher Amount Cr]
    Field : Medium Prompt, Amount Field
    Local : Field : Medium Prompt : Set As : "Credit : "
    Local : Field : Amount Field : Storage : VchCrAmt
    /*
    [Line: Cr Type of Ref]
    Field : Medium Prompt, Name Field
    Local : Field : Medium Prompt : Set As : "Type of Ref : "
    Local : Field : Name Field : Storage : CrRef
    */

    [Line: My Voucher Date]
    Field : Medium Prompt, Uni Date Field
    Local : Field : Medium Prompt : Set As : "Date : "
    Local : Field : Short Date Field : Storage : Date

    [Line: My Vch Narration]
    Field : Medium Prompt, MyNarration
    Local : Field : Medium Prompt : Set As : "Narration : "
    [Field : MyNarration]
    Use : VCH Narration
    Storage : VCH Narration

    [Line: My Voucher View]
    Field : MyVoucherView
    [Field : MyVoucherView]
    Use : PersistedView
    Storage : ##SVViewName


    [Collection: MyLedgerList]
    Title : "List of Ledgers"
    Type : Ledger
    Format : $Name, 25
    Fetch : Name
    Full Height : Yes
    Align : Right
    ==========================================================================

    I know this is not the right way to create Voucher Object. It will be very helpful if any experts can go through this TDL and help me.
     
    Last edited: Jul 3, 2018


Share This Page