Free Code :- Auto To Manual Vourchar No

Discussion in 'Free Source Codes' started by psjain_jal, Apr 18, 2013.

    
  1. psjain_jal

    psjain_jal Member


    Code:
    [#Menu: Gateway of Tally]
     
     
    add:item:"Auto To Manual Vourchar No":menu:Change Vch Number Type
     
     
     
     
     
     
     
     
     
     
     
     
     
     
    [Menu:Change Vch Number Type]
     
     
    Item:"Auto To Manual Vourchar No":Execute:Add Vch To Other Field
     
     
     
     
     
     
     
     
    [Report:Add Vch To Other Field]
     
     
    Form:Add Vch To Other Field
     
     
    Title:"Voucher Type"
     
     
     
     
     
     
     
     
    [Form:Add Vch To Other Field]
     
     
    Part:Add Vch To Other Field
     
     
    On:Form Accept:Yes:Form Accept
     
     
    On:Form Accept:Yes:Call:Save Vch Number:#AddVchToOtherField
     
     
     
     
     
    [Part:Add Vch To Other Field]
     
     
    Line:Add Vch To Other Field
     
     
     
     
     
     
     
     
     
     
     
    [Line:Add Vch To Other Field]
     
     
    Field:Medium Prompt,Add Vch To Other Field
     
     
    Local:Field:Medium Prompt:Info:"Voucher Type"
     
     
     
     
     
    [Field:Add Vch To Other Field]
     
     
    Use:Name Field
     
     
    Table:Voucher Type
     
     
     
     
     
     
     
     
    [Function:Save Vch Number]
     
     
    Parameter:VarVchType:String
     
     
    Variable:VarBillNum:String
     
     
    Variable:VarVchMstId:String
     
     
    Variable:VarMstId:String
     
     
    Variable:Counter :Number
     
     
    Variable:NoOfItem :Number
     
     
     
     
     
    00 : SET FILE LOG ON
     
     
    01 : SET : Counter : 0
     
     
    02 : START PROGRESS : ($$NumItems:MpVchTypeColl) : "Voucher update" : @@CmpMailName : "Updating Vouchers..."
     
     
     
     
     
    10:Walk Collection:Mp Vch Type Coll
     
     
    15:Set:VarBillNum:$VoucherNumber
     
     
    20:Set:VarMstId:$MasterId
     
     
    30:Set:VarVchMstId:"ID:"+##VarMstId
     
     
    40:Call:FillVchNumToUdfValues
     
     
    90: INCREMENT : Counter
     
     
    100: SHOW PROGRESS : ##Counter
     
     
    110:End Walk
     
     
    404: END PROGRESS
     
     
    406 : SET FILE LOG OFF
     
     
     
     
     
     
     
     
    500:Call:Set Vch To Manual
     
     
     
     
     
    600:Call:Set Vch Oth To Number Field
     
     
     
     
     
     
     
     
     
     
     
    [Function:FillVchNumToUdfValues]
     
     
    Object:Voucher:##VarVchMstId
     
     
    10:Set Target
     
     
    20:Set Object
     
     
    30:Set Value:OldBillNumber:##VarBillNum
     
     
    40:Accept Alter
     
     
    50:Return
     
     
     
     
     
     
     
     
     
     
     
    [Function:Set Vch To Manual]
     
     
    Object:Voucher Type:##VarVchType
     
     
    10:Set Target
     
     
    20:Set Object
     
     
    30:Set Value:Numbering Method:"Manual"
     
     
    40:Set Value:Prevent Duplicates:Yes
     
     
    50:Accept Alter
     
     
    60:Return
     
     
     
     
     
     
     
     
    [Function:Set Vch Oth To Number Field]
     
     
    00 : SET FILE LOG ON
     
     
    01 : SET : Counter : 0
     
     
    02 : START PROGRESS : ($$NumItems:MpVchTypeColl) : "Voucher update" : @@CmpMailName : "Updating Vouchers..."
     
     
     
     
     
    10:Walk Collection:Mp Vch Type Coll
     
     
    15:Set:VarBillNum:$OldBillNumber
     
     
    20:Set:VarMstId:$MasterId
     
     
    30:Set:VarVchMstId:"ID:"+##VarMstId
     
     
    40:Call:FillUdfToVchNumValues
     
     
    90: INCREMENT : Counter
     
     
    100: SHOW PROGRESS : ##Counter
     
     
    110:End Walk
     
     
    404: END PROGRESS
     
     
    406 : SET FILE LOG OFF
     
     
     
     
     
    [Function:FillUdfToVchNumValues]
     
     
    Object:Voucher:##VarVchMstId
     
     
    10:Set Target
     
     
    20:Set Object
     
     
    30:Set Value:VoucherNumber:##VarBillNum
     
     
    40:Accept Alter
     
     
    50:Return
     
     
     
     
     
     
     
     
    [Collection:Mp Vch Type Coll]
     
     
    Type:Vouchers:VoucherType
     
     
    Child Of:##VarVchType
     
     
    Fetch:VoucherNumber,MasterId,OldBillNumber
     
     
    Parm Var:SvFromDate:$StartingFrom:Company:##SVCurrentCo mpany
     
     
    Parm Var:SvToDate:$$FinYearEnd:##SVCurrentDate:$StartingFrom:Company:##SVCurrentCompany
     
     
     
     
     
    [#Field: VCH Type Combo]
     
     
    Add:Fields:Vch Old Bill Number
     
     
     
     
     
     
     
     
    [Field:Vch Old Bill Number]
     
     
    Use:Name Field
     
     
    Storage:OldBillNumber
     
     
    Invisible:Yes
     
     
     
     
     
     
     
     
    [System:udf]
     
     
    OldBillNumber:String:850
     
     
    

    I requsted the community members to Share Full TDL code to the all members of this form.

    Enjoy Enjoy ...........................................................................................................

    Pankaj jain
     


  2. fannu

    fannu Member


    thank u sir
     


  3. mpal2311

    mpal2311 Active Member



  4. bollindia

    bollindia Member


    not working for me
     




  5. vumika poudel

    vumika poudel Member


    Error Occurred ,............................................is it working on erp 9 1.1 ?
     

    Attached Files:



  6. Jitendra Velani

    Jitendra Velani New Member


    thank you very much this code usefully to Our Five Customer
     


  7. kalyan

    kalyan New Member




    40:Set Value:prevent Duplicates:Yes { you give only one option that is yes. how to get user defined options "yes/no"}
    plz edit tdl code and send to me my email id: klyn4u@gmail.com
     


  8. B Patil

    B Patil New Member


    Great. This code can be really useful.
     


Share This Page