Dashboard on Gateway of tally screen

Dear Experts
Is it possible to get the dashboard on the left side of Gateway of Tally

Attached the Dashboard code which i have got from this site
i have not created the code.
Credit to the coder who created it


[#Menu:Gateway of Tally]
Add : Key Item : Dashboard : B : Display : ODBReport
[Report:ODBReport]
Object : Company
Form : ODBReport
[Form:ODBReport]
Top Part : ODBTitle, ODBTopPart
Part : ODBBodyPart,ODBBottomPart1,ODBBottomPart
;Bottom Part : ODBBottomPart
;====================== Top Part Start Here ===================
[Part:ODBTitle]
Line : ODBTitle
[Line:ODBTitle]
Space Bottom : 2 mm
Space Top : 2 mm
Field : Simple Field
Local : Field : Simple Field : Set as : "Dashboard"
Local : Field : Simple Field : Align : Center
Local : Field : Simple Field : Full Width: Yes
Local : Field : Simple Field : Style : Large Bold
Local : Field : Simple Field : Color : MenuTitleBGClr
[Part:ODBTopPart]
Part : ODBCash,ODBCashFlow,ODBOutstanding,ODBFixed,ODBLoan
Space Top : 5 mm
;;;============= Cash
[Part:ODBCash]
Use : ODBDefault Part
Line : ODBCashTitle,ODBCash,ODBBank,ODBCashTot
[Line:ODBCashTitle]
Field : ODBTitle Field
Local : Field : ODBTitle Field : Set as : "Cash & Bank"
[Line:ODBCash]
Field : ODBMedium Prompt,ODBAmount Field
Local : Field : Default : Full Width: Yes
Local : Field : ODBMedium Prompt : Set as : "Cash Balance:"
Local : Field : ODBAmount Field : Set as : @@CashBalance
Local : Field : ODBAmount Field : Format : "DrCr"
[Line:ODBBank]
Field : ODBMedium Prompt,ODBAmount Field
Local : Field : Default : Full Width: Yes
Local : Field : ODBMedium Prompt : Set as : "Bank Balance:"
Local : Field : ODBAmount Field : Set as : @@BankBalance
Local : Field : ODBAmount Field : Format : "DrCr"
[Line:ODBCashTot]
Field : ODBMedium Prompt,ODBAmount Field
Local : Field : Default : Full Width: Yes
Local : Field : ODBMedium Prompt : Set as : "Total:"
Local : Field : ODBAmount Field : Set as : If $$IsDr@BankBalance AnD $$IsDr@CashBalance then @@BankBalance+@@CashBalance else + @@CashBalance-@@BankBalance
Local : Field : ODBAmount Field : Format : "DrCr"
Local : Field : ODBAmount Field : Border : Totals
[Part:ODBCashFlow]
Use : ODBDefault Part
Line : ODBCashFlowTitle,ODBCashInFlow,ODBCashOutFlow,ODBCashFlowTot
[Line:ODBCashFlowTitle]
Field : ODBTitle Field
Local : Field : ODBTitle Field : Set as : "Cash Flow"
[Line:ODBCashInFlow]
Field : ODBMedium Prompt,ODBAmount Field
Local : Field : Default : Full Width: Yes
Local : Field : ODBMedium Prompt : Set as : "Cash-in-Flow:"
Local : Field : ODBAmount Field : Set as : @@CashInFlowTot
Local : Field : ODBAmount Field : Format : "DrCr"
[Line:ODBCashOutFlow]
Field : ODBMedium Prompt,ODBAmount Field
Local : Field : Default : Full Width: Yes
Local : Field : ODBMedium Prompt : Set as : "Cash-out-Flow:"
Local : Field : ODBAmount Field : Set as : @@CashOutFlowTot
Local : Field : ODBAmount Field : Format : "DrCr"
[Line:ODBCashFlowTot]
Field : ODBMedium Prompt,ODBAmount Field
Local : Field : Default : Full Width: Yes
Local : Field : ODBMedium Prompt : Set as : "Total:"
Local : Field : ODBAmount Field : Set as : If $$IsDr@CashInFlowTot AnD $$IsDr@CashOutFlowTot then @@CashInFlowTot+@@CashOutFlowTot else + @@CashInFlowTot-@@CashOutFlowTot
Local : Field : ODBAmount Field : Format : "DrCr"
Local : Field : ODBAmount Field : Border : Totals
[Part:ODBOutstanding]
Use : ODBDefault Part
Line : ODBOutctandingTitle,ODBReceivable,ODBPayable,ODBOutstandingTot
[Line:ODBOutctandingTitle]
Field : ODBTitle Field
Local : Field : ODBTitle Field : Set as : "Outstandings"
[Line:ODBReceivable]
Field : ODBMedium Prompt,ODBAmount Field
Local : Field : Default : Full Width: Yes
Local : Field : ODBMedium Prompt : Set as : "Receivables:"
Local : Field : ODBAmount Field : Set as : @@OutstandingRec
Local : Field : ODBAmount Field : Format : "DrCr"
[Line:ODBPayable]
Field : ODBMedium Prompt,ODBAmount Field
Local : Field : Default : Full Width: Yes
Local : Field : ODBMedium Prompt : Set as : "Payables:"
Local : Field : ODBAmount Field : Set as : @@OutstandingPay
Local : Field : ODBAmount Field : Format : "DrCr"
[Line:ODBOutstandingTot]
Field : ODBMedium Prompt,ODBAmount Field
Local : Field : Default : Full Width: Yes
Local : Field : ODBMedium Prompt : Set as : "Total:"
Local : Field : ODBAmount Field : Set as : If $$IsDr@OutstandingPay AnD $$IsDr@OutstandingRec then @@OutstandingRec+@@OutstandingPay else + @@OutstandingRec-@@OutstandingPay
Local : Field : ODBAmount Field : Format : "DrCr"
Local : Field : ODBAmount Field : Border : Totals
[Part:ODBFixed]
Use : ODBDefault Part
Line : ODBFixedTitle,ODBCapital,ODBFixed;,ODBOutstandingTot
[Line:ODBFixedTitle]
Field : ODBTitle Field
Local : Field : ODBTitle Field : Set as : "Capital & Fixed Assets"
[Line:ODBCapital]
Field : ODBMedium Prompt,ODBAmount Field
Local : Field : Default : Full Width: Yes
Local : Field : ODBMedium Prompt : Set as : "Capital Invested:"
Local : Field : ODBAmount Field : Set as : @@CapitalTotal
Local : Field : ODBAmount Field : Format : "DrCr"
[Line:ODBFixed]
Field : ODBMedium Prompt,ODBAmount Field
Local : Field : Default : Full Width: Yes
Local : Field : ODBMedium Prompt : Set as : "Fixed Assets:"
Local : Field : ODBAmount Field : Set as : @@FixedAssTotal
Local : Field : ODBAmount Field : Format : "DrCr"
[Part:ODBLoan]
Use : ODBDefault Part
Line : ODBLoanTitle,ODBLoan,ODBAdvance
[Line:ODBLoanTitle]
Field : ODBTitle Field
Local : Field : ODBTitle Field : Set as : "Loans"
[Line:ODBLoan]
Field : ODBMedium Prompt,ODBAmount Field
Local : Field : Default : Full Width: Yes
Local : Field : ODBMedium Prompt : Set as : "Loans & Liablity:"
Local : Field : ODBAmount Field : Set as : @@LoanLiabiltyTot
Local : Field : ODBAmount Field : Format : "DrCr"
[Line:ODBAdvance]
Field : ODBMedium Prompt,ODBAmount Field
Local : Field : Default : Full Width: Yes
Local : Field : ODBMedium Prompt : Set as : "Loans & Advances:"
Local : Field : ODBAmount Field : Set as : @@LoanAssetTot
Local : Field : ODBAmount Field : Format : "DrCr"
;============== Top Part End Here ===============
;============== Body Part Start Here ============
[Part:ODBBodyPart]
Left Part : Dummy1,ODBProfitLoss
Right Part : ODBPS,Dummy2,Dummy3
Space Top : 5 mm
[Part:ODBProfitLoss]
Use : ODBDefault Part
Line : ODBProfitTitle,ODBGProfit,ODBNProfit
Width : 18% Screen
Space Left : 3 mm
Space Right : 3 mm
[Line:ODBProfitTitle]
Field : ODBTitle Field
Local : Field : ODBTitle Field : Set as : "Profit & Loss"
[Line:ODBGProfit]
Field : ODBMedium Prompt,ODBAmount Field
Local : Field : Default : Full Width: Yes
Local : Field : ODBMedium Prompt : Set as : "Gross Profit:"
Local : Field : ODBAmount Field : Set as : @@GrossProfitTot
Local : Field : ODBAmount Field : Format : "DrCr"
[Line:ODBNProfit]
Field : ODBMedium Prompt,ODBAmount Field
Local : Field : Default : Full Width: Yes
Local : Field : ODBMedium Prompt : Set as : "Net Profit:"
Local : Field : ODBAmount Field : Set as : @@NetProfitTot
Local : Field : ODBAmount Field : Format : "DrCr"
[Part:ODBPS]
Use : ODBDefault Part
Line : ODBPSTitle,ODBSales,ODBPurchase
Width : 18% Screen
Space Left : 3 mm
Space Right : 3 mm
[Line:ODBPSTitle]
Field : ODBTitle Field
Local : Field : ODBTitle Field : Set as : "Purchase & Sales"
[Line:ODBSales]
Field : ODBMedium Prompt,ODBAmount Field
Local : Field : Default : Full Width: Yes
Local : Field : ODBMedium Prompt : Set as : "Total Sales"
Local : Field : ODBAmount Field : Set as : @@SalesTotVal
Local : Field : ODBAmount Field : Format : "DrCr"
[Line:ODBPurchase]
Field : ODBMedium Prompt,ODBAmount Field
Local : Field : Default : Full Width: Yes
Local : Field : ODBMedium Prompt : Set as : "Total Purchase"
Local : Field : ODBAmount Field : Set as : @@PurchaseTotVal
Local : Field : ODBAmount Field : Format : "DrCr"
[Partummy1]
Use : Empty
Width: 18% Screen
[Partummy2]
Use : Empty
Width: 18% Screen
[Partummy3]
Use : Empty
Width: 18% Screen
;===================== Body Part End Here ==================
;===================== Bottom Part Start Here ===============
[Part:ODBBottomPart]
Part : ODBFastMove,ODBSlowMove,ODBNonMove;,
Space Top : 5 mm
[Part:ODBFastMove]
Use : ODBDefault Part
Line : TopItemsTitle,TopItems
Repeat : TopItems : TopItems
[Line:TopItemsTitle]
Field : ODBTitle Field
Local : Field : ODBTitle Field : Set as : "Fast Moving Items"
[Line:TopItems]
Field : ODBMedium Prompt;TopItemName
Right Fields : ODBQty Field
Empty : If $$Line>5 Then Yes Else No
Space Bottom : 1 mm
Local : Field : ODBQty Field : Set as : $BilledQty
Local : Field : ODBMedium Prompt : Set as : $IName
[Part:ODBSlowMove]
Use : ODBDefault Part
Line : SlowItemsTitle,SlowItems
Repeat : SlowItems : SlowItems
[Line:SlowItemsTitle]
Field : ODBTitle Field
Local : Field : ODBTitle Field : Set as : "Slow Moving Items"
[Line:SlowItems]
Field : ODBMedium Prompt;TopItemName
Right Fields : ODBQty Field
Empty : If $$Line>5 Then Yes Else No
Space Bottom : 1 mm
Local : Field : ODBQty Field : Set as : $BilledQty
Local : Field : ODBMedium Prompt : Set as : $IName
[Part:ODBNonMove]
Use : ODBDefault Part
Line : NonMoveTitle,ODBNonMove
Repeat : ODBNonMove : NonMoveItems
[Line:NonMoveTitle]
Field : ODBTitle Field
Local : Field : ODBTitle Field : Set as : "Non Moving Items"
[Line:ODBNonMove]
Field : ODBMedium Prompt;TopItemName
Empty : $$Line>=6 OR $$IsEmpty:$IName
Space Bottom : 1 mm
Local : Field : ODBMedium Prompt : Set as : $IName
;================ Bottom Part1 Start ==================
[Part:ODBBottomPart1]
Part : ODBTop 5 Cust,ODBTop 5 Supp,ODBTop 5 Receivable,ODBTop 5 Payable
Space Top : 5 mm
[Part : ODBTop 5 Cust]
Use : ODBDefault Part
Line : ODBTop 5 Cust Title, ODBTop 5 Cust
Repeat : ODBTop 5 Cust : ODBTop 5 Cust
[Line : ODBTop 5 Cust Title]
Field : ODBTitle Field
Local : Field : ODBTitle Field : Set as : "Top 5 Customers"
[Line : ODBTop 5 Cust]
Empty : $$Line >=6 OR $$IsEmpty:$BSDebits
Fields : ODBMedium Prompt
RightFields : ODBAmt Field
Local : Field : ODBMedium Prompt: Setas : $Name+" :"
Local : Field : ODBAmt Field : Setas : $BSDebits
[Part:ODBTop 5 Supp]
Use : ODBDefault Part
Line : ODBTop 5 Supp Title, ODBTop 5 Supp
Repeat : ODBTop 5 Supp : ODBTop 5 Supp
[Line : ODBTop 5 Supp Title]
Field : ODBTitle Field
Local : Field : ODBTitle Field : Set as : "Top 5 Suppliers"
[Line : ODBTop 5 Supp]
Empty : $$Line >=6 ;OR $$IsEmpty:$BSDebits
Fields : ODBMedium Prompt
RightFields : ODBAmt Field
Local : Field : ODBMedium Prompt: Setas : $Name+" :"
Local : Field : ODBAmt Field : Setas : $BSCredits
[Part:ODBTop 5 Receivable]
Use : ODBDefault Part
Line : ODBTop 5 ReceivableTitle, ODBTop 5 Receivable
Repeat : ODBTop 5 Receivable : ReceivableAmt
[Line : ODBTop 5 ReceivableTitle]
Field : ODBTitle Field
Local : Field : ODBTitle Field : Set as : "Top 5 Receivable"
[Line : ODBTop 5 Receivable]
Empty : $$Line >=6 ;OR $$IsEmpty:$BSDebits
Fields : ODBMedium Prompt
RightFields : ODBAmt Field
Local : Field : ODBMedium Prompt: Setas : $PartyLedgerName+" :"
Local : Field : ODBAmt Field : Setas : $FinalBalance
[Part:ODBTop 5 Payable]
Use : ODBDefault Part
Line : ODBTop 5 PayableTitle, ODBTop 5 Payable
Repeat : ODBTop 5 Payable : PayableAmt
[Line : ODBTop 5 PayableTitle]
Field : ODBTitle Field
Local : Field : ODBTitle Field : Set as : "Top 5 Payable"
[Line : ODBTop 5 Payable]
Empty : $$Line >=6 ;OR $$IsEmpty:$BSDebits
Fields : ODBMedium Prompt
RightFields : ODBAmt Field
Local : Field : ODBMedium Prompt: Setas : $PartyLedgerName+" :";$LedgerEntries.PartyLedgerName+" :"
Local : Field : ODBAmt Field : Setas : $FinalBalance
;===================== Bottom Part End Here =================
;===================== Defaults ==========================
[Part:ODBDefault Part]
Space Bottom : 3 mm
Border : Thin Box
Space Left : 3 mm
Space Right : 3 mm
;Width : 25% Page
[Field:ODBAmt Field]
Type : Amount
Width : @@LongWidth+5
Max : @@MaxNumberWidth
Align : Right
Style : Normal Bold
[Field:ODBTitle Field]
Use : Simple Field
Align : Center
Width : 100
Style : Normal Bold
Full Width : Yes
Background : MenuTitleBGClr
Color : White
[Field: ODBQty Field]
Type : Quantity
Format : "No Zero"
Align : Right
Width : @@LongWidth
Style : Normal Bold
[Field:ODBMedium Prompt]
Use : Long Prompt
Width : @@LongWidth+10
Space Left : 2 mm
Full Width : Yes
[Field:ODBLong Prompt]
Align : Prompt
Width : @@LongWidth+3
Skip : Yes
Fixed : Yes
[Field:ODBAmount Field]
Use : Amount Field
Space Right : 5 mm
[Collection: TopItemDefault]
Type : Vouchers : VoucherType
Child of : $$VchTypeSales
Belongs to : Yes
Fetch : Stock Item Name,PartyLedgerName,BilledQty,Rate,Amount
[Collection:TopItems]
Source Collection : TopItemDefault
Walk : Inventory Entries
By : IName : $StockItemName
Aggr Compute : BilledQty : SUM : $BilledQty
Sort : Default : $BilledQty
Fetch : PartyLedgerName
[Collection:SlowItems]
Source Collection : TopItemDefault
Walk : Inventory Entries
By : IName : $StockItemName
Aggr Compute : BilledQty : SUM : $BilledQty
Sort : Default : -$BilledQty,$IName
Fetch : PartyLedgerName
Filter : SlowMove Filt
[Collection:NonMoveItems]
Source Collection : TopItemDefault
Walk : Inventory Entries
By : IName : $StockItemName
Aggr Compute : BilledQty : SUM : $BilledQty
Sort : Default : $BilledQty,$IName
Fetch : PartyLedgerName
Filter : NonMove Filt
[Collection : ODBTop 5 Cust]
Type : Ledger
Childof : $$GroupSundryDebtors
BelongsTo : Yes
Sort : Default : $BSDebits
Filter : ODBOnly Drs
[Collection : ODBTop 5 Supp]
Type : Ledger
Childof : $$GroupSundryCreditors
BelongsTo : Yes
Sort : Default : -$BSCredits
Filter : ODBOnly Crs
[Collection: PayableAmtMas]
Type : Bills
Fetch : FinalBalance,ClosingBalance,LedgerEntries.PartyLedgerName,LedgerEntries.LedgerEntries.LedgerName
Filter : IsPayable, DueBillsFilter
[CollectionayableAmt]
Source Collection : PayableAmtMas
Walk : Ledger Entries
By : PartyLedgerName : $LedgerEntries.PartyLedgerName
Aggr Compute : FinalBalance : Sum : $Amount;FinalBalance
Sort : Default : -$FinalBalance
[Collection: ReceivableAmtMas]
Type : Bills
Fetch : FinalBalance,ClosingBalance,LedgerEntries.PartyLedgerName,LedgerEntries.LedgerEntries.LedgerName
Filter : IsReceivable, DueBillsFilter
[Collection:ReceivableAmt]
Source Collection : ReceivableAmtMas
Walk : Ledger Entries
By : PartyLedgerName : $LedgerEntries.PartyLedgerName
Aggr Compute : FinalBalance : Sum : $Amount;FinalBalance
Sort : Default : $FinalBalance
[System : Formula]
ODBOnly Drs : $BSDebits>0
ODBOnly Crs : $BSCredits>0
SlowMove Filt : $BilledQty>0
NonMove Filt : $BilledQty=0
;OnlyCr : $$IsBelongsTo:$$GroupSundryDebtors OR $$IsBelongsTo:$$GroupSundryCreditors
;ODBDrs Nett : $$NettAmount:$BSDebits:$BSCredits
[System:Formula]
CashBalance : $$NettAmount$BSClosing:Group:"Cash-in-Hand")$ForexClosing:Group:"Cash-in-Hand")
BankBalance : $$NettAmount$BSClosing:Group:"Bank Accounts")$ForexClosing:Group:"Bank Accounts")
LoanLiabiltyTot : $$NettAmount$BSClosing:Group:"Loans (Liability)")$ForexClosing:Group:"Loans (Liability)")
LoanAssetTot : $$NettAmount$BSClosing:Group:"Loans & Advances (Asset)")$ForexClosing:Group:"Loans & Advances (Asset)")
CashInFlowTot : $CashInFlow:Company:##SVCurrentCompany
CashOutFlowTot : $CashOutFlow:Company:##SVCurrentCompany
CapitalTotal : $$NettAmount$BSClosing:Group:"Capital Account")$ForexClosing:Group:"Capital Account")
FixedAssTotal : $$NettAmount$BSClosing:Group:"Fixed Assets")$ForexClosing:Group:"Fixed Assets")
SalesTotVal : $ClosingBalance:Group:$$GroupSales
PurchaseTotVal : $ClosingBalance:Group:$$GroupPurchase
GrossProfitTot : $$AsPositive:$$Negative:$ClosingGrossProfit:Company:##SVCurrentCompany
NetProfitTot : $$AsPositive:$$Negative:$ClosingProfit:Company:##SVCurrentCompany
OutstandingRec : $$CollAmtTotal:NLCompanyReceivables:$ClosingBalance
OutstandingPay : $$CollAmtTotal:NLCompanyPayables:$ClosingBalance


Rgds
Frz

 

Thanks for the quick reply