T-Format Ledger (Please Correct Code)

;;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