Few Lines are Missing Here.
Watch the full video to get the full coding
[Line : Daybook cr]
Add : left Field : LineselectedTotal1,LineselectedTotalD,LineselectedTotalC
Right Field : Daybook dr, Daybook cr
[Field : Daybook dr]
Use : Amount Forex Field
Set as : $$Total:DSPDBDrAmt
Invisible : ##IsVoucherregister
[Field : Daybook cr]
Use : Amount Forex Field
Set as : $$Total:DSPDBcrAmt
Invisible : ##IsVoucherregister
[#Part: DB Body]
Total: DSPDBDrAmt,DSP DBCrAmt
[#Line : DSP VchDetail]
Option : SelectedLinesRajtSKRTotalOnFocus1
Option : SelectedLinesRajtSKRTotalOnFocusd
Option : SelectedLinesRajtSKRTotalOnFocusc
[!Line: SelectedLinesRajtSKRTotalOnFocus1] ;Line to Call Selected BillsTotal Function
On : Focus : Yes : Call : SelectedLinesRajtSKRTotal1
On : Focus : Yes : Call : SelectedLinesRajtSKRTotalD
On : Focus : Yes : Call : SelectedLinesRajtSKRTotalC
[Function: SelectedLinesRajtSKRTotal1]
0010 : Set : IsLineselected1 : (NOT $$IsEmpty:##SelectedLinesRajtSKRTotal1)
0020 : Set : SelectedLinesRajtSKRTotal1 : ($$CollAmtTotal:SelectedLinesColl1:$Amount)
[Function: SelectedLinesRajtSKRTotalD]
0010 : Set : IsLineselected1 : (NOT $$IsEmpty:##SelectedLinesRajtSKRTotal1)
0030 : Set : SelectedLinesRajtSKRTotalD : ($$CollAmtTotal:SelectedLinesCollD:$Amount)
[Function: SelectedLinesRajtSKRTotalC]
0010 : Set : IsLineselected1 : (NOT $$IsEmpty:##SelectedLinesRajtSKRTotal1)
0040 : Set : SelectedLinesRajtSKRTotalC : ($$CollAmtTotal:SelectedLinesCollC:$Amount)
[Field: LineselectedTotal1]
Use : Name Field
Set as : if ##IsLineselected1 AND NOT $$IsEmpty:($$ReportObject:$$CollAmtTotal:SelectedLinesColl1:$Amount) Then $$String:@SelectedTotal1 + $$String:@SelectedTotalVal1 Else ""
Width : 30
Align : Centre
SelectedTotal1 : $$LocaleString:"Net Selection : "
SelectedTotalVal1: $$String:##SelectedLinesRajtSKRTotal1:"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 $$String:@SelectedTotalD + $$String:@SelectedTotalValD Else ""
Width : 30
Align : Centre
SelectedTotalD : $$LocaleString:"Dr Side : "
SelectedTotalValD: $$String:##SelectedLinesRajtSKRTotalD:"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 $$String:@SelectedTotalC + $$String:@SelectedTotalValC Else ""
Width : 30
Align : Centre
SelectedTotalC : $$LocaleString:"Cr Side : "
SelectedTotalValC: $$String:##SelectedLinesRajtSKRTotalC:"DrCr"
Background : if ##IsLineselected1 AND NOT $$IsEmpty:($$ReportObject:$$CollAmtTotal:SelectedLinesCollC:$Amount) Then "Rosy Brown" Else @@SV_DAYBOOK
Invisible : ##IsLedgerReport
[System: Variables]
SelectedLinesRajtSKRTotal1 : 0
SelectedLinesRajtSKRTotalD : 0
SelectedLinesRajtSKRTotalC : 0
IsLineselected1 : NO
[Variable: SelectedLinesRajtSKRTotal1]
Type : Amount
Persistent : Yes
[Variable: SelectedLinesRajtSKRTotalD]
Type : Amount
Persistent : Yes
[Variable: SelectedLinesRajtSKRTotalC]
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 : SelectedLinesRajtSKRTotalOnFocusG
[!Line : SelectedLinesRajtSKRTotalOnFocusG]
On : Focus : Yes : Call : SelectedLinesRajtSKRTotalDrG
On : Focus : Yes : Call : SelectedLinesRajtSKRTotalCrG
On : Focus : Yes : Call : SelectedLinesRajtSKRTotalnetG
[Function : SelectedLinesRajtSKRTotalDrG]
0010 : Set : SelectedLinesRajtSKRTotalDrG : ($$CollAmtTotal:SelectedLinesCollDjG:$TotalGrpDrVchAmt)
0011 : Set : IsLineselectedDrG : (NOT $$IsEmpty:##SelectedLinesRajtSKRTotalDrG)
[Function : SelectedLinesRajtSKRTotalCrG]
0010 : Set : SelectedLinesRajtSKRTotalCrG : ($$CollAmtTotal:SelectedLinesCollCjG:$TotalGrpCrVchAmt)
0011 : Set : IsLineselectedCrG : (NOT $$IsEmpty:##SelectedLinesRajtSKRTotalCrG)
[Function : SelectedLinesRajtSKRTotalnetG]
0010 : Set : SelectedLinesRajtSKRTotalnetG : ($$CollAmtTotal:SelectedLinesCollnetG:$TotalGrpVchAmt)
0011 : Set : IsLineselectednetG : (NOT $$IsEmpty:##SelectedLinesRajtSKRTotalnetG)
[Field : LineselectedTotalDrG]
Use : Name Field
Set as : if ##IsLineselectedDrG AND NOT $$IsEmpty:($$ReportObject:$$CollAmtTotal:SelectedLinesCollDjG:$TotalGrpDrVchAmt) Then $$String:@SelectedTotalDrG + $$String:@SelectedTotalValDrG 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:##SelectedLinesRajtSKRTotalDrG:"DrCr"
[Field : LineselectedTotalCrG]
Use : Name Field
Set as : if ##IsLineselectedCrG AND NOT $$IsEmpty:($$ReportObject:$$CollAmtTotal:SelectedLinesCollCjG:$TotalGrpCrVchAmt) Then $$String:@SelectedTotalCrG + $$String:@SelectedTotalValCrG 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:##SelectedLinesRajtSKRTotalCrG:"DrCr"
[Field : NetAmtG]
Use : Name Field
Set as : if ##IsLineselectednetG AND NOT $$IsEmpty:($$ReportObject:$$CollAmtTotal:SelectedLinesCollnetG:$TotalGrpVchAmt) Then $$String:@SelectedTotalnetG + $$String:@SelectedTotalValnetG 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:##SelectedLinesRajtSKRTotalnetG:"DrCr"
[System : Variables]
SelectedLinesRajtSKRTotalDrG : 0
SelectedLinesRajtSKRTotalCrG : 0
SelectedLinesRajtSKRTotalNetG : 0
IsLineselectedDrG : NO
IsLineselectedCrG : NO
IsLineselectednetG : NO
[Variable : SelectedLinesRajtSKRTotalDrG]
Type : Amount
Persistent : Yes
[Variable : SelectedLinesRajtSKRTotalCrG]
Type : Amount
Persistent : Yes
[Variable : SelectedLinesRajtSKRTotalnetG]
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 : SelectedLinesRajtSKRTotalOnFocus : ##IsLedgerReport
[!Line : SelectedLinesRajtSKRTotalOnFocus] ;; Line to Call Selected BillsTotal Function
On : Focus : Yes : Call : SelectedLinesRajtSKRTotalDr
On : Focus : Yes : Call : SelectedLinesRajtSKRTotalCr
On : Focus : Yes : Call : SelectedLinesRajtSKRTotalnet
[Function : SelectedLinesRajtSKRTotalDr]
0010 : Set : SelectedLinesRajtSKRTotalDr : ($$CollAmtTotal:SelectedLinesCollDj:$TotalLedDrVchAmt)
0011 : Set : IsLineselectedDr : (NOT $$IsEmpty:##SelectedLinesRajtSKRTotalDr)
[Function : SelectedLinesRajtSKRTotalCr]
0010 : Set : SelectedLinesRajtSKRTotalCr : ($$CollAmtTotal:SelectedLinesCollCj:$TotalLedCrVchAmt)
0011 : Set : IsLineselectedCr : (NOT $$IsEmpty:##SelectedLinesRajtSKRTotalCr)
[Function : SelectedLinesRajtSKRTotalnet]
0010 : Set : SelectedLinesRajtSKRTotalnet : ($$CollAmtTotal:SelectedLinesCollnet:$TotalLedVchAmt)
0011 : Set : IsLineselectednet : (NOT $$IsEmpty:##SelectedLinesRajtSKRTotalnet)
[Field : LineselectedTotalDr]
Use : Name Field
Set as : if ##IsLineselectedDr AND NOT $$IsEmpty:($$ReportObject:$$CollAmtTotal:SelectedLinesCollDj:$TotalLedDrVchAmt) Then $$String:@SelectedTotalDr + $$String:@SelectedTotalValDr 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:##SelectedLinesRajtSKRTotalDr:"DrCr"
[Field : LineselectedTotalCr]
Use : Name Field
Set as : if ##IsLineselectedCr AND NOT $$IsEmpty:($$ReportObject:$$CollAmtTotal:SelectedLinesCollCj:$TotalLedCrVchAmt) Then $$String:@SelectedTotalCr + $$String:@SelectedTotalValCr 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:##SelectedLinesRajtSKRTotalCr:"DrCr"
[Field : NetAmt]
Use : Name Field
Set as : if ##IsLineselectednet AND NOT $$IsEmpty:($$ReportObject:$$CollAmtTotal:SelectedLinesCollnet:$TotalLedVchAmt) Then $$String:@SelectedTotalnet + $$String:@SelectedTotalValnet 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:##SelectedLinesRajtSKRTotalnet:"DrCr"
[System : Variables]
SelectedLinesRajtSKRTotalDr : 0
SelectedLinesRajtSKRTotalCr : 0
SelectedLinesRajtSKRTotalNet : 0
IsLineselectedDr : NO
IsLineselectedCr : NO
IsLineselectednet : NO
[Variable : SelectedLinesRajtSKRTotalDr]
Type : Amount
Persistent : Yes
[Variable : SelectedLinesRajtSKRTotalCr]
Type : Amount
Persistent : Yes
[Variable : SelectedLinesRajtSKRTotalnet]
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 :RajTSKRNettAmt,RajTSKRLineselectedTotalDebit,RajTSKRLineselectedTotalCredit
[#Line: DSP AccLine]
Option : RajTSKRSelectedLinesTotalOnFocus
[!Line : RajTSKRSelectedLinesTotalOnFocus] ;; Line to Call Selected BillsTotal Function
On : Focus : Yes : Call : RajTSKRSelectedLinesTotalDebit
On : Focus : Yes : Call : RajTSKRSelectedLinesTotalCredit
On : Focus : Yes : Call : RajTSKRSelectedLinesTotalNett
[Function : RajTSKRSelectedLinesTotalDebit]
0010 : Set : RajTSKRSelectedLinesTotalDebit : ($$CollAmtTotal:RajTSKRSelectedLinesCollDebit:$Closingbalance)
0011 : Set : RajTSKRIsLineselectedDebit : (NOT $$IsEmpty:##RajTSKRSelectedLinesTotalDebit)
[Function : RajTSKRSelectedLinesTotalCredit]
0010 : Set : RajTSKRSelectedLinesTotalCredit : ($$CollAmtTotal:RajTSKRSelectedLinesCollCredit:$Closingbalance)
0011 : Set : RajTSKRIsLineselectedCredit : (NOT $$IsEmpty:##RajTSKRSelectedLinesTotalCredit)
[Function : RajTSKRSelectedLinesTotalNett]
0010 : Set : RajTSKRSelectedLinesTotalNett : ($$CollAmtTotal:RajTSKRSelectedLinesCollNett:$Closingbalance)
0011 : Set : RajTSKRIsLineselectedNett : (NOT $$IsEmpty:##RajTSKRSelectedLinesTotalNett)
[Field : RajTSKRLineselectedTotalDebit]
Use : Name Field
Set as : if ##RajTSKRIsLineselectedDebit AND NOT $$IsEmpty:($$ReportObject:$$CollAmtTotal:RajTSKRSelectedLinesCollDebit:$Closingbalance) Then $$String:@SelectedTotalDebit + $$String:@SelectedTotalValDebit Else ""
Width : 30
Align : Centre
Background : if ##RajTSKRIsLineselectedDebit AND NOT $$IsEmpty:($$ReportObject:$$CollAmtTotal:RajTSKRSelectedLinesCollDebit:$Closingbalance) Then "Released Blue" Else @@SV_Groupsummary
; Invisible : NOT ##IsLedgerReport OR NOT $$InDisplayMode
SelectedTotalDebit : $$LocaleString:"Dr Total : "
SelectedTotalValDebit : $$String:##RajTSKRSelectedLinesTotalDebit:"DrCr"
[Field : RajTSKRLineselectedTotalCredit]
Use : Name Field
Set as : if ##RajTSKRIsLineselectedCredit AND NOT $$IsEmpty:($$ReportObject:$$CollAmtTotal:RajTSKRSelectedLinesCollCredit:$Closingbalance) Then $$String:@SelectedTotalCredit + $$String:@SelectedTotalValCredit Else ""
Width : 30
Align : Centre
Background : if ##RajTSKRIsLineselectedCredit AND NOT $$IsEmpty:($$ReportObject:$$CollAmtTotal:RajTSKRSelectedLinesCollCredit:$Closingbalance) Then "CandyAppleGreen" Else @@SV_Groupsummary
;Invisible : NOT ##IsLedgerReport OR NOT $$InDisplayMode
SelectedTotalCredit : $$LocaleString:"Cr Total : "
SelectedTotalValCredit : $$String:##RajTSKRSelectedLinesTotalCredit:"DrCr"
[Field : RajTSKRNettAmt]
Use : Name Field
Set as : if ##RajTSKRIsLineselectedNett AND NOT $$IsEmpty:($$ReportObject:$$CollAmtTotal:RajTSKRSelectedLinesCollNett:$Closingbalance) Then $$String:@SelectedTotalNett + $$String:@SelectedTotalValNett Else ""
Width : 30
Align : Centre
Background : if ##RajTSKRIsLineselectedNett AND NOT $$IsEmpty:($$ReportObject:$$CollAmtTotal:RajTSKRSelectedLinesCollNett:$Closingbalance) Then "Rosy Brown" Else @@SV_Groupsummary
Format : "DrCr"
;Invisible : NOT ##IsLedgerReport OR NOT $$InDisplayMode
SelectedTotalNett : $$LocaleString:"Net Selection : "
SelectedTotalValNett : $$String:##RajTSKRSelectedLinesTotalNett:"DrCr"
[System : Variables]
RajTSKRSelectedLinesTotalDebit : 0
RajTSKRSelectedLinesTotalCredit : 0
RajTSKRSelectedLinesTotalNett : 0
RajTSKRIsLineselectedDebit : NO
RajTSKRIsLineselectedCredit : NO
RajTSKRIsLineselectedNett : NO
[Variable : RajTSKRSelectedLinesTotalDebit]
Type : Amount
[Variable : RajTSKRSelectedLinesTotalCredit]
Type : Amount
[Variable : RajTSKRSelectedLinesTotalNett]
Type : Amount
[Variable : RajTSKRIsLineselectedDebit]
Type : Logical
[Variable : RajTSKRIsLineselectedCredit]
Type : Logical
[Variable : RajTSKRIsLineselectedNett]
Type : Logical
[System : Formulae]
OnlyCrside : NOT $$isDr:$Closingbalance
Onlydrside :$$IsDr:$Closingbalance
[Collection : RajTSKRSelectedLinesCollDebit]
Data Source : Report : Selected
Fetch : Name,Closingbalance
Client Only : Yes
Filter : Onlydrside
[Collection : RajTSKRSelectedLinesCollCredit]
Data Source : Report : Selected
Fetch : Name,Closingbalance
Client Only : Yes
Filter : OnlyCrside
[Collection : RajTSKRSelectedLinesCollNEtt]
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.*,*.*
.jpg)
कोई टिप्पणी नहीं:
एक टिप्पणी भेजें