Tally Chapter 132 TDL for Item Sales History By Rajiv Mishra Computer Class | Tally TDL Code
[System : Formula]
MStk : $StockItemName = $$BaseOwner:#VCHStockItem
SalesFilt : $$IsSales:$VoucherTypeName
[#Field : VCH StockItem]
Key : mKeyF1
Tooltip : "Press F1 to See Item History"
[Key : mKeyF1]
Key : F1
Action : Display : RptViewHistory
[Report : RptViewHistory]
Form : FrmViewHistory
[Form : FrmViewHistory]
Part : PrtViewHistory
Height : 80 % Screen
Vertical Alignment : Bottom
Background : Grey
[Part : PrtViewHistory]
Line : LnViewHistoryTitle, LnViewHistoryHD, LnViewHistoryData
Repeat : LnViewHistoryData : ClnSaleInfo
Scroll : Vertical
[Line : LnViewHistoryTitle]
Field : FldVwStkItem
Fixed : Yes
[Field : FldVwStkItem]
Use : Long Name Field
Set As : "Previous Sales Details For : " + #VCHStockItem
Align : Centre
[Line : LnViewHistoryHD]
Use : LnViewHistoryData
Local : Field : Default : Type : String
Local : Field : Default : Align : Centre
Local : Field : FldViewHistory0 : Set As : "Voucher Type"
Local : Field : FldViewHistory1 : Set As : "Invoice No"
Local : Field : FldViewHistoryDt: Set As : "Date"
Local : Field : FldViewHistory2 : Set As : "Party Name"
Local : Field : FldViewHistory3 : Set As : "Qty"
Local : Field : FldViewHistory4 : Set As : "Rate"
Local : Field : FldViewHistory5 : Set As : "Discount"
Local : Field : FldViewHistory6 : Set As : "Amount(Rs.)"
Border : Column Titles
Fixed : Yes
[Line : LnViewHistoryData]
Field : FldViewHistory1, FldViewHistoryDt, FldViewHistory2 ;;FldViewHistory0,
Left Field : FldViewHistory3, FldViewHistory4, FldViewHistory5, FldViewHistory6
Local : Field : FldViewHistory0 : Set As : $VoucherTypeName
Local : Field : FldViewHistory1 : Set As : $VoucherNumber
Local : Field : FldViewHistoryDt: Set As : $Date
Local : Field : FldViewHistory2 : Set As : $PartyLedgerName
Local : Field : FldViewHistory3 : Set As : $$FilterValue:$BilledQty:InventoryEntries:1:mStk
Local : Field : FldViewHistory4 : Set As : $$FilterValue:$Rate:InventoryEntries:1:mStk
Local : Field : FldViewHistory5 : Set As : $$FilterValue:$discount:InventoryEntries:1:mStk
Local : Field : FldViewHistory6 : Set As : $$FilterValue:$Amount:InventoryEntries:1:mStk
;; Empty If : NOT $$IsSalesOrder:$VoucherTypeName
Explode : PrtViewHistoryData : $$FilterCount:InventoryEntries:mStk -1 > 0
[Part : PrtViewHistoryData]
Line : LnViewHistoryData1
Repeat : LnViewHistoryData1 : InventoryEntries
[Line : LnViewHistoryData1]
Field : FldViewHistory0, FldViewHistory1, FldViewHistoryDt, FldViewHistory2
Left Field : FldViewHistory3, FldViewHistory4, FldViewHistory5, FldViewHistory6
Local : Field : FldViewHistory0 : Set As : $$Owner:$VoucherTypeName
Local : Field : FldViewHistory1 : Set As : $$Owner:$VoucherNumber
Local : Field : FldViewHistoryDt: Set As : $$Owner:$Date
Local : Field : FldViewHistory2 : Set As : $$Owner:$PartyLedgerName
Local : Field : FldViewHistory3 : Set As : $BilledQty
Local : Field : FldViewHistory4 : Set As : $Rate
Local : Field : FldViewHistory5 : Set As : $Discount
Local : Field : FldViewHistory6 : Set As : $Amount
Empty if : NOT @@mStk OR $$ItemSerial=0
[Field : FldViewHistory0]
Use : Short Name Field
[Field : FldViewHistory1]
Use : Short Name Field
[Field : FldViewHistoryDt]
Use : Short Date Field
[Field : FldViewHistory2]
Use : Name Field
[Field : FldViewHistory3]
Use : Qty Field
[Field : FldViewHistory4]
Use : Rate Field
[Field : FldViewHistory5]
Use : Number Field
Align : Left
Format : "Percentage"
[Field : FldViewHistory6]
Use : Amount Field
;;Code ends here---
टिप्पणियाँ
एक टिप्पणी भेजें