diff --git a/101_ЦМСЧ_ЗиКГУ.ЗагрузкаДанныхИзExcel/src/DataProcessors/ПС_ЗагрузкаТабеляУчётаРабочегоВремениИзEXCEL/Forms/Форма/Form.form b/101_ЦМСЧ_ЗиКГУ.ЗагрузкаДанныхИзExcel/src/DataProcessors/ПС_ЗагрузкаТабеляУчётаРабочегоВремениИзEXCEL/Forms/Форма/Form.form
index 6754d72..90ff202 100644
--- a/101_ЦМСЧ_ЗиКГУ.ЗагрузкаДанныхИзExcel/src/DataProcessors/ПС_ЗагрузкаТабеляУчётаРабочегоВремениИзEXCEL/Forms/Форма/Form.form
+++ b/101_ЦМСЧ_ЗиКГУ.ЗагрузкаДанныхИзExcel/src/DataProcessors/ПС_ЗагрузкаТабеляУчётаРабочегоВремениИзEXCEL/Forms/Форма/Form.form
@@ -499,6 +499,10 @@
Объект.Подразделение
+
+ OnChange
+ ПодразделениеПриИзменении
+
ПодразделениеРасширеннаяПодсказка
493
@@ -595,7 +599,7 @@
true
InputField
- true
+ false
Enter
true
Left
@@ -608,18 +612,10 @@
true
true
true
-
- Style.SpecialTextColor
-
+
+ Style.ReportHeaderBackColor
+
Normal
-
- Style.NormalTextFont
- true
- false
- false
- false
- 100
-
diff --git a/101_ЦМСЧ_ЗиКГУ.ЗагрузкаДанныхИзExcel/src/DataProcessors/ПС_ЗагрузкаТабеляУчётаРабочегоВремениИзEXCEL/Forms/Форма/Module.bsl b/101_ЦМСЧ_ЗиКГУ.ЗагрузкаДанныхИзExcel/src/DataProcessors/ПС_ЗагрузкаТабеляУчётаРабочегоВремениИзEXCEL/Forms/Форма/Module.bsl
index 1fc7a89..ad634d7 100644
--- a/101_ЦМСЧ_ЗиКГУ.ЗагрузкаДанныхИзExcel/src/DataProcessors/ПС_ЗагрузкаТабеляУчётаРабочегоВремениИзEXCEL/Forms/Форма/Module.bsl
+++ b/101_ЦМСЧ_ЗиКГУ.ЗагрузкаДанныхИзExcel/src/DataProcessors/ПС_ЗагрузкаТабеляУчётаРабочегоВремениИзEXCEL/Forms/Форма/Module.bsl
@@ -143,7 +143,7 @@
Возврат ВидВремениСверхурочныеБезПовышеннойОплатыСГЗ;
ИначеЕсли ТекущаяСтатьяФинансирования = СтатьяФинансированияПД Тогда
Возврат ВидВремениСверхурочныеБезПовышеннойОплатыПД;
- ИначеЕсли Объект.СтатьяФинансирования = СтатьяФинансированияОМС Тогда
+ ИначеЕсли ТекущаяСтатьяФинансирования = СтатьяФинансированияОМС Тогда
Возврат ВидВремениСверхурочныеБезПовышеннойОплатыОМС;
КонецЕсли;
КонецФункции // ВидВремениНаСервереПоБукве()
@@ -3099,8 +3099,10 @@
СвойствоДляНаименованияДолжностиСГЗ = СвойствоСотрудникаНаименованиеДолжностиДляТабеля("СГЗ");
СвойствоДляНаименованияДолжностиПД = СвойствоСотрудникаНаименованиеДолжностиДляТабеля("ПД");
СвойствоДляНаименованияДолжностиОМС = СвойствоСотрудникаНаименованиеДолжностиДляТабеля("ОМС");
-
- ЗначениеВРеквизитФормы(ЭтаОбработка,"Объект");
+
+ ЗначениеВРеквизитФормы(ЭтаОбработка,"Объект");
+
+ ЗаполнитьСписокВыбораПодразделений();
КонецПроцедуры
// <Описание процедуры>
@@ -3308,10 +3310,102 @@
&НаКлиенте
Процедура ОрганизацияПриИзменении(Элемент)
+ ЗаполнитьСписокВыбораПодразделений();
ОбновитьСписокЗагруженныхТабелей();
КонецПроцедуры
+&НаКлиенте
+Процедура ПодразделениеПриИзменении(Элемент)
+ ЗаполнитьСписокВыбораНаименованийПодразделений();
+КонецПроцедуры
+
+
+&НаКлиенте
+Процедура НаименованиеПодразделенияПриИзменении(Элемент)
+ // Редактируемое поле; дополнительной логики не требуется.
+КонецПроцедуры
+
+
+&НаСервере
+Процедура ЗаполнитьСписокВыбораПодразделений()
+ Элементы.Подразделение.СписокВыбора.Очистить();
+ Элементы.НаименованиеПодразделения.СписокВыбора.Очистить();
+
+ Если НЕ ЗначениеЗаполнено(Объект.Организация) Тогда
+ Возврат;
+ КонецЕсли;
+
+ Запрос = Новый Запрос;
+ Запрос.Текст =
+ "ВЫБРАТЬ РАЗЛИЧНЫЕ
+ | ПС_НастройкиЗагрузкиТабелейСрезПоследних.СтруктурноеПодразделение КАК СтруктурноеПодразделение,
+ | ПС_НастройкиЗагрузкиТабелейСрезПоследних.НаименованиеПодразделенияПоТабелю КАК НаименованиеПодразделенияПоТабелю
+ |ИЗ
+ | РегистрСведений.ПС_НастройкиЗагрузкиТабелей.СрезПоследних(, Организация = &Организация) КАК ПС_НастройкиЗагрузкиТабелейСрезПоследних
+ |ГДЕ
+ | ПС_НастройкиЗагрузкиТабелейСрезПоследних.СтруктурноеПодразделение <> &ПустоеПодразделение
+ |УПОРЯДОЧИТЬ ПО
+ | СтруктурноеПодразделение";
+ Запрос.УстановитьПараметр("Организация", Объект.Организация);
+ Запрос.УстановитьПараметр("ПустоеПодразделение", Справочники.ПодразделенияОрганизаций.ПустаяСсылка());
+
+ РезультатЗапроса = Запрос.Выполнить();
+ Если РезультатЗапроса.Пустой() Тогда
+ Возврат;
+ КонецЕсли;
+
+ Выборка = РезультатЗапроса.Выбрать();
+ Пока Выборка.Следующий() Цикл
+ Если ЗначениеЗаполнено(Выборка.СтруктурноеПодразделение) Тогда
+ Элементы.Подразделение.СписокВыбора.Добавить(Выборка.СтруктурноеПодразделение);
+ КонецЕсли;
+ Если ЗначениеЗаполнено(Выборка.НаименованиеПодразделенияПоТабелю) Тогда
+ Элементы.НаименованиеПодразделения.СписокВыбора.Добавить(
+ Выборка.НаименованиеПодразделенияПоТабелю,
+ Выборка.НаименованиеПодразделенияПоТабелю);
+ КонецЕсли;
+ КонецЦикла;
+КонецПроцедуры
+
+
+&НаСервере
+Процедура ЗаполнитьСписокВыбораНаименованийПодразделений()
+ Элементы.НаименованиеПодразделения.СписокВыбора.Очистить();
+
+ Если НЕ ЗначениеЗаполнено(Объект.Организация)
+ ИЛИ НЕ ЗначениеЗаполнено(Объект.Подразделение) Тогда
+ Возврат;
+ КонецЕсли;
+
+ Запрос = Новый Запрос;
+ Запрос.Текст =
+ "ВЫБРАТЬ РАЗЛИЧНЫЕ
+ | ПС_НастройкиЗагрузкиТабелейСрезПоследних.НаименованиеПодразделенияПоТабелю КАК НаименованиеПодразделенияПоТабелю
+ |ИЗ
+ | РегистрСведений.ПС_НастройкиЗагрузкиТабелей.СрезПоследних(, Организация = &Организация
+ | И СтруктурноеПодразделение = &СтруктурноеПодразделение) КАК ПС_НастройкиЗагрузкиТабелейСрезПоследних
+ |ГДЕ
+ | ПС_НастройкиЗагрузкиТабелейСрезПоследних.НаименованиеПодразделенияПоТабелю <> """"
+ |УПОРЯДОЧИТЬ ПО
+ | НаименованиеПодразделенияПоТабелю";
+ Запрос.УстановитьПараметр("Организация", Объект.Организация);
+ Запрос.УстановитьПараметр("СтруктурноеПодразделение", Объект.Подразделение);
+
+ РезультатЗапроса = Запрос.Выполнить();
+ Если РезультатЗапроса.Пустой() Тогда
+ Возврат;
+ КонецЕсли;
+
+ Выборка = РезультатЗапроса.Выбрать();
+ Пока Выборка.Следующий() Цикл
+ Элементы.НаименованиеПодразделения.СписокВыбора.Добавить(
+ Выборка.НаименованиеПодразделенияПоТабелю,
+ Выборка.НаименованиеПодразделенияПоТабелю);
+ КонецЦикла;
+КонецПроцедуры
+
+
&НаКлиенте
Асинх Процедура СписокЗагруженныхТабелейВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
ТекущиеДанные = Элементы.СписокЗагруженныхТабелей.ТекущиеДанные;