[#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...................................
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
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
Thank You Very Much, Sovan, NMS, Taufeeq, Maulik...................(im encouraged) Taufeeq jee thank you v mch for upgrading,
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
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.
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
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.