Trial Balance with Group within group Name

Too Simple.. but many may find it useful

Code:

[#Menu: Gateway of Tally]
  
    Add    : Key Item    : Before    : @@locQuit    : Trail Balance with Group Name    : T: Display: IMFRLedReport
    Add     : Key Item :    Before    : @@locQuit :BLANK
  
    Item         : Blank
    Title        : "RBCR Basic Reports"

[Report: IMFRLedReport]
  
    Form    : LedReportForRemote
    Title    : "Basic Report to show Group Name"

    Local    : Collection    : RBCRLedger    : Fetch    : Name, Parent, GParent,Closing Balance

[Form: LedReportForRemote]

    Parts    : LedReportForRemote
    Button: ExportButton, ChangePeriod
  
[Part: LedReportForRemote]

    Lines            : LedReportForRemoteTitle, LedReportForRemoteDetails 
    Repeat            : LedReportForRemoteDetails        : Ledger
    Scroll            : Vertical
    Common Borders    : Yes
    Border            : Thin Bottom

    [Line: LedReportForRemoteTitle]

        Use        : LedReportForRemoteDetails
        Local    : Field    : Default            : Type    : String  
      
        Local    : Field    : Led Name            : Set as: "Ledger Name"
        Local    : Field    : Led Name            : Align: Left
        Local    : Field    : Led Name: Style: Normal Serif Bold
      
        Local    : Field    : ParentName            : Set as: "Parent Name"
        Local    : Field    : ParentName: Align: Left
        Local    : Field    : ParentName: Style: Normal Serif Bold
      
        Local    : Field    : ParentOfName            : Set as: "Parent of Parent"
        Local    : Field    : ParentOfName: Align: Left
        Local    : Field    : ParentOfName: Style: Normal Serif Bold
      
        Local    : Field    : GParentOfName            : Set as: "G Parent of Parent"
        Local    : Field    : GParentOfName: Align: Left
        Local    : Field    : GParentOfName: Style: Normal Serif Bold
      
        Local    : Field    : LedDrClosingBalance: Set as: "Dr Cl Balance"
        Local    : Field    : LedDrClosingBalance: Style: Normal Serif Bold
        Local    : Field    : LedCrClosingBalance: Set as: "Cr Cl Balance"
        Local    : Field    : LedCrClosingBalance: Style: Normal Serif Bold
      
        Border    : Column Titles

    [Line: LedReportForRemoteDetails]

        Fields        : Led Name, ParentName, ParentOfName, GParentOfName
        Right Fields: LedDrClosingBalance, LedCrClosingBalance

        [Field: Led Name]

            Use        : Name Field
            Set as    : $Name
            Style    : Normal Serif
            Align: Left
            Width:    30
          
    [Field: ParentName]

            Use        : Name Field
            Set as    : $Parent
            Style    : Normal Serif
            Align: Left
            Width:    30

[Field: ParentofName]

            Use        : Name Field
            Set as    : $GrandParent
            Style    : Normal Serif
            Align: Left
            Width:    30

[Field: GParentOfName]

            Use        : Name Field
            Set as    : $Parent:Group:$GrandParent
            Style    : Normal Serif
            Align: Left
            Width:    30


        [Field: LedDrClosingBalance]

            Use        : Amount Forex Field
            Set as    : if $$IsDr:$ClosingBalance then $ClosingBalance else 0
        ;    Border    : Thin Left
            Style    : Normal Serif

    [Field: LedCrClosingBalance]

            Use        : Amount Forex Field
            Set as    : IF Not $$Isdr:$ClosingBalance then $ClosingBalance else 0
            ;Border    : Thin Left
            Style    : Normal Serif
          



;; End-of-File

[Collection:RBCRLedger]
    Type: Ledger
    Fetch: Name, Parent, ClosingBalance
  
    Compute: GParent : $Parent:Group:$Parent
    Filter: RBCRZero
    Is ODBC Table: Yes

[System:Formula]
  
RBCRZero : $$FromValue:##SvFromDate:$$ToValue:##SvToDate:$ClosingBalance > 0

 

ha ha