Useful for small Co-operative (free code)

Discussion in 'Free Source Codes' started by vumika poudel, Nov 19, 2013.

    
  1. vumika poudel

    vumika poudel Member


    ld.PNG [#Menu: Gateway of Tally]
    Item: Before : Display : Vumika's Report : Menu : Vumika's Report

    [Menu: Vumika's Report]
    Item : Loan Disbursement Register : Display : Loan Disbursement Register : NOT $$IsEmpty:$$SelectedCmps
    ;;................................................................................................................................
    [#Part: MST LED Details]
    Add : Line : At End : LoanTakenDate, ExpiryDays
    [Line : LoanTakenDate]
    Field : Long Prompt, LoanTakenDate
    Local : Field : Long Prompt : Set as : "Loan Taken Date (If Applicable)"
    Local : Field : Default : Inactive : Not ($$IsBelongsTo:$$GroupCurrentAssets) ;; Or $$IsBelongsTo:$$GroupBankOD)
    [Line : ExpiryDays]
    Field : Long Prompt, ExpiryDays, ExpDay
    Local : Field : Long Prompt : Set as : "Loan Expired After"
    Local : Field : Default : Inactive : Not ($$IsBelongsTo:$$GroupCurrentAssets) ;; Or $$IsBelongsTo:$$GroupBankOD)
    [Field : LoanTakenDate]
    Use : Uni Date Field
    Set as : Date
    Storage : LoanTakenDateS
    Width : 8
    [Field : ExpiryDays]
    Use : Number Field
    Set as : Number
    Storage : ExpiryDaysS
    Width : 4
    [Field : ExpDay]
    Set as : "Days"
    Skip : Yes
    Width : 4
    [System: UDF]
    LoanTakenDateS : Date : 1001
    ExpiryDaysS : Number : 1002

    ;;....................................................................................................................................................
    .........
    ;; Loan Disbursement Register
    ;;....................................................................................................................................................
    .........

    [Report : Loan Disbursement Register]
    ; Use : Dsp Template
    Variables : SV CurrentCompany, SV FromDate, SV ToDate, SV SortMethod, SVBudget, SVVariance
    Set : SV Sort Method : "Default"
    Set : Is Day Book : Yes
    Form : LoanRegister
    [Form : LoanRegister]
    Use : Dsp Template
    Height : 100 % Page
    Width : 100 % Page
    Part : DSP AccTitles, LoanRegisterBody
    [Part : LoanRegisterBody]
    Lines : Loanlineh, Loanline
    Repeat : Loanline : D LoanRegister
    Scroll : Vertical
    Bottom Line : LoanTotal
    Total : LoanPartyBalance
    Common border : Yes
    [Line : Loanlineh]
    Fields : LoanSrNo, LoanParty, LoanPartyContact, LoanPartyAdd
    Right Fields : LoanPartyEmail, LoanPartyBalance, LoanExpiryDate, LoanExpiryRemainingDays, LDay
    Local : Field : LoanSrNo : Set as : "S.No"
    Local : Field : LoanParty : Set as : "Loan Disbursed To"
    Local : Field : LoanPartyContact : Set as : "Contact No"
    Local : Field : LoanPartyAdd : Set as : "Consignee Address"
    Local : Field : LoanPartyAdd : Align : Center
    Local : Field : LoanPartyEmail : Set as : "E-Mail Address"
    Local : Field : LoanPartyBalance : Set as : "Loan Amount"
    Local : Field : LoanPartyBalance : Align : Center
    Local : Field : LoanExpiryDate : Set as : "Expired On"
    Local : Field : LoanExpiryRemainingDays : Set as : "Due"
    Local : Field : LDay : Set as : "After"
    Border : Thin Top Bottom

    [Line : Loanline]
    Fields : LoanSrNo, LoanParty, LoanPartyContact, LoanPartyAdd
    Right Fields : LoanPartyEmail, LoanPartyBalance, LoanExpiryDate, LoanExpiryRemainingDays, Lday
    Option : AlterOnEnter : $$IsLedger AND NOT $IsDeleted
    Explode : LoanHeadDetail : $$KeyExplode OR ##ExplodeFlag
    ;; Border : Column Titles
    [Field : LoanSrNo]
    Use : Short Name Field
    Set as : $$Line
    Style : Normal
    Width : 4.3
    Align : Right
    Alter : Ledger : $$IsLedger AND NOT $IsDeleted

    [Field : LoanParty]
    Use : Name Field
    Set as : $Name
    Width : 29
    Style : Normal
    Border : Thin Left
    [Field : LoanPartyContact]
    Use : Short Name Field
    Set as : $LedgerPhone
    Style : Normal
    Border : Thin Left
    Width : 12
    Align : Center

    [Field : LoanPartyAdd]
    Use : Short Name Field
    Set as : $$FullList:Address:$Address+" "+$StateName+" "+$PinCode
    Style : Normal
    Border : Thin Left
    Full Width : Yes
    [Field : LoanPartyEmail]
    Use : Short Name Field
    Set as : $Email
    Style : Normal
    Border : Thin Left
    Width : 27
    Align : Center
    [Field : LoanPartyBalance]
    Use : Short Name Field
    Set As : If $$IsDr:$ClosingBalance then $$String:$ClosingBalance + " Dr" else $$String:$ClosingBalance + " Cr"
    Style : Normal
    Border : Thin Left
    Width : 14
    Align : Right
    [Field : LoanExpiryDate]
    Use : Short Name Field
    Set as : $LoanTakenDateS + $ExpiryDaysS
    Style : Normal
    Border : Thin Left
    Width : 12
    Align : Center
    [Field : LoanExpiryRemainingDays]
    Use : Short Name Field
    Set as : ($LoanTakenDateS + $ExpiryDaysS)-$$MachineDate ;; + $String:" Days"
    Style : Normal
    Border : Thin Left
    Width : 4.4
    Align : Right
    [Field : Lday]
    Use : Short Name Field
    Set as : "Days"
    Style : Normal
    ;; Border : Thin Left
    Width : 4
    Align : Left
    [Collection: D LoanRegister]
    Type : Ledger
    Child of : Loans & Advances(Asset)
    ;; Invisible : If $$ClosingBalance=Zero
    Belongs To : Yes
    Filter : ZeroBalanceLoanLedger
    [System : Formula]
    ZeroBalanceLoanLedger : Not $$IsEmpty:$ClosingBalance ;;And Not $$ZeroClosingBalance
    [Line:LoanTotal]
    Use : Loanline
    Local : Field : LoanPartyBalance : Set as : $$Total:LoanPartyBalance
    Local : Field : LoanSrNo : Set as :"Total"
    Local : Field : LoanParty : Set as : "Loan Disbursement Amount"
    Local : Field : LoanPartyContact : Set as :""
    Local : Field : LoanPartyAdd : Set as :""
    Local : Field : LoanPartyEmail : Set as :""
    Local : Field : LoanExpiryDate: Set as :""
    Local : Field : LoanExpiryRemainingDays : Set as :""
    Local : Field : Lday : Set as :""
    Border : Totals

    Dear Experts
    it is not getting 'total amount' on total field please help...................................
     



  2. [Field : LoanPartyBalance] field should "use : amount field'
     


  3. admin

    admin Administrator Staff Member


    Keep it up Madam Ji :)
     


  4. vumika poudel

    vumika poudel Member


    Thank You Very Much Pritam Sir,
    Thank you admin sir
     
    Ankur Tiwari likes this.


  5. Taufeeq Shaikh

    Taufeeq Shaikh Active Member


    Great Work Vumika Ji Very Nice
     


  6. shovon

    shovon New Member


    Thanks vumika ji for your code. Interest column Add.
     


  7. NMS

    NMS Member


    Thank For Sharing Vumika ji...
     


  8. Taufeeq Shaikh

    Taufeeq Shaikh Active Member


    Just a Little Bit of Modification for Getting Total with Dr Cr Balance.




    [#Menu: Gateway of Tally]
    Add : Item: After : Display : Loan Report : Menu : Loan Report

    [Menu: Loan Report]
    Add : Item : Loan Disbursement Register : Display : Loan Disbursement Register : NOT $$IsEmpty:$$SelectedCmps
    ;;................................................................................................................................

    [#Part: MST LED Details]
    Add : Line : At End : LoanTakenDate, ExpiryDays
    [Line : LoanTakenDate]
    Field : Long Prompt, LoanTakenDate
    Local : Field : Long Prompt : Set as : "Loan Taken Date (If Applicable)"
    Local : Field : Default : Inactive : Not ($$IsBelongsTo:$$GroupCurrentAssets) ;; Or $$IsBelongsTo:$$GroupBankOD)
    [Line : ExpiryDays]
    Field : Long Prompt, ExpiryDays, ExpDay
    Local : Field : Long Prompt : Set as : "Loan Expired After"
    Local : Field : Default : Inactive : Not ($$IsBelongsTo:$$GroupCurrentAssets) ;; Or $$IsBelongsTo:$$GroupBankOD)
    [Field : LoanTakenDate]
    Use : Uni Date Field
    Set as : Date
    Storage : LoanTakenDateS
    Width : 8
    [Field : ExpiryDays]
    Use : Number Field
    Set as : Number
    Storage : ExpiryDaysS
    Width : 4
    [Field : ExpDay]
    Set as : "Days"
    Skip : Yes
    Width : 4
    [System: UDF]
    LoanTakenDateS : Date : 1001
    ExpiryDaysS : Number : 1002

    ;;....................................................................................................................................................
    .........
    ;; Loan Disbursement Register
    ;;....................................................................................................................................................
    .........

    [Report : Loan Disbursement Register]
    ; Use : Dsp Template
    Variables : SV CurrentCompany, SV FromDate, SV ToDate, SV SortMethod, SVBudget, SVVariance
    Set : SV Sort Method : "Default"
    Set : Is Day Book : Yes
    Form : LoanRegister
    [Form : LoanRegister]
    Use : Dsp Template
    Height : 100 % Page
    Width : 100 % Page
    Part : DSP AccTitles, LoanRegisterBody
    [Part : LoanRegisterBody]
    Lines : Loanlineh, Loanline
    Repeat : Loanline : D LoanRegister
    Scroll : Vertical
    Bottom Line : LoanTotal
    Total : LoanPartyBalance
    Common border : Yes
    [Line : Loanlineh]
    Fields : LoanSrNo, LoanParty, LoanPartyContact, LoanPartyAdd
    Right Fields : LoanPartyEmail, LoanPartyBalance, LoanExpiryDate, LoanExpiryRemainingDays, LDay
    Local : Field : LoanSrNo : Set as : "S.No"
    Local : Field : LoanParty : Set as : "Loan Disbursed To"
    Local : Field : LoanPartyContact : Set as : "Contact No"
    Local : Field : LoanPartyAdd : Set as : "Consignee Address"
    Local : Field : LoanPartyAdd : Align : Center
    Local : Field : LoanPartyEmail : Set as : "E-Mail Address"
    Local : Field : LoanPartyBalance : Info: $$LocaleString:"Loan Amount"
    Local : Field : LoanPartyBalance : Align : Center
    Local : Field : LoanExpiryDate : Set as : "Expired On"
    Local : Field : LoanExpiryRemainingDays : Set as : "Due"
    Local : Field : LDay : Set as : "After"
    Border : Thin Top Bottom

    [Line : Loanline]
    Fields : LoanSrNo, LoanParty, LoanPartyContact, LoanPartyAdd
    Right Fields : LoanPartyEmail, LoanPartyBalance, LoanExpiryDate, LoanExpiryRemainingDays, Lday
    Option : AlterOnEnter : $$IsLedger AND NOT $IsDeleted
    Explode : LoanHeadDetail : $$KeyExplode OR ##ExplodeFlag
    ;; Border : Column Titles
    [Field : LoanSrNo]
    Use : Short Name Field
    Set as : $$Line
    Style : Normal
    Width : 4.3
    Align : Right
    Alter : Ledger : $$IsLedger AND NOT $IsDeleted

    [Field : LoanParty]
    Use : Name Field
    Set as : $Name
    Width : 29
    Style : Normal
    Border : Thin Left
    [Field : LoanPartyContact]
    Use : Short Name Field
    Set as : $LedgerPhone
    Style : Normal
    Border : Thin Left
    Width : 12
    Align : Center

    [Field : LoanPartyAdd]
    Use : Short Name Field
    Set as : $$FullList:Address:$Address+" "+$StateName+" "+$PinCode
    Style : Normal
    Border : Thin Left
    Full Width : Yes
    [Field : LoanPartyEmail]
    Use : Short Name Field
    Set as : $Email
    Style : Normal
    Border : Thin Left
    Width : 27
    Align : Center
    [Field : LoanPartyBalance]
    Use : Amount Field
    Set As : $ClosingBalance
    Style : Normal
    Border : Thin Left
    Width : 14
    Align : Right
    Format : "DrCr,NoZero," + ##ShowForex
    [Field : LoanExpiryDate]
    Use : Short Name Field
    Set as : $LoanTakenDateS + $ExpiryDaysS
    Style : Normal
    Border : Thin Left
    Width : 12
    Align : Center
    [Field : LoanExpiryRemainingDays]
    Use : Short Name Field
    Set as : ($LoanTakenDateS + $ExpiryDaysS)-$$MachineDate ;; + $String:" Days"
    Style : Normal
    Border : Thin Left
    Width : 4.4
    Align : Right
    [Field : Lday]
    Use : Short Name Field
    Set as : "Days"
    Style : Normal
    ;; Border : Thin Left
    Width : 4
    Align : Left
    [Collection: D LoanRegister]
    Type : Ledger
    Child of : Loans & Advances(Asset)
    ;; Invisible : If $$ClosingBalance=Zero
    Belongs To : Yes
    Filter : ZeroBalanceLoanLedger
    [System : Formula]
    ZeroBalanceLoanLedger : Not $$IsEmpty:$ClosingBalance ;;And Not $$ZeroClosingBalance
    [Line:LoanTotal]
    Use : Loanline
    Local : Field : LoanPartyBalance : Set as : $$Total:LoanPartyBalance
    Local : Field : LoanSrNo : Set as :"Total"
    Local : Field : LoanParty : Set as : "Loan Disbursement Amount"
    Local : Field : LoanPartyContact : Set as :""
    Local : Field : LoanPartyAdd : Set as :""
    Local : Field : LoanPartyEmail : Set as :""
    Local : Field : LoanExpiryDate: Set as :""
    Local : Field : LoanExpiryRemainingDays : Set as :""
    Local : Field : Lday : Set as :""
    Border : Totals
     


  9. Taufeeq Shaikh

    Taufeeq Shaikh Active Member


    Dear All,
    Modified Loan Report with Interest.




    [#Menu: Gateway of Tally]
    Add : Item: After : Display : Loan Report : Menu : Loan Report

    [Menu: Loan Report]
    Add : Item : Loan Disbursement Register : Display : Loan Disbursement Register : NOT $$IsEmpty:$$SelectedCmps
    ;;................................................................................................................................

    [#Part: MST LED Details]
    Add : Line : At End : LoanTakenDate, ExpiryDays
    [Line : LoanTakenDate]
    Field : Long Prompt, LoanTakenDate
    Local : Field : Long Prompt : Set as : "Loan Taken Date (If Applicable)"
    Local : Field : Default : Inactive : Not ($$IsBelongsTo:$$GroupCurrentAssets) ;; Or $$IsBelongsTo:$$GroupBankOD)
    [Line : ExpiryDays]
    Field : Long Prompt, ExpiryDays, ExpDay
    Local : Field : Long Prompt : Set as : "Loan Expired After"
    Local : Field : Default : Inactive : Not ($$IsBelongsTo:$$GroupCurrentAssets) ;; Or $$IsBelongsTo:$$GroupBankOD)
    [Field : LoanTakenDate]
    Use : Uni Date Field
    Set as : Date
    Storage : LoanTakenDateS
    Width : 8
    [Field : ExpiryDays]
    Use : Number Field
    Set as : Number
    Storage : ExpiryDaysS
    Width : 4
    [Field : ExpDay]
    Set as : "Days"
    Skip : Yes
    Width : 4
    [System: UDF]
    LoanTakenDateS : Date : 1001
    ExpiryDaysS : Number : 1002

    ;;....................................................................................................................................................
    .........
    ;; Loan Disbursement Register
    ;;....................................................................................................................................................
    .........

    [Report : Loan Disbursement Register]
    ; Use : Dsp Template
    Variables : SV CurrentCompany, SV FromDate, SV ToDate, SV SortMethod, SVBudget, SVVariance
    Set : SV Sort Method : "Default"
    Set : Is Day Book : Yes
    Form : LoanRegister
    [Form : LoanRegister]
    Use : Dsp Template
    Height : 100 % Page
    Width : 100 % Page
    Part : DSP AccTitles, LoanRegisterBody
    [Part : LoanRegisterBody]
    Lines : Loanlineh, Loanline
    Repeat : Loanline : D LoanRegister
    Scroll : Vertical
    Bottom Line : LoanTotal
    Total : LoanPartyBalance, LInt
    Common border : Yes
    [Line : Loanlineh]
    Fields : LoanSrNo, LoanParty, LoanPartyContact, LoanPartyAdd
    Right Fields : LoanPartyEmail, LoanPartyBalance, LoanExpiryDate, LoanExpiryRemainingDays, LDay, LInt
    Local : Field : LoanSrNo : Set as : "S.No"
    Local : Field : LoanParty : Set as : "Loan Disbursed To"
    Local : Field : LoanPartyContact : Set as : "Contact No"
    Local : Field : LoanPartyAdd : Set as : "Consignee Address"
    Local : Field : LoanPartyAdd : Align : Center
    Local : Field : LoanPartyEmail : Set as : "E-Mail Address"
    Local : Field : LoanPartyBalance : Info: $$LocaleString:"Loan Amount"
    Local : Field : LoanPartyBalance : Align : Center
    Local : Field : LoanExpiryDate : Set as : "Expired On"
    Local : Field : LoanExpiryRemainingDays : Set as : "Due"
    Local : Field : LDay : Set as : "After"
    Local : Field : LInt : Info: $$LocaleString: "Interest"
    Border : Thin Top Bottom

    [Line : Loanline]
    Fields : LoanSrNo, LoanParty, LoanPartyContact, LoanPartyAdd
    Right Fields : LoanPartyEmail, LoanPartyBalance, LoanExpiryDate, LoanExpiryRemainingDays, Lday, LInt
    Option : AlterOnEnter : $$IsLedger AND NOT $IsDeleted
    Explode : LoanHeadDetail : $$KeyExplode OR ##ExplodeFlag
    ;; Border : Column Titles
    [Field : LoanSrNo]
    Use : Short Name Field
    Set as : $$Line
    Style : Normal
    Width : 4.3
    Align : Right
    Alter : Ledger : $$IsLedger AND NOT $IsDeleted

    [Field : LoanParty]
    Use : Name Field
    Set as : $Name
    Width : 29
    Style : Normal
    Border : Thin Left
    [Field : LoanPartyContact]
    Use : Short Name Field
    Set as : $LedgerPhone
    Style : Normal
    Border : Thin Left
    Width : 12
    Align : Center

    [Field : LoanPartyAdd]
    Use : Short Name Field
    Set as : $$FullList:Address:$Address+" "+$StateName+" "+$PinCode
    Style : Normal
    Border : Thin Left
    Full Width : Yes
    [Field : LoanPartyEmail]
    Use : Short Name Field
    Set as : $Email
    Style : Normal
    Border : Thin Left
    Width : 27
    Align : Center
    [Field : LoanPartyBalance]
    Use : Amount Field
    Set As : $ClosingBalance
    Style : Normal
    Border : Thin Left
    Width : 14
    Align : Right
    Format : "DrCr,NoZero," + ##ShowForex
    [Field : LoanExpiryDate]
    Use : Short Name Field
    Set as : $LoanTakenDateS + $ExpiryDaysS
    Style : Normal
    Border : Thin Left
    Width : 12
    Align : Center
    [Field : LoanExpiryRemainingDays]
    Use : Short Name Field
    Set as : ($LoanTakenDateS + $ExpiryDaysS)-$$MachineDate ;; + $String:" Days"
    Style : Normal
    Border : Thin Left
    Width : 4.4
    Align : Right
    [Field : Lday]
    Use : Short Name Field
    Set as : "Days"
    Style : Normal
    ;; Border : Thin Left
    Width : 4
    Align : Left

    [Field : LInt]
    Use : Amount Field
    ;;Set as :$DrInterest
    Set as :if $$IsEmpty:$DrInterest then $CrInterest else $DrInterest
    Format : "NoZero,DrCr,Currency"
    Border : Thin Left

    [Collection: D LoanRegister]
    Type : Ledger
    ;;Child of : Loans & Advances(Asset)
    Child of : Advance to Staff/Workers
    ;; Invisible : If $$ClosingBalance=Zero
    Belongs To : Yes
    Filter : ZeroBalanceLoanLedger
    [System : Formula]
    ZeroBalanceLoanLedger : Not $$IsEmpty:$ClosingBalance ;;And Not $$ZeroClosingBalance
    [Line:LoanTotal]
    Use : Loanline
    Local : Field : LoanPartyBalance : Set as : $$Total:LoanPartyBalance
    Local : Field : LoanSrNo : Set as :"Total"
    Local : Field : LoanParty : Set as : "Loan Disbursement Amount"
    Local : Field : LoanPartyContact : Set as :""
    Local : Field : LoanPartyAdd : Set as :""
    Local : Field : LoanPartyEmail : Set as :""
    Local : Field : LoanExpiryDate: Set as :""
    Local : Field : LoanExpiryRemainingDays : Set as :""
    Local : Field : Lday : Set as :""
    Local : Field : LInt : Set as :$$Total:LInt
    Border : Totals
     
    Dhrupal Gorasiya likes this.


  10. Maulik Patel

    Maulik Patel Active Member



    Good work
     
    Dhrupal Gorasiya likes this.


  11. vumika poudel

    vumika poudel Member


    Thank You Very Much, Sovan, NMS, Taufeeq, Maulik...................(im encouraged)
    Taufeeq jee thank you v mch for upgrading,
     


  12. G Vijay

    G Vijay Member


    thank you,
    good work
     


  13. saif

    saif New Member


    Good work Taufeeq jee.
     
    Last edited: Sep 9, 2016



  14. THANKS THIS FORUM PROVIDES NEW NEW CODING CONCEPT
     


  15. Ankur Tiwari

    Ankur Tiwari Member


    :)
     


  16. priya

    priya Member


    Vumika, wonderful and best tdl and Taufeeq, thanks for taking it forward. You are a good teacher, leader and problem solver. Bye Bye and thanks again
     


  17. saif

    saif New Member


    How to link or Add Party Leger Interest Amount.
     


  18. dhiraj

    dhiraj New Member


    Use ful code .... Good luck
     


  19. tulip

    tulip New Member


    Dear All,
    after adding this TDL tally won't open and shows memory access violation. please advice.
     


  20. dipu369

    dipu369 Member


    Dear All,
    after adding this TDL tally won't open and shows memory access violation. please advice.
     


  21. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Credits :
    Original Maker - Ms.Vumika Poudel
    Revisor - Mr. Taufeeq Shaikh

    Revised and Updated Code attached :

    What's New ???
    a. New Entry in Masters made - Rate of Interest.
    b. Form re-modified with additional details.
    c. Interest Calculations made.
    d. Color Coded to easily identify Loans which are past due.

    screen5.PNG
     

    Attached Files:

    Last edited: Apr 24, 2018


  22. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Change first 2 lines in the file...if you want this Item to display after "Display" Menu in Gateway of Tally.

    [#Menu: Gateway of Tally]
    Add : Item: After : @@LocDisplay : Loan Report : Menu : Loan Report
     


  23. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    If i say so...not bad for a beginner......... still lots to go.....still in LEARN mode.

    Are you an expert? I have some decimals issue.
     
    psr likes this.


  24. Systecg

    Systecg Member


    its not working in GST

    sir.. PLZ Help.
     


  25. Systecg

    Systecg Member


    its not working in GST

    sir.. PLZ Help.
     


Share This Page