Few lines of this code is Missing here.
Pls Watch the full video for Full coding.
आप में से कई साथियों को Month wise Income रिपोर्ट बनानी होती है जिसमे काफी समय लगता है. आज की कोडन आपके समय को बचाएगी और बिलकुल Professional Monthly Yearly Income रिपोर्ट दिखाएगी।
Tally TDL की कुछ Lines आपको वीडियो में से लेनी है बाकि कोड नीचे दिया गया है।
अब हम इसे इस्तेमाल करना समझेंगे। वैसे तो यह बड़ा आसान तरीका है पर इसमें आपको अपने Voucher Entry की Date को ध्यान रखना है क्यूंकि यह रिपोर्ट Voucher Date के अनुसार उसी महीने की Income रिपोर्ट दिखती है। आप रिपोर्ट में जा कर Period Change कर के Monthly And Yearly रिपोर्ट देख सकते है।
बाकि पूरी जानकारी के लिए आपको इसकी वीडियो जरूर देखनी चाहिए।
: Before : @@locQuit : "Month Wise Income Report" : R : Display : Income
[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
[System:Variables]
FilterIncomeStatementEBINCOME : ""
;*******
.jpg)
कोई टिप्पणी नहीं:
एक टिप्पणी भेजें