Few lines are missing here.
Watch our video to get full code.
आप में से कई साथियों को Month wise Expensee रिपोर्ट बनानी होती है जिसमे काफी समय लगता है. आज की कोडन आपके समय को बचाएगी और बिलकुल Professional Monthly Yearly Expense रिपोर्ट दिखाएगी।
Tally TDL की कुछ Lines आपको वीडियो में से लेनी है बाकि कोड नीचे दिया गया है।
अब हम इसे इस्तेमाल करना समझेंगे। वैसे तो यह बड़ा आसान तरीका है पर इसमें आपको अपने Voucher Entry की Date को ध्यान रखना है क्यूंकि यह रिपोर्ट Voucher Date के अनुसार उसी महीने की Income रिपोर्ट दिखती है। आप रिपोर्ट में जा कर Period Change कर के Monthly And Yearly रिपोर्ट देख सकते है।
बाकि पूरी जानकारी के लिए आपको इसकी वीडियो जरूर देखनी चाहिए।
[#Menu: Gateway of Tally]
Add : Key Item : Before : @@locQuit : "Month Wise Expenses Report" : M : Display : Expenses
[Report:Expenses]
Use : DSP Template
Title : "Month Wise Expenses"
Variable : SV Print Orientation : String
Repeat : PartyNameExpEXP
Form : Expenses
Set : FilterPartyNameExpEXPEXP : ""
Set : SVFromDate : $$MonthStart:##SVFromDate
Set : SVToDate : $$MonthEnd:##SVCurrentDate
Variable : SVFromDate, SVToDate
[Form:Expenses]
Button : PrintButton, ExportButton
Button : ExplodeFlag,ChangePeriod,BtnPartyNameExpEXPFilter
Bottom Toolbar Buttons : Enter To Edit EXP,BottomToolBarBtn8,BottomToolBarBtn9,BottomToolBarBtn10
Part : EXPTitle,EXPPeriod,EXPDetails
Bottom Part : EXPTotals
Width : 100% Page
Space Left : 2 mms
Space Right : 2 mms
Set Always : SV Print Orientation : "Landscape"
[Key: Enter To Edit EXP]
Key : Enter
Title : $$LocaleString:"Explode"
Type : BottomToolBarBtn2
Action : Explode
[Part:EXPTitle]
Line : EXPTitle
Horizontal Align: Center
[Part:EXPPeriod]
Line : EXPPeriod
[Line:EXPTitle]
Field : Simple Field
Local : Field : Simple Field : Style : Large
Local : Field : Simple Field : Info : "Month Wise Expenses Report "
Local : Field : Simple Field : Border: Thin Bottom
Local : Field : Simple Field : Align : Center
[Line:EXPPeriod]
Right Field : Name Field
Left Field : Short Prompt,EXPfilterRpt
Local : Field : Name Field : Info : @@DSPDateStr
Local : Field : Name Field : Width : 60
Local : Field : Name Field : Align : Right
Local : Field : Short Prompt : Set as: "Expenses Name:"
[Field:EXPfilterRpt]
Use : Simple Field
Style : Normal
Set as : @EXPPartyNameExpEXP
Set Always : Yes
EXPPartyNameExpEXP : If $$IsEndOfList:##FilterPartyNameExpEXPEXP or ##FilterPartyNameExpEXPEXP="" Then "All Expenses" Else ##FilterPartyNameExpEXPEXP
[Line:EXPHead]
Use : EXPDetails
Border : Column Titles
Local : Field : Default : Type : String
Local : Field : Default : Align : Center
Local : Field : Default : Border : Thin Left
Local : Field : Default : Style : Large
Local : Field : EXPSno : Set as : "S.No."
Local : Field : EXPSno : Border : Thin Left Right
Local : Field : EXPPartyNameExpEXP : Set as : "Expenses Name"
Local : Field : EXPPartyNameExpEXP : Align : center
Local : Field : EXPAprQty : Set as : "Apr"
Local : Field : EXPMayQty : Set as : "May"
Local : Field : EXPQtyJunEXP : Set as : "Jun"
Local : Field : EXPJulQty : Set as : "Jul"
Local : Field : EXPAugQty : Set as : "Aug"
Local : Field : EXPSepQty : Set as : "Sep"
Local : Field : EXPOctQty : Set as : "Oct"
Local : Field : EXPnovQty : Set as : "Nov"
Local : Field : EXPdecQty : Set as : "Dec"
Local : Field : EXPjanQty : Set as : "Jan"
Local : Field : EXPfebQty : Set as : "Feb"
Local : Field : EXPmarQty : Set as : "Mar"
Local : Field : EXPTotal : Set as : "Total"
Local : Field : EXPTotal : Border : Thin Left Right
Space Top : 1.5 mms
Space Bottom: 1.5 mms
[Part:EXPDetails]
Line : EXPHead,EXPDetails
Repeat : EXPDetails:EXPPartyWise
Scroll : Vertical
Total : EXPAprQty,EXPMayQty,EXPQtyJunEXP, EXPJulQty, EXPAugQty, EXPSepQty,EXPOctQty,EXPnovQty,EXPdecQty,EXPjanQty,EXPfebQty,EXPmarQty,EXPTotal
Common Border : Yes
[Line:EXPDetails]
Field : EXPSno,EXPPartyNameExpEXP
Right Field : EXPAprQty,EXPMayQty,EXPQtyJunEXP, EXPJulQty, EXPAugQty, EXPSepQty,EXPOctQty,EXPnovQty,EXPdecQty,EXPjanQty,EXPfebQty,EXPmarQty,EXPTotal
Option : AlterOnEnter : $$IsVoucher
Space Bottom: 0.5 mms
Space Top : 0.5 mms
Border : Thin Top
Explode : EXPExplode : ($$KeyExplode OR ##ExplodeFlag)
[Field:EXPDefault]
Use : Name Field
Style : Normal
[Field:EXPSno]
Use : EXPDefault
Set as : $$Line
Width : if $$inprintmode then 3 else 4
Align : Center
Border : Thin Left Right
[Field:EXPPartyNameExpEXP]
Use : EXPDefault
Set as : $PartyNameExpEXP
Width : if $$inprintmode then 20 else 30
Quick Search: Yes
[Field:EXPAprQty]
Use : Qty Field
Type : Number
Set as : $QtyAprEXP
Width : if $$inprintmode then 7 else 8
Border : Thin Left Right
[Field:EXPMayQty]
Use : Qty Field
Type : Number
Set as : $QtyMayEXP
Width : if $$inprintmode then 7 else 8
Border : Thin Right
[Field: EXPQtyJunEXP]
Use : Qty Field
Type : Number
Set As : $QtyJunEXP
Border : Thin Right
Style : Normal
Width : if $$inprintmode then 7 else 8
[Field: EXPJulQty]
Use : Qty Field
Type : Number
Set As : $QtyJulEXP
Border : Thin Right
Style : Normal
Width : if $$inprintmode then 7 else 8
[Field: EXPAugQty]
Use : Qty Field
Type : Number
Set As : $QtyAugEXP
Border : Thin Right
Style : Normal
Width : if $$inprintmode then 7 else 8
[Field: EXPSepQty]
Use : Qty Field
Type : Number
Set As : $QtySepEXP
Border : Thin Right
Style : Normal
Width : if $$inprintmode then 7 else 8
[Field: EXPOctQty]
Use : Qty Field
Type : Number
Set As : $EXPOctQty
Border : Thin Right
Style : Normal
Width : if $$inprintmode then 7 else 8
[Field: EXPnovQty]
Use : Qty Field
Type : Number
Set As : $EXPnovQty
Border : Thin Right
Style : Normal
Width : if $$inprintmode then 7 else 8
[Field: EXPdecQty]
Use : Qty Field
Type : Number
Set As : $EXPdecQty
Border : Thin Right
Style : Normal
Width : if $$inprintmode then 7 else 8
[Field: EXPjanQty]
Use : Qty Field
Type : Number
Set As : $EXPjanQty
Border : Thin Right
Style : Normal
Width : if $$inprintmode then 7 else 8
[Field: EXPfebQty]
Use : Qty Field
Type : Number
Set As : $EXPfebQty
Border : Thin Right
Style : Normal
Width : if $$inprintmode then 7 else 8
[Field: EXPmarQty]
Use : Qty Field
Type : Number
Set As : $EXPmarQty
Border : Thin Right
Style : Normal
Width : if $$inprintmode then 7 else 8
[Field:EXPTotal]
Use : Qty Field
Set as : $TotAmount
Type : Number
Width : if $$inprintmode then 7 else 8
Border : Thin Right
[Part:EXPTotals]
Line : EXPTotal
[Line:EXPTotal]
Border : Totals
Use : EXPDetails
Local : Field : Default : Type : String
Local : Field : Default : Align : Right
Local : Field : Default : Style : Large
Local : Field : Default : Border : Thin Left
Local : Field : EXPSno : Set as : ""
Local : Field : EXPPartyNameExpEXP : Set as : " Total"
Local : Field : EXPPartyNameExpEXP : Align : Center
Local : Field : EXPAprQty : Set as : $$Total:EXPAprQty
Local : Field : EXPMayQty : Set as : $$Total:EXPMayQty
Local : Field : EXPQtyJunEXP : Set as : $$Total:EXPQtyJunEXP
Local : Field : EXPJulQty : Set as : $$Total:EXPJulQty
Local : Field : EXPAugQty : Set as : $$Total:EXPAugQty
Local : Field : EXPSepQty : Set as :$$Total:EXPSepQty
Local : Field : EXPOctQty : Set as : $$Total:EXPOctQty
Local : Field : EXPnovQty : Set as : $$Total:EXPnovQty
Local : Field : EXPdecQty : Set as : $$Total:EXPdecQty
Local : Field : EXPjanQty : Set as : $$Total:EXPjanQty
Local : Field : EXPfebQty : Set as :$$Total:EXPfebQty
Local : Field : EXPmarQty : Set as : $$Total:EXPmarQty
Local : Field : EXPTotal : Set as : $$Total:EXPTotal
Local : Field : EXPTotal : Border : Thin Left Right
Local : Field : EXPTotal : Align : Right
[Part:EXPExplode]
Line : EXPExplode
Repeat : EXPExplode:EXPPartyExplode
Border : Thin Bottom
[Line:EXPExplode]
Use : EXPDetails
Delete : Border
Local : Field : EXPSno : Set as : "" ;$$Line
Local : Field : Default : Style : Normal
Local : Field : Default : Color : Blue
Local : Field : EXPPartyNameExpEXP : Set as : $ItemName
Local : Field : EXPPartyNameExpEXP : Align : Justified
Local : Field : EXPAprQty : Set as : $itemQtyAprEXP
Local : Field : EXPMayQty : Set as : $itemQtyMayEXP
Local : Field : EXPQtyJunEXP : Set as : $ItemQtyJunEXP
Local : Field : EXPJulQty : Set as :$ItemQtyJulEXP
Local : Field : EXPAugQty : Set as : $ItemQtyAugEXP
Local : Field : EXPSepQty : Set as :$ItemQtySepEXP
Local : Field : EXPOctQty : Set as : $ItemEXPOctQty
Local : Field : EXPnovQty : Set as : $ItemEXPnovQty
Local : Field : EXPdecQty : Set as : $ItemEXPdecQty
Local : Field : EXPjanQty : Set as : $ItemEXPjanQty
Local : Field : EXPfebQty : Set as :$ItemEXPfebQty
Local : Field : EXPmarQty : Set as : $ItemEXPmarQty
Local : Field : EXPTotal : Set as : $itemEXPTotalQty
[Button:BtnPartyNameExpEXPFilter]
Key : F2
Action : Execute : ExpensesMonthwise
Title : Select Expenses
[Report:ExpensesMonthwise]
Form : ExpensesMonthwise
[Form:ExpensesMonthwise]
Part : ExpensesMonthwise
Space Left : 2 mms
Space Right : 2 mms
[Part:ExpensesMonthwise]
Line : ExpensesMonthwise
[Line:ExpensesMonthwise]
Field : Medium Prompt,ExpensesMonthwise
Local : Field : Medium Prompt : Set as : "Select Expsens Name:"
Space Bottom : 2 mms
[Field:ExpensesMonthwise]
Table : filterledger, EndOfList
ShowTable : Always
Use : Name Field
Width : 20
Border : Thin Box
Variable : FilterPartyNameExpEXPEXP
Modifies : FilterPartyNameExpEXPEXP
[Collection: filterledger]
Type: Ledger
BelongsTo: Yes
[System:Formula]
EXPFilter : $LedgerName=@@PartyLedgerWiseEXP
PartyLedgerWiseEXP : If $$IsEndOfList:##FilterPartyNameExpEXPEXP or ##FilterPartyNameExpEXPEXP="" Then $LedgerName Else ##FilterPartyNameExpEXPEXP
EXPExplodeFilter : $PartyNameExpEXP=#EXPPartyNameExpEXP
EXPExplodeFilterB : $PartyNameExpEXP=#EXPPartyNameExpEXP
[Collection: EXP Voucher]
Type : Vouchers ;: VoucherType
;Child of : $$VchTypePayment
Belongs to : Yes
Fetch : date,VoucherTypeName,PartyLedgerName,Amount,PAYHEADNAME,Allledger Entries,Voucher Number,VoucherNumber,Reference,ledgername,amount,allledger Entries
Filter : NOTIsOptionalVoucher,EXPFilter
[Collection:EXPPartyWise]
Source Collection : EXP Voucher
Walk : ledger Entries
By : PartyNameExpEXP : $LedgerName
Aggr Compute: QtyAprEXP : Sum : If @@EXPmonthFilterapr Then $Amount Else 0
Aggr Compute: QtyMayEXP : Sum : If @@EXPmonthFiltermay Then $Amount Else 0
Aggr Compute : QtyJunEXP : Sum : If @@EXPmonthFilterjun Then $Amount Else 0
Aggr Compute : QtyJulEXP : Sum : If @@EXPmonthFilterjul Then $Amount Else 0
Aggr Compute : QtyAugEXP : Sum : If @@EXPmonthFilteraug Then $Amount Else 0
Aggr Compute : QtySepEXP : Sum :If @@VoucherFilterExpEXP and @@EXPmonthFiltersep Then $Amount Else 0
Aggr Compute : EXPOctQty : Sum :If @@VoucherFilterExpEXP and @@EXPmonthFilteroct Then $Amount Else 0
Aggr Compute : EXPnovQty : Sum :If @@VoucherFilterExpEXP and @@EXPmonthFilternov Then $Amount Else 0
Aggr Compute : EXPdecQty : Sum :If @@VoucherFilterExpEXP and @@EXPmonthFilterdec Then $Amount Else 0
Aggr Compute : EXPjanQty : Sum :If @@VoucherFilterExpEXP and @@EXPmonthFilterjan Then $Amount Else 0
Aggr Compute : EXPfebQty : Sum :If @@VoucherFilterExpEXP and @@EXPmonthFilterfeb Then $Amount Else 0
Aggr Compute : EXPmarQty : Sum :If @@VoucherFilterExpEXP and @@EXPmonthFiltermar Then $Amount Else 0
Aggr Compute: TotAmount : Sum : If @@VoucherFilterExpEXP Then $Amount Else 0
Sort : Default : $PartyNameExpEXP
Filter: iexpEXP
[Collection:EXPPartyExplode]
Source Collection : EXP Voucher
Walk : ledger Entries
By : PartyNameExpEXP : $LedgerName
By : ItemName : $vouchernumber
Aggr Compute: itemQtyAprEXP : Sum : If @@EXPmonthFilterapr Then $Amount Else 0
Aggr Compute: itemQtyMayEXP : Sum : If @@EXPmonthFiltermay Then $Amount Else 0
Aggr Compute : itemQtyJunEXP : Sum : If @@EXPmonthFilterjun Then $Amount Else 0
Aggr Compute : itemQtyJulEXP : Sum : If @@EXPmonthFilterjul Then $Amount Else 0
Aggr Compute : itemQtyAugEXP : Sum : If @@EXPmonthFilteraug Then $Amount Else 0
Aggr Compute : itemQtySepEXP : Sum :If @@VoucherFilterExpEXP and @@EXPmonthFiltersep Then $Amount Else 0
Aggr Compute : itemEXPOctQty : Sum :If @@VoucherFilterExpEXP and @@EXPmonthFilteroct Then $Amount Else 0
Aggr Compute : itemEXPnovQty : Sum :If @@VoucherFilterExpEXP and @@EXPmonthFilternov Then $Amount Else 0
Aggr Compute : itemEXPdecQty : Sum :If @@VoucherFilterExpEXP and @@EXPmonthFilterdec Then $Amount Else 0
Aggr Compute : itemEXPjanQty : Sum :If @@VoucherFilterExpEXP and @@EXPmonthFilterjan Then $Amount Else 0
Aggr Compute : itemEXPfebQty : Sum :If @@VoucherFilterExpEXP and @@EXPmonthFilterfeb Then $Amount Else 0
Aggr Compute : itemEXPmarQty : Sum :If @@VoucherFilterExpEXP and @@EXPmonthFiltermar Then $Amount Else 0
Aggr Compute: itemEXPTotalQty : Sum : If @@VoucherFilterExpEXP Then $Amount Else 0
Filter : EXPExplodeFilter
Sort : Default : $ItemName
[System : Formula]
iexpEXP : $$IsLedOfGrp:$PartyNameExpEXP:$$GroupDirectExpenses or $$IsLedOfGrp:$PartyNameExpEXP:$$GroupIndirectExpenses
iexpEXPl : $$IsLedOfGrp:$name:$$GroupIndirectExpenses or $$IsLedOfGrp:$name:$$GroupIndirectExpenses
VoucherFilterExpEXP : $$IsPayment:$VoucherTypeName or $$IsJournal:$VoucherTypeName or $$IsPurchase:$VoucherTypeName or $$IsSales:$VoucherTypeName or $$IsDebitNote:$VoucherTypeName or $$IsCreditNote:$VoucherTypeName
EXPmonthFilterapr : $$MonthOfDate:$Date>=4 and $$MonthOfDate:$Date<=4
EXPmonthFiltermay : $$MonthOfDate:$Date>=5 and $$MonthOfDate:$Date<=5
EXPmonthFilterjun : $$MonthOfDate:$Date>=6 and $$MonthOfDate:$Date<=6
EXPmonthFilterjul : $$MonthOfDate:$Date>=7 and $$MonthOfDate:$Date<=7
EXPmonthFilteraug : $$MonthOfDate:$Date>=8 and $$MonthOfDate:$Date<=8
EXPmonthFiltersep : $$MonthOfDate:$Date>=9 and $$MonthOfDate:$Date<=9
EXPmonthFilteroct : $$MonthOfDate:$Date>=10 and $$MonthOfDate:$Date<=10
EXPmonthFilternov : $$MonthOfDate:$Date>=11 and $$MonthOfDate:$Date<=11
EXPmonthFilterdec : $$MonthOfDate:$Date>=12 and $$MonthOfDate:$Date<=12
EXPmonthFilterjan : $$MonthOfDate:$Date>=1 and $$MonthOfDate:$Date<=1
EXPmonthFilterfeb : $$MonthOfDate:$Date>=2 and $$MonthOfDate:$Date<=2
EXPmonthFiltermar : $$MonthOfDate:$Date>=3 and $$MonthOfDate:$Date<=3
[Variable: PartyNameExpEXP]
Type : String
Repeat : ##DSPRepeatCollection
[Variable:FilterPartyNameExpEXPEXP]
Type : String
[System:Variables]
FilterPartyNameExpEXPEXP : ""
[Report:Income]
Use : DSP Template
Title : "Month Wise Income Summary"
Repeat : IncomeStatement
Form : Income
Variable : FilterIncomeStatementEBINCOME : String
Set : FilterIncomeStatementEBINCOME : ""
Set : SVFromDate : $$MonthStart:##SVFromDate
Set : SVToDate : $$MonthEnd:##SVCurrentDate
Variable : SVFromDate, SVToDate
[Form:Income]
Button : PrintButton, ExportButton
Button : ExplodeFlag,ChangePeriod,BtnIncomeStatementFilter
Bottom Toolbar Buttons : Enter To Edit EBINCOME,BottomToolBarBtn8,BottomToolBarBtn9,BottomToolBarBtn10
Part : EBINCOMETitle,EBINCOMEPeriod,EBINCOMEDetails
Bottom Part : EBINCOMETotals
Width : 100% Page
Space Left : 2 mms
Space Right : 2 mms
[Key: Enter To Edit EBINCOME]
Key : Enter
Title : $$LocaleString:"Explode"
Type : BottomToolBarBtn2
Action : Explode
[Part:EBINCOMETitle]
Line : EBINCOMETitle
Horizontal Align : Center
[Part:EBINCOMEPeriod]
Line : EBINCOMEPeriod
[Line:EBINCOMETitle]
Field : Simple Field
Local : Field : Simple Field : Style : Large
Local : Field : Simple Field : Info : "Month Wise Income Summary"
Local : Field : Simple Field : Border: Thin Bottom
Local : Field : Simple Field : Align : Center
[Line:EBINCOMEPeriod]
Right Field : Name Field
Left Field : Short Prompt,EBINCOMEfilterRpt
Local : Field : Name Field : Info : @@DSPDateStr
Local : Field : Name Field : Width : 60
Local : Field : Name Field : Align : Right
[Field:EBINCOMEfilterRpt]
Use : Simple Field
Style : Normal Bold
Set as : @EBINCOMEIncomeStatement
Set Always : Yes
EBINCOMEIncomeStatement : If $$IsEndOfList:##FilterIncomeStatementEBINCOME or ##FilterIncomeStatementEBINCOME="" Then "" Else ##FilterIncomeStatementEBINCOME
[Line:EBINCOMEHead]
Use : EBINCOMEDetails
Border : Column Titles
Local : Field : Default : Type : String
Local : Field : Default : Align : Center
Local : Field : Default : Border : Thin Left
Local : Field : Default : Style : Large
Local : Field : EBINCOMESno : Set as : "S.No."
Local : Field : EBINCOMESno : Border : Thin Left Right
Local : Field : EBINCOMEIncomeStatement : Set as : "Name of the Income"
Local : Field : EBINCOMEIncomeStatement : Align : Center
Local : Field : EBINCOMEAprQty : Set as : "Apr"
Local : Field : EBINCOMEMayQty : Set as : "May"
Local : Field : EBINCOMEQtyJunEBINCOME : Set as : "Jun"
Local : Field : EBINCOMEJulQty : Set as : "Jul"
Local : Field : EBINCOMEAugQty : Set as : "Aug"
Local : Field : EBINCOMESepQty : Set as : "Sep"
Local : Field : EBINCOMEOctQty : Set as : "Oct"
Local : Field : EBINCOMEnovQty : Set as : "Nov"
Local : Field : EBINCOMEdecQty : Set as : "Dec"
Local : Field : EBINCOMEjanQty : Set as : "Jan"
Local : Field : EBINCOMEfebQty : Set as : "Feb"
Local : Field : EBINCOMEmarQty : Set as : "Mar"
Local : Field : EBINCOMETotal : Set as : "Total"
Local : Field : EBINCOMETotal : Border : Thin Left Right
Space Top : 1.5 mms
Space Bottom: 1.5 mms
[Part:EBINCOMEDetails]
Line : EBINCOMEHead,EBINCOMEDetails
Repeat : EBINCOMEDetails:EBINCOMEPartyWise
Scroll : Vertical
Total : EBINCOMEAprQty,EBINCOMEMayQty,EBINCOMEQtyJunEBINCOME, EBINCOMEJulQty, EBINCOMEAugQty, EBINCOMESepQty,EBINCOMEOctQty,EBINCOMEnovQty,EBINCOMEdecQty,EBINCOMEjanQty,EBINCOMEfebQty,EBINCOMEmarQty,EBINCOMETotal
Common Border : Yes
[Line:EBINCOMEDetails]
Field : EBINCOMESno,EBINCOMEIncomeStatement
Right Field : EBINCOMEAprQty,EBINCOMEMayQty,EBINCOMEQtyJunEBINCOME, EBINCOMEJulQty, EBINCOMEAugQty, EBINCOMESepQty,EBINCOMEOctQty,EBINCOMEnovQty,EBINCOMEdecQty,EBINCOMEjanQty,EBINCOMEfebQty,EBINCOMEmarQty,EBINCOMETotal
Option : AlterOnEnter : $$IsVoucher
Space Bottom: 0.5 mms
Space Top : 0.5 mms
Border : Thin Top
[Field:EBINCOMEDefault]
Use : Name Field
Style : Normal
[Field:EBINCOMESno]
Use : EBINCOMEDefault
Set as : $$Line
Width : if $$inprintmode then 3 else 4
Align : Center
Border : Thin Left Right
[Field:EBINCOMEIncomeStatement]
Use : EBINCOMEDefault
Set as : $IncomeStatement
Width : if $$inprintmode then 20 else 30
Quick Search: Yes
[Field:EBINCOMEAprQty]
Use : Qty Field
Type : Number
Set as : $QtyAprEBINCOME
Width : if $$inprintmode then 7 else 8
Border : Thin Left Right
[Field:EBINCOMEMayQty]
Use : Qty Field
Type : Number
Set as : $QtyMayEBINCOME
Width : if $$inprintmode then 7 else 8
Border : Thin Right
[Field: EBINCOMEQtyJunEBINCOME]
Use : Qty Field
Type : Number
Set As : $QtyJunEBINCOME
Border : Thin Right
Style : Normal Bold
Width : if $$inprintmode then 7 else 8
[Field: EBINCOMEJulQty]
Use : Qty Field
Type : Number
Set As : $QtyJulEBINCOME
Border : Thin Right
Style : Normal Bold
Width : if $$inprintmode then 7 else 8
[Field: EBINCOMEAugQty]
Use : Qty Field
Type : Number
Set As : $QtyAugEBINCOME
Border : Thin Right
Style : Normal Bold
Width : if $$inprintmode then 7 else 8
[Field: EBINCOMESepQty]
Use : Qty Field
Type : Number
Set As : $QtySepEBINCOME
Border : Thin Right
Style : Normal Bold
Width : if $$inprintmode then 7 else 8
[Field: EBINCOMEOctQty]
Use : Qty Field
Type : Number
Set As : $EBINCOMEOctQty
Border : Thin Right
Style : Normal Bold
Width : if $$inprintmode then 7 else 8
[Field: EBINCOMEnovQty]
Use : Qty Field
Type : Number
Set As : $EBINCOMEnovQty
Border : Thin Right
Style : Normal Bold
Width : if $$inprintmode then 7 else 8
[Field: EBINCOMEdecQty]
Use : Qty Field
Type : Number
Set As : $EBINCOMEdecQty
Border : Thin Right
Style : Normal Bold
Width : if $$inprintmode then 7 else 8
[Field: EBINCOMEjanQty]
Use : Qty Field
Type : Number
Set As : $EBINCOMEjanQty
Border : Thin Right
Style : Normal Bold
Width : if $$inprintmode then 7 else 8
[Field: EBINCOMEfebQty]
Use : Qty Field
Type : Number
Set As : $EBINCOMEfebQty
Border : Thin Right
Style : Normal Bold
Width : if $$inprintmode then 7 else 8
[Field: EBINCOMEmarQty]
Use : Qty Field
Type : Number
Set As : $EBINCOMEmarQty
Border : Thin Right
Style : Normal Bold
Width : if $$inprintmode then 7 else 8
[Field:EBINCOMETotal]
Use : Qty Field
Set as : $TotAmount
Type : Number
Width : if $$inprintmode then 7 else 8
Border : Thin Right
[Part:EBINCOMETotals]
Line : EBINCOMETotal
[Line:EBINCOMETotal]
Border : Totals
Use : EBINCOMEDetails
Local : Field : Default : Type : String
Local : Field : Default : Align : Right
Local : Field : Default : Style : Large Bold
Local : Field : Default : Border : Thin Left
Local : Field : EBINCOMESno : Set as : ""
Local : Field : EBINCOMEIncomeStatement : Set as : "Grand Total"
Local : Field : EBINCOMEIncomeStatement : Align : Center
Local : Field : EBINCOMEAprQty : Set as : $$Total:EBINCOMEAprQty
Local : Field : EBINCOMEMayQty : Set as : $$Total:EBINCOMEMayQty
Local : Field : EBINCOMEQtyJunEBINCOME : Set as : $$Total:EBINCOMEQtyJunEBINCOME
Local : Field : EBINCOMEJulQty : Set as : $$Total:EBINCOMEJulQty
Local : Field : EBINCOMEAugQty : Set as : $$Total:EBINCOMEAugQty
Local : Field : EBINCOMESepQty : Set as :$$Total:EBINCOMESepQty
Local : Field : EBINCOMEOctQty : Set as : $$Total:EBINCOMEOctQty
Local : Field : EBINCOMEnovQty : Set as : $$Total:EBINCOMEnovQty
Local : Field : EBINCOMEdecQty : Set as : $$Total:EBINCOMEdecQty
Local : Field : EBINCOMEjanQty : Set as : $$Total:EBINCOMEjanQty
Local : Field : EBINCOMEfebQty : Set as :$$Total:EBINCOMEfebQty
Local : Field : EBINCOMEmarQty : Set as : $$Total:EBINCOMEmarQty
Local : Field : EBINCOMETotal : Set as : $$Total:EBINCOMETotal
Local : Field : EBINCOMETotal : Border : Thin Left Right
Local : Field : EBINCOMETotal : Align : Right
[Part:EBINCOMEExplode]
Line : EBINCOMEExplode
Repeat : EBINCOMEExplode:EBINCOMEPartyExplode
Border : Thin Bottom
[Line:EBINCOMEExplode]
Use : EBINCOMEDetails
Delete : Border
Local : Field : EBINCOMESno : Set as : "" ;$$Line
Local : Field : Default : Style : Normal
Local : Field : Default : Color : Blue
Local : Field : EBINCOMEIncomeStatement : Set as : $ItemNamencome
Local : Field : EBINCOMEIncomeStatement : Align : Justified
Local : Field : EBINCOMEAprQty : Set as : $itemQtyAprEBINCOME
Local : Field : EBINCOMEMayQty : Set as : $itemQtyMayEBINCOME
Local : Field : EBINCOMEQtyJunEBINCOME : Set as : $ItemQtyJunEBINCOME
Local : Field : EBINCOMEJulQty : Set as :$ItemQtyJulEBINCOME
Local : Field : EBINCOMEAugQty : Set as : $ItemQtyAugEBINCOME
Local : Field : EBINCOMESepQty : Set as :$ItemQtySepEBINCOME
Local : Field : EBINCOMEOctQty : Set as : $ItemEBINCOMEOctQty
Local : Field : EBINCOMEnovQty : Set as : $ItemEBINCOMEnovQty
Local : Field : EBINCOMEdecQty : Set as : $ItemEBINCOMEdecQty
Local : Field : EBINCOMEjanQty : Set as : $ItemEBINCOMEjanQty
Local : Field : EBINCOMEfebQty : Set as :$ItemEBINCOMEfebQty
Local : Field : EBINCOMEmarQty : Set as : $ItemEBINCOMEmarQty
Local : Field : EBINCOMETotal : Set as : $itemEBINCOMETotalQty
[Button:BtnIncomeStatementFilter]
Key : F2
Action : Execute : IncomeWise
Title : Select Income
[Report:IncomeWise]
Form : IncomeWise
[Form:IncomeWise]
Part : IncomeWise
Space Left : 2 mms
Space Right : 2 mms
[Part:IncomeWise]
Line : IncomeWise
[Line:IncomeWise]
Field : Medium Prompt,IncomeWise
Local : Field : Medium Prompt : Set as : "Select Income Name:"
Space Bottom : 2 mms
[Field:IncomeWise]
Table : filterledgerEBINCOME,EndOfList
ShowTable : Always
Use : Name Field
Width : 20
Border : Thin Box
Variable : FilterIncomeStatementEBINCOME
Modifies : FilterIncomeStatementEBINCOME
[Collection: filterledgerEBINCOME]
Type: Ledger
BelongsTo: Yes
FILTER : INCOMELEDGER
[System:formula]
INCOMELEDGER : $$IsBelongsTo:$$GroupDirectIncomes OR + $$IsBelongsTo:$$GroupIndirectIncomes
[System:Formula]
EBINCOMEFilter : $IncomeStatement=@@PartyLedgerWiseEBINCOME or $$IsSysName:##FilterIncomeStatementEBINCOME
PartyLedgerWiseEBINCOME : If $$IsEndOfList:##FilterIncomeStatementEBINCOME or ##FilterIncomeStatementEBINCOME="" Then $LedgerName Else ##FilterIncomeStatementEBINCOME
EBINCOMEExplodeFilter : $IncomeStatement=#EBINCOMEIncomeStatement
EBINCOMEExplodeFilterB : $IncomeStatement=#EBINCOMEIncomeStatement
[Collection: EBINCOME Voucher]
Type : Vouchers ;: VoucherType
Belongs to : Yes
Fetch : date,VoucherTypeName,PartyLedgerName,Amount,PAYHEADNAME,Allledger Entries,Voucher Number,VoucherNumber,Reference,ledgername,amount,allledger Entries
[Collection:EBINCOMEPartyWise]
Source Collection : EBINCOME Voucher
Walk : allledger Entries
By : IncomeStatement : $LedgerName
Aggr Compute : QtyAprEBINCOME : Sum : If @@EBINCOMEmonthFilterapr Then $Amount Else 0
Aggr Compute : QtyMayEBINCOME : Sum : If @@EBINCOMEmonthFiltermay Then $Amount Else 0
Aggr Compute : QtyJunEBINCOME : Sum : If @@EBINCOMEmonthFilterjun Then $Amount Else 0
Aggr Compute : QtyJulEBINCOME : Sum : If @@EBINCOMEmonthFilterjul Then $Amount Else 0
Aggr Compute : QtyAugEBINCOME : Sum : If @@EBINCOMEmonthFilteraug Then $Amount Else 0
Aggr Compute : QtySepEBINCOME : Sum : If @@VoucherFilterExpEBINCOME and @@EBINCOMEmonthFiltersep Then $Amount Else 0
Aggr Compute : EBINCOMEOctQty : Sum : If @@VoucherFilterExpEBINCOME and @@EBINCOMEmonthFilteroct Then $Amount Else 0
Aggr Compute : EBINCOMEnovQty : Sum : If @@VoucherFilterExpEBINCOME and @@EBINCOMEmonthFilternov Then $Amount Else 0
Aggr Compute : EBINCOMEdecQty : Sum : If @@VoucherFilterExpEBINCOME and @@EBINCOMEmonthFilterdec Then $Amount Else 0
Aggr Compute : EBINCOMEjanQty : Sum : If @@VoucherFilterExpEBINCOME and @@EBINCOMEmonthFilterjan Then $Amount Else 0
Aggr Compute : EBINCOMEfebQty : Sum : If @@VoucherFilterExpEBINCOME and @@EBINCOMEmonthFilterfeb Then $Amount Else 0
Aggr Compute : EBINCOMEmarQty : Sum : If @@VoucherFilterExpEBINCOME and @@EBINCOMEmonthFiltermar Then $Amount Else 0
Aggr Compute : TotAmount : Sum : If @@VoucherFilterExpEBINCOME Then $Amount Else 0
Sort : Default : $IncomeStatement
Filter: iexpEBINCOME
Filter : EBINCOMEFilter
[Collection:EBINCOMEPartyExplode]
Source Collection : EBINCOME Voucher
Walk : ledger Entries
By : IncomeStatement : $LedgerName
By : ItemNamencome : $vouchernumber
Aggr Compute : itemQtyAprEBINCOME : Sum : If @@EBINCOMEmonthFilterapr Then $Amount Else 0
Aggr Compute : itemQtyMayEBINCOME : Sum : If @@EBINCOMEmonthFiltermay Then $Amount Else 0
Aggr Compute : itemQtyJunEBINCOME : Sum : If @@EBINCOMEmonthFilterjun Then $Amount Else 0
Aggr Compute : itemQtyJulEBINCOME : Sum : If @@EBINCOMEmonthFilterjul Then $Amount Else 0
Aggr Compute : itemQtyAugEBINCOME : Sum : If @@EBINCOMEmonthFilteraug Then $Amount Else 0
Aggr Compute : itemQtySepEBINCOME : Sum : If @@VoucherFilterExpEBINCOME and @@EBINCOMEmonthFiltersep Then $Amount Else 0
Aggr Compute : itemEBINCOMEOctQty : Sum : If @@VoucherFilterExpEBINCOME and @@EBINCOMEmonthFilteroct Then $Amount Else 0
Aggr Compute : itemEBINCOMEnovQty : Sum : If @@VoucherFilterExpEBINCOME and @@EBINCOMEmonthFilternov Then $Amount Else 0
Aggr Compute : itemEBINCOMEdecQty : Sum : If @@VoucherFilterExpEBINCOME and @@EBINCOMEmonthFilterdec Then $Amount Else 0
Aggr Compute : itemEBINCOMEjanQty : Sum : If @@VoucherFilterExpEBINCOME and @@EBINCOMEmonthFilterjan Then $Amount Else 0
Aggr Compute : itemEBINCOMEfebQty : Sum : If @@VoucherFilterExpEBINCOME and @@EBINCOMEmonthFilterfeb Then $Amount Else 0
Aggr Compute : itemEBINCOMEmarQty : Sum : If @@VoucherFilterExpEBINCOME and @@EBINCOMEmonthFiltermar Then $Amount Else 0
Aggr Compute : itemEBINCOMETotalQty : Sum : If @@VoucherFilterExpEBINCOME Then $Amount Else 0
Filter : EBINCOMEExplodeFilter
Sort : Default : $ItemNamencome
[System : Formula]
iexpEBINCOME : $$IsLedOfGrp:$IncomeStatement:$$GroupDirectIncomes or $$IsLedOfGrp:$IncomeStatement:$$GroupIndirectIncomes
iexpEBINCOMEl : $$IsLedOfGrp:$name:$$GroupIndirectIncomes or $$IsLedOfGrp:$name:$$GroupDirectIncomes
VoucherFilterExpEBINCOME : $$IsPayment:$VoucherTypeName or $$IsPurchase:$VoucherTypeName or $$IsSales:$VoucherTypeName or $$IsReceipt:$VoucherTypeName or $$IsJournal:$VoucherTypeName
EBINCOMEmonthFilterapr : $$MonthOfDate:$Date>=4 and $$MonthOfDate:$Date<=4
EBINCOMEmonthFiltermay : $$MonthOfDate:$Date>=5 and $$MonthOfDate:$Date<=5
EBINCOMEmonthFilterjun : $$MonthOfDate:$Date>=6 and $$MonthOfDate:$Date<=6
EBINCOMEmonthFilterjul : $$MonthOfDate:$Date>=7 and $$MonthOfDate:$Date<=7
EBINCOMEmonthFilteraug : $$MonthOfDate:$Date>=8 and $$MonthOfDate:$Date<=8
EBINCOMEmonthFiltersep : $$MonthOfDate:$Date>=9 and $$MonthOfDate:$Date<=9
EBINCOMEmonthFilteroct : $$MonthOfDate:$Date>=10 and $$MonthOfDate:$Date<=10
EBINCOMEmonthFilternov : $$MonthOfDate:$Date>=11 and $$MonthOfDate:$Date<=11
EBINCOMEmonthFilterdec : $$MonthOfDate:$Date>=12 and $$MonthOfDate:$Date<=12
EBINCOMEmonthFilterjan : $$MonthOfDate:$Date>=1 and $$MonthOfDate:$Date<=1
EBINCOMEmonthFilterfeb : $$MonthOfDate:$Date>=2 and $$MonthOfDate:$Date<=2
EBINCOMEmonthFiltermar : $$MonthOfDate:$Date>=3 and $$MonthOfDate:$Date<=3
[Variable: IncomeStatement]
Type : String
Repeat : ##DSPRepeatCollection
[Variable:FilterIncomeStatementEBINCOME]
Type : String
.jpg)
कोई टिप्पणी नहीं:
एक टिप्पणी भेजें