New post
Aleksandr is an Avid Reader. No contributions for 2024.
Without a doubt, there will be something to
share on the Community in 2025!
User bio
404 bio not found
Member since Dec 7, 2016
Posts:
show all 1
Replies:
show all 7
Aleksandr Kalinin · Jul 22, 2020

Yes, it's possible. For this you need to create class of the task. I used it to create server-monitoring sheduled task, that send me eamil. For example, i have class, that contains parameters of futured monitoring tasks (like task-name, period, timestart, timefinish, activity, description and so on), and contain method to create task:

Method generateTask(ByRef out)
{
#define crlf $c(13,10)
#define quote $C(34)
s err = ""
try {
s className = ..#taskPath_"."_##this.Name
i ##class(%ClassDefinition).%ExistsId(className){
s ObjClass = ##class(%Dictionary.ClassDefinition).%OpenId(className) ; Если такая задача есть - открываем и чистим
d ObjClass.Parameters.Clear(),ObjClass.Properties.Clear(),ObjClass.Methods.Clear()
}
else {
s ObjClass = ##class(%Dictionary.ClassDefinition).%New(className) ; иначе создаем новую
}
s ObjClass.Super = "%SYS.Task.Definition"   s Param = ##class(%Dictionary.ParameterDefinition).%New(ObjClass.Name_":TaskName") ; Параметр: имя задачи
s Param.Default = ##this.Name
s Param.Description = "Имя задачи"
d ObjClass.Parameters.Insert(Param) s Prop = ##class(%Dictionary.PropertyDefinition).%New(ObjClass.Name_":Active") ; Свойство: активность
s Prop.Type ="%Boolean"
s Prop.Description = "Флаг активности задачи"
s Prop.Required = 1
d ObjClass.Properties.Insert(Prop) s Prop = ##class(%Dictionary.PropertyDefinition).%New(ObjClass.Name_":Email") ; Свойство: Почтовые адреса для рассылки
s Prop.Type = "%String"
s Prop.Description = "Почтовые адреса для рассылки"
d Prop.Parameters.SetAt(200,"MAXLEN")
d ObjClass.Properties.Insert(Prop)
 
  s Prop = ##class(%Dictionary.PropertyDefinition).%New(ObjClass.Name_":MethodName") ; Свойство: Метод для запуска
s Prop.Type = "%String"
s Prop.Description = "Метод Cache из класса для запуска"
d ObjClass.Properties.Insert(Prop) s Prop = ##class(%Dictionary.PropertyDefinition).%New(ObjClass.Name_":ClassName") ; Свойство: Класс Cache с методом для запуска
s Prop.Type = "%String"
s Prop.Description = "Класс Cache с методом для запуска"
d ObjClass.Properties.Insert(Prop) s Prop = ##class(%Dictionary.PropertyDefinition).%New(ObjClass.Name_":Params") ; Свойство: Параметры запускаемого метода
s Prop.Type = "%String"
s Prop.Description = "Параметры запускаемого метода"
d ObjClass.Properties.Insert(Prop) s method = ##class(%Dictionary.MethodDefinition).%New(className_":OnTask") ; Метод. Основной метод задачи
s method.Name = "OnTask"
s method.ReturnType = "%Status"
s code = ##class(%Stream.TmpCharacter).%New()
d code.Rewind()
d code.Write(" #define quote $C(34)"_$$$crlf)
d code.Write(" q:'..Active $$$OK"_$$$crlf)
d code.Write(" s st=$$$OK"_$$$crlf)
d code.Write(" try {"_$$$crlf)
d code.Write(" s err="""""_$$$crlf)
d code.Write(" s msg="""""_$$$crlf)
d code.Write(" ;формирование параметров выполнения метода:_____"_$$$crlf)
d code.Write(" s jstring=""{"""_$$$crlf)
d code.Write(" for i=1:1:$l(..Params,""~"") {"_$$$crlf)
d code.Write(" s buf=$p(..Params,""~"",i)"_$$$crlf)
d code.Write(" i i<$l(..Params,""~""){"_$$$crlf)
d code.Write(" s:buf'="""" jstring=jstring_$$$quote_($p(buf,""="",1))_$$$quote_"":""_$p(buf,""="",2)_"","" "_$$$crlf)
d code.Write(" }else{"_$$$crlf)
d code.Write(" s:buf'="""" jstring=jstring_$$$quote_($p(buf,""="",1))_$$$quote_"":""_$p(buf,""="",2)"_$$$crlf)
d code.Write(" }"_$$$crlf)
d code.Write(" }"_$$$crlf)
d code.Write(" s jstring=jstring_""}"""_$$$crlf)
d code.Write(" s in={}.%FromJSON(jstring)"_$$$crlf)
d code.Write(" s out={""error"":"""",""message"":"""",""subject"":""""}"_$$$crlf)
d code.Write(" d $CLASSMETHOD(..ClassName,..MethodName,.in,.out)"_$$$crlf)
d code.Write(" ;отправка письма:________________________________"_$$$crlf)
d code.Write(" i ..Email'="""" {"_$$$crlf)
d code.Write(" s mailIn={}"_$$$crlf)
d code.Write(" s mailIn.subject= """""_$$$crlf)
d code.Write(" s mailIn.to = ..Email"_$$$crlf)
d code.Write(" s mailIn.message= ""<h3>Статус выполнения задачи по расписанию ""_..#TaskName_"" : ""_$Case(out.error,"""":""Выполнено"",$$$OK:""Выполнено"",:""Выполнено с ошибками"")_"" </h3>"""_$$$crlf)
d code.Write(" s:(out.message'="""") mailIn.message=mailIn.message_""Результат: </br>""_out.message"_$$$crlf)
d code.Write(" s mailIn.message= mailIn.message_""Класс: ""_..ClassName_"", метод: ""_..MethodName_""</br>"""_$$$crlf)
d code.Write(" s:((out.error'="""")&(out.error'=$$$OK)) mailIn.message=mailIn.message_""Ошибка: ""_out.error_""</br>"""_$$$crlf)
d code.Write(" s:(out.subject'="""") mailIn.subject=out.subject"_$$$crlf)
d code.Write(" s:(out.from'="""") mailIn.from=out.from"_$$$crlf)
d code.Write(" s mailIn.isHTML = 1"_$$$crlf)
d code.Write(" s mailIn.attach = """""_$$$crlf)
d code.Write(" d ##class(Lib.Util.Email).Send(.mailIn,.out)"_$$$crlf)
d code.Write(" }"_$$$crlf)
d code.Write(" } // try"_$$$crlf)
d code.Write(" catch {s err=$ze}"_$$$crlf)
d code.Write(" if err'="""" {s st=$$$ERROR($$$GeneralError,err)}"_$$$crlf)
d code.Write(" q st"_$$$crlf)
s method.Implementation=code
d ObjClass.Methods.Insert(method) d ObjClass.%Save() s status = $system.OBJ.Compile(className,"UBR-D",.errlog,1)
s:$System.Status.IsError(status) err=$SYSTEM.Status.GetErrorText(status)
}
catch exp {
s err = ..ErrorDetect(.exp)
}
s out.error = err
q
}
Open Exchange applications:
Certifications & Credly badges:
Aleksandr has no Certifications & Credly badges yet.
Global Masters badges:
show all 4
Followers:
Aleksandr has no followers yet.
Following:
Aleksandr has not followed anybody yet.