Personal Reminder

How do I use this code in tally, please help I not a developer.

 

got error T0011: invalid system description type'Event'.

 

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.

 

yes , possible barcode print in tally

 

[QUOTE="Murali.R, post: 1
Anyone hv barcode tdl code
Plz gv me

 

Hi,
I have ready file as per your requirement.
Mail me or call me on manidevloper75@gmail.com or 9644011112

 

This tcp is for printing wedding card manufacturing process we done

 

further requirements mail me: rameshwhere@gmail.com

 

Good one....

 

;;==================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.