Tally Chapter 131 TDL for Debtor Discount History By Rajiv Mishra Computer Class

 Few lines of the code is missing here. Pls watch the full lesson Video.

[System : Formula]

    MStk      : $StockItemName = $$BaseOwner:#VCHStockItem

    SalesFilt : $$IsSales:$VoucherTypeName

[#Field : VCH StockItem]

    Key : mKeyF1

Tooltip : "Press F1 to See Item Discount History"

    

 

[Key : mKeyF1]

    Key : D

    Action : Display : RptViewHistory

[Report : RptViewHistory]

    Form : FrmViewHistory

      

[Form : FrmViewHistory]

Part : PrtViewHistory

Height : 50 % Screen

Background : Yellow

[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 Discount Details For : " + #VCHStockItem

Align      : Centre           

[Line : LnViewHistoryHD]

Use : LnViewHistoryData

Local : Field : Default : Type : String

Local : Field : Default : Align : Centre

Local : Field : FldViewHistoryDt: Set As : "Date"

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

Local : Field : FldViewHistory5 : Set As : "Discount"

Border : Column Titles

Fixed : Yes

[Line : LnViewHistoryData]

Field :   FldViewHistoryDt, FldViewHistory2

Left Field :  FldViewHistory5 

Local : Field : FldViewHistoryDt: Set As : $Date

Local : Field : FldViewHistory2 : Set As : $PartyLedgerName

$Rate:InventoryEntries:1:mStk

Local : Field : FldViewHistory2 : Align : Centre

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

Local : Field : FldViewHistory5 : Align : Centre

;;  Empty If : NOT $$IsSalesOrder:$VoucherTypeName

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

[Part : PrtViewHistoryData]

Line : LnViewHistoryData1

Repeat : LnViewHistoryData1 : InventoryEntries

[Line : LnViewHistoryData1]

Field :  FldViewHistoryDt, FldViewHistory2 

Right Field : FldViewHistory5

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

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

Local : Field : FldViewHistory5 : Set As : $Discount

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

[Field : FldViewHistoryDt]

    Use : Short Date Field    

[Field : FldViewHistory2]

    Use : Name Field

[Field : FldViewHistory5]

    Use : Number Field

    Align : Right

    Format : "Percentage"

;; The code ends here-------