Tally Chapter 262 TDL for Last Sales & Purchase History By Rajiv Mishra Computer Class

 

Few lines are missing here.

Pls watch the full video to get full coding.

[Collection : ClnSaleInfo]

Type : Vouchers : Stock Item

Child Of : $$BaseOwner:#VchStockItem

Filter : SalesFilter

Fetch : LedgerEntries.PartyLedgerName, LedgerEntries.LedgerName

[System : Formula]

MStk : $StockItemName = $$BaseOwner:#VCHStockItem

SalesFilter : $$IsSales:$VoucherTypeName

PurchaseFilter : $$IsPurchase:$VoucherTypeName

[Collection: Rama]

Use : Vouchers of Ledger

; Child of : #LedgerName

[#Field : Vch batch Rate]

Key : SalesHistory

Key : PurchaseHistory

Tooltip : "Press Alt + F9 for Purchase History & Alt + F8 for Sales History"

[Key : SalesHistory]

Key : 

Action : Display : RptSalesHistory

[Report : RptSalesHistory]

Form : FrmSalesHistory

[Form : FrmSalesHistory]

Part : PrtSalesHistory

Height : if $$InPrintMode then 8.20 else 100% Screen

Width : if $$InPrintMode then 5.70 else 50% Screen

Horizontal Align: Right

Buttons: PrintButton, ExportButton

[Part : PrtSalesHistory]

Line : LnSalesHistoryTitle, LnSalesHistoryHD, LnSalesHistoryData

Repeat : LnSalesHistoryData : ClnSaleInfo

Scroll : Vertical

[Line : LnSalesHistoryTitle]

Field : FldVwStkItem

Fixed : Yes

[Field : FldVwStkItem]

Use : Short Name Field

Set As : "Sales History For : " + #VCHStockItem

Full Width : Yes

Align : Centre

[Line : LnSalesHistoryHD]

Use : LnSalesHistoryData

Local : Field : Default : Type : String

;Local : Field : Default : Align : Centre

Local : Field : FldSalesHistory0 : Set As : "Voucher Type"

Local : Field : FldSalesHistory1 : Set As : "Invoice No"

Local : Field : FldSalesHistoryDt: Set As : "Date"

Local : Field : FldSalesHistoryDt: Align : Center

Local : Field : FldSalesHistory2 : Set As : "Party Name"

Local : Field : FldSalesHistory3 : Set As : "Qty"

Local : Field : FldSalesHistory3 : Align : Center

Local : Field : FldSalesHistory4 : Set As : "Rate"

Local : Field : FldSalesHistory4 : Align : Left

Local : Field : FldSalesHistory5 : Set As : "Discount"

Local : Field : FldSalesHistory6 : Set As : "Amount"

Local : Field : FldSalesHistory6 : Align : Right

Border : Column Titles

Fixed : Yes

[Line : LnSalesHistoryData]

Field : FldSalesHistory1, FldSalesHistoryDt, FldSalesHistory2 ;;FldSalesHistory0,

Right Field : FldSalesHistory3, FldSalesHistory4, FldSalesHistory5, FldSalesHistory6

Local : Field : FldSalesHistory0 : Set As : $VoucherTypeName

Local : Field : FldSalesHistory1 : Set As : $VoucherNumber

Local : Field : FldSalesHistoryDt: Set As : $Date

;;Local : Field : FldSalesHistory2 : Set As : $PartyLedgerName

Local : Field : FldSalesHistory2 : Set As :$$Filter:$PartyLedgerName:LedgerEntries:1:rama

Local : Field : FldSalesHistory3 : Set As : $$FilterValue:$BilledQty:InventoryEntries:1:mStk

Local : Field : FldSalesHistory4 : Set As : $$FilterValue:$Rate:InventoryEntries:1:mStk

Local : Field : FldSalesHistory5 : Set As : $$FilterValue:$discount:InventoryEntries:1:mStk

Local : Field : FldSalesHistory6 : Set As : $$FilterValue:$Amount:InventoryEntries:1:mStk

;Empty If : NOT $$IsSalesOrder:$VoucherTypeName

Explode : PrtSalesHistoryData : $$FilterCount:InventoryEntries:mStk -1 > 0

[Part : PrtSalesHistoryData]

Line : LnSalesHistoryData1

Repeat : LnSalesHistoryData1 : InventoryEntries

[Line : LnSalesHistoryData1]

Field : FldSalesHistory1, FldSalesHistoryDt, FldSalesHistory2

Right Field : FldSalesHistory3, FldSalesHistory4, FldSalesHistory5, FldSalesHistory6

Local : Field : FldSalesHistory0 : Set As : $$Owner:$VoucherTypeName

Local : Field : FldSalesHistory1 : Set As : $$Owner:$VoucherNumber

Local : Field : FldSalesHistoryDt: Set As : $$Owner:$Date

Local : Field : FldSalesHistory2 : Set As : $$Owner:$PartyLedgerName

Local : Field : FldSalesHistory3 : Set As : $BilledQty

Local : Field : FldSalesHistory4 : Set As : $Rate

Local : Field : FldSalesHistory5 : Set As : $Discount

Local : Field : FldSalesHistory6 : Set As : $Amount

Empty if : NOT @@mStk OR $$ItemSerial=0

[Field : FldSalesHistory0]

Use : Short Name Field

Style: HistoryBody

Align: Center

[Field : FldSalesHistory1]

Use : Number Field;Short Name Field

Style: HistoryBody

Align: Center

[Field : FldSalesHistoryDt]

Use : Short Date Field

Style: HistoryBody

[Field : FldSalesHistory2]

Use : Name Field

Style: HistoryBody

Width: Full Width

Indent : 1

[Field : FldSalesHistory3]

Use : Qty Field

Style: HistoryBody

Align : Right

[Field : FldSalesHistory4]

Use : Rate Price Field

Style: HistoryBody

Width: Full Width

Indent : 2

[Field : FldSalesHistory5]

Use : Number Field

Align : Right

Format : "Percentage"

Style: HistoryBody

[Field : FldSalesHistory6]

Use : Amount Field

Style: HistoryBody

[Style: HistoryBody]

Use : Tiny

Bold : Yes

[Collection : ClnPurchaseInfo]

Type : Vouchers : Stock Item

Child Of : $$BaseOwner:#VchStockItem

Filter : PurchaseFilter

Fetch : LedgerEntries.PartyLedgerName, LedgerEntries.LedgerName

[Key : PurchaseHistory]

Key : 

Action : Display : RptPurchaseHistory

[Report : RptPurchaseHistory]

Form : FrmPurchaseHistory

[Form : FrmPurchaseHistory]

Part : PrtPurchaseHistory

Height : if $$InPrintMode then 8.20 else 100% Screen

Width : if $$InPrintMode then 5.70 else 50% Screen

Buttons: PrintButton, ExportButton

Background: @@SV_RELEASEDYELLOW

Horizontal Align: Left

[Part : PrtPurchaseHistory]

Line : LnPurchaseHistoryTitle, LnPurchaseHistoryHD, LnPurchaseHistoryData

Repeat : LnPurchaseHistoryData : ClnPurchaseInfo

Scroll : Vertical

[Line: LnPurchaseHistoryTitle]

Use: LnSalesHistoryTitle

[Line: LnPurchaseHistoryHD]

Use: LnSalesHistoryHD

[Line: LnPurchaseHistoryData]

Use: LnSalesHistoryData