[#Menu: Outstandings] Add : Item : Before : @@locQuit : Follow Receivables : Display : Group OutstandingDue Add : Item : Before : @@locQuit : Follow Reminder : Display : ReminderFollowUps Add : Item : Before : @@locQuit : Blank [Report : ReminderFollowUps] Use : GroupOutstandingDue Local : Part : BILLBody : Local : Collection : CompanyGroupReceivables : Add : Filter: IsDateOnmchneDate [System : Formula] IsDateOnmchneDate : $RemderBill = $$MachineDate [Report : GroupOutstandingDue] Use : Bills Receivable Set : ShowFollow : yes Set : ExplodeFlag : Yes Variable: ShowFollow Local : Form : Group Outstanding : Add :Button : RmonderRepeat [Variable : ShowFollow] Type : Logical [System : Variable] ShowFollow : No [#Line: BILL Vouchers] Option : BILLVouchersFollow : ##ShowFollow [!Line : BILLVouchersFollow] $$IsSales:<VoucherTypeName> $$IsJournal:<VoucherTypeName> Delete : Explode Add : Explode : BILLFollowDetails [#Field : BILLVCHDate] Option : BILLVCHDateFollow : ##ShowFollow [!Field : BILLVCHDateFollow] Delete : Alter Add : Alter : AlterOutFollow [Report :AlterOutFollow ] Title : "Outstanding Follow up" Object : Voucher [Form : AlterOutFollow] Part : AlterOutFollowTL,AlterOutFollow Bottom Part : AlterOutFollowOn Background : @@SV_UNYELLOW [Part : AlterOutFollowTL] Line : AlterOutFollowTL Border : ColumnTitles [Line : AlterOutFollowTL] Field : AlterOutFollowDate,AlterOutFollowTime,AlterOutFollow Local : Field : Default : Delete: Storage Local : Field : Default : Type : String Local : Field : Default : SKip : yes Local : Field : AlterOutFollowDate : Set As : "Date" Local : Field : AlterOutFollowTime : Set As : "Time" Local : Field : AlterOutFollow : Set As : "Follow Details" Local : Field : Default : Align : Center Local : Field : Default : Style : Tiny Bold Local : Field : Default : Inactive : No [Part : AlterOutFollow] Line : AlterOutFollow Repeat : AlterOutFollow : FollowStatusAggr Scroll : Vertical Break on : $$IsEmpty:$FollowStatus Local : Field : Default :Color : Aquamarine Common Border : yes Back ground : White Border : thin bottom [Line : AlterOutFollow] Field : AlterOutFollowDate,AlterOutFollowTime,AlterOutFollow Local : Field : Default : Style : Tiny Border : Thin bottom [Field : AlterOutFollowDate] Use : Short Date Field Storage : FollowStatusDate [Field : AlterOutFollowTime] Use : Name Field Storage : AlterOutFollowTime Width : 5 Inactive : $$IsEmpty:$FollowStatusDate Border : Thin Left Right [Field : AlterOutFollow] Use : Name Field Storage : FollowStatus Max : 500 Full width : yes Inactive : $$IsEmpty:$FollowStatusDate [System : UDF] FollowStatusAggr : Aggregate : 23000 FollowStatusDate : Date : 23020 AlterOutFollowTime : String : 23021 FollowStatus : String : 23022 [Part : BILLFollowDetails] Line :BILLFollowDetails,BillNexFollow Repeat : BILLFollowDetails : FollowStatusAggr [Line :BILLFollowDetails] Field : FollowStatusAggrDAte,FollowStatusAggrTime Right Field : FollowAggreemarks Local : Field : Default : Style : Tiny Italic Local : Field : Default : Color : Aquamarine [field :FollowStatusAggrDate] Set As: $FollowStatusDate Width : 10 Space LEft :8 [field :FollowStatusAggrTime] Set As: $AlterOutFollowTime Width : 4 [Field : FollowAggreemarks] Set As : $FollowStatus Full width : yes [Line :BillNexFollow] Field : Simple Field,Medium Prompt,BillNexFollow Local :Field : Medium Prompt : Set As : "Next Follow on" Local : Field : Simple Field : Width :6.3 [Field :BillNexFollow] Use : Short Date Field Set As :$AlterOutFollowOn [Part : AlterOutFollowOn] Line : AlterOutFollowOn [Line : AlterOutFollowOn] Field : Medium Prompt,AlterOutFollowOn Local : Field : Medium Prompt : Set As : "Next Follow on :" [Field : AlterOutFollowOn] Use : Short Date Field Storage :AlterOutFollowOn [System : UDF] AlterOutFollowOn : Date : 24100 [#Object : Bill] RemderBill : $$FilterValue:$AlterOutFollowOn:LedgerEntries:First:IsSameDates [System : Formula] IsSameDates :$$IsSales:$VoucherTypeName ISSameDates :$$IsJournal:$VoucherTypeName ;;---------------- [Collection : CompanyReceivablesFollow] Type : Bills Fetch : RemderBill Format : $RemderBill,20 Filter : IsReceivable Filter: IsDateOnmchneDate [System : Event] RemdetcTimerEvent : TIMER : Yes : CALL : ScheduleRmders SalesFloowups : System Start : Yes : Call :SalesFloowupsOnDate [Function: ScheduleRmders] 010 : If : $$Numitems:CompanyReceivablesFollow != 0 100 : Display : ReminderFollowUps 200 : End if [Function: SalesFloowupsOnDate] Local Formula : ScheduledTime : If $$IsEmpty:##RmonderRepeat Then 360 Else ##RmonderRepeat 00 : START TIMER : RemdetcTimerEvent : @ScheduledTime [Variable : MSTTimes] Type : String [System : Variable] MSTTimes :"" [Button : RmonderRepeat] Title : "Timer Intervel" Key : Alt + R Action : Alter :RmonderRepeat [Report :RmonderRepeat] [Form :RmonderRepeat] PArt :RmonderRepeat [Part :RmonderRepeat] Line :RmonderRepeat [Line :RmonderRepeat] Field : Long Prompt,RmonderRepeat Local : Field : Long Prompt : Set As : "Reminder Intervel (In seconds):" [Field :RmonderRepeat] UsE: NAme Field Modifies:RmonderRepeat [Variable : RmonderRepeat] Type : String Persistent : yes [System : Variable] RmonderRepeat: "" [Part:CKPrt] Line:CKLn Background:"White" Space Bottom:1 Space Top:1 [Line:CKLn] Field:CKFld [Field:CKFld] Use:Name Field Set as:"TDL Developed by KrishnaKishore (© OCEAN 2016)" Full Width:Yes Align:Center Color:"Blue" Read Only:Yes Skip:Yes Style:Normal Italic ;;******************************End of File**********************;;