Как эмулировать календарь в TOTUM?

[Makhmut2445]

Есть такая идея, чтоб у нас была вкладка Календарь в TOTUM.
Чтоб руководители могли отмечать дни выходные или когда что то намечается, и чтоб её видели все пользователи организации..
И чтоб она была в виде календаря, можно такое сделать?

[ttm-alexeypolunin]

Видео на YouTube

Коды в видео:

month:

= : dateAdd(date: $sel; days: $days; format: "Y-m-d")

~sel: select(table: $#ntn; field: $#nf; order: 'id' desc)

days: dateFormat(date: $sel; format: "t") 

h_month:

= : select(table: 's10_cycles'; field: 'month'; where: 'id' = $#nci)

h_weeks:

= : round(num: $calc; type: "up"; step: 1; dectimal: 0)

	calc: $df + $firstday / 7

		df: dateFormat(date: #h_month; format: "t")
		firstday: dateFormat(date: #h_month; format: "N") - 1

h_insert:

= : listReplace(list: $repeat; action: $val; key: "key")

val: $#key + 1

repeat: listRepeat(item: 1; num: #h_weeks)

h_days:

= : listReplace(list: $days; action: "week" = $week; action: "daynum" = $daynum; action: "day" = $day; value: "value")

	week: round(num: $calc; type: "up"; step: 1; dectimal: 0)
	
		calc: $day + $firstday / 7
	
	daynum: dateFormat(date: $#value[date]; format: "N")
	
	day: dateFormat(date: $#value[date]; format: "j")

days: listReplace(list: $rowlist; action: "date" = $val; key: "key")

val: dateAdd(date: #h_month; days: $#key; format: "Y-m-d")

rowlist: rowListCreate(field: "date" = $repeat)

	repeat: listRepeat(item: 1; num: $num)

		num: dateFormat(date: #h_month; format: "t")
		
~firstday: dateFormat(date: #h_month; format: "N") - 1

insert:

= : #h_insert

mon:

= : $filter[0][day]

filter: listFilter(list: #h_days; key: "daynum" = 1; key: "week" = #insert)