Statement of Un - Secured Loan, Interest, TDS etc.

Discussion in 'Free Source Codes' started by Raju Das, Mar 31, 2015.

    
  1. Raju Das

    Raju Das Member


    Code:
    ;; Sri Ganeshji : Sri Balaji : Sri Pitreshwarji : Sri Durgaji : Sri Venkateshwara
    
    
    
    
    [#Menu : Gateway of Tally]
       
        Add : Item : After : Address Book: Statement of Un - Secured Loan, Interest, TDS etc. : Display : Tds Report
    
    ;;Writing A Report
    
    [Report : Tds Report]
       
        Use     : DSP Template
        Variable : SVFromDate, SVToDate
        Title : "Statement of Un - Secured Loan, Interest, TDS etc."
        PrintSet : Report Title : "Statement of Un - Secured Loan, Interest, TDS etc."
        Set      : SVfromDate : ##SVfromDate
        Set      : SVToDate : ##SVCurrentdate
        Form     : Tds Form
    [Form : Tds Form]   
        Height         : 100% Screen
        Width        : 100% Screen
        Space Top   : If $$InPrintMode Then 0.5 Else 0 inches
        Button      : PrintButton, ExportButton,F2 ChangePeriod
        Parts       : DB Title,Tds Tit,TdsinfoReport
        Local: Line : DB Title : Local : Field : Name Field: Set as : "Statement of Un - Secured Loan, Interest, TDS etc."
        Local: Line : DB Title : Local : Field : Name Field:Width:40
        Local: Line : DB Title : Local : Field : Name Field:Color:RED    
    [Part : Tds Tit]
       
        Space Bottom : 0.2 inch
        Line : TdsDate
        Invisible:Yes
       
    [Line : TdsDate]
       
                 Space Top: 1% page
                 Field : TdsFromdt,ToField11,TdsTodt
                
    [Field : TdsFromdt]
       
                     Use       : Date Field
                  Set as    : ##SVfromDate
                  Width     : 45% Screen
                  Align     : Center
                  Style     : Normal
                 
    [Field : ToField11]
       
        Use    : Name Field
        Set as : "To"
        Width  : 4% Screen
        Align  : Center
        Style  : Normal
    
    [Field : TdsTodt]
       
        Use       : Date Field
        Set as    : ##SVToDate
        Width     : 45% Screen
        Align     : Center
        Style     : Normal
    
    [Part :  TdsInfoReport]
       
        Line      : TdscolumnTitles,TdsInfo
        Repeat    : TdsInfo  : Mycollection123   
        Scroll    : Both
        Common Border : Yes
        Float     : No
        Border    : Thin Box
        Bottom Line:COlTotals123
        Total :Comm.Amt.,TDS Amt,TDS Amt Opening,TDS Amt Closing,TDS Period,TdsRate
    
    [Line : TdsColumnTitles]
       
        Border : Column Titles
       
        Fields : SerialNo.1,Particulars12,TDS Amt Opening,TDS Period,TdsRate,Comm.Amt.,Tds Amt,TDS Amt Closing 
       
        Local : Field : SerialNo.1     : Set as        : "Sl. No."
        Local : Field : SerialNo.1     : Line       : 0
        Local : Field : Particulars12   : Set as     : "Particulars"
        Local : Field : Particulars12   : Line       : 0
        Local:Field:TDS Amt Opening:Set as:$$String:"Bal as on " + (#TdsFromdt)
        Local:Field:TDS Period:Set as:"Period"
        Local : Field : TdsRate       : Set as     : "Rate"
        Local : Field : Comm.Amt.     : Set as     : "Interest"
        Local : Field : Tds Amt       : Set as     : "T.D.S"
        Local:Field:TDS Amt Closing:Set as:$$String:"Bal as on " + (#TdsTodt)
       
        Local : Field : Default          : Type         : String
        Local : Field : Default       : Style        : Small
        Local : Field : Default          : Align        : Center
       
    [Line : TdsInfo]
    
        Fields : SerialNo.1,Particulars12,TDS Amt Opening,TDS Period,TdsRate,Comm.Amt.,Tds Amt,TDS Amt Closing  
               
           
    [Line: COlTotals123]
    
        Use   :  TdsColumnTitles
    
        Local : Field : SerialNo.1     : Set as: ""
        Local : Field : Particulars12     : Set as: "Grand Total : -"
        Local : Field : Tds.Rate     : Set as: ""
        Local : Field : Comm.Amt.    : Set as: $$Total:Comm.Amt.
        Local : Field : TdsAmt     : Set as: $$Total:TdsAmt
        Local:Field:TDS Amt Opening:Set as:$$Total:TDSAmtOpening
        Local:Field:TDS Amt Closing:Set as:$$Total:TDSAmtClosing
        Local:Field:TDS Period:Set as:$$STRING:(##SVToDate - ##SVfromDate) + "  Days"
        Local:Field:TdsRate:Set as:"12 %"
        Local : Field : Default          : Align        : Right
        Local : Field : Default          :Style:Normal Bold
        Local : Field : Default          :Color:RED
       
    
    [Field : SerialNo.1]
           
        USE: MULTI SNO TEMPLATE
        SET AS:$$STRING:$$LINE + "."
        Width  : 4% Screen
        Style  : Normal
        Align:Center
       
    [Field : Particulars12]
           
        Use : Name Field
        Set as : $Name
        Width  : 41% Screen
        Style  : Normal
        Border : Thin Left
    
    [Field:    TDS Amt Opening]
        Use    : Amount Field
        Set as : $BSOpening
        Width  : 10% Screen
        Style  : Normal
        Border : Thin Left
    
    [Field:TDS Period]
        USE: MULTI SNO TEMPLATE
        Set as : $$STRING:(##SVToDate - ##SVfromDate) + "  Days"
        Format      : "NoZero,NoPercentage,Days"
        Width  : 10% Screen
        Style  : Normal
        Border : Thin Left
        Align:Center
       
    [Field : TdsRate]
           
        Use : Number Field
        Set as : "12 %"
        Width  : 5% Screen
        Style  : Normal
        Border : Thin Left
        Align:Center
         Format      : "NoZero,Percentage"
       
    [Field : Comm.Amt.]
           
        Use    : Amount Field
        Set as : ($BSOpening * 12)/100
        Width  : 10% Screen
        Style  : Normal
        Border : Thin Left
    
    [Field : Tds Amt]
           
        Use : Amount Field
        Set as : (#Comm.Amt. * 10) / 100
        Width : 10% Screen
        Style : Normal
        Border  :  Thin Left
    
    [Field:TDS Amt Closing]
        Use : Amount Field
        Set as : ($$AsAmount:#TdsAmt) + ($$AsAmount:#Comm.Amt.) + ($$AsAmount:#TDSAmtOpening);$BSClosing
        Width : 10% Screen
        Style : Normal
        Border  :  Thin Left right
    
    
    [Collection : MyCollection123]
       
        Type           : Ledger
        Child Of       : "Un-Secured Loan"
        Belongs To       : Yes
        Sort : @@SortAlphaIncr : $Name
    
    
    ;; EOF
    
     
    admin likes this.


  2. admin

    admin Administrator Staff Member


    Keep it up Raju Sir :)
     


  3. Raju Das

    Raju Das Member


    Thanks Admin....
     



  4. Good TDL, but On collection you are missing child of :"Un-Secured Loan" need "Un-Secured Loans"
     


Share This Page