Tally Chapter 139 TDL for Stock Item Expiry Report by Rajiv Mishra Computer Class
Few lines of the code is Missing. Watch the full video for complete code.
[#Menu: Gateway of Tally]
Add : Key Item : "Expiry Report ": E : Display : EBXRptMain : $$IsAccountingOn:$$CurrentCompany
[Report: EBXRptMain]
Title : "Stock Item Expiry report "
Print Set : Report Title : "Stock Item Expiry report"
Variable : SVFromDate, SVToDate, IsItemBatchReport
Set : SVFromDate : $$MonthStart:##SVCurrentDate
Set : SVToDate : $$MonthEnd:##SVCurrentDate
Form : EXRptMain
[Form: EXRptMain]
Part : PMainTitle , PExpiryTitle, PExpiryBody
Background : Released Pale Yellow
Buttons : PrintButton, ExportButton, ChangePeriod
Bottom Toolbar Buttons : BottomToolBarBtn1, BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11, BottomToolBarBtn12
Space Top : if $$InPrintMode Then ##SVSpaceTop else 0.05 inches
Space Bottom : if $$InPrintMode Then 0.5 else 0 inches
Space Left : if $$InPrintMode AND $$InPixelMode then 0.5 else 0 inches
Space Right : if $$InPrintMode AND $$InPixelMode then 0.25 else 0 inches
Option : Small Size Form : NOT $$InPrintMode
Width : 100% Screen
Height : 100% Screen
[Part: PMainTitle]
Line : LMainTitle
Invisible : $$InPrintMode
[Line: LMainTitle]
Field : Name Field
Right Field: Simple Field
Local : Field: Name Field : Set as: "Stock Expiry Report"
Local : Field: Simple Field : Set as: $$String:##SVFromDate + " to " + $$String:##SVToDate
Local : Field: Simple Field : Width : 30 % Page
Local : Field: Simple Field : Align : Right
[Part: PExpiryTitle]
Line : LExpiryTitle
Border : Column Titles
[Line: LExpiryTitle]
Field : FSrNo,FSrNo2,FIName
Right Field: FMfdOn,FExpiryDt,FRemainDays, FCloValue,FCloQty
Local : Field : Default : Type : String
Local : Field : Default : Align : Center
Local : Field : Default : Style : Normal Bold
Local : Field : Default : Line : 0
Local : Field : FSrNo2 : Set As : ""
Local : Field : FSrNo : Set As : "Sr.No"
Local : Field : FIName : Set as : "Item Name"
Local : Field : FGrpName : Set as : "Group Name"
Local : Field : FStkCat : Set as : "Category"
Local : Field : FStkUnit : Set as : "Units"
Local : Field : FStkGodown : Set as : "Godown Name"
Local : Field : FMfdOn : Set as : "Mfd. Date"
Local : Field : FExpiryDt : Set as : "Expiry Date"
Local : Field : FCloValue : Set as : "Stock Value"
Local : Field : FRemainDays : Set as : "Remain Days As On " + $$String:#SVToDate
Local : Field : FCloQty : Set as : "Closing Stock"
[Part: PExpiryBody]
Line : LExpiryBody
Repeat : LExpiryBody : CStkItem
Bottom Line: LExpiryTotal
Scroll : Vertical
Common Border : Yes
Total : FCloValue, FCloQty
[Line: LExpiryBody]
Field : FSrNo,FSrNo2, FIName, StockItemName
Right Field: FMfdOn,FExpiryDt,FRemainDays, FCloValue,FCloQty; FStkGodown,
Local : Field : Default : Style : Normal
Local : Field : FCloQty : Set as: $StkClBalance
Local : Field : FStkGodown : Set as : ""
Local : Field : FSrNo2 : Set As : ""
Local : Field : FSrNo2 : Width: 1
Local : Field : StockItemName : Set as: $Name
Local : Field : StockItemName : Invisible: YES
Local : Field : Default : Color : Blue
Border : Thin Top
Explode : PBatchWise : Yes
[Field: FRemainDays1]
Use: FRemainDays
Set as : ""
[Collection: CStkItem]
Type : Stock Item
Filter : IsItemBatchEnabled
[Collection: CExpirySrc]
Type : Batch
Fetch : Name, Parent, ExpiryPeriod, ClosingBalance, GodownName, MfdOn, ClosingAsOnDate
Child of: #FIName
[Collection: CExpiry]
Use : CExpirySrc
Compute : DRemain :($$Date:$Expiryperiod) - ($$Date:#SVToDate)
Compute : GodownName : $GodownName
Sort : @@Default : $DRemain
[Collection: CGodExp]
Type : Batch
Child of : #StockItemName
Fetch : GodownName, BatchName, IsBatchWiseOn, Name, OpeningBalance
Fetch : OpeningValue, StkClBalance, TBalClosing, StkOpBalance, TBalOpening, TBalCredits, StkOutQty, StkInQty, TBalDebits
Fetch : ClosingRate
Filter : BatchIngdwn, IsGodownofBalType
Compute : IsEmptyObject : $$IsEmptyObject
Compute : IsWithItems : Yes
[Part:pBatchWise]
Line : LBatchWise
Repeat : LBatchWise : CExpiry
Scroll : Vertical
[Line: LBatchWise]
Field : FSrNo, FSrNo2 ,FIName
Right Field: FMfdOn,FExpiryDt,FRemainDays, FCloValue,FCloQty; FStkGodown,
Local : Field : FSrNo : Set As : ""
Local : Field : FIName : Indent : 1
Local : Field : FSrNo2 : Set As : $$String:$$Line + " :"
Local : Field : FSrNo2 : Width : 3
Local : Field : FSrNo2 : Style : Normal
Local : Field : Default : Style : Normal Italic
Local : Field : Default : Color : If $$Number:#FRemainDays <= 0 Then @@SV_FIELD1 else @@SV_FIELD10
[Line:LExpiryTotal]
Border : Totals
Field : FSrNo,FSrNo2,FIName
Right Field: FMfdOn,FExpiryDt,FRemainDays, FCloValue,FCloQty; FStkGodown,
Local : Field : Default : Type : String
Local : Field : Default : Align : Center
Local : Field : Default : Line : 0
Local : Field : Default : Style : Normal
Local : Field : FSrNo : Set As : ""
Local : Field : FSrNo2 : Set As : ""
Local : Field : FSrNo : Border: Thin Right
Local : Field : FIName : Set as : ""
Local : Field : FStkGodown : Set as : ""
Local : Field : FMfdOn : Set as : ""
Local : Field : FExpiryDt : Set as : ""
Local : Field : FRemainDays : Set as : ""
Local : Field : FCloValue : Set as : $$Total:FCloValue
Local : Field : FCloQty : Set as : $$Total:FCloQty
[Field: FDif1]
Use : Name Field
Border : Thin Left
Align : Center
Style : Normal
[Field: FDif2]
Use : FDif1
Align : Left
[ Field : FSrNo]
Use : FDif1
Set as : $$Line
Width : 5
[ Field : FSrNo2]
Use : FSrNo
Border : Thin Left
Align : Right
[ Field : FIName]
Use : FDif2
Set as : $Name
Full Width: YES
Delete: Border
[ Field : FBatchName]
Use : FDif2
Set As : $BatchName
Width : 12
[ Field :FMfdOn]
Use : Uni Date Field
Set As : $MfdOn
Align : Center
Border : Thin Left
Width : 8
[ Field : FExpiryDt]
Use : FMfdOn
Set As : $Expiryperiod
टिप्पणियाँ
एक टिप्पणी भेजें