Related Party Disclosure

Discussion in 'Free Source Codes' started by garima, Mar 13, 2020.

         
  1. garima

    garima Active Member


    Related Party Transaction : A related party is a party related to a body corporate/ company in any other way other than by the companies' own transactions. It means that a special relationship persists between the parties even before the transaction takes place

    Many may find : NOT @@veryInteresting BUT ( IF : @@UsetoSomeOne then ##UseIt else ##LikeIt)

    This code shows report of Related Party Transactions which which required for Statutory disclosures
    after markin Ledgers(Parties) as related and setting their relationship with company, this report can be viewed .



    It shows data for two years.

    [Use Full to developer who want to see use of [Period Collection], though not very advanced. RelatedParty.jpg

    @Bipin Damania
    ;----------------------------------------------------------------------------------------------------------------------

    Code:
    [#Menu : Gateway of Tally]
        Add    : Key Item    :  Before : @@LocQuit     : Customized Reports: C : Menu :  Customized Reports ;Column Day Book
    
    [Menu    : Customized Reports]
        Key Item    : "Related Party Expenses" : E : Display    : Related Party Exp Report
       
    
    
    [#Part: LED Mailing Parts]
    
        Add : Part : After: LED Provide Bank Details : LED Related
    
    [Part: LED Related]
        Space Top : 0.25
        Lines : LED Related, LED RParty
    
    [Line : LED Related]
    
        Field : Medium Prompt, LED Related
       
        Local : Field : Medium Prompt : Set as : $$LocaleString:"Is Related to Party ?"
        Local : Field : Medium Prompt : Color : Blue
    
    [Field : LED Related]
    
        Use : Logical Field
        Set as : No
        Set always : Yes
        Storage : IsRbcRelated
        ;Skip : LED Party Bank Details : $$Value = Yes
    
    
    [Line: LED RParty]
    
        Field : Medium Prompt, LED RParty
       
        Local : Field : Medium Prompt : Set as : $$LocaleString:"Relationship with Company"
        Local : Field : Medium Prompt : Color : Blue
       
    [Field : LED RParty]
    
        Use : Name Field
        Set always : Yes
        Storage : RbcRelationship
        Inactive: If #LEDRelated = Yes then No else Yes ;$$Value = Yes
    
    [System : UDF]
    
        IsRbcRelated : Logical : 1920
        RbcRelationship : String : 1921
       
    [#Object    : Ledger]
        IsRelatedParty    : $IsRbcRelated
        Relationship    : $RbcRelationship
       
    [Report: Related Party Exp Report]
    
       
        Use            : DSP Template
       
        Variable    : SVFromDate, SVToDate, SvPeriodicity,  SVCurrentCompany, SVCurrentDate
        Variable    : IsLedgerReport
        Repeat      : SVFromDate, SVToDate
        Title         : $$LocaleString:"Related Party Expense Report"
        Form           : RelatedPartyExpForm
        Full Screen    : Yes
        Set            : SvPeriodicity : "Year"
        Set            : IsLedgerReport : Yes
        Local : Part : Rbc_CY_Part : Local: Line : Default : Local : Field : Default : Background : if $$IsEven:$$Line then @@SV_RELEASEDLEAFGREEN_PL else @@SV_RELEASEDGREEN_PL
       
        Fetch Collection    :  RBC_RP_CY_Coll
        Fetch Object    : Ledger : Parent, Name, Address, StateName, IncomeTaxNumber, Address2, Address3, BSOpening, BSClosing ,HiClVal
       
    [Form : RelatedPartyExpForm]
        Use    : DSP Template
        Part   : Rbc_P1, Rbc_CY_Part
       
        Height : 100 % Screen
        Width  : 100 % Screen
        Set        : SvPeriodicity : "Year"
        Set        : IsLedgerReport : Yes
        Button : Print Button, Export Button, Mail Button, Change Company
        Bottom Button : Filter Button
        Background: @@SV_RELEASEDLEAFGREEN_PL
       
        Set :      SvFromDate    :@@PrevYearStart
        Set    :     SvToDate    :@@CurrentYearEnd
    
    
    [Part : Rbc_P1]
        Line   : Rbc_P1L1, Rbc_P1L2
        Border : Thin Bottom
    
       
    [Line : Rbc_P1L1]
        Field : Rbc_P1L1F1
        Height: .75 cms
       
    [Field : Rbc_P1L1F1]
        Set as : @@CmpMailName
        Width  : 100
        Align  : Centre
        Style  : Large Bold
        Full Width    : Yes
    
    [Line : Rbc_P1L2]
        Field : Rbc_P1    L2F1
       
    [Field : Rbc_P1L2F1]
        Set as : "Related Party Expense Report:  " +$$String:@@CurrentYearStart + " To "+ $$String:@@CurrentYearEnd
        Style  : Normal Bold
        Full Width    : Yes
        Align  : Centre
       
    [Part : Rbc_CY_Part]
        Top Line    : Rbc_TitleLine
        Line        : Rbc_DetailsLine
       
        Repeat : Rbc_DetailsLine : RBC_RP_Party_Coll
        Bottom Line    : Rbc_TotalLine
        Scroll : Vertical
        Vertical    : Yes
        Local    : Field    : Default : Style: Small Bold
        Common Border    : Yes
    
    ;-----------------------------------------------------------------------------------------------------------------------------------------------
    
    [Line : Rbc_TitleLine]
        Use            : Rbc_DetailsLine
               
        Border        : Thin Top Bottom
        Local        : Field    : Default : Type: String
        Local        : Field    : Default : Skip    : Yes
        Local        : Field    : Default : Style    : Normal Bold
       
        Local :    Field : Rbc_SNo:         Info : "SR. NO."
        Local : Field : Rbc_LNm:        Info : "NANEM OF PARTY"
        Local : Field : Rbc_Grp:         Info : "RELATIONSHIP"
        Local : Field : Rbc_Opg:         Info : "OPENING"
        Local : Field : Rbc_Sales:         Info : "SALES"
        Local : Field : Rbc_Purchase:     Info : "PURCHASE"
        Local : Field : Rbc_Income    :     Info : "INCOME"
        Local : Field : Rbc_Expense :     Info : "EXPENSES"
                                              
        Local : Field : Rbc_Receipt :    Info : "RECEIPTS"
        Local : Field : Rbc_Payment :     Info : "PAYMENTS"
        Local : Field : Rbc_Clg        :     Info : "CLOSING"
       
       
        Height    : 1.5
       
    
    
    [Style : Tahoma Small Bold]
    
        Font    : "Tahoma"
        Height    : 9
       
        Bold    : No
    
    ;-----------------------------------------------------------------------------------------------------------------------------------
    [Line : Rbc_DetailsLine]
        Border : Thin Box
        Left Field  :  Rbc_SNo, Rbc_LNm, Rbc_Grp ;,   Rbc_ExNtr
        Right Field    : Rbc_Opg, Rbc_Sales, Rbc_Purchase, Rbc_Income, Rbc_Expense,  Rbc_Receipt, Rbc_Payment,  Rbc_Clg
        Explode    : Rbc_ExplodePart :  Yes ;$$KeyExplode Or  ##ExplodeFlag
        Local    : Field    : Default : Style: Tahoma Small Bold
        Height    : 1.20
        Key        : SetLineObject
    
    [Key    : SetLineObject]
        Key    : Enter
        Action    : Call: SetDisplayLedger
    
    [Function    : SetDisplayLedger]
        Variable    : LedgerName : String
        100            : Set: LedgerName : $Name
        200            : Display    : Ledger Vouchers
    
    [Field: RBC_RP_Period]
    
        Width          : 25
        Border         : Thin Right
        Align          : Left
        Quick Search: Yes
    
        Set as      :  @@YearFormat
    
           
    [Field : Rbc_MasterId]
        Use : Name Field
        ;Set as : $Name
        Invisible: Yes
       
    
    [Field : Rbc_SNo]
        ;Use    : Number Field
        Set as : $$Line
        Width  : 3
        Border : Thin Right
        Align  : Center
        Display    : Ledger Vouchers
    
    [Field : Rbc_LNm]
        Set as : $Name
        Width  : 25
        Border : Thin Right
        Align  : Left
        Quick Search : Yes
    
    [Field : Rbc_Grp]
        Set as : $RbcRelationship
        Width  : 15
        ;Border : Thin Right
        Align  : Left
        Full Width    : Yes
    
    [Field : Rbc_Opg]
        Use        :Amount Field
        Set as : if $BSOpening > 0 then $BSOpening else ""
        Width  : 15
        Border : Thin Right
        Align  : Right
    
    [Field : Rbc_Sales]
        Use        :Amount Field
        Set as : $SalesAmount
        Width  : 15
        Border : Thin Right
        Align  : Right
    
    [Field : Rbc_Purchase]
        Use        :Amount Field
        Set as : $PurchaseAmount
        Width  : 15
        Border : Thin Right
        Align  : Right
    
    [Field : Rbc_Expense]
        Use        :Amount Field
        Set as : $ExpenseAmount
        Width  : 15
        Border : Thin Right
        Align  : Right
    
    [Field : Rbc_Income]
        Use        :Amount Field
        Set as : $IcnomeAmount
        Width  : 15
        Border : Thin Right
        Align  : Right
    
    
    [Field : Rbc_Receipt]
        Use        :Amount Field
        Set as : $ReceiptAmount
        Width  : 15
        Border : Thin Right
        Align  : Right
    
    [Field : Rbc_Payment]
        Use        :Amount Field
        Set as : $PaymentAmount
        Width  : 15
        Border : Thin Right
        Align  : Right
    
    [Field : Rbc_Clg]
        Use        :Amount Field
        Set as : if $BSClosing > 0 then $BSClosing else ""
        Width  : 15
        Border : Thin Right
        Align  : Right
    
    
    
    
        [Line    : Rbc_ExplodeLine]
                Left Field  :  Rbc_SNo, Rbc_MasterId, RBC_RP_Period, Rbc_Grp;, Rbc_ExNtr
                Right Field    : Rbc_Opg,  Rbc_Sales, Rbc_Purchase, Rbc_Income, Rbc_Expense, Rbc_Receipt, Rbc_Payment,  Rbc_Clg
                Option  : Alter on Enter
                Local    : Field: default : Style: Small
                Height    : 1.20
                Local    : Field    : rbc_SNo : Set as: ""
                           
    [Line : Rbc_TotalLine]
        Left Field  : Rbc_SNo, Rbc_LNm, Rbc_Grp,  Rbc_PAN, Rbc_Add;, Rbc_ExNtr ;, + ;,
        Right Field    : Rbc_Opg,  Rbc_Sales, Rbc_Purchase, Rbc_Income, Rbc_Expense,  Rbc_Receipt, Rbc_Payment, Rbc_Clg;
               
        Border        : Thin Top Bottom
           
        Local :Field : Rbc_SNo:     Set as : ""
        Local : Field : Rbc_LNm:    Set as : "T O T A L"
        Local : Field : Rbc_Grp:     Set as : ""
        Local : Field : Rbc_PAN:     Set as : ""
        Local : Field : Rbc_Add:     Set as : ""
        Local : Field : Rbc_Opg:     Set as : $$Total:Rbc_Opg
        Local : Field : Rbc_Exp:     Set as : $$Total:Rbc_Exp
        Local : Field : Rbc_Receipt:    Set as : $$Total:Rbc_Receipt
        Local : Field : Rbc_Payment:     Set as : $$Total:Rbc_Payment
        Local : Field : Rbc_Clg:     Set as : $$Total:Rbc_Clg
        Local : Field : Rbc_Int:     Set as : $$Total:Rbc_Int
        Local : Field : Rbc_TDS:    Set as : $$Total:Rbc_TDS
        Local : Field : Rbc_ExNtr:     Set as : ""
       
    ;--------------------------------------------------------------------------------------------------------------------------------------------   
    
    [Part        : Rbc_ExplodePart]
        Line     : Rbc_ExplodeLine
        Repeat    : Rbc_ExplodeLine : RBC_RP_CY_Coll
        Scroll    : Vertical
        Bottom Line    : Rbc_TotalLine
        Totals  : Rbc_Opg, Rbc_Exp Rbc_Receipt, Rbc_Payment, Rbc_Clg, Rbc_Int, Rbc_TDS
        Local    : Field    : Default : Style: Small  Bold Italic
        Common Border    : Yes
       
       
    [Collection        : Rbc_RP_Template]
       
        Fetch          : Parent, Name, Address, StateName, IncomeTaxNumber, Address2, Address3, BSOpening, BSClosing ,HiClVal
        Fetch        : Relationship, IsRbcRelated
    
    
    [Collection        : RBC_RP_Party_Coll]
        Use            : RBC_RP_Template
        Type          : Ledger
        Fetch        : Name   
        Compute Var    : rbcLedgerName : String: $Name
       
        Filter        : FltIsRelatedParty   
       
    
    [Collection        : RBC_RP_CY_Coll]
        Use            : Period Template
       
        ComputeVar    : cvrbcDateFrom    : Date        : $$PeriodDateFrom;$$PeriodDateFrom
        ComputeVar    : cvrbcDateTo    : Date        : $$PeriodDateTo
       
        Compute        : IsDateSet            : $$RbcCheckDate:##cvrbcDateFrom:##cvrbcDateTo
       
        Compute        : SalesAmount    : $$FilterAmtTotal:Rbc_RelatedParty_Coll:FltSalesFilter:$Amount
        Compute        : PurchaseAmount: $$FilterAmtTotal:Rbc_RelatedParty_Coll:FltPurchaseFilter:$Amount   
        Compute        : IncomeAmunt    : $$FilterAmtTotal:Rbc_RelatedParty_Coll:FltIncomeFilter:$Amount   
        Compute        : ExpenseAmount    : $$FilterAmtTotal:Rbc_RelatedParty_Coll:FltExpenseFilter:$Amount   
        Compute        : ReceiptAmount    : $$FilterAmtTotal:Rbc_RcptPmntColl:FltReceiptFilter:$Amount
        Compute        : PaymentAmount    : $$FilterAmtTotal:Rbc_RcptPmntColl:FltPaymentFilter:$Amount
    
        Is ODBC Table    : Yes
        ;Filter        : FltIsRelatedParty
        Column Var    : rbcLedgerName
        Sort        :  @@DateDecr    : -$YearOfFromDate
       
    
    [Function: RbcCheckDate]
    
        Parameter    : PFromDate    : Date
        Parameter    : PToDate    : Date
       
        Return        : Logical
        100            : Log:##PFromDate
        200            : Log:##PToDate
        500            : Return : Yes
       
    ;----------------------------------------------------------------------------------------------------------------------------------------------
       
    [Collection : Rbc_RelatedPartySrc]
        Type             : Vouchers : Ledger
        Parm Var    : pLedgerName    : String:#rbc_Lnm
    
        Parm Var    : pDateFrom        : Date: ##cvrbcdatefrom
        Parm Var    : pDateTo        : Date: ##cvrbcdateTo
       
        Child Of       : ##pLedgerName
        Fetch        : AllLedgerEntries.*
        Fetch          : MasterId, VoucherTypeName, Date, Amount, Rbc_Rp_RctAmt,Rbc_Rp_PmtAmt, Rbc_Rp_IntAmt, Rbc_Rp_TDSAmt
    
        Filter        : FltWithinDateFilter
       
    [Collection : Rbc_RcptPmntColl]
        Source Collection    : Rbc_RelatedPartySrc
    
        Parm Var    : pLedgerName    : String:#rbc_Lnm;"Devendra Singh Rawat"; ##rbcLedgerName
       
        Walk        : AllLedgerEntries
       
        By            : VoucherTypeName : $$Owner:$VoucherTypeName
        By            : Date            : $$Owner:$Date
       
        By            : LedgerName    :$LedgerName
       
        Aggr Compute: Amount         : Sum: $Amount
        Search Key    : $Date
        Filter        : FltIncludeParty
        ;Sort        :  @@DateDecr    : -$Date   
       
    [Collection : Rbc_RelatedParty_Coll]
        Source Collection    : Rbc_RelatedPartySrc
       
        Parm Var    : pLedgerName    : String: #rbc_Lnm ;"Devendra Singh Rawat"; ##rbcLedgerName
       
        Walk        : AllLedgerEntries
       
        By            : Date            : $$Owner:$Date
        By            : LedgerName    :$LedgerName
       
        Aggr Compute: Amount         : Sum: $Amount
        Filter        : FltExcludeParty
    
        Search Key    : $Date
        ;Sort        :  @@DateDecr    : -$Date   
    ;----------------------------------------------------------------------------------------------------------------------------------------------   
    
    
    
    [System    : Formulae]
    ;    FltWithinDateFilter    :      ($Date >= ##cvrbcDateFrom) AND ($Date <= ##cvrbcDateTo)
        FltWithinDateFilter    :      ($$Date:$Date >= $$Date:##pDateFrom) AND ($$Date:$Date <= $$Date:##pDateTo)
       
        FltIsRelatedParty         : $IsRbcRelated = Yes
       
        FltReceiptFilter        : ##pLedgerName = $LedgerName AND $VoucherTypeName = $$VchTypeReceipt
        FltPaymentFilter        : ##pLedgerName = $LedgerName AND $VoucherTypeName= $$VchTypePayment
       
        FltExpenseFilter           : $$IsLedOfGrp:$LedgerName:$$GroupDirectExpenses  or $$IsLedOfGrp:$LedgerName:$$GroupIndirectExpenses
        FltSalesFilter            : $$IsLedOfGrp:$LedgerName:$$GroupSales         
        FltIncomeFilter         : $$IsLedOfGrp:$LedgerName:$$GroupIndirectIncomes or $$IsLedOfGrp:$LedgerName:$$GroupDirectIncomes
        FltPurchaseFilter        : $$IsLedOfGrp:$LedgerName:$$GroupPurchase
    
        FltExcludeParty            : NOT ##pLedgerName = $LedgerName
        FltIncludeParty            : ##pLedgerName = $LedgerName
    
    [System    : Formulae]   
       
        PrevYearStart       : $$PrevYear:@@PrevYearEnd + 1
        PrevYearEnd         : $$FinYearEnd:@@PrevYearOfCurrent:$$PrevYear:$StartingFrom:Company:##SVCurrentCompany
        PrevYearOfCurrent   : $$PrevYear:@@DSPtoDate
        CurrentYearStart    : $$FinYearBeg:@@DSPtoDate:$StartingFrom:Company:##SVCurrentCompany
        CurrentYearEnd        : $$FinYearEnd:@@DSPtoDate:$StartingFrom:Company:##SVCurrentCompany
       
    ;----------------------------------------------------------------------------------------------------------------------------------
    
           
    [Field : Rbc_PAN]
        Set as : $IncomeTaxNumber
        Width  : 10
        Border : Thin Right
        Align  : Left
       
       
        [Field : Rbc_Add]
        Set as :  $$CaseConvert:ProperCase:@Address ;
        Border : Thin Right
        Align  : Left
        Case    : Proper Case
        Full Width    : Yes
        Scroll    : Yes
        Address    : If not $_Address1 = "" then $_Address1 + ", " + $_Address2 + ", " + $_Address3 + ", " + $LedStatename + " ( " + $CountryName + " )"  else ""
       
    
    [Field : Rbc_ExNtr]
        Use        :Name Field
        Set as : If NOT ##ExplodeFlag then "" else (if $IsIncomeExp  then $LedgerName else $VoucherTypeName )
        Width  : 25
        Border : Thin Right
        Align  : Left
    
    
    [Field : Rbc_Max]
        Use        :Amount Field
        Set as :  If ($$ExplodeLevel = 1)  then 0 else  $HiClVal ;; :Ledger:$LedgerName; Else 0
        Width  : 10
        Border : Thin Right
        Align  : Right
    
    
    [Field : Rbc_ROI]
        Set as : $InterestRate
        Width  : 5
        Border : Thin Right
        Align  : Right
    
    [Field : Rbc_Int]
        Use        :Amount Field
        Set as : If ##ExplodeFlag then $Rbc_Rp_IntAmt  else $RbcRpLedIntAmt
    
        Width  : 10
        Border : Thin Right
        Align  : Right
    
    [Field : Rbc_TDS]
        Use        :Amount Field
        Set as : If ##ExplodeFlag then $Rbc_Rp_TDSAmt else $RbcRpLedTDSAmt
        Width  : 10
        Align  : Right
    
    
       
    [Field : Rbc_RDt]
        Set as : if $VoucherTypeName = $$VchTypeReceipt then $Date else ""
        Width  : 10
        Border : Thin Right
        Align  : Right
    
    [Field : Rbc_IEDt]
        Set as : If $IsIncomeExp then $Date else ""
        Width  : 10
        Border : Thin Right
        Align  : Right
    
    [Field : Rbc_PDt]
        Set as : if $VoucherTypeName = $$VchTypePayment then $Date else "" ;$Date
        Width  : 10
        Border : Thin Right
        Align  : Right
    
    
    
     
    Vashisth, psr, sattam and 2 others like this.


  2. Rohit Khedar

    Rohit Khedar Member


    Very Nice
     


  3. Bipin Damania

    Bipin Damania Active Member


    Dear CA Devendra ji

    Thank you very much for sharing...
    Really Very Useful for Tax Audit...
     


  4. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    Good Job sir
    Useful for Audit Purpose.

    Also can add saprate Income/Expense Ledger Column.

    Like :-Rent,Salary, interest
     


  5. garima

    garima Active Member


    One more version of this tdl is this

    RelatedPartyDetails.jpg
    ;RELATED PARTY
    Code:
    [#Menu : Gateway of Tally]
        Add    : Key Item    :  Before : @@LocQuit     : Customized Reports: C : Menu :  Customized Reports ;Column Day Book
    
    [Menu    : Customized Reports]
        Key Item    : "Related Party Expenses" : E : Display    : Related Party Exp Report
        Key Item    : "Loan Scheduel- Tax Audit" : L : Display    : Loan Schedule Report
       
    
    [Include    :LoansSchedule.tdl]
    
    
    
    [#Part: LED Mailing Parts]
    
        Add : Part : After: LED Provide Bank Details : LED Related
    
    [Part: LED Related]
        Space Top : 0.25
        Lines : LED Related, LED RParty
    
    [Line : LED Related]
    
        Field : Medium Prompt, LED Related
       
        Local : Field : Medium Prompt : Set as : $$LocaleString:"Is Related to Party ?"
        Local : Field : Medium Prompt : Color : Blue
    
    [Field : LED Related]
    
        Use : Logical Field
        Set as : No
        Set always : Yes
        Storage : IsRbcRelated
        ;Skip : LED Party Bank Details : $$Value = Yes
    
    
    [Line: LED RParty]
    
        Field : Medium Prompt, LED RParty
       
        Local : Field : Medium Prompt : Set as : $$LocaleString:"Relationship with Company"
        Local : Field : Medium Prompt : Color : Blue
       
    [Field : LED RParty]
    
        Use : Name Field
        Set always : Yes
        Storage : RbcRelationship
        Inactive: If #LEDRelated = Yes then No else Yes ;$$Value = Yes
    
    [System : UDF]
    
        IsRbcRelated : Logical : 1920
        RbcRelationship : String : 1921
       
    [#Object    : Ledger]
        IsRelatedParty    : $IsRbcRelated
        Relationship    : $RbcRelationship
       
    [Report: Related Party Exp Report]
        Title : "Related Party Expense Report"
        Form  : RelatedPartyExpForm
        Full Screen    : Yes
        Local : Part : RbcRpRpRP2 : Local: Line : Default : Local : Field : Default : Background : if $$IsEven:$$Line then @@SV_RELEASEDLEAFGREEN_PL else @@SV_RELEASEDGREEN_PL
    
    [Form : RelatedPartyExpForm]
        Use    : DSP Template
        Part   : RbcRpRpRP1, RbcRpRpRP2
        ;Bottom Part : VkLnSchP3
        Height : 100% Screen
        Width  : 100% Screen
        Button : Print Button, Export Button, Mail Button, Change Company
        Bottom Button : Filter Button
        Background: @@SV_RELEASEDLEAFGREEN_PL
       
    [Part : RbcRpRpRP1]
        Line   : RbcRpRpRP1L1, RbcRpRpRP1L2
        Border : Thin Bottom
    
       
       
    [Line : RbcRpRpRP1L1]
        Field : RbcRpRpRP1L1F1
        Height: .75 cms
       
    [Field : RbcRpRpRP1L1F1]
        Set as : @@CmpMailName
        Width  : 100% screen
        Align  : Centre
        Style  : Large Bold
        Full Width    : Yes
    
    [Line : RbcRpRpRP1L2]
        Field : RbcRpRpRP1    L2F1
       
    [Field : RbcRpRpRP1L2F1]
        Set as : "Related Party Expense Report"
        Style  : Large Bold
        Full Width    : Yes
        Align  : Centre
       
    [Part : RbcRpRpRP2]
        Top Line    : RbcRpRpRP2L1
        Line        : RbcRpRpRP2L2
       
        Repeat : RbcRpRpRP2L2 : RbcRp_ExpColl
        Bottom Line    : RbcRpRpRP3L1
        Scroll : Vertical
        Vertical    : Yes
        Local    : Field    : Default : Style: Small Bold
        Common Border    : Yes
    ;------------------------------------------------------------
    [Line : RbcRpRpRP2L1]
        Border : Thin Bottom
        Left Field  : RbcRpRpRP2L1SNo, RbcRpRpRP2L1LNm, RbcRpRpRP2L1Grp,  RbcRpRpRP2L1PAN, RbcRpRpRP2L1Add, RbcRpRpRP2L1ExNtr 
        Right Field: RbcRpRpRP2L1Opg, RbcRpRpRP2L1Exp,RbcRpRpRP2L1IEDT, RbcRpRpRP2L1Rcp, RbcRpRpRP2L1RDt, RbcRpRpRP2L1Pyt, RbcRpRpRP2L1PDt, RbcRpRpRP2L1Clg ;, RbcRpSchP2L1Max, +
                ; RbcRpSchP2L1ROI, RbcRpSchP2L1Int, RbcRpSchP2L1TDS
        Height    : 1.5
       
    [Line : RbcRpRpRP2L2]
        Border : Thin Box
        Left Field  : RbcRpRpRP2L2SNo, RbcRpRpRP2L2LNm, RbcRpRpRP2L2Grp,   RbcRpRpRP2L2PAN, RbcRpRpRP2L2Add, RbcRpRpRP2L2ExNtr;,  ;, + ;,
        Right Field    : RbcRpRpRP2L2Opg, RbcRpRpRP2L2Exp,RbcRpRpRP2L2IEDT,  RbcRpRpRP2L2Rcp, RbcRpRpRP2L2RDt, RbcRpRpRP2L2Pyt, RbcRpRpRP2L2PDt, RbcRpRpRP2L2Clg;, RbcRpSchP2L2Max, +
                ;    RbcRpSchP2L2ROI, RbcRpSchP2L2Int, RbcRpSchP2L2TDS
                   
        Explode    : RbcRpRpRP2L2Expld :  $$KeyExplode Or  ##ExplodeFlag
        Local    : Field    : Default : Style: Tahoma Small Bold
        Height    : 1.20
       
    [Field : RbcRpRpRP2L1SNo]
        Set as : "Sr No"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 3% screen
    
       
    [Field : RbcRpRpRP2L1LNm]
        Set as : "NAME OF PARTY"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 15% screen
        Alignment    : Left
       
    [Field : RbcRpRpRP2L1Grp]
        Set as : "RELATIONSHIP"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
        Alignment    : Left
       
    [Field : RbcRpRpRP2L1PAN]
        Set as : "P A N"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
        Alignment    : Left
       
    [Field : RbcRpRpRP2L1Add]
        Set as : "A D D R E S S"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Full Width    : Yes
        Alignment    : Left
       
       
    [Field : RbcRpRpRP2L1Opg]
        Set as : "OPENING"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
    
    
    [Field : RbcRpRpRP2L1ExNtr]
        Type   : String
        Set as : "INCOME/EXPENSE NATURE"
        Width  : 25% screen
        Border : Thin Right
        Align  : Left
    
    [Field : RbcRpRpRP2L1Exp]
        Type   : String
        Set as : "INCOME/EXPENSE"
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    [Field : RbcRpRpRP2L1IEDT]
        Type   : String
        Set as : "I/E DATE"
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
       
    [Field : RbcRpRpRP2L1Rcp]
        Set as : "RECEIPT"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpRpRP2L1RDt]
        Set as : "RCT. DATE"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpRpRP2L1Pyt]
        Set as : "PAYMENT"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpRpRP2L1PDt]
        Set as : "PMT. DATE"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpRpRP2L1Clg]
        Set as : "ClOSING"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpRpRP2L1Max]
        Set as : "MAXIMUM"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
    
    [Field : RbcRpRpRP2L1ROI]
        Set as : "RATE"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 5% screen
       
    [Field : RbcRpRpRP2L1Int]
        Set as : "INTEREST"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
    
    [Field : RbcRpRpRP2L1TDS]
        Set as : "TDS"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Width  : 10% screen   
    
    [Style : Tahoma Small Bold]
    
        Font    : "Tahoma"
        Height    : 9
       
        Bold    : No
    
       
    [Part        : RbcRpRpRP2L2Expld]
        Line     : RbcRpRpRP2L2Expld
        Repeat    : RbcRpRpRP2L2Expld : RbcRp_RctPmtExpld
        Scroll    : Vertical
        Bottom Line    : RbcRpRpRP3L1
        Totals  : RbcRpRpRP2L2Opg, RbcRpRpRP2L2Exp,RbcRpRpRP2L2IeDt, RbcRpRpRP2L2Rcp, RbcRpRpRP2L2Pyt, RbcRpRpRP2L2Clg, RbcRpRpRP2L2Int, RbcRpRpRP2L2TDS 
        Local    : Field    : Default : Style: Small  Bold Italic
        Common Border    : Yes
       
        [Line    : RbcRpRpRP2L2Expld]
                Left Field  : RbcRpRpRP2L2SNo, RbcRpRpRP2L2MasterId, RbcRpRpRP2L2LNm, RbcRpRpRP2L2Grp,  RbcRpRpRP2L2PAN, RbcRpRpRP2L2Add,RbcRpRpRP2L2ExNtr
                Right Field    : RbcRpRpRP2L2Opg,  RbcRpRpRP2L2Exp,RbcRpRpRP2L2IeDt, RbcRpRpRP2L2Rcp, RbcRpRpRP2L2RDt, RbcRpRpRP2L2Pyt, RbcRpRpRP2L2PDt, RbcRpRpRP2L2Clg;, RbcRpSchP2L2Max, +
                ; RbcRpSchP2L2ROI, RbcRpSchP2L2Int, RbcRpSchP2L2TDS
                Option  : Alter on Enter
                Local    : Field: default : Style: Small
                Height    : 1.20
               
               
    [Field : RbcRpRpRP2L2MasterId]
        Use : Name Field
        Set as : $MasterId
        Invisible: Yes
       
    ;------------------------------------------------------------------------
    
    [Field : RbcRpRpRP2L2SNo]
        ;Use    : Number Field
        Set as : $$Line
        Width  : 3% screen
        Border : Thin Right
        Align  : Center
        Alter    : Voucher
    
    [Field : RbcRpRpRP2L2LNm]
        Set as : $Name
        Width  : 15% screen
        Border : Thin Right
        Align  : Left
        Alter  : Ledger                ;;Display: Ledger
        Quick Search : Yes
    
    [Field : RbcRpRpRP2L2Grp]
        Set as : $RbcRelationship
        Width  : 10% screen
        Border : Thin Right
        Align  : Left
       
    [Field : RbcRpRpRP2L2PAN]
        Set as : $IncomeTaxNumber
        Width  : 10% screen
        Border : Thin Right
        Align  : Left
       
    [Field : RbcRpRpRP2L2Add]
        Set as :  $$CaseConvert:ProperCase:@Address ;
        Border : Thin Right
        Align  : Left
        Case    : Proper Case
        Full Width    : Yes
        Scroll    : Yes
        Address    : If not $_Address1 = "" then $_Address1 + ", " + $_Address2 + ", " + $_Address3 + ", " + $LedStatename + " ( " + $CountryName + " )"  else ""
       
       
    [Field : RbcRpRpRP2L2Opg]
        Use        :Amount Field
        Set as : if $BSOpening > 0 then $BSOpening else ""
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    [Field : RbcRpRpRP2L2ExNtr]
        Use        :Name Field
        Set as : If NOT ##ExplodeFlag then "" else (if $IsIncomeExp  then $LedgerName else $VoucherTypeName )
        Width  : 25% screen
        Border : Thin Right
        Align  : Left
    
    [Field : RbcRpRpRP2L2Exp]
        Use        :Amount Field
        Set as : If NOT ##ExplodeFlag then $RbcRpLedExpAmt Else  (if $IsIncomeExp  then $RbcRpVchExpAmt else "" )
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    [Field : RbcRpRpRP2L2IEDt]
        Set as : If $IsIncomeExp then $Date else ""
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    [Field : RbcRpRpRP2L2Rcp]
        Use        :Amount Field
        Set as : if NOT ##ExplodeFlag then $RbcRpLedRepAmt Else ( if $IsRectPayment then  $RbcRpRepAmt else  "")
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
       
    [Field : RbcRpRpRP2L2RDt]
        Set as : if $VoucherTypeName = $$VchTypeReceipt then $Date else ""
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    [Field : RbcRpRpRP2L2Pyt]
        Use        :Amount Field
        Set as : if Not  ##ExplodeFlag then $RbcRpLedPmtAmt else (if  $IsRectPayment then  $RbcRpPmtAmt  else  "")
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
       
    
    [Field : RbcRpRpRP2L2PDt]
        Set as : if $VoucherTypeName = $$VchTypePayment then $Date else "" ;$Date
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    [Field : RbcRpRpRP2L2Clg]
        Use        :Amount Field
        Set as : if $BSClosing > 0 then $BSClosing else ""
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    [Field : RbcRpRpRP2L2Max]
        Use        :Amount Field
        Set as :  If ($$ExplodeLevel = 1)  then 0 else  $HiClVal ;; :Ledger:$LedgerName; Else 0
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    
    [Field : RbcRpRpRP2L2ROI]
        Set as : $InterestRate
        Width  : 5% screen
        Border : Thin Right
        Align  : Right
    
    [Field : RbcRpRpRP2L2Int]
        Use        :Amount Field
        Set as : If ##ExplodeFlag then $RbcRpIntAmt  else $RbcRpLedIntAmt
    
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    [Field : RbcRpRpRP2L2TDS]
        Use        :Amount Field
        Set as : If ##ExplodeFlag then $RbcRpTDSAmt else $RbcRpLedTDSAmt
        Width  : 10% screen
        Align  : Right
    
    /*
    [Part : VkLnSchP3]
        Line       : VkLnSchP3L1
        Background : Crystal Blue
        Border       : Totals
    */
               
    [Line : RbcRpRpRP3L1]
        Left Field  : RbcRpRpRP3L1SNo, RbcRpRpRP3L1LNm, RbcRpRpRP3L1Grp,  RbcRpRpRP3L1PAN, RbcRpRpRP3L1Add, RbcRpRpRP3L1ExNtr ;, + ;,
        Right Field    : RbcRpRpRP3L1Opg,  RbcRpRpRP3L1Exp, RbcRpRpRP3L1IEDt, RbcRpRpRP3L1Rcp, RbcRpRpRP3L1RDt, RbcRpRpRP3L1Pyt, RbcRpRpRP3L1PDt, RbcRpRpRP3L1Clg; , RbcRpSchP3L1Max, +
                ; RbcRpSchP3L1ROI, RbcRpSchP3L1Int, RbcRpSchP3L1TDS
        Border        : Thin Top Bottom
       
    [Field : RbcRpRpRP3L1SNo]
        Set as : ""
        Border : Thin Right
        Width  : 3% screen
       
    [Field : RbcRpRpRP3L1LNm]
        Set as : "T O T A L"
        Align  : Center
        Style  : Normal Bold
        Border : Thin Right
        Width  : 15% screen
       
    [Field : RbcRpRpRP3L1Grp]
        Set as : ""
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpRpRP3L1PAN]
        Set as : ""
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpRpRP3L1Add]
        Set as : ""
        Border : Thin Right
        Full Width    : Yes
       
    [Field : RbcRpRpRP3L1Opg]
        Set as : $$Total:RbcRpRpRP2L2Opg
        Align  : Right
        Style  : Normal Bold
        Border : Thin Right
        Width  : 10% screen
    
    [Field : RbcRpRpRP3L1ExNtr]
        Use        :Amount Field
        Set as : ""
        Width  : 25% screen
        Border : Thin Right
        Align  : Left
       
    [Field : RbcRpRpRP3L1Exp]
        Use        :Amount Field
        Set as : $$Total:RbcRpRpRP2L2Exp
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    [Field : RbcRpRpRP3L1IEDt]
        Use        :Amount Field
        Set as : ""
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
       
    [Field : RbcRpRpRP3L1Rcp]
        Use    : Amount Field
        Set as : $$Total:RbcRpRpRP2L2Rcp
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpRpRP3L1RDt]
        Set as : ""
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpRpRP3L1Pyt]
        Use    : Amount Field
        Set as : $$Total:RbcRpRpRP2L2Pyt
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpRpRP3L1PDt]
        Set as : ""
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpRpRP3L1Clg]
        Use    : Amount Field
        Set as : $$Total:RbcRpRpRP2L2Clg
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpRpRP3L1Max]
        Set as : ""
        Border : Thin Right
        Width  : 10% screen
    
    [Field : RbcRpRpRP3L1ROI]
        Set as : ""
        Border : Thin Right
        Width  : 5% screen
       
    [Field : RbcRpRpRP3L1Int]
        Use    : Amount Field
        Set as : $$Total:RbcRpRpRP2L2Int
        Border : Thin Right
        Width  : 10% screen
    
    [Field : RbcRpRpRP3L1TDS]
        Use    : Amount Field
        Set as : $$Total:RbcRpRpRP2L2TDS
        Width  : 10% screen   
    
    
    [Collection : RbcRp_ExpColl]
        Type             : Ledger
        Fetch          : Parent, Name, Address, StateName, IncomeTaxNumber, Address2, Address3, BSOpening, BSClosing ,HiClVal
        Fetch        : RbcRelationship, IsRbcRelated
        Compute Var    : cvLedgerName : String: $Name
        Compute        : Amount            : $$CollAmtTotal:RbcRp_RctPmtColl:$Amount
        Compute        : RbcRpLedExpAmt    : $$CollAmtTotal:RbcRp_ExpSubColl:$Amount
        Compute        : RbcRpLedRepAmt    : $$CollAmtTotal:RbcRp_RctPmtColl:$RbcRpRepAmt
        Compute        : RbcRpLedPmtAmt    : $$CollAmtTotal:RbcRp_RctPmtColl:$RbcRpPmtAmt
        Compute        : RbcRpLedIntAmt     : $$CollAmtTotal:RbcRp_RctPmtColl:$RbcRpIntAmt
        Compute        : RbcRpLedTDSAmt     : $$CollAmtTotal:RbcRp_RctPmtColl:$RbcRpTDSAmt
    
        Belongs To : Yes
        Is ODBC Table: Yes
        Filter        : FltIsRelatedParty
    
       
    [Collection : RbcRp_RctPmtColl]
        Type         : Vouchers : Ledger
        Child Of   : ##cvLedgerName
        Compute        : IsRectPayment : Yes
        Compute        : IsIncomeExp    : No
       
        Fetch      : MasterId, Date, Amount, RbcRpRepAmt,RbcRpPmtAmt, RbcRpIntAmt, RbcRpTDSAmt
        Filter        : VchTypeFilter
    
    
    
    [Collection : RbcRp_RctPmtExpld]
        Collection    : RbcRp_RctPmt,  RbcRp_ExpSubXpld
    
    [Collection    : RbcRp_RctPmt]
        Type         : Vouchers : Ledger
        Parm Var   : pLedgerName : String: #RbcRpRpRP2L2LNm
        Child Of   : ##pLedgerName
        Compute        : IsRectPayment : Yes
        Compute        : IsIncomeExp    : No
        Fetch       : MasterId, Date, Amount, RbcRpRepAmt,RbcRpPmtAmt, RbcRpIntAmt, RbcRpTDSAmt
        Filter        : VchTypeFilter
       
    [System    : Formulae]
        VchTypeFilter    : $VoucherTypeName = $$VchTypeReceipt Or $VoucherTypeName = $$VchTypePayment
       
        FltIsRelatedParty     : $IsRbcRelated = Yes
       
        IsLedgerExpense       : $$IsLedOfGrp:$LedgerName:$$GroupDirectExpenses  or $$IsLedOfGrp:$LedgerName:$$GroupIndirectExpenses
        IsLedgerSalePurch    : $$IsLedOfGrp:$LedgerName:$$GroupSales           or $$IsLedOfGrp:$LedgerName:$$GroupSales
        IsLedgerIncome         : $$IsLedOfGrp:$LedgerName:$$GroupIndirectIncomes or $$IsLedOfGrp:$LedgerName:$$GroupDirectIncomes
        FltRelatedExpInc    : @@IsLedgerExpense Or @@IsLedgerSalePurch Or @@IsLedgerIncome ;OR @@IsRelatedExpInc   
    ;    FltFirstLedIsRelated : $LedgerEntries[1].LedgerName =##cvLedgerName
    
    [Collection : RbcRp_ExpSubColl]
        Type         : Vouchers : Ledger
        Child Of   : ##cvLedgerName
    
        Compute        : IsRectPayment : No
        Compute        : IsIncomeExp    : Yes
        Compute        : RbcRpVchExpAmt    : $Amount
    
        Fetch      : MasterId, Date, Amount, RbcRpRepAmt, RbcRpPmtAmt, RbcRpIntAmt, RbcRpTDSAmt
       
        Filter        : FltRelatedExpInc ;,FltFirstLedIsRelated   
    
    [Collection : RbcRp_ExpSubXpld]
        Type         : Vouchers : Ledger
        Parm Var   : pLedgerName : String: #RbcRpRpRP2L2LNm
        Child Of   : ##pLedgerName
       
        Compute        : IsRectPayment : No
        Compute        : IsIncomeExp    : Yes
        Compute        : RbcRpVchExpAmt    : $Amount
       
        Fetch      : MasterId, Date, Amount, RbcRpRepAmt, RbcRpPmtAmt, RbcRpIntAmt, RbcRpTDSAmt
       
        Filter        : FltRelatedExpInc ;,FltFirstLedIsRelated   
    
    
    ;---------------------------------------------------------------------------------------------------------   
    [Button : RefreshTDL]
        Title  : "Refresh TDL"
        Key    : Ctrl+R
        Action : Refresh TDL
       
    [System : Form Keys]
        Key : Refresh TDL
    [System : Menu Keys]
        Key : Refresh TDL
      
    [#Form : Default]
        Key : Refresh TDL
    [#Menu : Default]
        Key : Refresh TDL
    
    
        
    ;LOAN SCHEDULE
    Code:
    [#Form : Payment Color]
    
    [#Part : DBLLINE Narration]
        Add : Line : Before : Vch Narrprompt : RbcRpRep,RbcRpPmt, RbcRpInt, RbcRpTDS
       
    [Line : RbcRpRep]
        Field     : RbcRpRepAmtFld
        Invisible : NOT ($$IsReceipt:##SVVouchertype  and $$IsLedOfGrp:$LedgerName:$$GroupLoansLiab)
    
    [Line : RbcRpPmt]
        Field     : RbcRpPmtAmtFld
        Invisible : NOT ( $$IsPayment:##SVVouchertype and $$IsLedOfGrp:$LedgerName:$$GroupLoansLiab)
    
    [Line : RbcRpInt]
        Field       : RbcRpIntAmtFld
        Invisible : NOT (($$IsReceipt:##SVVouchertype OR $$IsPayment:##SVVouchertype) and $$IsLedOfGrp:$LedgerName:$$GroupLoansLiab)
           
    [Line : RbcRpTDS]
        Field       : RbcRpTDSAmtFld
        Invisible : NOT (($$IsReceipt:##SVVouchertype OR $$IsPayment:##SVVouchertype) and $$IsLedOfGrp:$LedgerName:$$GroupLoansLiab)
       
    [Field : RbcRpRepAmtFld]
        Field : Medium Prompt, RbcRpRepAmt1
        Local : Field : Medium Prompt : Set as : "Loan Repyment Amount :"
        Local : Field : Medium Prompt : Color  : Blue
    
    [Field :  RbcRpPmtAmtFld]
        Field : Medium Prompt, RbcRpPmtAmt1
        Local : Field : Medium Prompt : Set as : "Loan Payment Amount :"
        Local : Field : Medium Prompt : Color  : Blue
    
    
    [Field : RbcRpRepAmt1]
        Use        : Amount Field
        Set as       : If $$InCreateMode then $Amount else 0
        Background : Satin Blue
        Storage    : RbcRpRepAmt
        Set Always    : Yes
    
    [Field : RbcRpPmtAmt1]
        Use        : Amount Field
        Set as       : If $$InCreateMode then $Amount else 0
        Background : Satin Blue
        Storage    : RbcRpPmtAmt
        Set Always    : Yes
       
    [Field : RbcRpIntAmtFld]
        Field : Medium Prompt, RbcRpIntAmt1
        Local : Field : Medium Prompt : Set as   : "Interest Amount :"
        Local : Field : Medium Prompt : Color    : Blue
        Local : Field : Medium Prompt : Inactive : $Amount = $RbcRpRepAmt
       
    [Field : RbcRpIntAmt1]
        Use        : Amount Field
        Set as     : If ##SvVoucherType = $$VchTypePayment then ($Amount - $RbcRpPmtAmt) Else (If ##SvVoucherType = $$VchTypeReceipt then $Amount - $RbcRpRepAmt else 0)
        Set Always : Yes
        Background : Satin Blue
        Storage    : RbcRpIntAmt
        Inactive   : $Amount = $RbcRpRepAmt Or $Amount = $RbcRpPmtAmt
    
    [Field : RbcRpTDSAmtFld]
        Field : Medium Prompt, RbcRpTDSAmt1
        Local : Field : Medium Prompt : Set as     : "TDS Amount :"
        Local : Field : Medium Prompt : Color      : Blue
        Local : Field : Medium Prompt : Inactive   : $RbcRpIntAmt = 0
       
    [Field : RbcRpTDSAmt1]
        Use        : Amount Field
        Background : Satin Blue
        Storage    : RbcRpTDSAmt
        Inactive   : $RbcRpIntAmt = 0
    
    [System : UDF]
        RbcRpRepAmt  : Amount : 991 : Yes
        RbcRpIntAmt  : Amount : 992 : Yes
        RbcRpTDSAmt  : Amount : 995 : Yes
        RbcRpPmtAmt  : Amount : 996 : Yes
       
    
    
    
    
    [Report : Loan Schedule Report]
        Title : "Loan Schedule"
        Form  : RbcRploanSch
        Full Screen    : Yes
        Local : Part : RbcRpSchP2 : Local: Line : Default : Local : Field : Default : Background : if $$IsEven:$$Line then @@SV_RELEASEDLEAFGREEN_PL else @@SV_RELEASEDGREEN_PL
    
    [Form : RbcRpLoanSch]
        Use    : DSP Template
        Part   : RbcRpSchP1, RbcRpSchP2
        ;Bottom Part : VkLnSchP3
        Height : 100% Screen
        Width  : 100% Screen
        Button : Print Button, Export Button, Mail Button, Change Company
        Bottom Button : Filter Button
        Background: @@SV_RELEASEDLEAFGREEN_PL
       
    [Part : RbcRpSchP1]
        Line   : RbcRpSchP1L1, RbcRpSchP1L2
        Border : Thin Bottom
    
       
       
    [Line : RbcRpSchP1L1]
        Field : RbcRpSchP1L1F1
        Height: .75 cms
       
    [Field : RbcRpSchP1L1F1]
        Set as : @@CmpMailName
        Width  : 100% screen
        Align  : Centre
        Style  : Large Bold
        Full Width    : Yes
    
    [Line : RbcRpSchP1L2]
        Field : RbcRpSchP1    L2F1
       
    [Field : RbcRpSchP1L2F1]
        Set as : "Loan Schedule"
        Style  : Large Bold
        Full Width    : Yes
        Align  : Centre
       
    [Part : RbcRpSchP2]
        Top Line    : RbcRpSchP2L1
        Line        : RbcRpSchP2L2
       
        Repeat : RbcRpSchP2L2 : RbcRpSchColl
        Bottom Line    : RbcRpSchP3L1
        Scroll : Vertical
        Vertical    : Yes
        Local    : Field    : Default : Style: Small Bold
        Common Border    : Yes
    ;------------------------------------------------------------
    [Line : RbcRpSchP2L1]
        Border : Thin Bottom
        Left Field  : RbcRpSchP2L1SNo, RbcRpSchP2L1LNm,  RbcRpSchP2L1PAN, RbcRpSchP2L1Add  ;VkLnSchP2L1Grp,
        Right Field: RbcRpSchP2L1Opg,  RbcRpSchP2L1Rcp, RbcRpSchP2L1RDt, RbcRpSchP2L1Pyt, RbcRpSchP2L1PDt, RbcRpSchP2L1Clg, RbcRpSchP2L1Max, +
                 RbcRpSchP2L1ROI, RbcRpSchP2L1Int, RbcRpSchP2L1TDS
        Height    : 1.5
       
    [Line : RbcRpSchP2L2]
        Border : Thin Box
        Left Field  : RbcRpSchP2L2SNo, RbcRpSchP2L2LNm,  RbcRpSchP2L2PAN, RbcRpSchP2L2Add;,  ;, + ;VkLnSchP2L2Grp,
        Right Field    : RbcRpSchP2L2Opg, RbcRpSchP2L2Rcp, RbcRpSchP2L2RDt, RbcRpSchP2L2Pyt, RbcRpSchP2L2PDt, RbcRpSchP2L2Clg, RbcRpSchP2L2Max, +
                    RbcRpSchP2L2ROI, RbcRpSchP2L2Int, RbcRpSchP2L2TDS
                   
        Explode    : RbcRpSchP2L2Expld :  $$KeyExplode Or  ##ExplodeFlag
        Local    : Field    : Default : Style: Tahoma Small Bold
        Height    : 1.20
       
    [Field : RbcRpSchP2L1SNo]
        Set as : "Sr No"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 3% screen
    
       
    [Field : RbcRpSchP2L1LNm]
        Set as : "NAME OF PARTY"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 15% screen
        Alignment    : Left
       
    [Field : RbcRpSchP2L1Grp]
        Set as : "Group Name"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
        Alignment    : Left
       
    [Field : RbcRpSchP2L1PAN]
        Set as : "P A N"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
        Alignment    : Left
       
    [Field : RbcRpSchP2L1Add]
        Set as : "A D D R E S S"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Full Width    : Yes
        Alignment    : Left
       
       
    [Field : RbcRpSchP2L1Opg]
        Set as : "OPENING"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpSchP2L1Rcp]
        Set as : "RECEIPT"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpSchP2L1RDt]
        Set as : "RCT. DATE"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpSchP2L1Pyt]
        Set as : "PAYMENT"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpSchP2L1PDt]
        Set as : "PMT. DATE"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpSchP2L1Clg]
        Set as : "ClOSING"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpSchP2L1Max]
        Set as : "MAXIMUM"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
    
    [Field : RbcRpSchP2L1ROI]
        Set as : "RATE"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 5% screen
       
    [Field : RbcRpSchP2L1Int]
        Set as : "INTEREST"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Border : Thin Right
        Width  : 10% screen
    
    [Field : RbcRpSchP2L1TDS]
        Set as : "TDS"
        Align  : Center
        Style  : Normal Bold
        Type   : String
        Width  : 10% screen   
    
    
       
    [Part        : RbcRpSchP2L2Expld]
        Line     : RbcRpSchP2L2Expld
        Repeat    : RbcRpSchP2L2Expld : RbcRpSchVchColl
        Scroll    : Vertical
        Bottom Line    : RbcRpSchP3L1
        Totals  : RbcRpSchP2L2Opg, RbcRpSchP2L2Rcp, RbcRpSchP2L2Pyt, RbcRpSchP2L2Clg, RbcRpSchP2L2Int, RbcRpSchP2L2TDS 
        Local    : Field    : Default : Style: Small  Bold Italic
        Common Border    : Yes
       
        [Line    : RbcRpSchP2L2Expld]
                Left Field  : RbcRpSchP2L2SNo, RbcRpSchP2L2MasterId, RbcRpSchP2L2LNm,  RbcRpSchP2L2PAN, RbcRpSchP2L2Add;, + ;VkLnSchP2L2Grp,
                Right Field    : RbcRpSchP2L2Opg, RbcRpSchP2L2Rcp, RbcRpSchP2L2RDt, RbcRpSchP2L2Pyt, RbcRpSchP2L2PDt, RbcRpSchP2L2Clg, RbcRpSchP2L2Max, +
                 RbcRpSchP2L2ROI, RbcRpSchP2L2Int, RbcRpSchP2L2TDS
                Option  : Alter on Enter
                Local    : Field: default : Style: Small
                Height    : 1.20
               
    [Field : RbcRpSchP2L2MasterId]
        Use : Name Field
        Set as : $MasterId
        Invisible: Yes
       
    ;------------------------------------------------------------------------
    
    [Field : RbcRpSchP2L2SNo]
        ;Use    : Number Field
        Set as : $$Line
        Width  : 3% screen
        Border : Thin Right
        Align  : Center
        Alter    : Voucher
    
    [Field : RbcRpSchP2L2LNm]
        Set as : $Name
        Width  : 15% screen
        Border : Thin Right
        Align  : Left
        Alter  : Ledger                ;;Display: Ledger
        Quick Search : Yes
    
    [Field : RbcRpSchP2L2Grp]
        Set as : $Parent
        Width  : 10% screen
        Border : Thin Right
        Align  : Left
       
    [Field : RbcRpSchP2L2PAN]
        Set as : $IncomeTaxNumber
        Width  : 10% screen
        Border : Thin Right
        Align  : Left
       
    [Field : RbcRpSchP2L2Add]
        Set as : $$CaseConvert:ProperCase:@Address
        Border : Thin Right
        Align  : Left
        Case    : Proper Case
        Full Width    : Yes
        Scroll    : Yes
        Address    : If not $_Address1 = "" then $_Address1 + ", " + $_Address2 + ", " + $_Address3 + ", " + $LedStatename + " ( " + $CountryName + " )"  else ""
       
       
    [Field : RbcRpSchP2L2Opg]
        Use        :Amount Field
        Set as : if $BSOpening > 0 then $BSOpening else ""
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    [Field : RbcRpSchP2L2Rcp]
        Use        :Amount Field
        Set as : If ##ExplodeFlag then $RbcRpRepAmt else $RbcRpLedRepAmt
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    [Field : RbcRpSchP2L2RDt]
        Set as : if $VoucherTypeName = $$VchTypeReceipt then $Date else ""
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    [Field : RbcRpSchP2L2Pyt]
        Use        :Amount Field
        Set as : If ##ExplodeFlag then $RbcRpPmtAmt  else $RbcRpLedPmtAmt
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    
    [Field : RbcRpSchP2L2PDt]
        Set as : if $VoucherTypeName = $$VchTypePayment then $Date else "" ;$Date
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    [Field : RbcRpSchP2L2Clg]
        Use        :Amount Field
        Set as : if $BSClosing > 0 then $BSClosing else ""
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    [Field : RbcRpSchP2L2Max]
        Use        :Amount Field
        Set as :  If ($$ExplodeLevel = 1)  then 0 else  $HiClVal ;; :Ledger:$LedgerName; Else 0
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    
    [Field : RbcRpSchP2L2ROI]
        Set as : $InterestRate
        Width  : 5% screen
        Border : Thin Right
        Align  : Right
    
    [Field : RbcRpSchP2L2Int]
        Use        :Amount Field
        Set as : If ##ExplodeFlag then $RbcRpIntAmt  else $RbcRpLedIntAmt
    
        Width  : 10% screen
        Border : Thin Right
        Align  : Right
    
    [Field : RbcRpSchP2L2TDS]
        Use        :Amount Field
        Set as : If ##ExplodeFlag then $RbcRpTDSAmt else $RbcRpLedTDSAmt
        Width  : 10% screen
        Align  : Right
    
    /*
    [Part : VkLnSchP3]
        Line       : VkLnSchP3L1
        Background : Crystal Blue
        Border       : Totals
    */
               
    [Line : RbcRpSchP3L1]
        Left Field  : RbcRpSchP3L1SNo, RbcRpSchP3L1LNm,  RbcRpSchP3L1PAN, RbcRpSchP3L1Add ;, + ;VkLnSchP3L1Grp,
        Right Field    : RbcRpSchP3L1Opg, RbcRpSchP3L1Rcp, RbcRpSchP3L1RDt, RbcRpSchP3L1Pyt, RbcRpSchP3L1PDt, RbcRpSchP3L1Clg, RbcRpSchP3L1Max, +
                 RbcRpSchP3L1ROI, RbcRpSchP3L1Int, RbcRpSchP3L1TDS
        Border        : Thin Top Bottom
       
    [Field : RbcRpSchP3L1SNo]
        Set as : ""
        Border : Thin Right
        Width  : 3% screen
       
    [Field : RbcRpSchP3L1LNm]
        Set as : "T O T A L"
        Align  : Center
        Style  : Normal Bold
        Border : Thin Right
        Width  : 15% screen
       
    [Field : RbcRpSchP3L1Grp]
        Set as : ""
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpSchP3L1PAN]
        Set as : ""
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpSchP3L1Add]
        Set as : ""
        Border : Thin Right
        Full Width    : Yes
       
    [Field : RbcRpSchP3L1Opg]
        Set as : $$Total:RbcRpSchP2L2Opg
        Align  : Right
        Style  : Normal Bold
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpSchP3L1Rcp]
        Use    : Amount Field
        Set as : $$Total:RbcRpSchP2L2Rcp
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpSchP3L1RDt]
        Set as : ""
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpSchP3L1Pyt]
        Use    : Amount Field
        Set as : $$Total:RbcRpSchP2L2Pyt
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpSchP3L1PDt]
        Set as : ""
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpSchP3L1Clg]
        Use    : Amount Field
        Set as : $$Total:RbcRpSchP2L2Clg
        Border : Thin Right
        Width  : 10% screen
       
    [Field : RbcRpSchP3L1Max]
        Set as : ""
        Border : Thin Right
        Width  : 10% screen
    
    [Field : RbcRpSchP3L1ROI]
        Set as : ""
        Border : Thin Right
        Width  : 5% screen
       
    [Field : RbcRpSchP3L1Int]
        Use    : Amount Field
        Set as : $$Total:RbcRpSchP2L2Int
        Border : Thin Right
        Width  : 10% screen
    
    [Field : RbcRpSchP3L1TDS]
        Use    : Amount Field
        Set as : $$Total:RbcRpSchP2L2TDS
        Width  : 10% screen   
    
    
    [Collection : RbcRpSchColl]
        Type         : Ledger
        Fetch      : Parent, Name, Address, StateName, IncomeTaxNumber, Address2, Address3, BSOpening, BSClosing ,HiClVal
        Compute Var    : cvLedgerName : String: $Name
        Compute        :  Amount        : $$CollAmtTotal:RbcRpSchVchRepColl:$Amount
        Compute        : RbcRpLedRepAmt    : $$CollAmtTotal:RbcRpSchVchRepColl:$RbcRpRepAmt
        Compute        : RbcRpLedPmtAmt    : $$CollAmtTotal:RbcRpSchVchRepColl:$RbcRpPmtAmt
        Compute        : RbcRpLedIntAmt : $$CollAmtTotal:RbcRpSchVchRepColl:$RbcRpIntAmt
        Compute        : RbcRpLedTDSAmt : $$CollAmtTotal:RbcRpSchVchRepColl:$RbcRpTDSAmt
        Child Of   : $$GroupLoansLiab
        Belongs To : Yes
        Is ODBC Table: Yes
    
    [Collection : RbcRpSchVchRepColl]
        Type         : Vouchers : Ledger
        Child Of   : ##cvLedgerName
    
        Fetch      : MasterId, Date, Amount, RbcRpRepAmt,RbcRpPmtAmt RbcRpIntAmt, RbcRpTDSAmt
        Filter        : VchTypeFilter
    
    [Collection : RbcRpSchVchColl]
        Type         : Vouchers : Ledger
        Parm Var   : pLedgerName : String: #RbcRpSchP2L2LNm
        Child Of   : ##pLedgerName
        Fetch      : MasterId, Date, Amount, RbcRpRepAmt,RbcRpPmtAmt RbcRpIntAmt, RbcRpTDSAmt
        Filter        : VchTypeFilter
       
    [System    : Formulae]
        VchTypeFilter    : $VoucherTypeName = $$VchTypeReceipt Or $VoucherTypeName = $$VchTypePayment
       
     
       
    
    
       
    
     


  6. Philip Fernandes

    Philip Fernandes New Member


    Devendra Sir and I were exploring on this code and Devendra Sir had helped a lot . The above format was worked out by him .The only correction required is to explore the ledger name of expense and Ledger Name of Income in the horizontal format (not in vertical format)as depicted by Garimaji since it is required by the statute.So if it can be done would be great if it is done. have been trying but could not do.
     


  7. Philip Fernandes

    Philip Fernandes New Member


    Devendra Sir and I were exploring on this code and Devendra Sir had helped a lot . The above format was worked out by him .The only correction required is to explore the ledger name of expense and Ledger Name of Income in the horizontal format (not in vertical format)as depicted by Garimaji since it is required by the statute.So if it can be done would be great if it is done. have been trying but could not do.

    Can you please help on this
     


  8. tejeet

    tejeet Member


    HELP NEEDED - HOW TO CHANGE "invoice no" as "proforma invoice no" in proforma invoice, please provide us the code, when we prepare invoice if we want sent it as proforma invoice , we select titling button from print setting & enter invoice title as proforma invoice & print proforma invoice, but it print title as proforma invoice & invoice no ( instead of proforma invoice no ) , so please suggest code to change as per attachment below :
    upload_2020-3-17_21-44-8.png
     


  9. garima

    garima Active Member


    Garima is an organisation.. Devendra Rawat is associated with it.
    We will try what you suggested @Philip Fernandes ji, but structure of both the code the first one and last one to which you replied, needs to be changed completely to incorporate your suggestions, so it may take time
     


  10. jgkumar1976

    jgkumar1976 Member


    [Collection : RbcRp_ExpColl]
    Type : Ledger
    Fetch : Parent, Name, Address, StateName, IncomeTaxNumber, Address2, Address3, BSOpening, BSClosing ,HiClVal
    Fetch : RbcRelationship, IsRbcRelated
    Compute Var : cvLedgerName : String: $Name
    Compute : Amount : $$CollAmtTotal:RbcRp_RctPmtColl:$Amount
    Compute : RbcRpLedExpAmt : $$CollAmtTotal:RbcRp_ExpSubColl:$Amount
    Compute : RbcRpLedRepAmt : $$CollAmtTotal:RbcRp_RctPmtColl:$RbcRpRepAmt
    Compute : RbcRpLedPmtAmt : $$CollAmtTotal:RbcRp_RctPmtColl:$RbcRpPmtAmt
    Compute : RbcRpLedIntAmt : $$CollAmtTotal:RbcRp_RctPmtColl:$RbcRpIntAmt
    Compute : RbcRpLedTDSAmt : $$CollAmtTotal:RbcRp_RctPmtColl:$RbcRpTDSAmt

    Belongs To : Yes
    Is ODBC Table: Yes
    Filter : FltIsRelatedParty





    sir
    through above code

    how to filter
    Ledger master is existed but not voucher entries for that ledger ,,
     


Share This Page