Enhancement with Additional option to specify Number of Days to expiry also given. (not in above photo)
Thanks for your prompt response. Great work ............... I need this tdl. my email address - shabu.daredia@gmail.com
It is available for buying......it is not a freebie. The cost of manhours have to be recovered. Isn't it?
[#Menu: Gateway of Tally] Add : Key Item : Before : @@locQuit : "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 BottomButton : FilterButton, ValueButton 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 [PartBatchWise] 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 [ Field : FCloValue] Use : Amount Field Set As : $ClosingValue Width : 10 Border : Thin Left [ Field :FRemainDays] Use : FDif1 Set as : $$Number:$DRemain Width : 10 [ Field :FCloQty] Use : Qty Primary field Set as : $ClosingBalance Border : Thin Left Right Width : 10
Respected Experts With the help of the Forum i have Written Code for TDL Expiry But Exactly where the Code is missing i Cant Understand Please help me Code: [System : Event] appstart: system start : true : call : Reminder [FUNCTION : Reminder] 01 : DISPLAY : ReminderReport [REPORT : ReminderReport] FORM : ReminderForm TITLE : "Reminder" [FORM : ReminderForm] part : ReminderPart HEIGHT : 20% screen WIDTH : 100% screen Background:Jobimon [PART : ReminderPart] LINE : ReminderLine [LINE : ReminderLine] FIELD : NAME FIELD Local Formula : MExpDays : @@AddODisplayDt - $$Date:$$MachineDate Local Formula : SDBWrnmsg : IF $$IsNegative:@@AddODisplayDt Then "Module "+ $$NewLine +@@AddOName + $$NewLine + "already Expired" Else "Module "+ $$NewLine +@@AddOName + $$NewLine + "will be expire with in"+ $$NewLine + @MExpDays +" Days" LOCAL : FIELD : NAME FIELD : INFO : @SDBWrnmsg LOCAL : FIELD : NAME FIELD : STYLE : r1 LOCAL : FIELD : NAME FIELD : FULL WIDTH : YES local : field : name field : Color : White local : field : name field : align : centre [Color : Jobimon] RGB : 102, 0, 255 [Style:R1] Font: Verdana Height : 16 Bold:Yes [Collection : TDLExpiryMsg] Type : Add on [Collection : AddONCollection] Source Collection : TDLExpiryMsg Fetch : AddonName,AddonDisplayDate [System:Formulae] AddODisplayDt : $$CollectionField:$AddonDisplayDate:Last:TDLExpiryMsg AddOName : $$CollectionField:$AddonName:Last:TDLExpiryMsg