Tally Chapter 222 TDL for Last Payment Rec Date By Rajiv Mishra Computer Class
Few lines of the code is missing here.
Pls watch the full video to get full coding.__
[#Menu:Gateway of Tally]
Add: Key Item: At End: Partywise Weekly Report : Y : Display : CAB Ledger List : $$IsInventoryOn:$$CurrentCompany
[Report: CAB Ledger List]
Form : CAB Ledger Form
Title : "Company Ledger List"
[Form: CAB Ledger Form]
Use : DSP Template
Parts : CAB Ledger Part
Height : 50% screen
Width : 100% screen
Background : Leaf Green
[Part: CAB Ledger Part]
Lines : CAB Ledger Title, CAB Ledger Line
Repeat : CAB Ledger Line : CAB My Ledgers
Background : White
Scroll : Vertical
[Line: CAB Ledger Title]
Use : CAB Ledger Line
Local : Field : Default : Type : String
Local : Field : Default : Align : Centre
Local : Field : Default : Style : Normal Bold
Local : Field : CAB Led No : Set as : "Sr. No"
Local : Field : CAB Led Name : Set as : "Ledger Name"
Local : Field : CAB Led Name : Align : Left
Local : Field : CAB Led Sales: Set as : "Sales"
Local : Field : CAB Led Receipt : Set as : "Receipt"
Local : Field : CAB Last Receipt: Set as : "Last Receipt"
Border : Thin Top Bottom
[Line: CAB Ledger Line]
Fields : CAB Led No, CAB Led Name, CAB Led Sales, CAB Led Receipt, CAB Last Receipt;, CAB Led Cont,total Bill Value
Option : AlterOnEnter
Local:Field:default:Style: Large Bold
[Field: CAB Led No]
Set as : $$Line
Width : 5
Align : Centre
Alter : Ledger
[Field: CAB Led Name]
; Use : Name Field
Set as : $Name
Full Width: Yes
[Field: CAB Led Sales]
Use : Name Field;AMount Forex field
Set as : $LedgerSalesTotal
Width : 15
[Field: CAB Led Receipt]
Use : Amount forex Field
Set as :$LedgerReceiptTotals
Width : 15
[Field: CAB Last Receipt]
Use : Uni Date Field
Set as :$LastRecdate;$LedgerLastreceiptdate
Width : 15
;;;;RECEIPT COLL;;;;;;;;;;
[Collection:AllRcptVchrs]
Type : Vouchers
Sort : -$Date
Filter : MyRcptEntries
Fetch : Amount, AllLedgerEntries.Amount, Date, AllLedgerEntries.Date, VoucherTypeName, AllLedgerEntries.VoucherTypeName
[Collection : MyPartyColl]
Source Collection : AllRcptVchrs
Fetch : Rate, Date, VoucherTypeName, PartyLedgerName, StockItemName
Filter : MyPartyFltr
Sort : Default : -$Date
[System : Formula]
MyPartyFltr : $PartyLedgerName = #CabLedName
LastRecdate: $$CollectionField:$Date:1:MyPartyColl
MyRcptEntries : $$IsReceipt:$VoucherTypeName
[#Object: Ledger]
LedgerSalesTotal : $$FilterAmtTotal:MySalesVouchers:ForThisParty:$Amount
LedgerReceiptTotals : $$FilterAmtTotal:MyReceiptVouchers:ForThisParty:$Amount
LedgerLastreceiptdate : $$CollectionField:MyReceiptVouchers:ForThisParty:Date;$$FilterAmtTotal:AllRcptVchrs:ForThisParty:$Amount
[System: Formulae]
MyRcptEntries : $$IsReceipt:$VoucherTypeName
[System: Formula]
ForThisParty : $PartyLedgerName = @@ReqObjName
[Collection: My Sales Vouchers]
Type : Vouchers : Voucher Type
Child Of : $$VchTypeSales
Sort : -$Date
;Fetch : *.*
Fetch : PartyLedgerName, LedgerEntries.Amount,Amount, Date, AllLedgerEntries.Date
[Collection: My Receipt Vouchers]
Type : Vouchers : Voucher Type
Child Of : $$VchTypeReceipt
;Fetch : *.*
Fetch : PartyLedgerName,Amount
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[Collection: CAB My Ledgers]
Type : Ledger
Child of : $$GroupSundryDebtors
Belongs to : Yes
;; 'Belongs To' includes the Ledgers pertaining to the subgroups of the group
;; mentioned in Attribute 'Child Of'.
Fetch : *.*
;; Fetch attribute required for remoting 2.0
;Filter:MyfltrTds
;; End-of-File
[System:Formulas]
MyfltrTds:$IsTDSApplicable="Yes";if $$IsSysName:##Myvariable then yes Else ##Myvariable = $agentname
टिप्पणियाँ
एक टिप्पणी भेजें