Free Code: Change Voucher Amount (Fixed)

Discussion in 'Free Source Codes' started by Jay kumar tailor, Jun 11, 2019.

    
  1. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    Enjoy......

    ( I Seen Many Time This Issue While Changing Salary Entries Amount)
    Works For "Entries Having Only Two Ledgers."

    like:-
    ledger1 dr 1000.00
    ledger2 cr 1000.00




    [#Form: Ledger Vouchers]

    Add: Button: InputNewVchjayamt1

    [#Form: Day Book]

    Add: Button: InputNewVchjayamt1


    [Button: InputNewVchjayamt1]

    Title: "Set Fix Vch Amt"

    Key: CTRL+F7

    Action List : InputVchjayamt1, ModifyVchjayamt 1


    [Button: InputVchjayamt1]

    Key:CTRL+F7

    Action: Alter: Rpt InputVchjayamt1


    [Button: ModifyVchjayamt1]

    Key: CTRL+F7

    Action: Call : FuncEdit4



    [Function: FuncEdit4]



    Variable : MSTID : String



    100 : WALK COLLECTION : SELjayVouchers4



    120 : SET : MSTID : "ID:"+ $$String:$MasterID



    130 : NEW OBJECT : Voucher : ##MSTID



    140 : SET TARGET : LedgerEntries[1]



    160 : SET VALUE : Amount : #NvVchjayamt



    170 : SET TARGET : ..

    172 : SET TARGET : LedgerEntries[2]



    175 : SET VALUE : Amount : #NvVchjayamt



    177 : SET TARGET : ..


    180 : SET TARGET : ..



    190 : ACCEPT ALTER


    200 : END WALK




    [Collection: SELjayVouchers4]


    Data Source : Report : Selected

    Fetch : All Ledger Entries



    [Report: Rpt InputVchjayamt1]

    Title : "Set Vch Amount"

    Form : Input Vchjayamt1

    Auto : Yes





    [Form: Input Vchjayamt1]

    Part : Input Vchjayamt1

    Width: 25% Screen

    Height: 8% Screen


    [Part: Input Vchjayamt1]

    Line: New Vchjayamt1


    [Line: New Vchjayamt1]


    Field : Long Prompt , Newvchjayamt

    Local : Field: Long Prompt : Set As: "New Vch Amount"


    [Field : Newvchjayamt]

    Use : Short Name Field

    Modifies : NvVchjayamt

    Border : Thin Box

    Width : 15



    [System : Variable]

    Nvvchjayamt : " "



    [Variable : NvVchjayamt]

    Type : Amount

    Persistent : Yes
     
    Last edited: Jun 11, 2019
    Vikram Bhat and Vashisth like this.


  2. Bipin Damania

    Bipin Damania Active Member


    Superb.
    Keep Posting & Sharing...
     


  3. sumamehtra

    sumamehtra Member



  4. sumamehtra

    sumamehtra Member


    is it possible?
    Ledger1---
    dr----10000
    cr-----7000
    cr-----2000
    cr-----1000
     


  5. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    Yes
     


  6. sumamehtra

    sumamehtra Member


    Can i change ledger name?
    If possible please share
     


  7. balajimg

    balajimg Active Member


    its possible

    161 : SET VALUE : LedgerName : ##LedgerVariable
     


  8. sumamehtra

    sumamehtra Member


    please share full code. cause i am infant in learning tdl
     


  9. balajimg

    balajimg Active Member


    the full code is actually there above, do refer it
     


  10. sumamehtra

    sumamehtra Member


    with the walk collection i can't change ledger name
     


  11. balajimg

    balajimg Active Member


    if amount can be changed, why not the ledger name??
    both amount and ledgername are in same sub-object level, i.e., ledger entries
     


  12. sumamehtra

    sumamehtra Member


    pls check edited code reference sir jay kumar
    [#Form: Ledger Vouchers]

    Add: Button: InputNewVchjayamt1

    [#Form: Day Book]

    Add: Button: InputNewVchjayamt1


    [Button: InputNewVchjayamt1]

    Title: "Set Fix Vch Amt"

    Key: CTRL+F7

    Action List : InputVchjayamt1, ModifyVchjayamt 1


    [Button: InputVchjayamt1]

    Key:CTRL+F7

    Action: Alter: Rpt InputVchjayamt1


    [Button: ModifyVchjayamt1]

    Key: CTRL+F7

    Action: Call : FuncEdit4



    [Function: FuncEdit4]



    Variable : MSTID : String



    100 : WALK COLLECTION : SELjayVouchers4



    120 : SET : MSTID : "ID:"+ $$String:$MasterID



    130 : NEW OBJECT : Voucher : ##MSTID



    140 : SET TARGET : LedgerEntries[1]





    161 : SET VALUE : LedgerName : #LedgerVariable



    170 : SET TARGET : ..

    172 : SET TARGET : LedgerEntries[2]





    177 : SET VALUE : LedgerName : #LedgerVariable

    177 : SET TARGET : ..


    180 : SET TARGET : ..



    190 : ACCEPT ALTER


    200 : END WALK




    [Collection: SELjayVouchers4]


    Data Source : Report : Selected

    Fetch : All Ledger Entries



    [Report: Rpt InputVchjayamt1]

    Title : "Set Vch Amount"

    Form : Input Vchjayamt1

    Auto : Yes


    [Form: Input Vchjayamt1]

    Part : Input Vchjayamt1

    Width: 25% Screen

    Height: 8% Screen


    [Part: Input Vchjayamt1]

    Line: New Vchjayamt1


    [Line: New Vchjayamt1]


    Field : Long Prompt , Newvchjayamt


    Local : Field: Long Prompt : Set As: "New Vch Ledger"


    [Field : Newvchjayamt]

    Use : Short Name Field

    Modifies : LedgerVariable

    Border : Thin Box

    Width : 15



    [System : Variable]

    LedgerVariable : " "


    [Variable : LedgerVariable]

    Type : LedgerName

    Persistent : Yes
     


  13. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    Try
    Like
    This.......


    [#Form: Ledger Vouchers]

    Add: Button: InputNewjayLed1

    [#Form: Day Book]

    Add: Button: InputNewjayLed1


    [Button: InputNewjayLed1]

    Title: "Change Ledger"

    Key: CTRL+F7

    Action List : InputVchjayamt3, ModifyVchjayamt3


    [Button: InputVchjayamt3]

    Key:CTRL+F7

    Action: Alter: Rpt InputVchjayamt1


    [Button: ModifyVchjayamt3]

    Key: CTRL+F7

    Action: Call : FuncEdit4



    [Function: FuncEdit4]



    Variable : MSTID : String



    100 : WALK COLLECTION : SELjayVouchers4

    120 : SET : MSTID : "ID:"+ $$String:$MasterID

    130 : NEW OBJECT : Voucher : ##MSTID

    140 : SET TARGET : LedgerEntries[1]

    161 : SET VALUE : LedgerName : #LedgerVariable

    170 : SET TARGET : ..

    ;172 : SET TARGET : LedgerEntries[2]

    ;177 : SET VALUE : LedgerName : #LedgerVariable

    ;178 : SET TARGET : ..

    180 : SET TARGET : ..

    190 : ACCEPT ALTER

    200 : END WALK




    [Collection: SELjayVouchers4]


    Data Source : Report : Selected

    Fetch : All Ledger Entries



    [Report: Rpt InputVchjayamt1]

    Title : "Set Vch Amount"

    Form : Input Vchjayamt1

    Auto : Yes


    [Form: Input Vchjayamt1]

    Part : Input Vchjayamt1

    Width: 25% Screen

    Height: 8% Screen


    [Part: Input Vchjayamt1]

    Line: New Vchjayamt1


    [Line: New Vchjayamt1]


    Field : Long Prompt , Newvchjayamt


    Local : Field: Long Prompt : Set As: "New Vch Ledger"


    [Field : Newvchjayamt]

    Use : Short Name Field

    Modifies : LedgerVariable

    Border : Thin Box

    Width : 15
    Table: Ledger
    Show Table : Always


    [System : Variable]

    LedgerVariable : " "


    [Variable : LedgerVariable]

    Type : String

    Persistent : Yes
     


  14. sumamehtra

    sumamehtra Member



  15. sumamehtra

    sumamehtra Member


    Dear joy kumar sir how to change bank ledger and how to change
    dr----10000
    cr-----7000
    cr-----2000
    cr-----1000
     


  16. sumamehtra

    sumamehtra Member


    Do not work for receipt posting change.
    Error message : FUNCTION: 'FuncEdit4' LABEL: 190 : Incorrect ledger selected in Bank Allocations screen
     


  17. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    You Should use Replace Utility By C A Devendra Sir
     


  18. sumamehtra

    sumamehtra Member


    FUNCTION: 'FuncEdit5' LABEL: 190 : Voucher totals do not match!
    Dr: 25,000.00 Dr
    Cr:
    Diff: 25,000.00 Dr
    how to solve please guide me.
     


  19. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    How can we Know ? What you are Doing in code.?
     


  20. sumamehtra

    sumamehtra Member


    Error message : FUNCTION: 'FuncEdit4' LABEL: 190 : Incorrect ledger selected in Bank Allocations screen
    Please help
     


  21. sumamehtra

    sumamehtra Member


    please help about receipt posting change
     


  22. sumamehtra

    sumamehtra Member


    If i change amount this way, reconcile balance was unchanged
     


  23. Murali.R

    Murali.R Member


    sir i want purchase ledgername change please guide me
     


  24. sumamehtra

    sumamehtra Member


    Voucher Bank Allocation Amount not change
     


Share This Page