Depreciation Module.....

Discussion in 'Tally Developer' started by Amit Kamdar, May 13, 2018.

         
  1. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Dear Experts,

    Found an old Depreciation Module on which I am expanding and completing in all respects.

    However I have reached a wall with respect to picking up data from one form to another form and I have tried all options like CollAmtTotal, FilterAmount, CollectionField etc but am unable to understand why it is not picking up. Maybe I am missing something but tried to go through Tally Developer Source code and did many things with no success.

    If any experts willing to help, I will send the TDL File, Photos (with markings), Document file and Tally Data.

    Kindly let me have your email in INBOX, so i can send the files.

    Thanks & Regards
    Amit Kamdar
     


  2. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Finally completed the "Depreciation Chart as per Income Tax Act" with great and valuable help from Mr. Garima, without his help, would not have been possible to finish this on my own.

    Here is the screenshot of the finished module.

    Capture01.PNG Capture02.PNG Capture03.PNG Capture03.PNG Capture04.PNG Capture05.PNG Capture06.PNG Capture07.PNG Capture08.PNG Capture09.PNG
     


  3. Manjunath Koparde

    Manjunath Koparde New Member


    Great Work Sir, Please Share Tdl File With Us.
     


  4. Umashankar

    Umashankar Member


    Much effort Great job Amitji. I appreciate your willingness in the subject in depth and knowledge . I once again Congratulate you for this wonderful work. Please post the file, so that I will also enjoy the benefits derived from your hard work. Thanks in advance Sir.
     
    Manjunath Koparde likes this.


  5. uttam100

    uttam100 Member



  6. Partha Mondal

    Partha Mondal Member



  7. Partha Mondal

    Partha Mondal Member



  8. Partha Mondal

    Partha Mondal Member



  9. Umashankar

    Umashankar Member



  10. Manjunath Koparde

    Manjunath Koparde New Member



  11. Vashisth

    Vashisth New Member



  12. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    It will be available on TallyShop soon............
     
    sandeep76out likes this.


  13. sathiyaraj

    sathiyaraj Member


    [System : Formula]
    IsEnableDepreciation : Yes;$EnableDepreciation:Company:##SVCurrentCompany

    [System: UDF]
    DepRate1Half : Number: 21005
    DepRate2Half : Number: 21006

    [#Part: Led Other Details]
    Add : Line: FSDepRateChart, DepRate1Half, DepRate2Half

    [Line : FSDepRateChart]
    Field: Medium Prompt
    Local: Field: Medium Prompt: Set as: "Depriciation Rate"
    ; Explode : FSDepRateChart : Yes

    [Part : FSDepRateChart]
    Line : DepRate1Half, DepRate2Half
    Scroll : Vertical

    [Line: DepRate1Half]
    Field: Medium Prompt, DepRate1Half
    Local: Field: Medium Prompt: Set as: "for 1st Half"
    Local: Field: Medium Prompt: Align : Right
    ; Invisible : Not @@IsEnableDepreciation

    [Field: DepRate1Half]
    Use : Number Field
    Storage : DepRate1Half
    Invisible : Not @@IsEnableDepreciation
    Format : "Percentage"
    Align : Right

    [Line: DepRate2Half]
    Field: Medium Prompt, DepRate2Half
    Local: Field: Medium Prompt: Set as: "for 2nd Half"
    Local: Field: Medium Prompt: Align : Right
    Invisible : Not @@IsEnableDepreciation

    [Field: DepRate2Half]
    Use : Number Field
    Set as : If $$isEmpty:$DepRate2Half Then $DepRate1Half/2 Else $DepRate2Half
    Set Always : Yes
    Storage : DepRate2Half
    Invisible : Not @@IsEnableDepreciation
    Format : "Percentage"
    Align : Right


    [#Menu : Gateway of Tally]
    Option : FS Depreciation Gateway : @@IsEnableDepreciation

    [!Menu : FS Depreciation Gateway]
    Add : Key Item : After : @@LocRatioAnalysis : Depreciation Chart : H : Display : Dep Report

    [Report : Dep Report]

    Use : DSP Template
    Variable : SVFromDate, SVToDate
    ; Set : SVfromDate : ##SVCurrentdate
    ; Set : SVToDate : ##SVCurrentdate
    Print Set : Report Title : "Depriciation Chart"
    Form : Dep Form

    [Form : Dep Form]
    Use : DSP Template
    Height : 100% Screen
    Width : 100% Screen
    BackGround : Lily White
    Space Top : If $$InPrintMode Then 0.5 Else 0 inches
    Button : PrintButton, ExportButton,F2 ChangePeriod
    Parts : DSPAccTitles, DepinfoReport ;Dep Tit,

    [Part : Dep Tit]

    Space Bottom : 0.2 inch
    Line : Dep Tit Line,DepDate


    [Line : Dep Tit Line]

    Field : Dep Tit Field

    [Field : Dep Tit Field]

    Use : Name Field
    Set as : "DEPRECIATION CHART"
    Align : Center
    Full Width : Yes
    Style : Large Bold

    [Line : DepDate]

    Space Top: 1% page
    Field : DepFromdt,ToField,DepTodt

    [Field : DepFromdt]

    Use : Uni Date Field
    Set as : ##SVCurrentdate
    Width : 45% Screen
    Align : Center
    Style : Normal

    [Field : ToField]

    Use : Name Field
    Set as : "To"
    Width : 4% Screen
    Align : Center
    Style : Normal

    [Field : DepTodt]

    Use : Uni Date Field
    Set as : ##SVToDate
    Width : 45% Screen
    Align : Center
    Style : Normal

    [Part : DepInfoReport]

    Line : FSDepcolumnTitles, FSDepInfo
    Repeat : FSDepInfo : FSDepCollection
    Scroll : Vertical
    Common Border : Yes
    Float : No
    Border : Thin Box
    Bottom Line : FSDepColTotals
    Total : FSDepOpBal,FSDepAddition1Half,FSDepAddition2Half,FSDepSale,FSDepTotal,FSDepDepreciation,FSDepClosingBal

    [Line : FSDepColumnTitles]
    Line : FSDepColumnTitles1, FSDepColumnTitles2

    [Line : FSDepColumnTitles1]
    Border : Thin Top
    Use : FSDepInfo
    ; Fields : FSDepSerialNo,FSDepParticulars,FSDepDepRate,FSDepOpBal,FSDepAddition1Half,FSDepAddition2Half,FSDepSale,FSDepTotal,FSDepDepreciation,FSDepClosing Bal

    Local : Field : Default : Style : Small Bold
    Local : Field : Default : Align : Center
    Local : Field : Default : Line : 0
    Local : Field : Default : Delete : Border

    Local : Field : FSDepSerialNo : Info : "SNo."
    Local : Field : FSDepParticulars : Info : "Particulars"
    Local : Field : FSDepDepRate : Info : "Dep"
    Local : Field : FSDepOpBal : Info : "Opening"
    Local : Field : FSDepAddition : Info : "Addition"
    Local : Field : FSDepAddition : Delete : Field
    Local : Field : FSDepAddition : Sub Title : Yes
    Local : Field : FSDepSale : Info : "Sales/"
    Local : Field : FSDepTotal : Info : "Total"
    Local : Field : FSDepDepreciation : Info : "Depreciation"
    Local : Field : FSDepClosing Bal : Info : "W.D.V"

    [Line : FSDepColumnTitles2]
    Border : Thin Bottom
    Use : FSDepInfo
    ; Fields : FSDepSerialNo,FSDepParticulars,FSDepDepRate,FSDepOpBal,FSDepAddition1Half,FSDepAddition2Half,FSDepSale,FSDepTotal,FSDepDepreciation,FSDepClosing Bal

    Local : Field : Default : Style : Small Bold
    Local : Field : Default : Align : Center
    Local : Field : Default : Line : 0
    Local : Field : Default : Delete : Border

    Local : Field : FSDepSerialNo : Info : ""
    Local : Field : FSDepParticulars : Info : ""
    Local : Field : FSDepDepRate : Info : "Rate"
    Local : Field : FSDepOpBal : Info : "Balance"
    Local : Field : FSDepAddition1Half : Info : "1st Half"
    Local : Field : FSDepAddition2Half : Info : "2nd Half"
    Local : Field : FSDepSale : Info : "Transfer"
    Local : Field : FSDepTotal : Info : ""
    Local : Field : FSDepDepreciation : Info : ""
    Local : Field : FSDepClosing Bal : Info : ""
    Local : Field : FSDepAddition : Border : Thin Top

    [Line : FSDepInfo]

    Fields : FSDepSerialNo, FSDepParticulars,
    Right Field : FSDepDepRate, FSDepOpBal, FSDepAddition, FSDepSale, FSDepTotal, FSDepDepreciation, FSDepClosing Bal

    Option : FSAlterOnAltEnter
    Option : DisplayOnEnter

    [!Line: FSAlterOnAltEnter]

    Key : FSLine Object AltEnter Alter, Line Click Object Enter Alter

    [Key : FSLine Object AltEnter Alter]

    Key : Alt + Enter
    Action : Alter Object
    Mode : Display

    [Field : FSDepSerialNo]
    Use : Number Field
    Set as : $$Line
    ; Width : 4% Screen
    Style : Normal
    Align : Center

    [Field : FSDepParticulars]
    Use : Name Field
    Set as : $Name
    Full Width : Yes
    ; Width : 25% Screen
    Style : Normal
    Border : Thin Left
    Variable: LedgerName
    Modifies: LedgerName
    Alter : Ledger
    Display : Ledger Vouchers

    [Field : FSDepDepRate]
    Use : Number Field
    Set as : $DepRate1Half
    ; Width : 5% Screen
    Style : Normal
    Border : Thin Left
    Format : "Percentage"
    Align : Right

    [Field : FSDepOpBal]

    Use : Amount Field
    Set as : $BSOpening
    ; Width : 10% Screen
    Style : Normal
    Border : Thin Left Right

    [Field : FSDepAddition]
    ; Use : Name Field
    Field : FSDepAddition1Half, FSDepAddition2Half,
    Width : @@AmountWidth*2

    [Field : FSDepAddition1Half]

    Use : Amount Field
    Set as : $$FromValue:mad:FSStartDate:$$ToValue:mad:FSMidDate:$BSDebits
    FSStartDate : $$Date:"01-Apr-2012"
    FSMidDate : $$Date:"30-Sep-2012"
    FSMidPeriod : $$Date:"01-Oct-2012"
    FSEndDate : $$Date:"31-Mar-2013"
    ; Width : 10% Screen
    Style : Normal
    ; Border : Thin Left

    [Field : FSDepAddition2Half]

    Use : Amount Field
    Set as : $$FromValue:mad:FSMidPeriod:$$ToValue:mad:FSEndDate:$BSDebits
    FSStartDate : $$Date:"01-Apr-2012"
    FSMidDate : $$Date:"30-Sep-2012"
    FSMidPeriod : $$Date:"01-Oct-2012"
    FSEndDate : $$Date:"31-Mar-2013"
    ; Width : 10% Screen
    Style : Normal
    Border : Thin Left

    [Field : FSDepSale]

    Use : Amount Field
    Set as : $BSCredits
    ; Width : 10% Screen
    Style : Normal
    Border : Thin Left

    [Field : FSDepTotal]

    Use : Amount Field
    Set as : $$AsAmount:mad:MainDepTotal
    FirstDepTotal : $$AmountAdd:#FSDepOpBal:#FSDepAddition1Half
    SecondDepTotal : $$AmountAdd:mad:FirstDepTotal:#FSDepAddition2Half
    FirstDepSubTotal: @FirstDepTotal-#FSDepSale
    ThirdDepTotal : If #FSDepSale < @FirstDepTotal Then @FirstDepTotal-#FSDepSale Else @SecondDepTotal-#FSDepSale
    MainDepTotal : If #FSDepSale < @FirstDepTotal Then $$AmountAdd:mad:FirstDepSubTotal:#FSDepAddition2Half Else @SecondDepTotal-#FSDepSale
    FSFirstDepValue : (@FirstDepSubTotal * $DepRate1Half)/100
    FSSecondDepValue: (#FSDepAddition2Half * $DepRate2Half)/100
    FSDepValue : $$AmountAdd:mad:FSFirstDepValue:mad:FSSecondDepValue
    ; Set as : ($BSOpening + $BSDebits) - $BSCredits
    ; Width : 12% Screen
    Style : Normal
    Border : Thin Left

    [Field : FSDepDepreciation]

    Use : Amount Field
    Set as : $$FilterAmtTotal:FSDepriciationVchColl:IsFSLedExist:$FSTotalDrDepAmt
    ; Set as : $$Round:mad:FSDepValue:1 ;(#FSDepTotal * #FSDepDepRate) / 100
    FirstDepTotal : $$AmountAdd:#FSDepOpBal:#FSDepAddition1Half
    SecondDepTotal : $$AmountAdd:mad:FirstDepTotal:#FSDepAddition2Half
    FirstDepSubTotal: @FirstDepTotal-#FSDepSale
    ThirdDepTotal : If #FSDepSale < @FirstDepTotal Then @FirstDepTotal-#FSDepSale Else @SecondDepTotal-#FSDepSale
    MainDepTotal : If #FSDepSale < @FirstDepTotal Then $$AmountAdd:mad:FirstDepSubTotal:#FSDepAddition2Half Else @SecondDepTotal-#FSDepSale
    FSFirstDepValue : (@FirstDepSubTotal * $DepRate1Half)/100
    FSSecondDepValue: (#FSDepAddition2Half * $DepRate2Half)/100
    FSDepValue : $$AmountAdd:mad:FSFirstDepValue:mad:FSSecondDepValue
    ;
    ; Width : 12% Screen
    Style : Normal
    Border : Thin Left

    [Field : FSDepClosing Bal]

    Use : Amount Field
    Set as : #FSDepTotal - #FSDepDepreciation
    ; Width : 12% Screen
    Style : Normal
    Border : Thin Left

    [Line: FSDepColTotals]

    Use : FSDepInfo
    Border : Column Titles
    Local : Field : Default : Style : Normal Bold
    Local : Field : FSDepSerialNo : Info : ""
    Local : Field : FSDepParticulars : Info : "Grand Total"
    Local : Field : FSDepDepRate : Info : ""

    Local : Field : FSDepOpBal : Set as : $$Total:FSDepOpBal
    Local : Field : FSDepAddition1Half : Set as : $$Total:FSDepAddition1Half
    Local : Field : FSDepAddition2Half : Set as : $$Total:FSDepAddition2Half
    Local : Field : FSDepTotal : Set as : $$Total:FSDepTotal
    Local : Field : FSDepSale : Set as : $$Total:FSDepSale
    Local : Field : FSDepDepreciation : Set as : $$Total:FSDepDepreciation
    Local : Field : FSDepClosing Bal : Set as : $$Total:FSDepClosingBal

    [Collection : FSDepcollection]

    Type : Ledger
    Child Of : $$GroupFixedAssets
    Belongs To : Yes
    Fetch : DepRate1Half, DepRate2Half
    ; Filter : FixedAssets Filter
    Sort : @@Default : $DepRate1Half

    [System: Formula]
    FixedAssets Filter: $OpeningBalance > 0

    [Collection : FSDepriciationVchColl]
    Parm Var : pvLedgerName : String : "Depreciation A/c"
    Parm Var : pvDSPNameStyle : String : "Name Only"
    Type : Vouchers : Ledger
    Child Of : ##pvLedgerName

    Belongs To : Yes

    Fetch : Date, VoucherTypeName, VoucherNumber, Narration, MasterID
    Fetch : IsOptional
    Fetch : AllLedgerEntries.BankAllocations.*
    Fetch : AllLedgerEntries.BillAllocations.*
    Fetch : AllLedgerEntries.LedgerName, AllLedgerEntries.Amount
    Fetch : AllLedgerEntries.LedgerName, AllLedgerEntries.Narration, AllLedgerEntries.IsDeemedPositive ;;to get the narration in condensed mode.

    Compute : TotalLedDrVchAmt : $$OrigVchLedDrTotal:#pvLedgerName:($$SysName:AcctgVchView)
    Compute : TotalLedCrVchAmt : $$OrigVchLedCrTotal:#pvLedgerName:($$SysName:AcctgVchView)
    Compute : VchLedName : $$FuncDSPLedAccName:"No":##pvDSPNameStyle
    Compute : FirstContraAccount : $$FirstContraAcc:$$IsDr:mad:@TotalLedVchAmt
    Compute : TotalLedVchAmt : If $$InPrintMode Then $$OrigVchLedTotal:#pvLedgerName Else $$OrigVchLedTotal:##pvLedgerName
    ; Compute : DSPNameStyle : ##DSPNameStyle

    Compute : FSTotalDrDepAmt : $$OrigVchLedDrTotal:##pvLedgerName
    Compute : FSTotalCrDepAmt : $$OrigVchLedCrTotal:##pvLedgerName
    Compute : AllocCCLedName : If $$IsEmpty:##pvLedgerName then "" else $$FuncDSPAccName:##pvLedgerName
    ; Filter : IsFSLedExist

    [System: Formula]
    IsFSLedExist : $VchLedName = "Computer A/c" ;#FSDepParticulars
     


  14. sathiyaraj

    sathiyaraj Member


    try this file....
    some alter to get full report...
     


  15. sathiyaraj

    sathiyaraj Member






    [System : Formula]
    IsEnableDepreciation : Yes;$EnableDepreciation:Company:##SVCurrentCompany

    [System: UDF]
    DepRate1Half : Number: 21005
    DepRate2Half : Number: 21006

    [#Part: Led Other Details]
    Add : Line: FSDepRateChart, DepRate1Half, DepRate2Half

    [Line : FSDepRateChart]
    Field: Medium Prompt
    Local: Field: Medium Prompt: Set as: "Depriciation Rate"
    ; Explode : FSDepRateChart : Yes

    [Part : FSDepRateChart]
    Line : DepRate1Half, DepRate2Half
    Scroll : Vertical

    [Line: DepRate1Half]
    Field: Medium Prompt, DepRate1Half
    Local: Field: Medium Prompt: Set as: "for 1st Half"
    Local: Field: Medium Prompt: Align : Right
    ; Invisible : Not @@IsEnableDepreciation

    [Field: DepRate1Half]
    Use : Number Field
    Storage : DepRate1Half
    Invisible : Not @@IsEnableDepreciation
    Format : "Percentage"
    Align : Right

    [Line: DepRate2Half]
    Field: Medium Prompt, DepRate2Half
    Local: Field: Medium Prompt: Set as: "for 2nd Half"
    Local: Field: Medium Prompt: Align : Right
    Invisible : Not @@IsEnableDepreciation

    [Field: DepRate2Half]
    Use : Number Field
    Set as : If $$isEmpty:$DepRate2Half Then $DepRate1Half/2 Else $DepRate2Half
    Set Always : Yes
    Storage : DepRate2Half
    Invisible : Not @@IsEnableDepreciation
    Format : "Percentage"
    Align : Right


    [#Menu : Gateway of Tally]
    Option : FS Depreciation Gateway : @@IsEnableDepreciation

    [!Menu : FS Depreciation Gateway]
    Add : Key Item : After : @@LocRatioAnalysis : Depreciation Chart : H : Display : Dep Report

    [Report : Dep Report]

    Use : DSP Template
    Variable : SVFromDate, SVToDate
    ; Set : SVfromDate : ##SVCurrentdate
    ; Set : SVToDate : ##SVCurrentdate
    Print Set : Report Title : "Depriciation Chart"
    Form : Dep Form

    [Form : Dep Form]
    Use : DSP Template
    Height : 100% Screen
    Width : 100% Screen
    BackGround : Lily White
    Space Top : If $$InPrintMode Then 0.5 Else 0 inches
    Button : PrintButton, ExportButton,F2 ChangePeriod
    Parts : DSPAccTitles, DepinfoReport ;Dep Tit,

    [Part : Dep Tit]

    Space Bottom : 0.2 inch
    Line : Dep Tit Line,DepDate


    [Line : Dep Tit Line]

    Field : Dep Tit Field

    [Field : Dep Tit Field]

    Use : Name Field
    Set as : "DEPRECIATION CHART"
    Align : Center
    Full Width : Yes
    Style : Large Bold

    [Line : DepDate]

    Space Top: 1% page
    Field : DepFromdt,ToField,DepTodt

    [Field : DepFromdt]

    Use : Uni Date Field
    Set as : ##SVCurrentdate
    Width : 45% Screen
    Align : Center
    Style : Normal

    [Field : ToField]

    Use : Name Field
    Set as : "To"
    Width : 4% Screen
    Align : Center
    Style : Normal

    [Field : DepTodt]

    Use : Uni Date Field
    Set as : ##SVToDate
    Width : 45% Screen
    Align : Center
    Style : Normal

    [Part : DepInfoReport]

    Line : FSDepcolumnTitles, FSDepInfo
    Repeat : FSDepInfo : FSDepCollection
    Scroll : Vertical
    Common Border : Yes
    Float : No
    Border : Thin Box
    Bottom Line : FSDepColTotals
    Total : FSDepOpBal,FSDepAddition1Half,FSDepAddition2Half,FSDepSale,FSDepTotal,FSDepDepreciation,FSDepClosingBal

    [Line : FSDepColumnTitles]
    Line : FSDepColumnTitles1, FSDepColumnTitles2

    [Line : FSDepColumnTitles1]
    Border : Thin Top
    Use : FSDepInfo
    ; Fields : FSDepSerialNo,FSDepParticulars,FSDepDepRate,FSDepOpBal,FSDepAddition1Half,FSDepAddition2Half,FSDepSale,FSDepTotal,FSDepDepreciation,FSDepClosing Bal

    Local : Field : Default : Style : Small Bold
    Local : Field : Default : Align : Center
    Local : Field : Default : Line : 0
    Local : Field : Default : Delete : Border

    Local : Field : FSDepSerialNo : Info : "SNo."
    Local : Field : FSDepParticulars : Info : "Particulars"
    Local : Field : FSDepDepRate : Info : "Dep"
    Local : Field : FSDepOpBal : Info : "Opening"
    Local : Field : FSDepAddition : Info : "Addition"
    Local : Field : FSDepAddition : Delete : Field
    Local : Field : FSDepAddition : Sub Title : Yes
    Local : Field : FSDepSale : Info : "Sales/"
    Local : Field : FSDepTotal : Info : "Total"
    Local : Field : FSDepDepreciation : Info : "Depreciation"
    Local : Field : FSDepClosing Bal : Info : "W.D.V"

    [Line : FSDepColumnTitles2]
    Border : Thin Bottom
    Use : FSDepInfo
    ; Fields : FSDepSerialNo,FSDepParticulars,FSDepDepRate,FSDepOpBal,FSDepAddition1Half,FSDepAddition2Half,FSDepSale,FSDepTotal,FSDepDepreciation,FSDepClosing Bal

    Local : Field : Default : Style : Small Bold
    Local : Field : Default : Align : Center
    Local : Field : Default : Line : 0
    Local : Field : Default : Delete : Border

    Local : Field : FSDepSerialNo : Info : ""
    Local : Field : FSDepParticulars : Info : ""
    Local : Field : FSDepDepRate : Info : "Rate"
    Local : Field : FSDepOpBal : Info : "Balance"
    Local : Field : FSDepAddition1Half : Info : "1st Half"
    Local : Field : FSDepAddition2Half : Info : "2nd Half"
    Local : Field : FSDepSale : Info : "Transfer"
    Local : Field : FSDepTotal : Info : ""
    Local : Field : FSDepDepreciation : Info : ""
    Local : Field : FSDepClosing Bal : Info : ""
    Local : Field : FSDepAddition : Border : Thin Top

    [Line : FSDepInfo]

    Fields : FSDepSerialNo, FSDepParticulars,
    Right Field : FSDepDepRate, FSDepOpBal, FSDepAddition, FSDepSale, FSDepTotal, FSDepDepreciation, FSDepClosing Bal

    Option : FSAlterOnAltEnter
    Option : DisplayOnEnter

    [!Line: FSAlterOnAltEnter]

    Key : FSLine Object AltEnter Alter, Line Click Object Enter Alter

    [Key : FSLine Object AltEnter Alter]

    Key : Alt + Enter
    Action : Alter Object
    Mode : Display

    [Field : FSDepSerialNo]
    Use : Number Field
    Set as : $$Line
    ; Width : 4% Screen
    Style : Normal
    Align : Center

    [Field : FSDepParticulars]
    Use : Name Field
    Set as : $Name
    Full Width : Yes
    ; Width : 25% Screen
    Style : Normal
    Border : Thin Left
    Variable: LedgerName
    Modifies: LedgerName
    Alter : Ledger
    Display : Ledger Vouchers

    [Field : FSDepDepRate]
    Use : Number Field
    Set as : $DepRate1Half
    ; Width : 5% Screen
    Style : Normal
    Border : Thin Left
    Format : "Percentage"
    Align : Right

    [Field : FSDepOpBal]

    Use : Amount Field
    Set as : $BSOpening
    ; Width : 10% Screen
    Style : Normal
    Border : Thin Left Right

    [Field : FSDepAddition]
    ; Use : Name Field
    Field : FSDepAddition1Half, FSDepAddition2Half,
    Width : @@AmountWidth*2

    [Field : FSDepAddition1Half]

    Use : Amount Field
    Set as : $$FromValue:mad:FSStartDate:$$ToValue:mad:FSMidDate:$BSDebits
    FSStartDate : $$Date:"01-Apr-2012"
    FSMidDate : $$Date:"30-Sep-2012"
    FSMidPeriod : $$Date:"01-Oct-2012"
    FSEndDate : $$Date:"31-Mar-2013"
    ; Width : 10% Screen
    Style : Normal
    ; Border : Thin Left

    [Field : FSDepAddition2Half]

    Use : Amount Field
    Set as : $$FromValue:mad:FSMidPeriod:$$ToValue:mad:FSEndDate:$BSDebits
    FSStartDate : $$Date:"01-Apr-2012"
    FSMidDate : $$Date:"30-Sep-2012"
    FSMidPeriod : $$Date:"01-Oct-2012"
    FSEndDate : $$Date:"31-Mar-2013"
    ; Width : 10% Screen
    Style : Normal
    Border : Thin Left

    [Field : FSDepSale]

    Use : Amount Field
    Set as : $BSCredits
    ; Width : 10% Screen
    Style : Normal
    Border : Thin Left

    [Field : FSDepTotal]

    Use : Amount Field
    Set as : $$AsAmount:mad:MainDepTotal
    FirstDepTotal : $$AmountAdd:#FSDepOpBal:#FSDepAddition1Half
    SecondDepTotal : $$AmountAdd:mad:FirstDepTotal:#FSDepAddition2Half
    FirstDepSubTotal: @FirstDepTotal-#FSDepSale
    ThirdDepTotal : If #FSDepSale < @FirstDepTotal Then @FirstDepTotal-#FSDepSale Else @SecondDepTotal-#FSDepSale
    MainDepTotal : If #FSDepSale < @FirstDepTotal Then $$AmountAdd:mad:FirstDepSubTotal:#FSDepAddition2Half Else @SecondDepTotal-#FSDepSale
    FSFirstDepValue : (@FirstDepSubTotal * $DepRate1Half)/100
    FSSecondDepValue: (#FSDepAddition2Half * $DepRate2Half)/100
    FSDepValue : $$AmountAdd:mad:FSFirstDepValue:mad:FSSecondDepValue
    ; Set as : ($BSOpening + $BSDebits) - $BSCredits
    ; Width : 12% Screen
    Style : Normal
    Border : Thin Left

    [Field : FSDepDepreciation]

    Use : Amount Field
    Set as : $$FilterAmtTotal:FSDepriciationVchColl:IsFSLedExist:$FSTotalDrDepAmt
    ; Set as : $$Round:mad:FSDepValue:1 ;(#FSDepTotal * #FSDepDepRate) / 100
    FirstDepTotal : $$AmountAdd:#FSDepOpBal:#FSDepAddition1Half
    SecondDepTotal : $$AmountAdd:mad:FirstDepTotal:#FSDepAddition2Half
    FirstDepSubTotal: @FirstDepTotal-#FSDepSale
    ThirdDepTotal : If #FSDepSale < @FirstDepTotal Then @FirstDepTotal-#FSDepSale Else @SecondDepTotal-#FSDepSale
    MainDepTotal : If #FSDepSale < @FirstDepTotal Then $$AmountAdd:mad:FirstDepSubTotal:#FSDepAddition2Half Else @SecondDepTotal-#FSDepSale
    FSFirstDepValue : (@FirstDepSubTotal * $DepRate1Half)/100
    FSSecondDepValue: (#FSDepAddition2Half * $DepRate2Half)/100
    FSDepValue : $$AmountAdd:mad:FSFirstDepValue:mad:FSSecondDepValue
    ;
    ; Width : 12% Screen
    Style : Normal
    Border : Thin Left

    [Field : FSDepClosing Bal]

    Use : Amount Field
    Set as : #FSDepTotal - #FSDepDepreciation
    ; Width : 12% Screen
    Style : Normal
    Border : Thin Left

    [Line: FSDepColTotals]

    Use : FSDepInfo
    Border : Column Titles
    Local : Field : Default : Style : Normal Bold
    Local : Field : FSDepSerialNo : Info : ""
    Local : Field : FSDepParticulars : Info : "Grand Total"
    Local : Field : FSDepDepRate : Info : ""

    Local : Field : FSDepOpBal : Set as : $$Total:FSDepOpBal
    Local : Field : FSDepAddition1Half : Set as : $$Total:FSDepAddition1Half
    Local : Field : FSDepAddition2Half : Set as : $$Total:FSDepAddition2Half
    Local : Field : FSDepTotal : Set as : $$Total:FSDepTotal
    Local : Field : FSDepSale : Set as : $$Total:FSDepSale
    Local : Field : FSDepDepreciation : Set as : $$Total:FSDepDepreciation
    Local : Field : FSDepClosing Bal : Set as : $$Total:FSDepClosingBal

    [Collection : FSDepcollection]

    Type : Ledger
    Child Of : $$GroupFixedAssets
    Belongs To : Yes
    Fetch : DepRate1Half, DepRate2Half
    ; Filter : FixedAssets Filter
    Sort : @@Default : $DepRate1Half

    [System: Formula]
    FixedAssets Filter: $OpeningBalance > 0

    [Collection : FSDepriciationVchColl]
    Parm Var : pvLedgerName : String : "Depreciation A/c"
    Parm Var : pvDSPNameStyle : String : "Name Only"
    Type : Vouchers : Ledger
    Child Of : ##pvLedgerName

    Belongs To : Yes

    Fetch : Date, VoucherTypeName, VoucherNumber, Narration, MasterID
    Fetch : IsOptional
    Fetch : AllLedgerEntries.BankAllocations.*
    Fetch : AllLedgerEntries.BillAllocations.*
    Fetch : AllLedgerEntries.LedgerName, AllLedgerEntries.Amount
    Fetch : AllLedgerEntries.LedgerName, AllLedgerEntries.Narration, AllLedgerEntries.IsDeemedPositive ;;to get the narration in condensed mode.

    Compute : TotalLedDrVchAmt : $$OrigVchLedDrTotal:#pvLedgerName:($$SysName:AcctgVchView)
    Compute : TotalLedCrVchAmt : $$OrigVchLedCrTotal:#pvLedgerName:($$SysName:AcctgVchView)
    Compute : VchLedName : $$FuncDSPLedAccName:"No":##pvDSPNameStyle
    Compute : FirstContraAccount : $$FirstContraAcc:$$IsDr:mad:@TotalLedVchAmt
    Compute : TotalLedVchAmt : If $$InPrintMode Then $$OrigVchLedTotal:#pvLedgerName Else $$OrigVchLedTotal:##pvLedgerName
    ; Compute : DSPNameStyle : ##DSPNameStyle

    Compute : FSTotalDrDepAmt : $$OrigVchLedDrTotal:##pvLedgerName
    Compute : FSTotalCrDepAmt : $$OrigVchLedCrTotal:##pvLedgerName
    Compute : AllocCCLedName : If $$IsEmpty:##pvLedgerName then "" else $$FuncDSPAccName:##pvLedgerName
    ; Filter : IsFSLedExist

    [System: Formula]
    IsFSLedExist : $VchLedName = "Computer A/c" ;#FSDepParticulars
     


  16. Devaki

    Devaki Member



  17. sathiyaraj

    sathiyaraj Member






    [System : Formula]
    IsEnableDepreciation : Yes;$EnableDepreciation:Company:##SVCurrentCompany

    [System: UDF]
    DepRate1Half : Number: 21005
    DepRate2Half : Number: 21006

    [#Part: Led Other Details]
    Add : Line: FSDepRateChart, DepRate1Half, DepRate2Half

    [Line : FSDepRateChart]
    Field: Medium Prompt
    Local: Field: Medium Prompt: Set as: "Depriciation Rate"
    ; Explode : FSDepRateChart : Yes

    [Part : FSDepRateChart]
    Line : DepRate1Half, DepRate2Half
    Scroll : Vertical

    [Line: DepRate1Half]
    Field: Medium Prompt, DepRate1Half
    Local: Field: Medium Prompt: Set as: "for 1st Half"
    Local: Field: Medium Prompt: Align : Right
    ; Invisible : Not @@IsEnableDepreciation

    [Field: DepRate1Half]
    Use : Number Field
    Storage : DepRate1Half
    Invisible : Not @@IsEnableDepreciation
    Format : "Percentage"
    Align : Right

    [Line: DepRate2Half]
    Field: Medium Prompt, DepRate2Half
    Local: Field: Medium Prompt: Set as: "for 2nd Half"
    Local: Field: Medium Prompt: Align : Right
    Invisible : Not @@IsEnableDepreciation

    [Field: DepRate2Half]
    Use : Number Field
    Set as : If $$isEmpty:$DepRate2Half Then $DepRate1Half/2 Else $DepRate2Half
    Set Always : Yes
    Storage : DepRate2Half
    Invisible : Not @@IsEnableDepreciation
    Format : "Percentage"
    Align : Right


    [#Menu : Gateway of Tally]
    Option : FS Depreciation Gateway : @@IsEnableDepreciation

    [!Menu : FS Depreciation Gateway]
    Add : Key Item : After : @@LocRatioAnalysis : Depreciation Chart : H : Display : Dep Report

    [Report : Dep Report]

    Use : DSP Template
    Variable : SVFromDate, SVToDate
    ; Set : SVfromDate : ##SVCurrentdate
    ; Set : SVToDate : ##SVCurrentdate
    Print Set : Report Title : "Depriciation Chart"
    Form : Dep Form

    [Form : Dep Form]
    Use : DSP Template
    Height : 100% Screen
    Width : 100% Screen
    BackGround : Lily White
    Space Top : If $$InPrintMode Then 0.5 Else 0 inches
    Button : PrintButton, ExportButton,F2 ChangePeriod
    Parts : DSPAccTitles, DepinfoReport ;Dep Tit,

    [Part : Dep Tit]

    Space Bottom : 0.2 inch
    Line : Dep Tit Line,DepDate


    [Line : Dep Tit Line]

    Field : Dep Tit Field

    [Field : Dep Tit Field]

    Use : Name Field
    Set as : "DEPRECIATION CHART"
    Align : Center
    Full Width : Yes
    Style : Large Bold

    [Line : DepDate]

    Space Top: 1% page
    Field : DepFromdt,ToField,DepTodt

    [Field : DepFromdt]

    Use : Uni Date Field
    Set as : ##SVCurrentdate
    Width : 45% Screen
    Align : Center
    Style : Normal

    [Field : ToField]

    Use : Name Field
    Set as : "To"
    Width : 4% Screen
    Align : Center
    Style : Normal

    [Field : DepTodt]

    Use : Uni Date Field
    Set as : ##SVToDate
    Width : 45% Screen
    Align : Center
    Style : Normal

    [Part : DepInfoReport]

    Line : FSDepcolumnTitles, FSDepInfo
    Repeat : FSDepInfo : FSDepCollection
    Scroll : Vertical
    Common Border : Yes
    Float : No
    Border : Thin Box
    Bottom Line : FSDepColTotals
    Total : FSDepOpBal,FSDepAddition1Half,FSDepAddition2Half,FSDepSale,FSDepTotal,FSDepDepreciation,FSDepClosingBal

    [Line : FSDepColumnTitles]
    Line : FSDepColumnTitles1, FSDepColumnTitles2

    [Line : FSDepColumnTitles1]
    Border : Thin Top
    Use : FSDepInfo
    ; Fields : FSDepSerialNo,FSDepParticulars,FSDepDepRate,FSDepOpBal,FSDepAddition1Half,FSDepAddition2Half,FSDepSale,FSDepTotal,FSDepDepreciation,FSDepClosing Bal

    Local : Field : Default : Style : Small Bold
    Local : Field : Default : Align : Center
    Local : Field : Default : Line : 0
    Local : Field : Default : Delete : Border

    Local : Field : FSDepSerialNo : Info : "SNo."
    Local : Field : FSDepParticulars : Info : "Particulars"
    Local : Field : FSDepDepRate : Info : "Dep"
    Local : Field : FSDepOpBal : Info : "Opening"
    Local : Field : FSDepAddition : Info : "Addition"
    Local : Field : FSDepAddition : Delete : Field
    Local : Field : FSDepAddition : Sub Title : Yes
    Local : Field : FSDepSale : Info : "Sales/"
    Local : Field : FSDepTotal : Info : "Total"
    Local : Field : FSDepDepreciation : Info : "Depreciation"
    Local : Field : FSDepClosing Bal : Info : "W.D.V"

    [Line : FSDepColumnTitles2]
    Border : Thin Bottom
    Use : FSDepInfo
    ; Fields : FSDepSerialNo,FSDepParticulars,FSDepDepRate,FSDepOpBal,FSDepAddition1Half,FSDepAddition2Half,FSDepSale,FSDepTotal,FSDepDepreciation,FSDepClosing Bal

    Local : Field : Default : Style : Small Bold
    Local : Field : Default : Align : Center
    Local : Field : Default : Line : 0
    Local : Field : Default : Delete : Border

    Local : Field : FSDepSerialNo : Info : ""
    Local : Field : FSDepParticulars : Info : ""
    Local : Field : FSDepDepRate : Info : "Rate"
    Local : Field : FSDepOpBal : Info : "Balance"
    Local : Field : FSDepAddition1Half : Info : "1st Half"
    Local : Field : FSDepAddition2Half : Info : "2nd Half"
    Local : Field : FSDepSale : Info : "Transfer"
    Local : Field : FSDepTotal : Info : ""
    Local : Field : FSDepDepreciation : Info : ""
    Local : Field : FSDepClosing Bal : Info : ""
    Local : Field : FSDepAddition : Border : Thin Top

    [Line : FSDepInfo]

    Fields : FSDepSerialNo, FSDepParticulars,
    Right Field : FSDepDepRate, FSDepOpBal, FSDepAddition, FSDepSale, FSDepTotal, FSDepDepreciation, FSDepClosing Bal

    Option : FSAlterOnAltEnter
    Option : DisplayOnEnter

    [!Line: FSAlterOnAltEnter]

    Key : FSLine Object AltEnter Alter, Line Click Object Enter Alter

    [Key : FSLine Object AltEnter Alter]

    Key : Alt + Enter
    Action : Alter Object
    Mode : Display

    [Field : FSDepSerialNo]
    Use : Number Field
    Set as : $$Line
    ; Width : 4% Screen
    Style : Normal
    Align : Center

    [Field : FSDepParticulars]
    Use : Name Field
    Set as : $Name
    Full Width : Yes
    ; Width : 25% Screen
    Style : Normal
    Border : Thin Left
    Variable: LedgerName
    Modifies: LedgerName
    Alter : Ledger
    Display : Ledger Vouchers

    [Field : FSDepDepRate]
    Use : Number Field
    Set as : $DepRate1Half
    ; Width : 5% Screen
    Style : Normal
    Border : Thin Left
    Format : "Percentage"
    Align : Right

    [Field : FSDepOpBal]

    Use : Amount Field
    Set as : $BSOpening
    ; Width : 10% Screen
    Style : Normal
    Border : Thin Left Right

    [Field : FSDepAddition]
    ; Use : Name Field
    Field : FSDepAddition1Half, FSDepAddition2Half,
    Width : @@AmountWidth*2

    [Field : FSDepAddition1Half]

    Use : Amount Field
    Set as : $$FromValue:mad:FSStartDate:$$ToValue:mad:FSMidDate:$BSDebits
    FSStartDate : $$Date:"01-Apr-2012"
    FSMidDate : $$Date:"30-Sep-2012"
    FSMidPeriod : $$Date:"01-Oct-2012"
    FSEndDate : $$Date:"31-Mar-2013"
    ; Width : 10% Screen
    Style : Normal
    ; Border : Thin Left

    [Field : FSDepAddition2Half]

    Use : Amount Field
    Set as : $$FromValue:mad:FSMidPeriod:$$ToValue:mad:FSEndDate:$BSDebits
    FSStartDate : $$Date:"01-Apr-2012"
    FSMidDate : $$Date:"30-Sep-2012"
    FSMidPeriod : $$Date:"01-Oct-2012"
    FSEndDate : $$Date:"31-Mar-2013"
    ; Width : 10% Screen
    Style : Normal
    Border : Thin Left

    [Field : FSDepSale]

    Use : Amount Field
    Set as : $BSCredits
    ; Width : 10% Screen
    Style : Normal
    Border : Thin Left

    [Field : FSDepTotal]

    Use : Amount Field
    Set as : $$AsAmount:mad:MainDepTotal
    FirstDepTotal : $$AmountAdd:#FSDepOpBal:#FSDepAddition1Half
    SecondDepTotal : $$AmountAdd:mad:FirstDepTotal:#FSDepAddition2Half
    FirstDepSubTotal: @FirstDepTotal-#FSDepSale
    ThirdDepTotal : If #FSDepSale < @FirstDepTotal Then @FirstDepTotal-#FSDepSale Else @SecondDepTotal-#FSDepSale
    MainDepTotal : If #FSDepSale < @FirstDepTotal Then $$AmountAdd:mad:FirstDepSubTotal:#FSDepAddition2Half Else @SecondDepTotal-#FSDepSale
    FSFirstDepValue : (@FirstDepSubTotal * $DepRate1Half)/100
    FSSecondDepValue: (#FSDepAddition2Half * $DepRate2Half)/100
    FSDepValue : $$AmountAdd:mad:FSFirstDepValue:mad:FSSecondDepValue
    ; Set as : ($BSOpening + $BSDebits) - $BSCredits
    ; Width : 12% Screen
    Style : Normal
    Border : Thin Left

    [Field : FSDepDepreciation]

    Use : Amount Field
    Set as : $$FilterAmtTotal:FSDepriciationVchColl:IsFSLedExist:$FSTotalDrDepAmt
    ; Set as : $$Round:mad:FSDepValue:1 ;(#FSDepTotal * #FSDepDepRate) / 100
    FirstDepTotal : $$AmountAdd:#FSDepOpBal:#FSDepAddition1Half
    SecondDepTotal : $$AmountAdd:mad:FirstDepTotal:#FSDepAddition2Half
    FirstDepSubTotal: @FirstDepTotal-#FSDepSale
    ThirdDepTotal : If #FSDepSale < @FirstDepTotal Then @FirstDepTotal-#FSDepSale Else @SecondDepTotal-#FSDepSale
    MainDepTotal : If #FSDepSale < @FirstDepTotal Then $$AmountAdd:mad:FirstDepSubTotal:#FSDepAddition2Half Else @SecondDepTotal-#FSDepSale
    FSFirstDepValue : (@FirstDepSubTotal * $DepRate1Half)/100
    FSSecondDepValue: (#FSDepAddition2Half * $DepRate2Half)/100
    FSDepValue : $$AmountAdd:mad:FSFirstDepValue:mad:FSSecondDepValue
    ;
    ; Width : 12% Screen
    Style : Normal
    Border : Thin Left

    [Field : FSDepClosing Bal]

    Use : Amount Field
    Set as : #FSDepTotal - #FSDepDepreciation
    ; Width : 12% Screen
    Style : Normal
    Border : Thin Left

    [Line: FSDepColTotals]

    Use : FSDepInfo
    Border : Column Titles
    Local : Field : Default : Style : Normal Bold
    Local : Field : FSDepSerialNo : Info : ""
    Local : Field : FSDepParticulars : Info : "Grand Total"
    Local : Field : FSDepDepRate : Info : ""

    Local : Field : FSDepOpBal : Set as : $$Total:FSDepOpBal
    Local : Field : FSDepAddition1Half : Set as : $$Total:FSDepAddition1Half
    Local : Field : FSDepAddition2Half : Set as : $$Total:FSDepAddition2Half
    Local : Field : FSDepTotal : Set as : $$Total:FSDepTotal
    Local : Field : FSDepSale : Set as : $$Total:FSDepSale
    Local : Field : FSDepDepreciation : Set as : $$Total:FSDepDepreciation
    Local : Field : FSDepClosing Bal : Set as : $$Total:FSDepClosingBal

    [Collection : FSDepcollection]

    Type : Ledger
    Child Of : $$GroupFixedAssets
    Belongs To : Yes
    Fetch : DepRate1Half, DepRate2Half
    ; Filter : FixedAssets Filter
    Sort : @@Default : $DepRate1Half

    [System: Formula]
    FixedAssets Filter: $OpeningBalance > 0

    [Collection : FSDepriciationVchColl]
    Parm Var : pvLedgerName : String : "Depreciation A/c"
    Parm Var : pvDSPNameStyle : String : "Name Only"
    Type : Vouchers : Ledger
    Child Of : ##pvLedgerName

    Belongs To : Yes

    Fetch : Date, VoucherTypeName, VoucherNumber, Narration, MasterID
    Fetch : IsOptional
    Fetch : AllLedgerEntries.BankAllocations.*
    Fetch : AllLedgerEntries.BillAllocations.*
    Fetch : AllLedgerEntries.LedgerName, AllLedgerEntries.Amount
    Fetch : AllLedgerEntries.LedgerName, AllLedgerEntries.Narration, AllLedgerEntries.IsDeemedPositive ;;to get the narration in condensed mode.

    Compute : TotalLedDrVchAmt : $$OrigVchLedDrTotal:#pvLedgerName:($$SysName:AcctgVchView)
    Compute : TotalLedCrVchAmt : $$OrigVchLedCrTotal:#pvLedgerName:($$SysName:AcctgVchView)
    Compute : VchLedName : $$FuncDSPLedAccName:"No":##pvDSPNameStyle
    Compute : FirstContraAccount : $$FirstContraAcc:$$IsDr:mad:@TotalLedVchAmt
    Compute : TotalLedVchAmt : If $$InPrintMode Then $$OrigVchLedTotal:#pvLedgerName Else $$OrigVchLedTotal:##pvLedgerName
    ; Compute : DSPNameStyle : ##DSPNameStyle

    Compute : FSTotalDrDepAmt : $$OrigVchLedDrTotal:##pvLedgerName
    Compute : FSTotalCrDepAmt : $$OrigVchLedCrTotal:##pvLedgerName
    Compute : AllocCCLedName : If $$IsEmpty:##pvLedgerName then "" else $$FuncDSPAccName:##pvLedgerName
    ; Filter : IsFSLedExist

    [System: Formula]
    IsFSLedExist : $VchLedName = "Computer A/c" ;#FSDepParticulars
    [System : Formula]
    IsEnableDepreciation : Yes;$EnableDepreciation:Company:##SVCurrentCompany

    [System: UDF]
    DepRate1Half : Number: 21005
    DepRate2Half : Number: 21006

    [#Part: Led Other Details]
    Add : Line: FSDepRateChart, DepRate1Half, DepRate2Half

    [Line : FSDepRateChart]
    Field: Medium Prompt
    Local: Field: Medium Prompt: Set as: "Depriciation Rate"
    ; Explode : FSDepRateChart : Yes

    [Part : FSDepRateChart]
    Line : DepRate1Half, DepRate2Half
    Scroll : Vertical

    [Line: DepRate1Half]
    Field: Medium Prompt, DepRate1Half
    Local: Field: Medium Prompt: Set as: "for 1st Half"
    Local: Field: Medium Prompt: Align : Right
    ; Invisible : Not @@IsEnableDepreciation

    [Field: DepRate1Half]
    Use : Number Field
    Storage : DepRate1Half
    Invisible : Not @@IsEnableDepreciation
    Format : "Percentage"
    Align : Right

    [Line: DepRate2Half]
    Field: Medium Prompt, DepRate2Half
    Local: Field: Medium Prompt: Set as: "for 2nd Half"
    Local: Field: Medium Prompt: Align : Right
    Invisible : Not @@IsEnableDepreciation

    [Field: DepRate2Half]
    Use : Number Field
    Set as : If $$isEmpty:$DepRate2Half Then $DepRate1Half/2 Else $DepRate2Half
    Set Always : Yes
    Storage : DepRate2Half
    Invisible : Not @@IsEnableDepreciation
    Format : "Percentage"
    Align : Right


    [#Menu : Gateway of Tally]
    Option : FS Depreciation Gateway : @@IsEnableDepreciation

    [!Menu : FS Depreciation Gateway]
    Add : Key Item : After : @@LocRatioAnalysis : Depreciation Chart : H : Display : Dep Report

    [Report : Dep Report]

    Use : DSP Template
    Variable : SVFromDate, SVToDate
    ; Set : SVfromDate : ##SVCurrentdate
    ; Set : SVToDate : ##SVCurrentdate
    Print Set : Report Title : "Depriciation Chart"
    Form : Dep Form

    [Form : Dep Form]
    Use : DSP Template
    Height : 100% Screen
    Width : 100% Screen
    BackGround : Lily White
    Space Top : If $$InPrintMode Then 0.5 Else 0 inches
    Button : PrintButton, ExportButton,F2 ChangePeriod
    Parts : DSPAccTitles, DepinfoReport ;Dep Tit,

    [Part : Dep Tit]

    Space Bottom : 0.2 inch
    Line : Dep Tit Line,DepDate


    [Line : Dep Tit Line]

    Field : Dep Tit Field

    [Field : Dep Tit Field]

    Use : Name Field
    Set as : "DEPRECIATION CHART"
    Align : Center
    Full Width : Yes
    Style : Large Bold

    [Line : DepDate]

    Space Top: 1% page
    Field : DepFromdt,ToField,DepTodt

    [Field : DepFromdt]

    Use : Uni Date Field
    Set as : ##SVCurrentdate
    Width : 45% Screen
    Align : Center
    Style : Normal

    [Field : ToField]

    Use : Name Field
    Set as : "To"
    Width : 4% Screen
    Align : Center
    Style : Normal

    [Field : DepTodt]

    Use : Uni Date Field
    Set as : ##SVToDate
    Width : 45% Screen
    Align : Center
    Style : Normal

    [Part : DepInfoReport]

    Line : FSDepcolumnTitles, FSDepInfo
    Repeat : FSDepInfo : FSDepCollection
    Scroll : Vertical
    Common Border : Yes
    Float : No
    Border : Thin Box
    Bottom Line : FSDepColTotals
    Total : FSDepOpBal,FSDepAddition1Half,FSDepAddition2Half,FSDepSale,FSDepTotal,FSDepDepreciation,FSDepClosingBal

    [Line : FSDepColumnTitles]
    Line : FSDepColumnTitles1, FSDepColumnTitles2

    [Line : FSDepColumnTitles1]
    Border : Thin Top
    Use : FSDepInfo
    ; Fields : FSDepSerialNo,FSDepParticulars,FSDepDepRate,FSDepOpBal,FSDepAddition1Half,FSDepAddition2Half,FSDepSale,FSDepTotal,FSDepDepreciation,FSDepClosing Bal

    Local : Field : Default : Style : Small Bold
    Local : Field : Default : Align : Center
    Local : Field : Default : Line : 0
    Local : Field : Default : Delete : Border

    Local : Field : FSDepSerialNo : Info : "SNo."
    Local : Field : FSDepParticulars : Info : "Particulars"
    Local : Field : FSDepDepRate : Info : "Dep"
    Local : Field : FSDepOpBal : Info : "Opening"
    Local : Field : FSDepAddition : Info : "Addition"
    Local : Field : FSDepAddition : Delete : Field
    Local : Field : FSDepAddition : Sub Title : Yes
    Local : Field : FSDepSale : Info : "Sales/"
    Local : Field : FSDepTotal : Info : "Total"
    Local : Field : FSDepDepreciation : Info : "Depreciation"
    Local : Field : FSDepClosing Bal : Info : "W.D.V"

    [Line : FSDepColumnTitles2]
    Border : Thin Bottom
    Use : FSDepInfo
    ; Fields : FSDepSerialNo,FSDepParticulars,FSDepDepRate,FSDepOpBal,FSDepAddition1Half,FSDepAddition2Half,FSDepSale,FSDepTotal,FSDepDepreciation,FSDepClosing Bal

    Local : Field : Default : Style : Small Bold
    Local : Field : Default : Align : Center
    Local : Field : Default : Line : 0
    Local : Field : Default : Delete : Border

    Local : Field : FSDepSerialNo : Info : ""
    Local : Field : FSDepParticulars : Info : ""
    Local : Field : FSDepDepRate : Info : "Rate"
    Local : Field : FSDepOpBal : Info : "Balance"
    Local : Field : FSDepAddition1Half : Info : "1st Half"
    Local : Field : FSDepAddition2Half : Info : "2nd Half"
    Local : Field : FSDepSale : Info : "Transfer"
    Local : Field : FSDepTotal : Info : ""
    Local : Field : FSDepDepreciation : Info : ""
    Local : Field : FSDepClosing Bal : Info : ""
    Local : Field : FSDepAddition : Border : Thin Top

    [Line : FSDepInfo]

    Fields : FSDepSerialNo, FSDepParticulars,
    Right Field : FSDepDepRate, FSDepOpBal, FSDepAddition, FSDepSale, FSDepTotal, FSDepDepreciation, FSDepClosing Bal

    Option : FSAlterOnAltEnter
    Option : DisplayOnEnter

    [!Line: FSAlterOnAltEnter]

    Key : FSLine Object AltEnter Alter, Line Click Object Enter Alter

    [Key : FSLine Object AltEnter Alter]

    Key : Alt + Enter
    Action : Alter Object
    Mode : Display

    [Field : FSDepSerialNo]
    Use : Number Field
    Set as : $$Line
    ; Width : 4% Screen
    Style : Normal
    Align : Center

    [Field : FSDepParticulars]
    Use : Name Field
    Set as : $Name
    Full Width : Yes
    ; Width : 25% Screen
    Style : Normal
    Border : Thin Left
    Variable: LedgerName
    Modifies: LedgerName
    Alter : Ledger
    Display : Ledger Vouchers

    [Field : FSDepDepRate]
    Use : Number Field
    Set as : $DepRate1Half
    ; Width : 5% Screen
    Style : Normal
    Border : Thin Left
    Format : "Percentage"
    Align : Right

    [Field : FSDepOpBal]

    Use : Amount Field
    Set as : $BSOpening
    ; Width : 10% Screen
    Style : Normal
    Border : Thin Left Right

    [Field : FSDepAddition]
    ; Use : Name Field
    Field : FSDepAddition1Half, FSDepAddition2Half,
    Width : @@AmountWidth*2

    [Field : FSDepAddition1Half]

    Use : Amount Field
    Set as : $$FromValue:mad:FSStartDate:$$ToValue:mad:FSMidDate:$BSDebits
    FSStartDate : $$Date:"01-Apr-2012"
    FSMidDate : $$Date:"30-Sep-2012"
    FSMidPeriod : $$Date:"01-Oct-2012"
    FSEndDate : $$Date:"31-Mar-2013"
    ; Width : 10% Screen
    Style : Normal
    ; Border : Thin Left

    [Field : FSDepAddition2Half]

    Use : Amount Field
    Set as : $$FromValue:mad:FSMidPeriod:$$ToValue:mad:FSEndDate:$BSDebits
    FSStartDate : $$Date:"01-Apr-2012"
    FSMidDate : $$Date:"30-Sep-2012"
    FSMidPeriod : $$Date:"01-Oct-2012"
    FSEndDate : $$Date:"31-Mar-2013"
    ; Width : 10% Screen
    Style : Normal
    Border : Thin Left

    [Field : FSDepSale]

    Use : Amount Field
    Set as : $BSCredits
    ; Width : 10% Screen
    Style : Normal
    Border : Thin Left

    [Field : FSDepTotal]

    Use : Amount Field
    Set as : $$AsAmount:mad:MainDepTotal
    FirstDepTotal : $$AmountAdd:#FSDepOpBal:#FSDepAddition1Half
    SecondDepTotal : $$AmountAdd:mad:FirstDepTotal:#FSDepAddition2Half
    FirstDepSubTotal: @FirstDepTotal-#FSDepSale
    ThirdDepTotal : If #FSDepSale < @FirstDepTotal Then @FirstDepTotal-#FSDepSale Else @SecondDepTotal-#FSDepSale
    MainDepTotal : If #FSDepSale < @FirstDepTotal Then $$AmountAdd:mad:FirstDepSubTotal:#FSDepAddition2Half Else @SecondDepTotal-#FSDepSale
    FSFirstDepValue : (@FirstDepSubTotal * $DepRate1Half)/100
    FSSecondDepValue: (#FSDepAddition2Half * $DepRate2Half)/100
    FSDepValue : $$AmountAdd:mad:FSFirstDepValue:mad:FSSecondDepValue
    ; Set as : ($BSOpening + $BSDebits) - $BSCredits
    ; Width : 12% Screen
    Style : Normal
    Border : Thin Left

    [Field : FSDepDepreciation]

    Use : Amount Field
    Set as : $$FilterAmtTotal:FSDepriciationVchColl:IsFSLedExist:$FSTotalDrDepAmt
    ; Set as : $$Round:mad:FSDepValue:1 ;(#FSDepTotal * #FSDepDepRate) / 100
    FirstDepTotal : $$AmountAdd:#FSDepOpBal:#FSDepAddition1Half
    SecondDepTotal : $$AmountAdd:mad:FirstDepTotal:#FSDepAddition2Half
    FirstDepSubTotal: @FirstDepTotal-#FSDepSale
    ThirdDepTotal : If #FSDepSale < @FirstDepTotal Then @FirstDepTotal-#FSDepSale Else @SecondDepTotal-#FSDepSale
    MainDepTotal : If #FSDepSale < @FirstDepTotal Then $$AmountAdd:mad:FirstDepSubTotal:#FSDepAddition2Half Else @SecondDepTotal-#FSDepSale
    FSFirstDepValue : (@FirstDepSubTotal * $DepRate1Half)/100
    FSSecondDepValue: (#FSDepAddition2Half * $DepRate2Half)/100
    FSDepValue : $$AmountAdd:mad:FSFirstDepValue:mad:FSSecondDepValue
    ;
    ; Width : 12% Screen
    Style : Normal
    Border : Thin Left

    [Field : FSDepClosing Bal]

    Use : Amount Field
    Set as : #FSDepTotal - #FSDepDepreciation
    ; Width : 12% Screen
    Style : Normal
    Border : Thin Left

    [Line: FSDepColTotals]

    Use : FSDepInfo
    Border : Column Titles
    Local : Field : Default : Style : Normal Bold
    Local : Field : FSDepSerialNo : Info : ""
    Local : Field : FSDepParticulars : Info : "Grand Total"
    Local : Field : FSDepDepRate : Info : ""

    Local : Field : FSDepOpBal : Set as : $$Total:FSDepOpBal
    Local : Field : FSDepAddition1Half : Set as : $$Total:FSDepAddition1Half
    Local : Field : FSDepAddition2Half : Set as : $$Total:FSDepAddition2Half
    Local : Field : FSDepTotal : Set as : $$Total:FSDepTotal
    Local : Field : FSDepSale : Set as : $$Total:FSDepSale
    Local : Field : FSDepDepreciation : Set as : $$Total:FSDepDepreciation
    Local : Field : FSDepClosing Bal : Set as : $$Total:FSDepClosingBal

    [Collection : FSDepcollection]

    Type : Ledger
    Child Of : $$GroupFixedAssets
    Belongs To : Yes
    Fetch : DepRate1Half, DepRate2Half
    ; Filter : FixedAssets Filter
    Sort : @@Default : $DepRate1Half

    [System: Formula]
    FixedAssets Filter: $OpeningBalance > 0

    [Collection : FSDepriciationVchColl]
    Parm Var : pvLedgerName : String : "Depreciation A/c"
    Parm Var : pvDSPNameStyle : String : "Name Only"
    Type : Vouchers : Ledger
    Child Of : ##pvLedgerName

    Belongs To : Yes

    Fetch : Date, VoucherTypeName, VoucherNumber, Narration, MasterID
    Fetch : IsOptional
    Fetch : AllLedgerEntries.BankAllocations.*
    Fetch : AllLedgerEntries.BillAllocations.*
    Fetch : AllLedgerEntries.LedgerName, AllLedgerEntries.Amount
    Fetch : AllLedgerEntries.LedgerName, AllLedgerEntries.Narration, AllLedgerEntries.IsDeemedPositive ;;to get the narration in condensed mode.

    Compute : TotalLedDrVchAmt : $$OrigVchLedDrTotal:#pvLedgerName:($$SysName:AcctgVchView)
    Compute : TotalLedCrVchAmt : $$OrigVchLedCrTotal:#pvLedgerName:($$SysName:AcctgVchView)
    Compute : VchLedName : $$FuncDSPLedAccName:"No":##pvDSPNameStyle
    Compute : FirstContraAccount : $$FirstContraAcc:$$IsDr:mad:@TotalLedVchAmt
    Compute : TotalLedVchAmt : If $$InPrintMode Then $$OrigVchLedTotal:#pvLedgerName Else $$OrigVchLedTotal:##pvLedgerName
    ; Compute : DSPNameStyle : ##DSPNameStyle

    Compute : FSTotalDrDepAmt : $$OrigVchLedDrTotal:##pvLedgerName
    Compute : FSTotalCrDepAmt : $$OrigVchLedCrTotal:##pvLedgerName
    Compute : AllocCCLedName : If $$IsEmpty:##pvLedgerName then "" else $$FuncDSPAccName:##pvLedgerName
    ; Filter : IsFSLedExist

    [System: Formula]
    IsFSLedExist : $VchLedName = "Computer A/c" ;#FSDepParticulars
     


  18. SHREYASH PATIL

    SHREYASH PATIL New Member



  19. Devaki

    Devaki Member


    sir any book available to learn TDL or is there any online opportunity
     


  20. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Download Tally Developer from tally website.....the latest comes with source code of release 6.4.1.....it is free.....you have to pay only if you want to make TCP files.

    Also download Tally reference manual.....google it.... try to get the latest version.....

    Then browse for TDL files in this forum,,,,,and from those file try making your own.......you can search the reference manual or Tally developer

    Happy learning.....good luck
     


  21. Devaki

    Devaki Member


    Thank you sir
     


  22. drive

    drive Active Member


    Depreciation Report Download
     
    Last edited: Aug 14, 2019


  23. Sureshvm

    Sureshvm New Member


    hello sir

    i want company act depreciation slm / wdv with rate change w.e.f date also required
     


  24. naren1234

    naren1234 New Member


    I agree, an additional (User Defined) Rate and Depreciation Method for the same, plus rate change history for both rates (I-Tax and User defined) would be a great improvement (BTW, it is still Not available on TallyShop).
    ALSO, if purchase and sale of assets are tracked by using bill-wise reference on Fixed-Asset Ledgers, then you can also show Net Profit/Loss on sale of Asset after considering the depreciation portion on the same. This can be shown as an additional column in the Depreciation chart, thus making it helpful for the user to pass asset sale entry with depreciation (on the sold portion) on the date of sale.

    Since the above changes are required at Ledger Level, the code will require a good amount of alteration, BUT that will make it a comprehensive solution.

    Nevertheless, we appreciate all the efforts that have been put so far. Great Work!
     
    Last edited: Oct 10, 2019


  25. PERVEZ THACKER

    PERVEZ THACKER New Member


    Can you share this TDL Code with me please. My e-mail D is thackerpervez@gmail.com.

    Thanking you in advance. Most appreciated.
     


Share This Page