Add Field in Ledger Screen

Discussion in 'Tally Developer' started by Vaidehi Joshi, Dec 10, 2020.

    
  1. Vaidehi Joshi

    Vaidehi Joshi New Member


    I want to add a auto increment field customer number at Ledger screen. I am new to tally.Can any one help me?
    Thanks
     


  2. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Look at the Forum...similar one for increment is there.........

    Also study the automatic voucher numbering of vouchers...you can implement the same for Ledger or Customer's number.
     


  3. kirandham

    kirandham New Member


    Use Below code it works

    [#Line : mstname]
    Add : Field : Membership No
    [Field : Membership No]


    Use : Number Field

    Set as : $$NumItems:Ledger +1

    Storage : Membershipno

    Skip : Yes

    Set Always : Yes


    ;Hope this clarifies.
     


  4. Vaidehi Joshi

    Vaidehi Joshi New Member


    Thank you, I use the same logic.

    [System: UDF]
    CustomerNumber: String: 57000


    [#Part: LEd Other Details]
    Add: Line:LineTACustomerNumber

    [Line:LineTACustomerNumber]
    Field: Medium Prompt,CustomerNumber
    Local: Field: Medium Prompt: Set as: "Customer Number :"

    [Field: CustomerNumber]
    Use: Name Field
    Unique : Yes
    Set as: $$NumLedgers+1
    Storage:CustomerNumber
    Read only: Yes
     


  5. Vaidehi Joshi

    Vaidehi Joshi New Member


    Thank you Sir,
    It is solved.
     


  6. Nihal

    Nihal New Member


    Hi sir, I would like to use this code for my the new customers that I will be adding, but what about the existing customers in our list? What can we do about them? Is there anyway we can do an excel sheet import. Im new to tally please guide me. Thank You.
     


  7. Vaidehi Joshi

    Vaidehi Joshi New Member


    Hello,I have a code to get a updated ledger date and time information.But sometime for particular ledger after altered it value not changing and then if we alter the same ledger that value is not changing.Could you please check my code?and let me know where it's going wrong?This code is refered from our Forum
    Thank you!!


    [#Report : Ledger]
    On : Load : Yes : Call : SetOldLedName
    Variable : OldLedName
    [System : Variable]
    OldLedName
    [Variable : OldLedName]
    Type : String
    Persist : No
    [Function : Set Old Led Name]
    10 : If : $$InAlterMode
    20 : Set : OldLedName : $Name
    30 : End If

    [#Part : LedOtherDetails]

    Switch : LEDJKAlter : JK LED Alter : $$InAlterMode

    [!Part : JK LED Alter]
    Add : Line : At End : JK LED Alter
    [Line : JKLED Alter]
    Field : Medium Prompt,JK LED Alter,JK LED Alter DateTime, JK Led Old Name
    Local : Field : Medium Prompt : Setas : "Altered By:"
    ;;Invisible:Yes

    [Field : JK LED Alter]

    Use : Name Field
    Setas : $$CMPUserName
    Storage : JKLEDAlteredBy
    Skip :Yes

    [Field : JK LED Alter DateTime]

    Use : Name Field
    Width : 15
    Set as : ($$String:$$MachineDate:UniversalDate + $$LocaleString:" " + $$MachineTime)
    Storage : JKAlteredDateTime
    Skip :Yes

    [Line : JKLEDOld Name]
    Field : Medium Prompt,JK LED Old Name
    Local : Field : Medium Prompt : Setas : "Old Name:"
    Invisible : Yes

    [Field : JK LED Old Name]

    Use : Name Field
    Storage : JKLEDOldName
    Set by Condition : $$InCreateMode : $$CMPUserName
    Set As : ##OldLedName;$Name
    Set Always : Yes
    Skip :Yes


    [Collection : JKLEDALTER]
    TYPE : Ledger
    Childof : $Name
    Fetch : JKLEDAlteredBy,JKAlteredDateTime,Name,*.*

    [Collection : JKLEDAltered]
    Type : Ledger
    Fetch : JKLEDAlter,JKLEDAlteredBy,JKAlteredDateTime,JKLEDCreatedBy,Name,*.*
    Filter : jkledAlter

    [System : Formulae]
    jkledAlter : Not $$IsEmpty:$JKLEDAlteredby

    [System : UDF]
    JKLEDAlter : Aggregate : 57005
    JKLEDAlteredBy : String : 57006
    JKAlteredDateTime : String : 57007
    JKLedOldName : String : 57008

    [#Form : Ledger]
    On : Form Accept : Yes : CALL : JayLedfunc

    [Function : JayLedfunc]
    Variable : LedAltName : String
    Variable : LedAltDate : String
    Variable : LedCreateName : String

    005 : If : $$InAlterMode
    010 : Set Target
    020 : Set:LedAltName:$$CMPUserName
    050 : Set:LedAltDate:($$String:$$MachineDate:UniversalDate + $$LocaleString:" " + $$MachineTime)
    080 : Insert Collection Object:JKLEDALTER
    090 : Set Target: (Ledger).
    110 : Set Value:JKLEDAlteredBy:##LedAltName
    120 : Set Value:JKAlteredDateTime:$$String:(##LedAltDate)
    160 : Set Target..
    170 : Set Target..

    175 : Accept Object
    180 : EndIf
     


Share This Page