1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50
51. 51
52. 52
53. 53
54. 54
55. 55
56. 56
57. 57
58. 58
59. 59
60. 60
61. 61
62. 62
63. 63
64. 64
65. 65
66. 66
67. 67
68. 68
69. 69
70. 70
71. 71
72. 72
73. 73
74. 74
75. 75
76. 76
77. 77
78. 78
79. 79
80. 80
81. 81
82. 82
83. 83
84. 84
85. 85
86. 86
87. 87
88. 88
89. 89

&НаСервере
Процедура ЗагрузитьПринятыхНаСервере()
	Пользователь = ПользователиИнформационнойБазы.ТекущийПользователь().Имя;
	
	Если Пользователь = "Иванов Иван Юрьевич" ИЛИ Пользователь = "Пупкин Иван Дмитриевич" Тогда
		Если ЭтотОбъект.Программа.Пустая() Тогда
			Сообщить("Выберите программу");
			Возврат;
		КонецЕсли;
		
		Запрос = Новый Запрос;
		Запрос.Текст = 
		"ВЫБРАТЬ
		|	ТекущиеКадровыеДанныеСотрудников.Сотрудник КАК Сотрудник
		|ИЗ
		|	РегистрСведений.ТекущиеКадровыеДанныеСотрудников КАК ТекущиеКадровыеДанныеСотрудников
		|ГДЕ
		|	ТекущиеКадровыеДанныеСотрудников.ДатаПриема <> &ДатаУвольнения
		|	И ТекущиеКадровыеДанныеСотрудников.ДатаПриема МЕЖДУ &Дата1 И &Дата2
		|	И ТекущиеКадровыеДанныеСотрудников.ДатаУвольнения = &ДатаУвольнения";
		
		Запрос.УстановитьПараметр("Дата1", ЭтотОбъект.Дата1);
		Запрос.УстановитьПараметр("Дата2", ЭтотОбъект.Дата2);
		Запрос.УстановитьПараметр("ДатаУвольнения", Дата(1,1,1));
		
		ТЗРезультатов = Запрос.Выполнить().Выгрузить();
		Для Каждого ТекСтрока Из ТЗРезультатов Цикл	
			Запрос = Новый Запрос;
			Запрос.Текст = 
			"ВЫБРАТЬ
			|	ОбучениеПоОхранеТрудаОценкаПерсонала.Сотрудник КАК Сотрудник,
			|	ОбучениеПоОхранеТрудаОценкаПерсонала.Программа КАК Программа,
			|	ОбучениеПоОхранеТрудаОценкаПерсонала.Ответственный КАК Ответственный
			|ИЗ
			|	РегистрСведений.ОбучениеПоОхранеТрудаОценкаПерсонала КАК ОбучениеПоОхранеТрудаОценкаПерсонала
			|ГДЕ
			|	(ОбучениеПоОхранеТрудаОценкаПерсонала.Ответственный.Наименование = &Ответственный ИЛИ ОбучениеПоОхранеТрудаОценкаПерсонала.Ответственный.Наименование = &Ответственный1) 
			|	И ОбучениеПоОхранеТрудаОценкаПерсонала.Программа = &Программа
			|	И ОбучениеПоОхранеТрудаОценкаПерсонала.Сотрудник = &Сотрудник";
			
			Запрос.УстановитьПараметр("Ответственный", "Иванов Иван Юрьевич");
			Запрос.УстановитьПараметр("Ответственный1", "Пупкин Иван Дмитриевич");
			Запрос.УстановитьПараметр("Программа", ЭтотОбъект.Программа);
			Запрос.УстановитьПараметр("Сотрудник", ТекСтрока.Сотрудник);

			Работники = Запрос.Выполнить().Выгрузить();
			Если Работники.Количество()>0 Тогда
				
			Иначе
				МенеджерЗаписи = РегистрыСведений.ОбучениеПоОхранеТрудаОценкаПерсонала.СоздатьМенеджерЗаписи();
				МенеджерЗаписи.Сотрудник = ТекСтрока.Сотрудник;
				//МенеджерЗаписи.Программа = ЭтотОбъект.Программа;
				МенеджерЗаписи.Ответственный = Справочники.Пользователи.НайтиПоНаименованию(Пользователь);
				Попытка
					МенеджерЗаписи.Записать(Ложь);
					Сообщить("Добавлен сотрудник " + ТекСтрока.Сотрудник);
				Исключение
					Сообщить("Сотрудник " + ТекСтрока.Сотрудник + " был ранее добавлен");
				КонецПопытки;		
			КонецЕсли;
			
		КонецЦикла;	
	Иначе	
		Запрос = Новый Запрос;
		Запрос.Текст = 
		"ВЫБРАТЬ
		|	КадроваяИсторияСотрудников.Сотрудник КАК Сотрудник
		|ИЗ
		|	РегистрСведений.КадроваяИсторияСотрудников КАК КадроваяИсторияСотрудников
		|ГДЕ
		|	КадроваяИсторияСотрудников.ВидСобытия = &ВидСобытия
		|	И КадроваяИсторияСотрудников.Период МЕЖДУ &Дата1 И &Дата2
		|	И КадроваяИсторияСотрудников.ВидСобытия = ЗНАЧЕНИЕ(Перечисление.ВидыКадровыхСобытий.Прием)";
		Запрос.УстановитьПараметр("Дата1", НачалоДня(ЭтотОбъект.Дата1));
		Запрос.УстановитьПараметр("Дата2", КонецДня(ЭтотОбъект.Дата2));
		Запрос.УстановитьПараметр("ВидСобытия",Перечисления.ВидыКадровыхСобытий.Прием);
		ТЗРезультатов = Запрос.Выполнить().Выгрузить();
		Для Каждого ТекСтрока Из ТЗРезультатов Цикл	
			МенеджерЗаписи = РегистрыСведений.ОбучениеПоОхранеТрудаОценкаПерсонала.СоздатьМенеджерЗаписи();
			МенеджерЗаписи.Сотрудник = ТекСтрока.Сотрудник;
			МенеджерЗаписи.Программа = ЭтотОбъект.Программа;
			МенеджерЗаписи.Ответственный = Справочники.Пользователи.НайтиПоНаименованию(Пользователь);
			Попытка
				МенеджерЗаписи.Записать(Ложь);
				Сообщить("Добавлен сотрудник " + ТекСтрока.Сотрудник);
			Исключение
				Сообщить("Сотрудник " + ТекСтрока.Сотрудник + " был ранее добавлен");
			КонецПопытки;	
		КонецЦикла;