From 691edc541c36698057b41480d452d4af18ac5e96 Mon Sep 17 00:00:00 2001 From: tsvetkoff Date: Sat, 15 Aug 2026 17:56:20 +0500 Subject: [PATCH] =?UTF-8?q?=D0=9E=D1=82=D1=80=D0=B5=D0=B4=D0=B0=D0=BA?= =?UTF-8?q?=D1=82=D0=B8=D1=80=D0=BE=D0=B2=D0=B0=D0=BD=D0=BE=20=D0=BF=D0=BE?= =?UTF-8?q?=20=D0=B7=D0=B0=D0=BC=D0=B5=D1=87=D0=B0=D0=BD=D0=B8=D1=8F=D0=BC?= =?UTF-8?q?=201=D0=A1=20=D0=BD=D0=B0=D0=BF=D0=B0=D1=80=D0=BD=D0=B8=D0=BA?= =?UTF-8?q?=D0=B0,=20=D0=B8=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB=D0=B5?= =?UTF-8?q?=D0=BD=D1=8B=20=D0=B1=D0=B0=D0=B3=D0=B8.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../ПС_ЗагрузкаТабеляУчётаРабочегоВремениИзEXCEL/Forms/Форма/Form.form | 20 ++-- .../Forms/Форма/Module.bsl | 100 +++++++++++++++++- 2 files changed, 105 insertions(+), 15 deletions(-) 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 @@ &НаКлиенте Процедура ОрганизацияПриИзменении(Элемент) + ЗаполнитьСписокВыбораПодразделений(); ОбновитьСписокЗагруженныхТабелей(); КонецПроцедуры +&НаКлиенте +Процедура ПодразделениеПриИзменении(Элемент) + ЗаполнитьСписокВыбораНаименованийПодразделений(); +КонецПроцедуры + + +&НаКлиенте +Процедура НаименованиеПодразделенияПриИзменении(Элемент) + // Редактируемое поле; дополнительной логики не требуется. +КонецПроцедуры + + +&НаСервере +Процедура ЗаполнитьСписокВыбораПодразделений() + Элементы.Подразделение.СписокВыбора.Очистить(); + Элементы.НаименованиеПодразделения.СписокВыбора.Очистить(); + + Если НЕ ЗначениеЗаполнено(Объект.Организация) Тогда + Возврат; + КонецЕсли; + + Запрос = Новый Запрос; + Запрос.Текст = + "ВЫБРАТЬ РАЗЛИЧНЫЕ + | ПС_НастройкиЗагрузкиТабелейСрезПоследних.СтруктурноеПодразделение КАК СтруктурноеПодразделение, + | ПС_НастройкиЗагрузкиТабелейСрезПоследних.НаименованиеПодразделенияПоТабелю КАК НаименованиеПодразделенияПоТабелю + |ИЗ + | РегистрСведений.ПС_НастройкиЗагрузкиТабелей.СрезПоследних(, Организация = &Организация) КАК ПС_НастройкиЗагрузкиТабелейСрезПоследних + |ГДЕ + | ПС_НастройкиЗагрузкиТабелейСрезПоследних.СтруктурноеПодразделение <> &ПустоеПодразделение + |УПОРЯДОЧИТЬ ПО + | СтруктурноеПодразделение"; + Запрос.УстановитьПараметр("Организация", Объект.Организация); + Запрос.УстановитьПараметр("ПустоеПодразделение", Справочники.ПодразделенияОрганизаций.ПустаяСсылка()); + + РезультатЗапроса = Запрос.Выполнить(); + Если РезультатЗапроса.Пустой() Тогда + Возврат; + КонецЕсли; + + Выборка = РезультатЗапроса.Выбрать(); + Пока Выборка.Следующий() Цикл + Если ЗначениеЗаполнено(Выборка.СтруктурноеПодразделение) Тогда + Элементы.Подразделение.СписокВыбора.Добавить(Выборка.СтруктурноеПодразделение); + КонецЕсли; + Если ЗначениеЗаполнено(Выборка.НаименованиеПодразделенияПоТабелю) Тогда + Элементы.НаименованиеПодразделения.СписокВыбора.Добавить( + Выборка.НаименованиеПодразделенияПоТабелю, + Выборка.НаименованиеПодразделенияПоТабелю); + КонецЕсли; + КонецЦикла; +КонецПроцедуры + + +&НаСервере +Процедура ЗаполнитьСписокВыбораНаименованийПодразделений() + Элементы.НаименованиеПодразделения.СписокВыбора.Очистить(); + + Если НЕ ЗначениеЗаполнено(Объект.Организация) + ИЛИ НЕ ЗначениеЗаполнено(Объект.Подразделение) Тогда + Возврат; + КонецЕсли; + + Запрос = Новый Запрос; + Запрос.Текст = + "ВЫБРАТЬ РАЗЛИЧНЫЕ + | ПС_НастройкиЗагрузкиТабелейСрезПоследних.НаименованиеПодразделенияПоТабелю КАК НаименованиеПодразделенияПоТабелю + |ИЗ + | РегистрСведений.ПС_НастройкиЗагрузкиТабелей.СрезПоследних(, Организация = &Организация + | И СтруктурноеПодразделение = &СтруктурноеПодразделение) КАК ПС_НастройкиЗагрузкиТабелейСрезПоследних + |ГДЕ + | ПС_НастройкиЗагрузкиТабелейСрезПоследних.НаименованиеПодразделенияПоТабелю <> """" + |УПОРЯДОЧИТЬ ПО + | НаименованиеПодразделенияПоТабелю"; + Запрос.УстановитьПараметр("Организация", Объект.Организация); + Запрос.УстановитьПараметр("СтруктурноеПодразделение", Объект.Подразделение); + + РезультатЗапроса = Запрос.Выполнить(); + Если РезультатЗапроса.Пустой() Тогда + Возврат; + КонецЕсли; + + Выборка = РезультатЗапроса.Выбрать(); + Пока Выборка.Следующий() Цикл + Элементы.НаименованиеПодразделения.СписокВыбора.Добавить( + Выборка.НаименованиеПодразделенияПоТабелю, + Выборка.НаименованиеПодразделенияПоТабелю); + КонецЦикла; +КонецПроцедуры + + &НаКлиенте Асинх Процедура СписокЗагруженныхТабелейВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка) ТекущиеДанные = Элементы.СписокЗагруженныхТабелей.ТекущиеДанные;