Dashboard on Gateway of tally screen

Discussion in 'Requests' started by Frz, May 16, 2019.

         
  1. Frz

    Frz Member


    Dear Experts
    Is it possible to get the dashboard on the left side of Gateway of Tally
    upload_2019-5-16_11-10-39.png
    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:mad:@BankBalance AnD $$IsDr:mad:@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:mad:@CashInFlowTot AnD $$IsDr:mad:@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:mad:@OutstandingPay AnD $$IsDr:mad:@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"
    [Part:Dummy1]
    Use : Empty
    Width: 18% Screen
    [Part:Dummy2]
    Use : Empty
    Width: 18% Screen
    [Part:Dummy3]
    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
    [Collection:payableAmt]
    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
     


  2. Amit Kamdar

    Amit Kamdar Moderator Staff Member


    Well, if the code fro LEFT side of MAIN Screen were available in TDE, it could be done.

    But it does not exists as part of the open source.
     


  3. Frz

    Frz Member


    Thanks for the quick reply
     


Share This Page