;;Shri Ganeshay Namah ;; [#Menu: Gateway of Tally] Key Item : Blank ;;Key Item : Receipt & Payment : T : Display : RkcRcpt PymtRpt Add : Item : Ledger : Display Collection : PvTfmt LedgerColl : NOT $$IsEmpty:$$SelectedCmps [Collection: PvTfmt LedgerColl] Use : Alias Collection ;; Default Collection for including Alias Type : Ledger Variable : LedgerName ;; Default Variable LedgerName is used Trigger : PvTfmt Triggered LedRpt Report : PvTfmt Final LedRpt ;; Ledger method Name needs to be fetched from Server to show the Ledger collection as Table Fetch : Name ;; Trigger Report Definition begins here [Report: PvTfmt Triggered LedRpt] Title : "Select Ledger" Form : PvTfmt Triggered LedFrm [Form: PvTfmt Triggered LedFrm] Parts : PvTfmt Triggered LedPrt [Part: PvTfmt Triggered LedPrt] Lines : PvTfmt Triggered LedLne [Line: PvTfmt Triggered LedLne] Fields : Medium Prompt, PvTfmt Triggered LedFld Local: Field: Medium Prompt : Set as : "Ledger :" [Field: PvTfmt Triggered LedFld] Use : Name Field Table : PvTfmt LedgerColl Show Table : Always Modifies : LedgerName ;;----------------------------------------------------------------------------------------------------------------------------------------------- ;; Final Report Definition begins here [Report: PvTfmt Final LedRpt] Form : PvTfmt Final LedRpt Title : $$LocaleString:"Ledger" Print Set : Report Title : $$LocaleString:"Ledger" Fetch Object : Ledger : #LedgerName : Name, LedgerContact, VoucherTypeName, VoucherNumber, OpeningBalance, LedOpeningBalance, TBalOpening Variable : SVFRomDate, SVToDate Variable : DSPShowOpening, DSPShowClosing Set : SVFRomDate : $$MonthStart:##SVCurrentDate Set : SVToDate : $$MonthEnd:##SVCurrentDate ;; Particular Ledger Object is pre-fetched with required Methods for this Report [Form: PvTfmt Final LedRpt] Parts : PvTfmt TtlePeriodPrt, PvTfmt FinLedTtlePrt ;;Bottom Parts : PvTfmt FinLed Totals Height : 100% Screen Width : 100% Screen Button : Print Button, ExportButton, ExplodeFlag, Change Period [Part : PvTfmt TtlePeriodPrt] Line : PvTfmt TtlePeriodLne Space Bottom : 0.50 [Line: PvTfmt TtlePeriodLne] Field : Name Field Right Field : Simple Field Local : Field : Default : Style : Normal Bold Local : Field : Name Field : Set as : #LedgerName Local : Field : Name Field : Full Width: Yes ;; Export in Excel Cell Setting ;; Local : Field : Name Field : Cells : 2 Local : Field : Simple Field : Set as : $$String:##SVFromDate + " to " + $$String:##SVToDate Local : Field : Simple Field : Full Width: Yes Local : Field : Simple Field : Align : Right ;; Export in Excel Cell Setting ;; ;Local : Field : Simple Field : Cells : $$Column:5 ;$$Quotient@ExcelCellColumn:4 ;;----------------------------------------------------------------------------------------------------------------------------------------------- [Part : PvTfmt FinLedTtlePrt] Left Part : PvTfmt DebitTtlePrt Right Part : PvTfmt CreditTtlePrt [Part : PvTfmt DebitTtlePrt] Line : PvTfmt DebitTtleLne, PvTfmt OpeningBalanceLne, PvTfmt DebitDetlsLne Repeat : PvTfmt DebitDetlsLne : PvTfmt LedVch Coll Bottom Line : PvTfmt DebitSubTotalLne, PvTfmt ClosingBalanceLne, PvTfmt FinalTotalLne Total : PvTfmt DebitAmountFld Scroll : Vertical Common Border : Yes [Line : PvTfmt OpeningBalanceLne] Use : PvTfmt DebitDetlsLne Local : Field : PvTfmt DateFld : Set as : $$LocaleString:"" Local : Field : PvTfmt ParticularFld : Set as : $$LocaleString:"Opening Balance" Local : Field : PvTfmt ParticularFld : Invisible : Not $$IsDr:$OpeningBalance:Ledger:#LedgerName ;;OR $$IsEmpty:$OpeningBalance:Ledger:#LedgerName Local : Field : PvTfmt VchTypeFld : Set as : $$LocaleString:"" Local : Field : PvTfmt VchNumberFld : Set as : $$LocaleString:"" Local : Field : PvTfmt DebitAmountFld : Set as : $OpeningBalance:Ledger:#LedgerName Local : Field : PvTfmt DebitAmountFld : Invisible : Not $$IsDr:$OpeningBalance:Ledger:#LedgerName Space Top : 0.15 [Line : PvTfmt DebitTtleLne] Use : PvTfmt DebitDetlsLne Local : Field : Default : Line : 0 ;;Local : Field : Default : Type : String Local : Field : Default : Delete : Style ;Field : PvTfmt DateFld, PvTfmt ParticularFld ;Right Field : PvTfmt VchTypeFld, PvTfmt VchNumberFld, /*PvTfmt SupplierInvNoFld,*/ PvTfmt DebitAmountFld Local : Field : PvTfmt DateFld : Set as: $$LocaleString:"Date" Local : Field : PvTfmt DateFld : Type : String Local : Field : PvTfmt DateFld : Add : Style : Small Local : Field : PvTfmt ParticularFld : Set as: $$LocaleString:"Particulars" + $$NewLine + $$LocaleString:"(Debit)" Local : Field : PvTfmt ParticularFld : Add : Style : Small Bold Local : Field : PvTfmt VchTypeFld : Set as: $$LocaleString:"Vch" + $$NewLine + $$LocaleString:"Type" Local : Field : PvTfmt VchTypeFld : Add : Style : Small Local : Field : PvTfmt VchNumberFld : Set as: $$LocaleString:"Vch" + $$NewLine + $$LocaleString:"No." Local : Field : PvTfmt VchNumberFld : Add : Style : Small Local : Field : PvTfmt VchNumberFld : Align : Right ;Local : Field : PvTfmt SupplierInvNoFld : Set as: $$LocaleString:"Supplier" + $$NewLine + $$LocaleString:"Invoice No." Local : Field : PvTfmt DebitAmountFld : Set as: $$LocaleString:"Debit" + $$NewLine + $$LocaleString:"Amount" Local : Field : PvTfmt DebitAmountFld : Type : String Local : Field : PvTfmt DebitAmountFld : Add : Style : Small Bold Local : Field : PvTfmt DebitAmountFld : Border: Thin Right Border : Column Titles [Line : PvTfmt DebitDetlsLne] Field : PvTfmt DateFld, PvTfmt ParticularFld Right Field : PvTfmt VchTypeFld, PvTfmt VchNumberFld, /*PvTfmt SupplierInvNoFld,*/ PvTfmt DebitAmountFld Space Bottom: 0.15 ;;Remove if : $$IsEmpty:$$OrigVchLedCrTotal:#LedgerName [Field : PvTfmt DateFld] Use : Short Date Field Set as : $$LocaleString:$$dayofdate:$Date +"-"+ $$LocaleString:$$monthofdate:$Date +"-"+ $$LocaleString:$$yearofdate:$Date Set Always : Yes Width : 5% Screen Alter : Voucher Style : Small [Field : PvTfmt ParticularFld] Use : Name Field Set as : $FirstContraAcc Set Always : Yes FullWidth : Yes Style : Small Bold [Field : PvTfmt VchTypeFld] Use : Name Field Set as : $AdditionalName ;;$VoucherTypeName Set Always : Yes Width : 5% Screen Style : Small Bold [Field : PvTfmt VchNumberFld] Use : Name Field Set as : $VoucherNumber Width : 5% Screen Set Always : Yes Align : Right Style : Small [Field : PvTfmt DebitAmountFld] Use : Amount Forex Field Set as : $OrigVchLedDrTotal Set Always : Yes Width : @@AmountWidth Style : Small Bold Format : "DrCr" ;;--------------------------------------------------------------------------------------------------------------------------------------------- ;; Main Bottom Part ;; /* [Part : PvTfmt FinLed Totals] Left Part : PvTfmt DebitTotalPrt Right Part : PvTfmt CreditTotalPrt [Part : PvTfmt DebitTotalPrt] Line : PvTfmt DebitSubTotalLne */ ;; Sub Total Line ;; [Line : PvTfmt DebitSubTotalLne] Use : PvTfmt DebitDetlsLne Local : Field : PvTfmt DateFld : Set as : $$LocaleString:"" Local : Field : PvTfmt ParticularFld : Set as : $$LocaleString:"" Local : Field : PvTfmt VchTypeFld : Set as : $$LocaleString:"" Local : Field : PvTfmt VchNumberFld : Set as : $$LocaleString:"Sub Total" Local : Field : PvTfmt DebitAmountFld : Set as : $$TotalvTfmtDebitAmountFld Local : Field : PvTfmt DebitAmountFld : Border : Thin Top ;; Closing Balance ;; [Line : PvTfmt ClosingBalanceLne] Use : PvTfmt DebitDetlsLne Local : Field : PvTfmt DateFld : Set as : $$LocaleString:"" Local : Field : PvTfmt ParticularFld : Set as : $$LocaleString:"Closing Balance" Local : Field : PvTfmt ParticularFld : Invisible : Not $$IsDr:$ClosingBalance:Ledger:#LedgerName Local : Field : PvTfmt VchTypeFld : Set as : $$LocaleString:"" Local : Field : PvTfmt VchNumberFld : Set as : $$LocaleString:"" Local : Field : PvTfmt DebitAmountFld : Set as : $ClosingBalance:Ledger:#LedgerName ;@@LedClosing Local : Field : PvTfmt DebitAmountFld : Invisible : Not $$IsDr:$ClosingBalance:Ledger:#LedgerName Space Bottom : 0.15 ;;Findal Total Line ;; [Line : PvTfmt FinalTotalLne] Use : PvTfmt DebitDetlsLne Local : Field : PvTfmt DateFld : Set as : $$LocaleString:"" Local : Field : PvTfmt ParticularFld : Set as : $$LocaleString:"Total" Local : Field : PvTfmt VchTypeFld : Set as : $$LocaleString:"" Local : Field : PvTfmt VchNumberFld : Set as : $$LocaleString:"" Local : Field : PvTfmt DebitAmountFld : Set as : $$TotalvTfmtDebitAmountFld Border : Totals [Collection : PvTfmt LedVch Coll] Type : Vouchers : Ledger Child Of : #LedgerName Fetch : Name ;;Compute has been used to minimize the number of requests sent to the Server Compute : FirstContraAcc : $$FirstContraAcc:$$IsDr$$OrigVchLedTotal:#LedgerName) Compute : OrigVchLedDrTotal : $$OrigVchLedDrTotal:#LedgerName Compute : OrigVchLedCrTotal : $$OrigVchLedCrTotal:#LedgerName Sort : @@Default : $Date ;;------------------------------------------------------------------------------------------------------------------------------------------ ;; Right Part ;; [Part : PvTfmt CreditTtlePrt] Use : PvTfmt DebitTtlePrt ; Delete: Border: Thin Right ;; Rename - Title Line;; Local: Line : PvTfmt DebitTtleLne : Local : Field : PvTfmt ParticularFld : Set as: $$LocaleString:"Particulars" + $$NewLine + $$LocaleString:"(Credit)" Local: Line : PvTfmt DebitTtleLne : Local : Field : PvTfmt DebitAmountFld : Set as: $$LocaleString:"Credit" + $$NewLine + $$LocaleString:"Amount" Local: Line : PvTfmt DebitTtleLne : Local : Field : PvTfmt DebitAmountFld : Delete: Border ;; Remove Empty Line;; ;;Local: Line : PvTfmt DebitDetlsLne : Remove if : $$IsEmpty:$OrigVchLedDrTotal:#LedgerName ;; Credit Amount Line;; Local: Line : PvTfmt DebitDetlsLne : Local : Field : PvTfmt DebitAmountFld : Delete: Set as Local: Line : PvTfmt DebitDetlsLne : Local : Field : PvTfmt DebitAmountFld : Add : Set as : $OrigVchLedCrTotal ;; Remove Title Line - Opening Balance ;; If Debit ;; Local: Line : PvTfmt OpeningBalanceLne : Local : Field : PvTfmt ParticularFld : Invisible : $$IsDr:$OpeningBalance:Ledger:#LedgerName ;; Remove Amount Line - Opening Balance ;; If Debit ;; Local: Line : PvTfmt OpeningBalanceLne : Local : Field : PvTfmt DebitAmountFld : Invisible : $$IsDr:$OpeningBalance:Ledger:#LedgerName ;; Remove Title Line - Closing Balance ;; If Debit ;; Local: Line : PvTfmt ClosingBalanceLne : Local : Field : PvTfmt ParticularFld : Invisible : $$IsDr:$ClosingBalance:Ledger:#LedgerName ;; Remove Amount Line - Closing Balance ;; If Debit ;; Local: Line : PvTfmt ClosingBalanceLne : Local : Field : PvTfmt DebitAmountFld : Invisible : $$IsDr:$ClosingBalance:Ledger:#LedgerName ;; Bottom Total Part [Part : PvTfmt CreditTotalPrt] Use : PvTfmt DebitTotalPrt