Sir i need one help from you i am uploading 1 tdl its for additional description multi line for stock sir can you favor the same for account ledger master i am uploading the file for the same
Sir please can u share source code which can i add specific reminder eg specific outstanding followup reminder like that.
Hi, I have ready file as per your requirement. Mail me or call me on manidevloper75@gmail.com or 9644011112
;;==================GOD IS LOVE & WORK IS WORSHIP======================;; ;; TDL Developed by CKS on 28.09.2015 ;; Following Code is to pop up a reminder while company load - CKS [System : Event] ckscmpload: Load Company : true : call : CKSReminder RemindTimes : Timer : True : Call : CKSReminder DisplayReminder : Load Company : True : Start Timer : RemindTimes : 7200 StopReminder : Close Company : True: Stop Timer: RemindTimes [FUNCTION : CKSReminder] 01 : If: $$NumItems:TSKColl > 0 ;01 : Log: ($$NumItems:TSKColl) 02 : Display : CKSTSKReport 03 : Else 04 : Return 05 : End If ;; Following Code is to add a button to Gateway Menu - CKS [#Menu:Gateway of Tally] Add:Button:TaskBtn [Button:TaskBtn] Title:"My Tasks" Key:F7 Action:Alter:MyTaskReport ;;Following Code is to generate a user fed Task Chart - CKS [Report:MyTaskReport] Object:Company Form:MyTaskForm [Form:MyTaskForm] Height:12% Screen Width:20% Screen Vertical Align:Bottom Horizontal Align:Left Background:"White" Part:MyTaskPart No Confirmation:Yes ;On: Form Accept:Yes: Form Accept ;On: Form Accept: Yes: call : CKSReminder [Part:MyTaskPart] Line:MyTaskLine [Line:MyTaskLine] Field:Long Prompt, MyTaskFld Local:Field:Long Prompt:Set as:"Do you want to set your tasks ?" Local:Field:Long Prompt:Color:"Blue" [Field:MyTaskFld] Use:Logical Field Set as: No Sub Form:UserTaskReport:$$Value Storage:MyTask [Report:UserTaskReport] Form:UserTaskForm [Form:UserTaskForm] ;Background:"Azure1" Height:100% Screen Width:100% Screen Parts:UserTaskBody Bottom Part:CKSMark No Confirmation:Yes [Part:UserTaskBody] Line:UserTaskTitLine, UserTaskBodyLine Repeat:UserTaskBodyLine:UserTaskList Break On:$$IsEnd:$UserTasks Scrolled : Vertical Common Border : Yes [Line:UserTaskTitLine] Fields:TaskNoFld, TaskFld, UserNameFld, TaskDTFld, TaskStatus Border:Thick Bottom Space Bottom:2 [Field:TaskNoFld] Use:Name Field Set as:"Task No" Width:7% Screen Style:Large Bold Border:Thin Right ;Color:"Yellow" Read Only:Yes Skip:Yes Align:Center [Field:TaskFld] Use:Name Field Set as:"My Tasks" Width:50% Screen ;Color:"Yellow" Read Only:Yes Skip:Yes Style:Large Bold Border:Thin Right Align:Center [Field:UserNameFld] Use:Name Field Set as:"User Name" Width:23% Screen Style:Large Bold Border:Thin Right ;Color:"Yellow" Read Only:Yes Skip:Yes Align:Center [Field:TaskDtFld] Use:Name Field Set as:"Task Date" Width:20% Screen ;Color:"Yellow" Read Only:Yes Skip:Yes Style:Large Bold Border:Thin Right Align:Center [Field: TaskStatus] Use: Name Field Set as: "Status" Width: 20% screen ;Color:"Yellow" Read Only:Yes Skip:Yes Style:Large Bold Border:Thin Right Align:Center [Line:UserTaskBodyLine] Fields:UserTaskSrNo,UserTaskDes, UserTaskNm, UserTaskDue, UserTaskStatus Empty if: $TaskStatus = "Close" or $TaskDate < $$Machinedate [Field:UserTaskSrNo] Use:Number Field Set as:$$Line ;Color:"Yellow" Read Only:Yes Skip Forward:Yes Width:7% Screen [Field:UserTaskDes] Use:Name Field Set as:$UserTasks ;Color:"Yellow" Width:50% Screen Storage:UserTasks [Field:UserTaskNm] Use:Name Field Set as:$$CmpUserName ;Color:"Yellow" Width:23% Screen Inactive:$$IsEnd:$UserTasks Storage:UserName [Field:UserTaskDue] Use:Uni Date Field Set as:$TaskDate ;Color:"Yellow" Width:20% SCreen Storage:TaskDate Inactive:$$IsEnd:$UserTasks Control:CKSMSG1:$$IsEmpty:#UserTaskDue OR $TaskDate < $MachineDate [Field: UserTaskStatus] Use: Name Field Set as: $TaskStatus Storage: Taskstatus Table: Taskstat ;Color:"Yellow" Width:20% SCreen Inactive:$$IsEnd:$UserTasks [Collection:Taskstat] Title: "Status" List Name: "Open", "Close" [System:UDF] UserTaskList:Aggregate:45000 UserName:String:45001 UserTasks:String:45002 Taskstatus:String:45003 TaskDateate:45003 MyTask:Logical:45004 [System:Formulae] CKSMSG1:"Date Less Then urrent Date" [Color:Azure1] RGB:51, 102, 153 ;; Following Code is to generate Personal Reminder - CKS [Report:CKSTSKReport] Form:CKSTSKForm [Form:CKSTSKForm] Height:40% Screen Width:40% Screen Background:"Yellow" Part:TaskPart Bottom Part:CKSMark [Part:TaskPart] LinesateLine,TSKTit, TSKLn ;, NoTSKLn Repeat:TSKLn:TSKColl Space Top:0.5 [LineateLine] Fieldsatetit,DtFld, TMFld [Fieldatetit] Use:Name Field Set as:"TODAY" Width:33.33% SCreen Align:Centre Color:"Blue" Border:Thin Bottom [FieldtFld] Use:Uni Date Field Set as:$MachineDate Width:33.33% Screen Align:Centre Color:"Blue" Border:Thin Bottom [Field:TMFld] Type:Time Set as:$$MachineTime Width:33.33% Screen Align:Center Color:"Blue" Border:Thin Bottom [Line:TSKTit] Field:TSKTitFld [Field:TSKTitFld] Use:Name Field Set as:"My Personal Tasks for next 5 Days" Full Width:Yes Align:Center Color:"Blue" Border:Thick Bottom Style:Large Bold [Line:TSKLn] Fields: TSKNo, TSKDet, TSKDue Space Top:1 [Field:TSKNo] Use:Number Field Set as:$$Line Width:5% Screen Align:Centre Color:"Red" Background:If ($$Date:$TaskDate = $$Date:$MachineDate) Then "Green" Else "Yellow" Style:If ($$Date:$TaskDate = $$Date:$MachineDate) Then "Large Bold" Else "Normal" [Field:TSKDet] Use:Name Field Set as:$UserTasks Width:75% Screen Color:"Red" Background:If ($$Date:$TaskDate = $$Date:$MachineDate) Then "Green" Else "Yellow" Style:If ($$Date:$TaskDate = $$Date:$MachineDate) Then "Large Bold" Else "Normal" [Field:TSKDue] Use: Short Date Field Set as:$TaskDate Width:20% Screen Color:"Red" Background:If ($$Date:$TaskDate = $$Date:$MachineDate) Then "Green" Else "Yellow" Style:If ($$Date:$TaskDate = $$Date:$MachineDate) Then "Large Bold" Else "Normal" [Line:NoTSKLn] Field:NoTSKFld Invisible:Not $$IsEmpty:#TSKDet Space Top:2 [Field:NoTSKFld] Use:Name Field Set as:"Relax - No personal tasks within next 5 days !!!" Full Width:Yes Style:Large Bold Align:Centre Color:"Red" [Collection:TSKColl] Type:UserTaskList:Company Child Of:##SVCurrentCompany Fetch:UserTasks, TaskDate Filter:TaskDtFilter Filter:TaskFilter Filter:StatusFilter [System:Formulae] TaskFilter:$UserName = $$CmpUserName TaskDtFilter$$Date:$TaskDate > $$Date:$MachineDate) AND + ($$Date:$TaskDate - $$Date:$MachineDate) < 6 OR ($$Date:$TaskDate = $$Date:$MachineDate) StatusFilter:$Taskstatus="Open" [Part:CKSMark] Line:CKSMarkLn [Line:CKSMarkLn] Field:CKSMarkFld [Field:CKSMarkFld] Use:Name Field Set as:"TDL Experts" Full Width:Yes Align:Center Color:"Blue" Style:CKS007 Border:Thin Bottom Read Only:Yes Skip Forward:Yes [Style:CKS007] Font:"Calibri (Body)" Height:8 Italic:Yes ;;========================================================================;; ;;End of File - CKS Good Work Sir.................... Please suggest what changes are needed in this code to implement on Group Company.
Its not working in Group Company. Please suggest what needs to be changed so that it will work in Group company.