Change Voucher Number from Daybook

Discussion in 'Tally Developer' started by MZMS, May 17, 2019.

         
  1. MZMS

    MZMS New Member


    Sir Please make this tdl Workable

    [#Form: Day Book]
    Add: Button: After : DSPShowGP : InputNewVoucherNumber

    [Button: InputNewVoucherNumber]
    Title: "Set Voucher"
    Key: Ctrl+R
    Action List : InputVoucherNumber, ModifyVoucher

    [Button: InputVoucherNumber]
    Key: Ctrl+R
    Action: Alter: Rpt InputVoucherNumber

    [Button: ModifyVoucher]
    Key: Ctrl+R
    Action: Call : FuncEdit


    [Function: FuncEdit]

    ;; Variable to Save MasterID
    Variable : MSTID : String

    ;; Walking Over Current Vouchers of Day Book
    100 : WALK COLLECTION : SELDayVouchers

    ;; Set Master ID to a Variable
    120 : SET : MSTID : "ID:"+ $$String:$MasterID

    ;; Set Object In Edit Mode
    130 : NEW OBJECT : Voucher : ##MSTID

    ;; Set Target to the First Ledger (PartyLedger)
    140 : SET TARGET : LedgerEntries[1]

    ;;Modifies Value of the Methord
    160 : SET VALUE : Voucher : #Voucher

    ;; Back to Ledger Entry Object
    170 : SET TARGET : ..

    ;; Back to Voucher Object
    180 : SET TARGET : ..

    ;; Saving Object
    190 : ACCEPT ALTER

    200 : END WALK



    [Collection: SELDayVouchers]

    Data Source : Report : Current
    Fetch : All Ledger Entries


    [Report: Rpt Input Voucher Number]
    Title : "Update Voucher Number"
    Form : Input Voucher Number
    Auto : Yes

    [Form: Input Voucher Number]
    Part : Input Voucher Number
    Width: 25% Screen
    Height: 8% Screen

    [Part: Input Voucher Number]
    Line: New Voucher Number

    [Line: New Voucher Number]

    Field : Long Prompt , New Voucher Number
    Local : Field: Long Prompt : Set As: "Voucher Number"

    [Field : New Voucher Number]
    Use : Short Voucher Field
    Modifies : Voucher
    Border : Thin Box
    Width : 15

    [System : Variable]
    VoucherNumber : " "


    [Variable : VoucherNumber]
    Type : Voucher Number
    Persistent : Yes
     


  2. sattam

    sattam Member


    [#Form: Day Book]
    Add: Button: After : DSPShowGP : InputNewVoucherNumber

    [Button: InputNewVoucherNumber]
    Title: "Set Voucher"
    Key: Ctrl+R
    Action List : InputVoucherNumber, ModifyVoucherNum

    [Button: InputVoucherNumber]
    Key: Ctrl+R
    Action: Alter: Rpt InputVoucherNumber

    [Button: ModifyVoucherNum ]
    Key: Ctrl+R
    Action: Call : FuncEdit


    [Function: FuncEdit]

    ;; Variable to Save MasterID
    Variable : MSTID : String

    ;; Walking Over Current Vouchers of Day Book
    100 : WALK COLLECTION : SELDayVouchers

    ;; Set Master ID to a Variable
    120 : SET : MSTID : "ID:"+ $$String:$MasterID

    ;; Set Object In Edit Mode
    130 : NEW OBJECT : Voucher : ##MSTID

    ;; Set Target to the First Ledger (PartyLedger)
    140 : SET TARGET : LedgerEntries[1]

    ;;Modifies Value of the Methord
    160 : SET VALUE : VoucherNumber : ##SatVoucher

    ;; Back to Ledger Entry Object
    170 : SET TARGET : ..

    ;; Back to Voucher Object
    180 : SET TARGET : ..

    ;; Saving Object
    190 : ACCEPT ALTER

    200 : END WALK



    [Collection: SELDayVouchers]

    Data Source : Report : Selected;;Current
    Fetch : All Ledger Entries


    [Report: Rpt Input Voucher Number]
    Title : "Update Voucher Number"
    Form : Input Voucher Number
    Auto : Yes

    [Form: Input Voucher Number]
    Part : Input Voucher Number
    Width: 25% Screen
    Height: 8% Screen

    [Part: Input Voucher Number]
    Line: New Voucher Number

    [Line: New Voucher Number]

    Field : Long Prompt , New Voucher Number
    Local : Field: Long Prompt : Set As: "New Voucher Number"

    [Field : New Voucher Number]
    Use : Name Field
    Modifies : SatVoucher
    Border : Thin Box
    Width : 15

    [System : Variable]
    SatVoucher : " "


    [Variable : SatVoucher ]
    Type : String
    Persistent : Yes
     


  3. sattam

    sattam Member


    look carefully the difference and learn more and more from this site
     
    Amit Kamdar likes this.


  4. MZMS

    MZMS New Member


    EXCELLENT SIR ITS WORKING
     


Share This Page