Имя: Пароль:
1C
1С v8
Отслеживание порчи записей в независимом регистре сведений
0 megatrend
 
20.03.13
13:55
Есть ли готовое решение для отслеживание порчи (удаления) записей в независимом регистре сведений? Например, штатное расписание в ЗиУП.
1 zak555
 
20.03.13
13:56
ЖР ?
2 MaxisUssr
 
20.03.13
13:56
(0)
В модуле набора записей регистра добавь обработчик события.
3 megatrend
 
20.03.13
13:58
Неквалифицированный (необученный) пользователь может легко испортить данные в регистре сведений, а затем всё свалить на "сбой в программе".

(1)(2) Готовое решение имеется?
4 MaxisUssr
 
20.03.13
14:00
(3)
Не вяжутся слова "готовое решение" и "испортить". Нужно расшифровать, что такое "испортить".
5 NcSteel
 
20.03.13
14:01
(0) Нет объекта нет и нормальных решений.
6 megatrend
 
20.03.13
14:02
(4) В ЗУП есть кнопка "заполнить ШР по факту". Юзер нажимает её - вот и порча.
7 shuhard
 
20.03.13
14:02
(3) бюджет проекта
8 shuhard
 
20.03.13
14:02
(6) поржал
у меня эта кнопка давно залочена
9 megatrend
 
20.03.13
14:10
(7) Какого проекта? Программа давно работает на предприятии, но новые люди, попадая в программу, могут там наворотить делов, а потом сделать "невинные глазки".
10 megatrend
 
20.03.13
14:14
(8) Ты молоток.

А я вот не догадался "залочить" эту кнопку, более того - я до последнего времени и не подозревал, что нажатие одной этой кнопки может натворить таких делов в программе.
11 mistеr
 
20.03.13
14:21
(6) И что у всех есть к ней доступ? В календаре еще можно нажать, да мало ли где. Орг. вопрос, не технический.
12 megatrend
 
20.03.13
14:24
В общем, я набросал свой, более-менее универсальный, кусок кода, которым решается этот вопрос.

Прошу оценить/поругать http://infostart.ru/public/178782/

(11) Согласен. Однако соломки ответственному за работу программы, подстелить не помешает.
13 Лефмихалыч
 
20.03.13
14:25
(3) на тебе готовое решение
// в подписке ПередЗаписью
Если ЭтотОбъект.Отбор.Количество() = 0 Тогда
  Отказ = Истина;
  Если ЭтоОбъект.Количество() = 0 Тогда
      // попытка очистки регистра целиком
  Иначе
      // попытка замещения всех записей регистра новым набором
  КонецЕсли;
КонецЕсли;
Если МодульПрикладногоШаманства.НаложенаПорчаНаНаборЗаписей(ЭтотОбъект) Тогда
  Токаз = истина;
КонецЕсли;
14 Лефмихалыч
 
20.03.13
14:26
блин, только не ЭтоОбъект, а Источник
15 mikecool
 
20.03.13
14:27
(13) Токаз = истина; а чего не Топаз? )))
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.