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