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. @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
Good Job sir Useful for Audit Purpose. Also can add saprate Income/Expense Ledger Column. Like :-Rent,Salary, interest
One more version of this tdl is this ;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
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.
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
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 :
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
[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 ,,