Здравствуйте Друзья, Прошу мне в этом помочь, уже с ума схожу )) У меня есть документ Начисление Зарплаты. Внутри ТЧ всего 2 колонки "Сотрудник" и "Начисление"
Есть РегистрСведений "Зарплата" - Теперь когда в самом документе я указываю по однаму выбераю сотрудника в поле "начисление" берет информацию из регистра сведений и колонка начисление автоматом получает сумму. Я подумал и создал кнопку при помощи которого он заполнит вес ТЧ одним кликам.. Но увы не получилос. Вроде бы все отлично работает нажимаю кнопку, спрашивает хочу ли я заполнить ТЧ, нажимаю да и заполнает все сотрудники но то что была колонка "Начисление" там ничего нету.. Я понимаю что нужно дать проводку на Регистр сведений что бы программа понимала что нужно оттуда взять эту инфо и поместить в эту колонку. но как написать код, нимогу найти (( Прошу мне в этом помочь.. вот код
Есть РегистрСведений "Зарплата" - Теперь когда в самом документе я указываю по однаму выбераю сотрудника в поле "начисление" берет информацию из регистра сведений и колонка начисление автоматом получает сумму. Я подумал и создал кнопку при помощи которого он заполнит вес ТЧ одним кликам.. Но увы не получилос. Вроде бы все отлично работает нажимаю кнопку, спрашивает хочу ли я заполнить ТЧ, нажимаю да и заполнает все сотрудники но то что была колонка "Начисление" там ничего нету.. Я понимаю что нужно дать проводку на Регистр сведений что бы программа понимала что нужно оттуда взять эту инфо и поместить в эту колонку. но как написать код, нимогу найти (( Прошу мне в этом помочь.. вот код
&НаКлиенте
Процедура ТабличнаяЧастьСотрудникПриИзменении(Элемент)
ТекДанные = Элементы.ТабличнаяЧасть.ТекущиеДанные;
ТекДанные.Начсленно = РаботаСоСправочниками.Зарплата(Объект.Дата, ТекДанные.Сотрудник);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьНаСервере()
Объект.ТабличнаяЧасть.Очистить();
Заполнить = Справочники.Сотрудники.Выбрать();
Пока Заполнить.Следующий() Цикл
Если Заполнить.ЭтоГруппа Тогда Продолжить;
КонецЕсли;
Если Заполнить.ПринятьНаРаботу = Ложь Тогда Продолжить;
КонецЕсли;
СтрТч = Объект.ТабличнаяЧасть.Добавить();
СтрТч.Сотрудник = Заполнить.Ссылка;
СтрТч.Начсленно = ----- */******************************** Тут что должен написать не знаю.
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура Заполнить(Команда)
Режим = РежимДиалогаВопрос.ДаНет;
Оповещение = Новый ОписаниеОповещения("ПослеЗакрытияВопроса", ЭтотОбъект, Параметры);
ПоказатьВопрос(Оповещение, НСтр("ru = 'Продолжить выполнение операции?'"), Режим, 0);
КонецПроцедуры
&НаКлиенте
Процедура ПослеЗакрытияВопроса(Результат, Параметры) Экспорт
Если Результат = КодВозвратаДиалога.Нет Тогда
Возврат;
ИначеЕсли Результат = КодВозвратаДиалога.Да Тогда
ЗаполнитьНаСервере();
КонецЕсли;
КонецПроцедуры
ПоказатьПо теме из базы знаний
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Общий модуль
Модуль формы
Функция Зарплата (АктуальнаяДата, ЭлементыСотрудник) Экспорт
// Создать вспомогательный объект "Отбор".
Отбор = Новый Структура("Сотрудник", ЭлементыСотрудник);
// Получить актуальные значения ресурсов регистра.
ЗначенияРесурсов = РегистрыСведений.Зарплата.ПолучитьПоследнее(АктуальнаяДата, Отбор);
Возврат ЗначенияРесурсов.Зарплата;
КонецФункции
ПоказатьМодуль формы
&НаКлиенте
Процедура ТабличнаяЧастьСотрудникПриИзменении(Элемент)
ТекДанные = Элементы.ТабличнаяЧасть.ТекущиеДанные;
ТекДанные.Начсленно = РаботаСоСправочниками.Зарплата(Объект.Дата, ТекДанные.Сотрудник);
КонецПроцедуры
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот