Free Code:- Change Voucher Type Name

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

    
  1. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    [#Form: Ledger Vouchers]
    Add: Button: InputNewVchtyp1
    [#Form: Day Book]
    Add: Button: InputNewVchtyp1

    [Button: InputNewVchtyp1]
    Title: "Set Vch Type"
    Key: CTRL+F8
    Action List : InputVchtyp1, ModifyVchtyp 1

    [Button: InputVchtyp1]
    Key:CTRL+F8
    Action: Alter: Rpt InputVchtyp1

    [Button: ModifyVchtyp1]
    Key: CTRL+F8
    Action: Call : FuncEdit3


    [Function: FuncEdit3]


    Variable : MSTID : String


    100 : WALK COLLECTION : SELDayVouchers3


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


    130 : NEW OBJECT : Voucher : ##MSTID


    140 : SET TARGET : LedgerEntries[1]


    160 : SET VALUE : VoucherTypeName : #NvVchtyp


    170 : SET TARGET : ..


    180 : SET TARGET : ..


    190 : ACCEPT ALTER

    200 : END WALK



    [Collection: SELDayVouchers3]

    Data Source : Report : Selected
    Fetch : All Ledger Entries


    [Report: Rpt InputVchtyp1]
    Title : "Upvchtyp Voucher Type"
    Form : Input Vchtyp1
    Auto : Yes




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

    [Part: Input Vchtyp1]
    Line: New Vchtyp1

    [Line: New Vchtyp1]

    Field : Long Prompt , Newvchtype
    Local : Field: Long Prompt : Set As: "New Vchtype"

    [Field : Newvchtype]
    Use : Short Name Field
    Modifies : NvVchtyp
    Border : Thin Box
    Width : 15


    [System : Variable]
    Nvvchtyp : " "


    [Variable : NvVchtyp]
    Type : Vouchertypename
    Persistent : Yes
     
    Last edited: Jun 11, 2019


  2. MZMS

    MZMS New Member


    Excellent
     


  3. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    Some Change There.
    1. Voucher Type Name (Table Added)
    Code:
    [#Form: Ledger Vouchers]
    Add: Button: InputNewVchtyp1
    [#Form: Day Book]
    Add: Button: InputNewVchtyp1
    
    [Button: InputNewVchtyp1]
    Title: "Set Vch Type"
    Key: CTRL+F8
    Action List : InputVchtyp1, ModifyVchtyp 1
    
    [Button: InputVchtyp1]
    Key:CTRL+F8
    Action: Alter: Rpt InputVchtyp1
    
    [Button: ModifyVchtyp1]
    Key: CTRL+F8
    Action: Call : FuncEdit3
    
    
    [Function: FuncEdit3]
    
    
    Variable : MSTID : String
    
    
    100 : WALK COLLECTION : SELDayVouchers3
    
    
    120 : SET : MSTID : "ID:"+ $$String:$MasterID
    
    
    130 : NEW OBJECT : Voucher : ##MSTID
    
    
    140 : SET TARGET : LedgerEntries[1]
    
    
    160 : SET VALUE : VoucherTypeName : #NvVchtyp
    
    
    170 : SET TARGET : ..
    
    
    180 : SET TARGET : ..
    
    
    190 : ACCEPT ALTER
    
    200 : END WALK
    
    
    
    [Collection: SELDayVouchers3]
    
    Data Source : Report : Selected
    Fetch : All Ledger Entries
    
    
    [Report: Rpt InputVchtyp1]
    Title : "Upvchtyp Voucher Type"
    Form : Input Vchtyp1
    Auto : Yes
    
    
    
    
    [Form: Input Vchtyp1]
    Part : Input Vchtyp1
    Width: 25% Screen
    Height: 8% Screen
    
    [Part: Input Vchtyp1]
    Line: New Vchtyp1
    
    [Line: New Vchtyp1]
    
    Field : Long Prompt , Newvchtype
    Local : Field: Long Prompt : Set As: "New Vch Type"
    
    [Field : Newvchtype]
    Use : Short Name Field
    Modifies : NvVchtyp
    Border : Thin Box
    Width : 15
    Table : Vouchertype
    Show Table : Always
    
    [System : Variable]
    Nvvchtyp : " "
    
    
    [Variable : NvVchtyp]
    Type : Vouchertypename
    Persistent : Yes
    
     
    MOHAMMED ZUBER likes this.


  4. Anand Sharma

    Anand Sharma Member


    Excellent
     


  5. dipu369

    dipu369 Member


    how to use sir ?
     


  6. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    In DayBook and Ledgers, there will be a BUTTON on right side.........use that.
     


Share This Page