;;===================================================CODE FOR DayBook================================================= [#System: Formula] SV_SEL_CURSOR_BG : ;;===================================================CODE FOR DayBook================================================= [#System: Formula] SV_SEL_CURSOR_BG : Rosy Brown SV_SEL_CURSOR_FG : Released green SV_SELECTED_BG : Maron SV_SELECTED_FG : Released Blue [#Form: Day Book] Add:Bottom Parts : Daybook Total [Part : Daybook Total] Line : Daybook Total Border: Column Titles [Line : Daybook Total] ;Add : left Field : LineselectDDTotalDr,LineselectDDTotalCr,LineselectDDTotalNet Right Field : LineselectDDTotalNet,TotalDD,Daybook dr, Daybook cr [Field : TotalDD] Use: Short Name Field Set as: if @@InselectMode Then "Selected Lines Total :" Else "Total :" [Field : Daybook dr] Use : Name Field Set as : if @@InselectMode Then $$StringSelectedTotalValD Else $$Stringtotaldr + " Dr" Width : 12 Align : Centre Background : if @@InselectMode Then "Rosy Brown" Else @@SV_DAYBOOK Invisible : ##IsVoucherregister Totaldr : $$TotalSPDBDrAmt SelectedTotalValD: $$String:##SelectedLinesJKtSKRTotalD:"DrCr" [Field : Daybook cr] Use : Name Field Set as : if @@InselectMode Then $$StringSelectedTotalValC Else $$Stringtotalcr + " Cr" Width : 12 Align : Centre TotalCr : $$TotalSPDBCrAmt SelectedTotalValC : $$String:##SelectedLinesJKtSKRTotalC:"DrCr" Background : if @@InselectMode Then "Rosy Brown" Else @@SV_DAYBOOK Invisible : ##IsVoucherregister [Field: LineselectDDTotalNet] Use : Name Field Set as : if @@InselectMode Then $$StringSelectedTotal1 + $$StringSelectedTotalVal1 Else "" Width : 18 Align : Centre SelectedTotal1 : $$LocaleString:"Net : " SelectedTotalVal1: $$String:##SelectedLinesJKtSKRTotal1:"DrCr" Background : if @@InselectMode Then "Rosy Brown" Else @@SV_DAYBOOK Invisible : ##IsLedgerReport [#Part: DB Body] Total: DSPDBDrAmt,DSP DBCrAmt [#Line : DSP VchDetail] Option : SelectedLinesJKtSKRTotalOnFocus1 Option : SelectedLinesJKtSKRTotalOnFocusd Option : SelectedLinesJKtSKRTotalOnFocusc [!Line: SelectedLinesJKtSKRTotalOnFocus1] ;Line to Call Selected BillsTotal Function On : Focus : Yes : Call : SelectedLinesJKtSKRTotal1 On : Focus : Yes : Call : SelectedLinesJKtSKRTotalD On : Focus : Yes : Call : SelectedLinesJKtSKRTotalC [Function: SelectedLinesJKtSKRTotal1] 0010 : Set : IsLineselected1 : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotal1) 0020 : Set : SelectedLinesJKtSKRTotal1 : ($$CollAmtTotal:SelectedLinesColl1:$Amount) [Function: SelectedLinesJKtSKRTotalD] 0010 : Set : IsLineselected1 : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotal1) 0030 : Set : SelectedLinesJKtSKRTotalD : ($$CollAmtTotal:SelectedLinesCollD:$Amount) [Function: SelectedLinesJKtSKRTotalC] 0010 : Set : IsLineselected1 : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotal1) 0040 : Set : SelectedLinesJKtSKRTotalC : ($$CollAmtTotal:SelectedLinesCollC:$Amount) [System: Variables] SelectedLinesJKtSKRTotal1 : 0 SelectedLinesJKtSKRTotalD : 0 SelectedLinesJKtSKRTotalC : 0 IsLineselected1 : NO [Variable: SelectedLinesJKtSKRTotal1] Type : Amount Persistent : Yes [Variable: SelectedLinesJKtSKRTotalD] Type : Amount Persistent : Yes [Variable: SelectedLinesJKtSKRTotalC] Type : Amount Persistent : Yes [Variable: IsLineselected1] Type : Logical [Collection:SelectedLinesColl1] Data Source : Report : Selected Fetch : Amount Client Only : Yes [Collection:SelectedLinesCollD] Data Source : Report : Selected Fetch : Amount Fetch : AllLedgerEntries.LedgerName, AllLedgerEntries.Amount Fetch : AllLedgerEntries.BankAllocations.* Client Only : Yes Filter : onlydrdb [Collection:SelectedLinesCollC] Data Source : Report : Selected Fetch : Amount Fetch : AllLedgerEntries.LedgerName, AllLedgerEntries.Amount Fetch : AllLedgerEntries.BankAllocations.* Client Only : Yes Filter : onlycrdb [System : Formulae] onlycrdb : NOT $$isDr:$Amount [System : Formulae] onlydrdb :$$IsDr:$Amount [System : Formulae] InselectMode:##IsLineselected1 AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesColl1:$Amount) [Color:Rosy Brown] RGB:188,143,143 [Color:MARON] RGB:123,17,19 /*[#System: Formula] SV_SEL_CURSOR_BG : Rosy Brown SV_SEL_CURSOR_FG : Released green SV_SELECTED_BG : Maron SV_SELECTED_FG : Released Blue [#Form: Day Book] Add:Bottom Parts : Daybook Total [Part : Daybook Total] Line : Daybook cr [Line : Daybook cr] Add : left Field : LineselectedTotal1,LineselectedTotalD,LineselectedTotalC Right Field : Daybook dr, Daybook cr [Field : Daybook dr] Use : Amount Forex Field Set as : $$TotalSPDBDrAmt Invisible : ##IsVoucherregister [Field : Daybook cr] Use : Amount Forex Field Set as : $$TotalSPDBcrAmt Invisible : ##IsVoucherregister [#Part: DB Body] Total: DSPDBDrAmt,DSP DBCrAmt [#Line : DSP VchDetail] Option : SelectedLinesJKtSKRTotalOnFocus1 Option : SelectedLinesJKtSKRTotalOnFocusd Option : SelectedLinesJKtSKRTotalOnFocusc [!Line: SelectedLinesJKtSKRTotalOnFocus1] ;Line to Call Selected BillsTotal Function On : Focus : Yes : Call : SelectedLinesJKtSKRTotal1 On : Focus : Yes : Call : SelectedLinesJKtSKRTotalD On : Focus : Yes : Call : SelectedLinesJKtSKRTotalC [Function: SelectedLinesJKtSKRTotal1] 0010 : Set : IsLineselected1 : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotal1) 0020 : Set : SelectedLinesJKtSKRTotal1 : ($$CollAmtTotal:SelectedLinesColl1:$Amount) [Function: SelectedLinesJKtSKRTotalD] 0010 : Set : IsLineselected1 : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotal1) 0030 : Set : SelectedLinesJKtSKRTotalD : ($$CollAmtTotal:SelectedLinesCollD:$Amount) [Function: SelectedLinesJKtSKRTotalC] 0010 : Set : IsLineselected1 : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotal1) 0040 : Set : SelectedLinesJKtSKRTotalC : ($$CollAmtTotal:SelectedLinesCollC:$Amount) [Field: LineselectedTotal1] Use : Name Field Set as : if ##IsLineselected1 AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesColl1:$Amount) Then $$StringSelectedTotal1 + $$StringSelectedTotalVal1 Else "" Width : 30 Align : Centre SelectedTotal1 : $$LocaleString:"Net Selection : " SelectedTotalVal1: $$String:##SelectedLinesJKtSKRTotal1:"DrCr" Background : if ##IsLineselected1 AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesColl1:$Amount) Then "Rosy Brown" Else @@SV_DAYBOOK Invisible : ##IsLedgerReport [Field: LineselectedTotalD] Use : Name Field Set as : if ##IsLineselected1 AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollD:$Amount) Then $$StringSelectedTotalD + $$StringSelectedTotalValD Else "" Width : 30 Align : Centre SelectedTotalD : $$LocaleString:"Dr Side : " SelectedTotalValD: $$String:##SelectedLinesJKtSKRTotalD:"DrCr" Background : if ##IsLineselected1 AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollD:$Amount) Then "Rosy Brown" Else @@SV_DAYBOOK Invisible : ##IsLedgerReport [Field: LineselectedTotalC] Use : Name Field Set as : if ##IsLineselected1 AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollC:$Amount) Then $$StringSelectedTotalC + $$StringSelectedTotalValC Else "" Width : 30 Align : Centre SelectedTotalC : $$LocaleString:"Cr Side : " SelectedTotalValC: $$String:##SelectedLinesJKtSKRTotalC:"DrCr" Background : if ##IsLineselected1 AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollC:$Amount) Then "Rosy Brown" Else @@SV_DAYBOOK Invisible : ##IsLedgerReport [System: Variables] SelectedLinesJKtSKRTotal1 : 0 SelectedLinesJKtSKRTotalD : 0 SelectedLinesJKtSKRTotalC : 0 IsLineselected1 : NO [Variable: SelectedLinesJKtSKRTotal1] Type : Amount Persistent : Yes [Variable: SelectedLinesJKtSKRTotalD] Type : Amount Persistent : Yes [Variable: SelectedLinesJKtSKRTotalC] Type : Amount Persistent : Yes [Variable: IsLineselected1] Type : Logical [Collection:SelectedLinesColl1] Data Source : Report : Selected Fetch : Amount Client Only : Yes [Collection:SelectedLinesCollD] Data Source : Report : Selected Fetch : Amount Fetch : AllLedgerEntries.LedgerName, AllLedgerEntries.Amount Fetch : AllLedgerEntries.BankAllocations.* Client Only : Yes Filter : onlydrdb [Collection:SelectedLinesCollC] Data Source : Report : Selected Fetch : Amount Fetch : AllLedgerEntries.LedgerName, AllLedgerEntries.Amount Fetch : AllLedgerEntries.BankAllocations.* Client Only : Yes Filter : onlycrdb [System : Formulae] onlycrdb : NOT $$isDr:$Amount [System : Formulae] onlydrdb :$$IsDr:$Amount [Color:Rosy Brown] RGB:188,143,143 [Color:MARON] RGB:123,17,19*/ ;;===================================================CODE FOR Group Vouchers================================================= [#Line : DSP VchClAmt] Add : Left Field : NetAmtG, LineselectedTotalDrG, LineselectedTotalCrG [#Line : DSP VchDetail] Option : SelectedLinesJKtSKRTotalOnFocusG [!Line : SelectedLinesJKtSKRTotalOnFocusG] On : Focus : Yes : Call : SelectedLinesJKtSKRTotalDrG On : Focus : Yes : Call : SelectedLinesJKtSKRTotalCrG On : Focus : Yes : Call : SelectedLinesJKtSKRTotalnetG [Function : SelectedLinesJKtSKRTotalDrG] 0010 : Set : SelectedLinesJKtSKRTotalDrG : ($$CollAmtTotal:SelectedLinesCollDjG:$TotalGrpDrVchAmt) 0011 : Set : IsLineselectedDrG : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotalDrG) [Function : SelectedLinesJKtSKRTotalCrG] 0010 : Set : SelectedLinesJKtSKRTotalCrG : ($$CollAmtTotal:SelectedLinesCollCjG:$TotalGrpCrVchAmt) 0011 : Set : IsLineselectedCrG : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotalCrG) [Function : SelectedLinesJKtSKRTotalnetG] 0010 : Set : SelectedLinesJKtSKRTotalnetG : ($$CollAmtTotal:SelectedLinesCollnetG:$TotalGrpVchAmt) 0011 : Set : IsLineselectednetG : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotalnetG) [Field : LineselectedTotalDrG] Use : Name Field Set as : if ##IsLineselectedDrG AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollDjG:$TotalGrpDrVchAmt) Then $$StringSelectedTotalDrG + $$StringSelectedTotalValDrG Else "" Width : 30 Align : Centre Background : if ##IsLineselectedDrG AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollDjG:$TotalGrpDrVchAmt) Then "Released Blue" Else "RELEASED GREEN" Invisible : ##IsLedgerReport SelectedTotalDrG : $$LocaleString:"Dr Total : " SelectedTotalValDrG : $$String:##SelectedLinesJKtSKRTotalDrG:"DrCr" [Field : LineselectedTotalCrG] Use : Name Field Set as : if ##IsLineselectedCrG AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollCjG:$TotalGrpCrVchAmt) Then $$StringSelectedTotalCrG + $$StringSelectedTotalValCrG Else "" Width : 30 Align : Centre Background : if ##IsLineselectedCrG AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollCjG:$TotalGrpCrVchAmt) Then "CandyAppleGreen" Else "RELEASED GREEN" Invisible : ##IsLedgerReport SelectedTotalCrG : $$LocaleString:"Cr Total : " SelectedTotalValCrG : $$String:##SelectedLinesJKtSKRTotalCrG:"DrCr" [Field : NetAmtG] Use : Name Field Set as : if ##IsLineselectednetG AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollnetG:$TotalGrpVchAmt) Then $$StringSelectedTotalnetG + $$StringSelectedTotalValnetG Else "" Width : 30 Align : Centre Background : if ##IsLineselectednetG AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollNetG:$TotalGrpVchAmt) Then "Rosy Brown" Else "Released Green" Format : "DrCr" Invisible : ##IsLedgerReport SelectedTotalNetG : $$LocaleString:"Net Selection : " SelectedTotalValNetG : $$String:##SelectedLinesJKtSKRTotalnetG:"DrCr" [System : Variables] SelectedLinesJKtSKRTotalDrG : 0 SelectedLinesJKtSKRTotalCrG : 0 SelectedLinesJKtSKRTotalNetG : 0 IsLineselectedDrG : NO IsLineselectedCrG : NO IsLineselectednetG : NO [Variable : SelectedLinesJKtSKRTotalDrG] Type : Amount Persistent : Yes [Variable : SelectedLinesJKtSKRTotalCrG] Type : Amount Persistent : Yes [Variable : SelectedLinesJKtSKRTotalnetG] Type : Amount Persistent : Yes [Variable : IsLineselectedDrG] Type : Logical [Variable : IsLineselectedCrG] Type : Logical [Variable : IsLineselectednetG] Type : Logical [Collection : SelectedLinesCollnetG] Data Source : Report : Selected Fetch : Name, TotalGrpVchAmt Client Only : Yes [Collection:SelectedLinesCollDjG] Data Source : Report : Selected Fetch : Name, TotalGrpDrVchAmt Filter : onlydrG [Collection:SelectedLinesCollCjG] Data Source : Report : Selected Fetch : Name, TotalGrpCrVchAmt Client Only : Yes Filter : onlycrG [System : Formulae] onlycrG : NOT $$isDr:$TotalGrpVchAmt [System : Formulae] onlydrG : $$IsDr:$TotalGrpVchAmt [Color: CandyAppleGreen] RGB:0,204,153 [Color: AmericanRose] RGB: 255,3,62 ;;===================================================CODE FOR LEDGER================================================= [#Line : DSP VchClAmt] Add : Left Field : NetAmt, LineselectedTotalDr, LineselectedTotalCr [#Line : DSP VchDetail] Option : SelectedLinesJKtSKRTotalOnFocus : ##IsLedgerReport [!Line : SelectedLinesJKtSKRTotalOnFocus] ;; Line to Call Selected BillsTotal Function On : Focus : Yes : Call : SelectedLinesJKtSKRTotalDr On : Focus : Yes : Call : SelectedLinesJKtSKRTotalCr On : Focus : Yes : Call : SelectedLinesJKtSKRTotalnet [Function : SelectedLinesJKtSKRTotalDr] 0010 : Set : SelectedLinesJKtSKRTotalDr : ($$CollAmtTotal:SelectedLinesCollDj:$TotalLedDrVchAmt) 0011 : Set : IsLineselectedDr : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotalDr) [Function : SelectedLinesJKtSKRTotalCr] 0010 : Set : SelectedLinesJKtSKRTotalCr : ($$CollAmtTotal:SelectedLinesCollCj:$TotalLedCrVchAmt) 0011 : Set : IsLineselectedCr : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotalCr) [Function : SelectedLinesJKtSKRTotalnet] 0010 : Set : SelectedLinesJKtSKRTotalnet : ($$CollAmtTotal:SelectedLinesCollnet:$TotalLedVchAmt) 0011 : Set : IsLineselectednet : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotalnet) [Field : LineselectedTotalDr] Use : Name Field Set as : if ##IsLineselectedDr AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollDj:$TotalLedDrVchAmt) Then $$StringSelectedTotalDr + $$StringSelectedTotalValDr Else "" Width : 30 Align : Centre Background : if ##IsLineselectedDr AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollDj:$TotalLedDrVchAmt) Then "Released Blue" Else "RELEASED GREEN" Invisible : NOT ##IsLedgerReport OR NOT $$InDisplayMode SelectedTotalDr : $$LocaleString:"Dr Total : " SelectedTotalValDr : $$String:##SelectedLinesJKtSKRTotalDr:"DrCr" [Field : LineselectedTotalCr] Use : Name Field Set as : if ##IsLineselectedCr AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollCj:$TotalLedCrVchAmt) Then $$StringSelectedTotalCr + $$StringSelectedTotalValCr Else "" Width : 30 Align : Centre Background : if ##IsLineselectedCr AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollCj:$TotalLedcrVchAmt) Then "CandyAppleGreen" Else "RELEASED GREEN" Invisible : NOT ##IsLedgerReport OR NOT $$InDisplayMode SelectedTotalCr : $$LocaleString:"Cr Total : " SelectedTotalValCr : $$String:##SelectedLinesJKtSKRTotalCr:"DrCr" [Field : NetAmt] Use : Name Field Set as : if ##IsLineselectednet AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollnet:$TotalLedVchAmt) Then $$StringSelectedTotalnet + $$StringSelectedTotalValnet Else "" Width : 30 Align : Centre Background : if ##IsLineselectednet AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollNet:$TotalLedVchAmt) Then "Rosy Brown" Else "Released Green" Format : "DrCr" Invisible : NOT ##IsLedgerReport OR NOT $$InDisplayMode SelectedTotalNet : $$LocaleString:"Net Selection : " SelectedTotalValNet : $$String:##SelectedLinesJKtSKRTotalnet:"DrCr" [System : Variables] SelectedLinesJKtSKRTotalDr : 0 SelectedLinesJKtSKRTotalCr : 0 SelectedLinesJKtSKRTotalNet : 0 IsLineselectedDr : NO IsLineselectedCr : NO IsLineselectednet : NO [Variable : SelectedLinesJKtSKRTotalDr] Type : Amount Persistent : Yes [Variable : SelectedLinesJKtSKRTotalCr] Type : Amount Persistent : Yes [Variable : SelectedLinesJKtSKRTotalnet] Type : Amount Persistent : Yes [Variable : IsLineselectedDr] Type : Logical [Variable : IsLineselectedCr] Type : Logical [Variable : IsLineselectednet] Type : Logical [Collection : SelectedLinesCollnet] Data Source : Report : Selected Fetch : Name, TotalLedVchAmt Client Only : Yes [Collection:SelectedLinesCollDj] Data Source : Report : Selected Fetch : Name,TotalLedDrVchAmt Client Only : Yes Filter : onlydr [Collection:SelectedLinesCollCj] Data Source : Report : Selected Fetch : Name, TotalLedCrVchAmt Client Only : Yes Filter : onlycr [System : Formulae] onlycr : NOT $$isDr:$TotalLedVchAmt [System : Formulae] onlydr :$$IsDr:$TotalLedVchAmt ;;==============================================Code For Group Ledgers========================================== [#Form: Group Summary] Add : Bottom Part : At End : Selected Total for Group Ledgers Add: Key: BottomToolBarBtn12 [Part : Selected Total for Group Ledgers] Line : Selected Total for Group Ledgers [Line : Selected Total for Group Ledgers] Add : left Field :JKTSKRNettAmt,JKTSKRLineselectedTotalDebit,JKTSKRLineselectedTotalCredit [#Line: DSP AccLine] Option : JKTSKRSelectedLinesTotalOnFocus [!Line : JKTSKRSelectedLinesTotalOnFocus] ;; Line to Call Selected BillsTotal Function On : Focus : Yes : Call : JKTSKRSelectedLinesTotalDebit On : Focus : Yes : Call : JKTSKRSelectedLinesTotalCredit On : Focus : Yes : Call : JKTSKRSelectedLinesTotalNett [Function : JKTSKRSelectedLinesTotalDebit] 0010 : Set : JKTSKRSelectedLinesTotalDebit : ($$CollAmtTotal:JKTSKRSelectedLinesCollDebit:$Closingbalance) 0011 : Set : JKTSKRIsLineselectedDebit : (NOT $$IsEmpty:##JKTSKRSelectedLinesTotalDebit) [Function : JKTSKRSelectedLinesTotalCredit] 0010 : Set : JKTSKRSelectedLinesTotalCredit : ($$CollAmtTotal:JKTSKRSelectedLinesCollCredit:$Closingbalance) 0011 : Set : JKTSKRIsLineselectedCredit : (NOT $$IsEmpty:##JKTSKRSelectedLinesTotalCredit) [Function : JKTSKRSelectedLinesTotalNett] 0010 : Set : JKTSKRSelectedLinesTotalNett : ($$CollAmtTotal:JKTSKRSelectedLinesCollNett:$Closingbalance) 0011 : Set : JKTSKRIsLineselectedNett : (NOT $$IsEmpty:##JKTSKRSelectedLinesTotalNett) [Field : JKTSKRLineselectedTotalDebit] Use : Name Field Set as : if ##JKTSKRIsLineselectedDebit AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:JKTSKRSelectedLinesCollDebit:$Closingbalance) Then $$StringSelectedTotalDebit + $$StringSelectedTotalValDebit Else "" Width : 30 Align : Centre Background : if ##JKTSKRIsLineselectedDebit AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:JKTSKRSelectedLinesCollDebit:$Closingbalance) Then "Released Blue" Else @@SV_Groupsummary ; Invisible : NOT ##IsLedgerReport OR NOT $$InDisplayMode SelectedTotalDebit : $$LocaleString:"Dr Total : " SelectedTotalValDebit : $$String:##JKTSKRSelectedLinesTotalDebit:"DrCr" [Field : JKTSKRLineselectedTotalCredit] Use : Name Field Set as : if ##JKTSKRIsLineselectedCredit AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:JKTSKRSelectedLinesCollCredit:$Closingbalance) Then $$StringSelectedTotalCredit + $$StringSelectedTotalValCredit Else "" Width : 30 Align : Centre Background : if ##JKTSKRIsLineselectedCredit AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:JKTSKRSelectedLinesCollCredit:$Closingbalance) Then "CandyAppleGreen" Else @@SV_Groupsummary ;Invisible : NOT ##IsLedgerReport OR NOT $$InDisplayMode SelectedTotalCredit : $$LocaleString:"Cr Total : " SelectedTotalValCredit : $$String:##JKTSKRSelectedLinesTotalCredit:"DrCr" [Field : JKTSKRNettAmt] Use : Name Field Set as : if ##JKTSKRIsLineselectedNett AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:JKTSKRSelectedLinesCollNett:$Closingbalance) Then $$StringSelectedTotalNett + $$StringSelectedTotalValNett Else "" Width : 30 Align : Centre Background : if ##JKTSKRIsLineselectedNett AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:JKTSKRSelectedLinesCollNett:$Closingbalance) Then "Rosy Brown" Else @@SV_Groupsummary Format : "DrCr" ;Invisible : NOT ##IsLedgerReport OR NOT $$InDisplayMode SelectedTotalNett : $$LocaleString:"Net Selection : " SelectedTotalValNett : $$String:##JKTSKRSelectedLinesTotalNett:"DrCr" [System : Variables] JKTSKRSelectedLinesTotalDebit : 0 JKTSKRSelectedLinesTotalCredit : 0 JKTSKRSelectedLinesTotalNett : 0 JKTSKRIsLineselectedDebit : NO JKTSKRIsLineselectedCredit : NO JKTSKRIsLineselectedNett : NO [Variable : JKTSKRSelectedLinesTotalDebit] Type : Amount [Variable : JKTSKRSelectedLinesTotalCredit] Type : Amount [Variable : JKTSKRSelectedLinesTotalNett] Type : Amount [Variable : JKTSKRIsLineselectedDebit] Type : Logical [Variable : JKTSKRIsLineselectedCredit] Type : Logical [Variable : JKTSKRIsLineselectedNett] Type : Logical [System : Formulae] OnlyCrside : NOT $$isDr:$Closingbalance Onlydrside :$$IsDr:$Closingbalance [Collection : JKTSKRSelectedLinesCollDebit] Data Source : Report : Selected Fetch : Name,Closingbalance Client Only : Yes Filter : Onlydrside [Collection : JKTSKRSelectedLinesCollCredit] Data Source : Report : Selected Fetch : Name,Closingbalance Client Only : Yes Filter : OnlyCrside [Collection : JKTSKRSelectedLinesCollNEtt] Data Source : Report : Selected Fetch : Name,Closingbalance Client Only : Yes [#Collection: Daybook Vouchers of Company] Fetch : Allledgerentries.*,*.* [#Collection : Filtered Vouchers of Company ] Fetch : Allledgerentries.*,*.* [#Collection : Specific Vouchers of Company] Fetch : Allledgerentries.*,*.* [#Collection: Vouchers of Ledger] Fetch : Allledgerentries.*,*.* [#Collection: Vouchers Of Group] Fetch : Allledgerentries.*,*.* Rosy Brown SV_SEL_CURSOR_FG : Released green SV_SELECTED_BG : Maron SV_SELECTED_FG : Released Blue [#Form: Day Book] Add:Bottom Parts : Daybook Total [Part : Daybook Total] Line : Daybook Total Border: Column Titles [Line : Daybook Total] ;Add : left Field : LineselectDDTotalDr,LineselectDDTotalCr,LineselectDDTotalNet Right Field : LineselectDDTotalNet,TotalDD,Daybook dr, Daybook cr [Field : TotalDD] Use: Short Name Field Set as: if @@InselectMode Then "Selected Lines Total :" Else "Total :" [Field : Daybook dr] Use : Name Field Set as : if @@InselectMode Then $$StringSelectedTotalValD Else $$Stringtotaldr + " Dr" Width : 12 Align : Centre Background : if @@InselectMode Then "Rosy Brown" Else @@SV_DAYBOOK Invisible : ##IsVoucherregister Totaldr : $$TotalSPDBDrAmt SelectedTotalValD: $$String:##SelectedLinesJKtSKRTotalD:"DrCr" [Field : Daybook cr] Use : Name Field Set as : if @@InselectMode Then $$StringSelectedTotalValC Else $$Stringtotalcr + " Cr" Width : 12 Align : Centre TotalCr : $$TotalSPDBCrAmt SelectedTotalValC : $$String:##SelectedLinesJKtSKRTotalC:"DrCr" Background : if @@InselectMode Then "Rosy Brown" Else @@SV_DAYBOOK Invisible : ##IsVoucherregister [Field: LineselectDDTotalNet] Use : Name Field Set as : if @@InselectMode Then $$StringSelectedTotal1 + $$StringSelectedTotalVal1 Else "" Width : 18 Align : Centre SelectedTotal1 : $$LocaleString:"Net : " SelectedTotalVal1: $$String:##SelectedLinesJKtSKRTotal1:"DrCr" Background : if @@InselectMode Then "Rosy Brown" Else @@SV_DAYBOOK Invisible : ##IsLedgerReport [#Part: DB Body] Total: DSPDBDrAmt,DSP DBCrAmt [#Line : DSP VchDetail] Option : SelectedLinesJKtSKRTotalOnFocus1 Option : SelectedLinesJKtSKRTotalOnFocusd Option : SelectedLinesJKtSKRTotalOnFocusc [!Line: SelectedLinesJKtSKRTotalOnFocus1] ;Line to Call Selected BillsTotal Function On : Focus : Yes : Call : SelectedLinesJKtSKRTotal1 On : Focus : Yes : Call : SelectedLinesJKtSKRTotalD On : Focus : Yes : Call : SelectedLinesJKtSKRTotalC [Function: SelectedLinesJKtSKRTotal1] 0010 : Set : IsLineselected1 : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotal1) 0020 : Set : SelectedLinesJKtSKRTotal1 : ($$CollAmtTotal:SelectedLinesColl1:$Amount) [Function: SelectedLinesJKtSKRTotalD] 0010 : Set : IsLineselected1 : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotal1) 0030 : Set : SelectedLinesJKtSKRTotalD : ($$CollAmtTotal:SelectedLinesCollD:$Amount) [Function: SelectedLinesJKtSKRTotalC] 0010 : Set : IsLineselected1 : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotal1) 0040 : Set : SelectedLinesJKtSKRTotalC : ($$CollAmtTotal:SelectedLinesCollC:$Amount) [System: Variables] SelectedLinesJKtSKRTotal1 : 0 SelectedLinesJKtSKRTotalD : 0 SelectedLinesJKtSKRTotalC : 0 IsLineselected1 : NO [Variable: SelectedLinesJKtSKRTotal1] Type : Amount Persistent : Yes [Variable: SelectedLinesJKtSKRTotalD] Type : Amount Persistent : Yes [Variable: SelectedLinesJKtSKRTotalC] Type : Amount Persistent : Yes [Variable: IsLineselected1] Type : Logical [Collection:SelectedLinesColl1] Data Source : Report : Selected Fetch : Amount Client Only : Yes [Collection:SelectedLinesCollD] Data Source : Report : Selected Fetch : Amount Fetch : AllLedgerEntries.LedgerName, AllLedgerEntries.Amount Fetch : AllLedgerEntries.BankAllocations.* Client Only : Yes Filter : onlydrdb [Collection:SelectedLinesCollC] Data Source : Report : Selected Fetch : Amount Fetch : AllLedgerEntries.LedgerName, AllLedgerEntries.Amount Fetch : AllLedgerEntries.BankAllocations.* Client Only : Yes Filter : onlycrdb [System : Formulae] onlycrdb : NOT $$isDr:$Amount [System : Formulae] onlydrdb :$$IsDr:$Amount [System : Formulae] InselectMode:##IsLineselected1 AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesColl1:$Amount) [Color:Rosy Brown] RGB:188,143,143 [Color:MARON] RGB:123,17,19 /*[#System: Formula] SV_SEL_CURSOR_BG : Rosy Brown SV_SEL_CURSOR_FG : Released green SV_SELECTED_BG : Maron SV_SELECTED_FG : Released Blue [#Form: Day Book] Add:Bottom Parts : Daybook Total [Part : Daybook Total] Line : Daybook cr [Line : Daybook cr] Add : left Field : LineselectedTotal1,LineselectedTotalD,LineselectedTotalC Right Field : Daybook dr, Daybook cr [Field : Daybook dr] Use : Amount Forex Field Set as : $$TotalSPDBDrAmt Invisible : ##IsVoucherregister [Field : Daybook cr] Use : Amount Forex Field Set as : $$TotalSPDBcrAmt Invisible : ##IsVoucherregister [#Part: DB Body] Total: DSPDBDrAmt,DSP DBCrAmt [#Line : DSP VchDetail] Option : SelectedLinesJKtSKRTotalOnFocus1 Option : SelectedLinesJKtSKRTotalOnFocusd Option : SelectedLinesJKtSKRTotalOnFocusc [!Line: SelectedLinesJKtSKRTotalOnFocus1] ;Line to Call Selected BillsTotal Function On : Focus : Yes : Call : SelectedLinesJKtSKRTotal1 On : Focus : Yes : Call : SelectedLinesJKtSKRTotalD On : Focus : Yes : Call : SelectedLinesJKtSKRTotalC [Function: SelectedLinesJKtSKRTotal1] 0010 : Set : IsLineselected1 : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotal1) 0020 : Set : SelectedLinesJKtSKRTotal1 : ($$CollAmtTotal:SelectedLinesColl1:$Amount) [Function: SelectedLinesJKtSKRTotalD] 0010 : Set : IsLineselected1 : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotal1) 0030 : Set : SelectedLinesJKtSKRTotalD : ($$CollAmtTotal:SelectedLinesCollD:$Amount) [Function: SelectedLinesJKtSKRTotalC] 0010 : Set : IsLineselected1 : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotal1) 0040 : Set : SelectedLinesJKtSKRTotalC : ($$CollAmtTotal:SelectedLinesCollC:$Amount) [Field: LineselectedTotal1] Use : Name Field Set as : if ##IsLineselected1 AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesColl1:$Amount) Then $$StringSelectedTotal1 + $$StringSelectedTotalVal1 Else "" Width : 30 Align : Centre SelectedTotal1 : $$LocaleString:"Net Selection : " SelectedTotalVal1: $$String:##SelectedLinesJKtSKRTotal1:"DrCr" Background : if ##IsLineselected1 AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesColl1:$Amount) Then "Rosy Brown" Else @@SV_DAYBOOK Invisible : ##IsLedgerReport [Field: LineselectedTotalD] Use : Name Field Set as : if ##IsLineselected1 AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollD:$Amount) Then $$StringSelectedTotalD + $$StringSelectedTotalValD Else "" Width : 30 Align : Centre SelectedTotalD : $$LocaleString:"Dr Side : " SelectedTotalValD: $$String:##SelectedLinesJKtSKRTotalD:"DrCr" Background : if ##IsLineselected1 AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollD:$Amount) Then "Rosy Brown" Else @@SV_DAYBOOK Invisible : ##IsLedgerReport [Field: LineselectedTotalC] Use : Name Field Set as : if ##IsLineselected1 AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollC:$Amount) Then $$StringSelectedTotalC + $$StringSelectedTotalValC Else "" Width : 30 Align : Centre SelectedTotalC : $$LocaleString:"Cr Side : " SelectedTotalValC: $$String:##SelectedLinesJKtSKRTotalC:"DrCr" Background : if ##IsLineselected1 AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollC:$Amount) Then "Rosy Brown" Else @@SV_DAYBOOK Invisible : ##IsLedgerReport [System: Variables] SelectedLinesJKtSKRTotal1 : 0 SelectedLinesJKtSKRTotalD : 0 SelectedLinesJKtSKRTotalC : 0 IsLineselected1 : NO [Variable: SelectedLinesJKtSKRTotal1] Type : Amount Persistent : Yes [Variable: SelectedLinesJKtSKRTotalD] Type : Amount Persistent : Yes [Variable: SelectedLinesJKtSKRTotalC] Type : Amount Persistent : Yes [Variable: IsLineselected1] Type : Logical [Collection:SelectedLinesColl1] Data Source : Report : Selected Fetch : Amount Client Only : Yes [Collection:SelectedLinesCollD] Data Source : Report : Selected Fetch : Amount Fetch : AllLedgerEntries.LedgerName, AllLedgerEntries.Amount Fetch : AllLedgerEntries.BankAllocations.* Client Only : Yes Filter : onlydrdb [Collection:SelectedLinesCollC] Data Source : Report : Selected Fetch : Amount Fetch : AllLedgerEntries.LedgerName, AllLedgerEntries.Amount Fetch : AllLedgerEntries.BankAllocations.* Client Only : Yes Filter : onlycrdb [System : Formulae] onlycrdb : NOT $$isDr:$Amount [System : Formulae] onlydrdb :$$IsDr:$Amount [Color:Rosy Brown] RGB:188,143,143 [Color:MARON] RGB:123,17,19*/ ;;===================================================CODE FOR Group Vouchers================================================= [#Line : DSP VchClAmt] Add : Left Field : NetAmtG, LineselectedTotalDrG, LineselectedTotalCrG [#Line : DSP VchDetail] Option : SelectedLinesJKtSKRTotalOnFocusG [!Line : SelectedLinesJKtSKRTotalOnFocusG] On : Focus : Yes : Call : SelectedLinesJKtSKRTotalDrG On : Focus : Yes : Call : SelectedLinesJKtSKRTotalCrG On : Focus : Yes : Call : SelectedLinesJKtSKRTotalnetG [Function : SelectedLinesJKtSKRTotalDrG] 0010 : Set : SelectedLinesJKtSKRTotalDrG : ($$CollAmtTotal:SelectedLinesCollDjG:$TotalGrpDrVchAmt) 0011 : Set : IsLineselectedDrG : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotalDrG) [Function : SelectedLinesJKtSKRTotalCrG] 0010 : Set : SelectedLinesJKtSKRTotalCrG : ($$CollAmtTotal:SelectedLinesCollCjG:$TotalGrpCrVchAmt) 0011 : Set : IsLineselectedCrG : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotalCrG) [Function : SelectedLinesJKtSKRTotalnetG] 0010 : Set : SelectedLinesJKtSKRTotalnetG : ($$CollAmtTotal:SelectedLinesCollnetG:$TotalGrpVchAmt) 0011 : Set : IsLineselectednetG : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotalnetG) [Field : LineselectedTotalDrG] Use : Name Field Set as : if ##IsLineselectedDrG AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollDjG:$TotalGrpDrVchAmt) Then $$StringSelectedTotalDrG + $$StringSelectedTotalValDrG Else "" Width : 30 Align : Centre Background : if ##IsLineselectedDrG AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollDjG:$TotalGrpDrVchAmt) Then "Released Blue" Else "RELEASED GREEN" Invisible : ##IsLedgerReport SelectedTotalDrG : $$LocaleString:"Dr Total : " SelectedTotalValDrG : $$String:##SelectedLinesJKtSKRTotalDrG:"DrCr" [Field : LineselectedTotalCrG] Use : Name Field Set as : if ##IsLineselectedCrG AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollCjG:$TotalGrpCrVchAmt) Then $$StringSelectedTotalCrG + $$StringSelectedTotalValCrG Else "" Width : 30 Align : Centre Background : if ##IsLineselectedCrG AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollCjG:$TotalGrpCrVchAmt) Then "CandyAppleGreen" Else "RELEASED GREEN" Invisible : ##IsLedgerReport SelectedTotalCrG : $$LocaleString:"Cr Total : " SelectedTotalValCrG : $$String:##SelectedLinesJKtSKRTotalCrG:"DrCr" [Field : NetAmtG] Use : Name Field Set as : if ##IsLineselectednetG AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollnetG:$TotalGrpVchAmt) Then $$StringSelectedTotalnetG + $$StringSelectedTotalValnetG Else "" Width : 30 Align : Centre Background : if ##IsLineselectednetG AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollNetG:$TotalGrpVchAmt) Then "Rosy Brown" Else "Released Green" Format : "DrCr" Invisible : ##IsLedgerReport SelectedTotalNetG : $$LocaleString:"Net Selection : " SelectedTotalValNetG : $$String:##SelectedLinesJKtSKRTotalnetG:"DrCr" [System : Variables] SelectedLinesJKtSKRTotalDrG : 0 SelectedLinesJKtSKRTotalCrG : 0 SelectedLinesJKtSKRTotalNetG : 0 IsLineselectedDrG : NO IsLineselectedCrG : NO IsLineselectednetG : NO [Variable : SelectedLinesJKtSKRTotalDrG] Type : Amount Persistent : Yes [Variable : SelectedLinesJKtSKRTotalCrG] Type : Amount Persistent : Yes [Variable : SelectedLinesJKtSKRTotalnetG] Type : Amount Persistent : Yes [Variable : IsLineselectedDrG] Type : Logical [Variable : IsLineselectedCrG] Type : Logical [Variable : IsLineselectednetG] Type : Logical [Collection : SelectedLinesCollnetG] Data Source : Report : Selected Fetch : Name, TotalGrpVchAmt Client Only : Yes [Collection:SelectedLinesCollDjG] Data Source : Report : Selected Fetch : Name, TotalGrpDrVchAmt Filter : onlydrG [Collection:SelectedLinesCollCjG] Data Source : Report : Selected Fetch : Name, TotalGrpCrVchAmt Client Only : Yes Filter : onlycrG [System : Formulae] onlycrG : NOT $$isDr:$TotalGrpVchAmt [System : Formulae] onlydrG : $$IsDr:$TotalGrpVchAmt [Color: CandyAppleGreen] RGB:0,204,153 [Color: AmericanRose] RGB: 255,3,62 ;;===================================================CODE FOR LEDGER================================================= [#Line : DSP VchClAmt] Add : Left Field : NetAmt, LineselectedTotalDr, LineselectedTotalCr [#Line : DSP VchDetail] Option : SelectedLinesJKtSKRTotalOnFocus : ##IsLedgerReport [!Line : SelectedLinesJKtSKRTotalOnFocus] ;; Line to Call Selected BillsTotal Function On : Focus : Yes : Call : SelectedLinesJKtSKRTotalDr On : Focus : Yes : Call : SelectedLinesJKtSKRTotalCr On : Focus : Yes : Call : SelectedLinesJKtSKRTotalnet [Function : SelectedLinesJKtSKRTotalDr] 0010 : Set : SelectedLinesJKtSKRTotalDr : ($$CollAmtTotal:SelectedLinesCollDj:$TotalLedDrVchAmt) 0011 : Set : IsLineselectedDr : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotalDr) [Function : SelectedLinesJKtSKRTotalCr] 0010 : Set : SelectedLinesJKtSKRTotalCr : ($$CollAmtTotal:SelectedLinesCollCj:$TotalLedCrVchAmt) 0011 : Set : IsLineselectedCr : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotalCr) [Function : SelectedLinesJKtSKRTotalnet] 0010 : Set : SelectedLinesJKtSKRTotalnet : ($$CollAmtTotal:SelectedLinesCollnet:$TotalLedVchAmt) 0011 : Set : IsLineselectednet : (NOT $$IsEmpty:##SelectedLinesJKtSKRTotalnet) [Field : LineselectedTotalDr] Use : Name Field Set as : if ##IsLineselectedDr AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollDj:$TotalLedDrVchAmt) Then $$StringSelectedTotalDr + $$StringSelectedTotalValDr Else "" Width : 30 Align : Centre Background : if ##IsLineselectedDr AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollDj:$TotalLedDrVchAmt) Then "Released Blue" Else "RELEASED GREEN" Invisible : NOT ##IsLedgerReport OR NOT $$InDisplayMode SelectedTotalDr : $$LocaleString:"Dr Total : " SelectedTotalValDr : $$String:##SelectedLinesJKtSKRTotalDr:"DrCr" [Field : LineselectedTotalCr] Use : Name Field Set as : if ##IsLineselectedCr AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollCj:$TotalLedCrVchAmt) Then $$StringSelectedTotalCr + $$StringSelectedTotalValCr Else "" Width : 30 Align : Centre Background : if ##IsLineselectedCr AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollCj:$TotalLedcrVchAmt) Then "CandyAppleGreen" Else "RELEASED GREEN" Invisible : NOT ##IsLedgerReport OR NOT $$InDisplayMode SelectedTotalCr : $$LocaleString:"Cr Total : " SelectedTotalValCr : $$String:##SelectedLinesJKtSKRTotalCr:"DrCr" [Field : NetAmt] Use : Name Field Set as : if ##IsLineselectednet AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollnet:$TotalLedVchAmt) Then $$StringSelectedTotalnet + $$StringSelectedTotalValnet Else "" Width : 30 Align : Centre Background : if ##IsLineselectednet AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:SelectedLinesCollNet:$TotalLedVchAmt) Then "Rosy Brown" Else "Released Green" Format : "DrCr" Invisible : NOT ##IsLedgerReport OR NOT $$InDisplayMode SelectedTotalNet : $$LocaleString:"Net Selection : " SelectedTotalValNet : $$String:##SelectedLinesJKtSKRTotalnet:"DrCr" [System : Variables] SelectedLinesJKtSKRTotalDr : 0 SelectedLinesJKtSKRTotalCr : 0 SelectedLinesJKtSKRTotalNet : 0 IsLineselectedDr : NO IsLineselectedCr : NO IsLineselectednet : NO [Variable : SelectedLinesJKtSKRTotalDr] Type : Amount Persistent : Yes [Variable : SelectedLinesJKtSKRTotalCr] Type : Amount Persistent : Yes [Variable : SelectedLinesJKtSKRTotalnet] Type : Amount Persistent : Yes [Variable : IsLineselectedDr] Type : Logical [Variable : IsLineselectedCr] Type : Logical [Variable : IsLineselectednet] Type : Logical [Collection : SelectedLinesCollnet] Data Source : Report : Selected Fetch : Name, TotalLedVchAmt Client Only : Yes [Collection:SelectedLinesCollDj] Data Source : Report : Selected Fetch : Name,TotalLedDrVchAmt Client Only : Yes Filter : onlydr [Collection:SelectedLinesCollCj] Data Source : Report : Selected Fetch : Name, TotalLedCrVchAmt Client Only : Yes Filter : onlycr [System : Formulae] onlycr : NOT $$isDr:$TotalLedVchAmt [System : Formulae] onlydr :$$IsDr:$TotalLedVchAmt ;;==============================================Code For Group Ledgers========================================== [#Form: Group Summary] Add : Bottom Part : At End : Selected Total for Group Ledgers Add: Key: BottomToolBarBtn12 [Part : Selected Total for Group Ledgers] Line : Selected Total for Group Ledgers [Line : Selected Total for Group Ledgers] Add : left Field :JKTSKRNettAmt,JKTSKRLineselectedTotalDebit,JKTSKRLineselectedTotalCredit [#Line: DSP AccLine] Option : JKTSKRSelectedLinesTotalOnFocus [!Line : JKTSKRSelectedLinesTotalOnFocus] ;; Line to Call Selected BillsTotal Function On : Focus : Yes : Call : JKTSKRSelectedLinesTotalDebit On : Focus : Yes : Call : JKTSKRSelectedLinesTotalCredit On : Focus : Yes : Call : JKTSKRSelectedLinesTotalNett [Function : JKTSKRSelectedLinesTotalDebit] 0010 : Set : JKTSKRSelectedLinesTotalDebit : ($$CollAmtTotal:JKTSKRSelectedLinesCollDebit:$Closingbalance) 0011 : Set : JKTSKRIsLineselectedDebit : (NOT $$IsEmpty:##JKTSKRSelectedLinesTotalDebit) [Function : JKTSKRSelectedLinesTotalCredit] 0010 : Set : JKTSKRSelectedLinesTotalCredit : ($$CollAmtTotal:JKTSKRSelectedLinesCollCredit:$Closingbalance) 0011 : Set : JKTSKRIsLineselectedCredit : (NOT $$IsEmpty:##JKTSKRSelectedLinesTotalCredit) [Function : JKTSKRSelectedLinesTotalNett] 0010 : Set : JKTSKRSelectedLinesTotalNett : ($$CollAmtTotal:JKTSKRSelectedLinesCollNett:$Closingbalance) 0011 : Set : JKTSKRIsLineselectedNett : (NOT $$IsEmpty:##JKTSKRSelectedLinesTotalNett) [Field : JKTSKRLineselectedTotalDebit] Use : Name Field Set as : if ##JKTSKRIsLineselectedDebit AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:JKTSKRSelectedLinesCollDebit:$Closingbalance) Then $$StringSelectedTotalDebit + $$StringSelectedTotalValDebit Else "" Width : 30 Align : Centre Background : if ##JKTSKRIsLineselectedDebit AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:JKTSKRSelectedLinesCollDebit:$Closingbalance) Then "Released Blue" Else @@SV_Groupsummary ; Invisible : NOT ##IsLedgerReport OR NOT $$InDisplayMode SelectedTotalDebit : $$LocaleString:"Dr Total : " SelectedTotalValDebit : $$String:##JKTSKRSelectedLinesTotalDebit:"DrCr" [Field : JKTSKRLineselectedTotalCredit] Use : Name Field Set as : if ##JKTSKRIsLineselectedCredit AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:JKTSKRSelectedLinesCollCredit:$Closingbalance) Then $$StringSelectedTotalCredit + $$StringSelectedTotalValCredit Else "" Width : 30 Align : Centre Background : if ##JKTSKRIsLineselectedCredit AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:JKTSKRSelectedLinesCollCredit:$Closingbalance) Then "CandyAppleGreen" Else @@SV_Groupsummary ;Invisible : NOT ##IsLedgerReport OR NOT $$InDisplayMode SelectedTotalCredit : $$LocaleString:"Cr Total : " SelectedTotalValCredit : $$String:##JKTSKRSelectedLinesTotalCredit:"DrCr" [Field : JKTSKRNettAmt] Use : Name Field Set as : if ##JKTSKRIsLineselectedNett AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:JKTSKRSelectedLinesCollNett:$Closingbalance) Then $$StringSelectedTotalNett + $$StringSelectedTotalValNett Else "" Width : 30 Align : Centre Background : if ##JKTSKRIsLineselectedNett AND NOT $$IsEmpty$$ReportObject:$$CollAmtTotal:JKTSKRSelectedLinesCollNett:$Closingbalance) Then "Rosy Brown" Else @@SV_Groupsummary Format : "DrCr" ;Invisible : NOT ##IsLedgerReport OR NOT $$InDisplayMode SelectedTotalNett : $$LocaleString:"Net Selection : " SelectedTotalValNett : $$String:##JKTSKRSelectedLinesTotalNett:"DrCr" [System : Variables] JKTSKRSelectedLinesTotalDebit : 0 JKTSKRSelectedLinesTotalCredit : 0 JKTSKRSelectedLinesTotalNett : 0 JKTSKRIsLineselectedDebit : NO JKTSKRIsLineselectedCredit : NO JKTSKRIsLineselectedNett : NO [Variable : JKTSKRSelectedLinesTotalDebit] Type : Amount [Variable : JKTSKRSelectedLinesTotalCredit] Type : Amount [Variable : JKTSKRSelectedLinesTotalNett] Type : Amount [Variable : JKTSKRIsLineselectedDebit] Type : Logical [Variable : JKTSKRIsLineselectedCredit] Type : Logical [Variable : JKTSKRIsLineselectedNett] Type : Logical [System : Formulae] OnlyCrside : NOT $$isDr:$Closingbalance Onlydrside :$$IsDr:$Closingbalance [Collection : JKTSKRSelectedLinesCollDebit] Data Source : Report : Selected Fetch : Name,Closingbalance Client Only : Yes Filter : Onlydrside [Collection : JKTSKRSelectedLinesCollCredit] Data Source : Report : Selected Fetch : Name,Closingbalance Client Only : Yes Filter : OnlyCrside [Collection : JKTSKRSelectedLinesCollNEtt] Data Source : Report : Selected Fetch : Name,Closingbalance Client Only : Yes [#Collection: Daybook Vouchers of Company] Fetch : Allledgerentries.*,*.* [#Collection : Filtered Vouchers of Company ] Fetch : Allledgerentries.*,*.* [#Collection : Specific Vouchers of Company] Fetch : Allledgerentries.*,*.* [#Collection: Vouchers of Ledger] Fetch : Allledgerentries.*,*.* [#Collection: Vouchers Of Group] Fetch : Allledgerentries.*,*.*