Как увидеть уволенных в таб.части документа?

[Sheriff]

Всем привет! Есть конфа ЗУП 2.0 для Казахстана
В справочнике ФизЛиц у меня есть колонка "Дата увольнения", в самой карточке ФизЛица тоже указана дата увольнения и после проведения документа Увольнение из организации, ФизЛицо в таб.части справочника ФизЛиц автоматически выделяется красным цветом и рядом с ФИО указана дата увольнения (скрин во вложении)
Пытаюсь сделать колонку в документ Разовые начисления, чтоб в табличной части этого документа увидеть дату увольнения, но ничего не получается. Помогите, как вытащить в таб.часть документа, дату увольнения сотрудника?

[alex0402]

Пытаюсь сделать колонку в документ Разовые начисления, чтоб в табличной части этого документа увидеть дату увольнения

Как пытаюсь? Что сделал? Что не получилось?
Данные форме доступны?
Какая платформа?

[Sheriff]

Пытаюсь сделать колонку в документ Разовые начисления, чтоб в табличной части этого документа увидеть дату увольнения

Как пытаюсь? Что сделал? Что не получилось?
Данные форме доступны?
Какая платформа?

Платформа 8.3.9.2170
Добавил колонку "Статус", по аналогии Табельному номеру и прописал в ОбщемМодуле -ПроцедурыУправленияПерсоналом -
УстановитьЗначенияКолонкиСтатусСтрока

Код Выделить Развернуть

Процедура УстановитьЗначенияКолонкиТабельныйНомерСтрока(ТЧДокумента, ОформленияСтрок, ДатаАктуальности, ТабельныеНомера = Неопределено, ГоловнаяОрганизация = Неопределено) Экспорт

Если ТЧДокумента.Колонки.Найти("ТабельныйНомерСтрока") = Неопределено
Или Не ТЧДокумента.Колонки.ТабельныйНомерСтрока.Видимость Тогда
Возврат;
КонецЕсли;

ЕстьПриказ = ТЧДокумента.Колонки.Найти("Приказ") <> Неопределено И ТЧДокумента.Колонки.Приказ.Видимость;

// проверим содержимое соответствия - могла изменилась настройка приказа
Если ТипЗнч(ТабельныеНомера) = Тип("Соответствие") Тогда
Для Каждого КлючЗначение Из ТабельныеНомера Цикл
Если ТипЗнч(КлючЗначение.Значение) = Тип("Строка") Тогда
// в соответствии хранится информация без Приказов
Если ЕстьПриказ Тогда
// нужен приказ - перезаполним
ТабельныеНомера = Неопределено;
КонецЕсли;
Иначе
// хранится Приказ
Если НЕ ЕстьПриказ Тогда
// приказ не нужен - перезаполним
ТабельныеНомера = Неопределено;
КонецЕсли;
КонецЕсли;

Прервать; // анализируем только один элемент, т.к. все остальные имеют такую же структуру
КонецЦикла;
КонецЕсли;

МассивФизЛиц = Новый Массив;
Если ТипЗнч(ТабельныеНомера) <> Тип("Соответствие") Тогда
Для Каждого СтрокаТабличнойЧасти Из ОформленияСтрок Цикл
Если СтрокаТабличнойЧасти.ДанныеСтроки <> Неопределено Тогда
МассивФизЛиц.Добавить(СтрокаТабличнойЧасти.ДанныеСтроки.ФизЛицо);
КонецЕсли;
КонецЦикла;
Иначе
Для Каждого СтрокаТабличнойЧасти Из ОформленияСтрок Цикл
Если СтрокаТабличнойЧасти.ДанныеСтроки <> Неопределено Тогда
ФизЛицо = СтрокаТабличнойЧасти.ДанныеСтроки.ФизЛицо;
Если ТабельныеНомера[ФизЛицо] = Неопределено Тогда // добавляем только тех, кого еще нет в соответствии
МассивФизЛиц.Добавить(ФизЛицо);
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЕсли;

Если МассивФизЛиц.Количество() > 0 Тогда

Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ДатаАктуальности", ДатаАктуальности);
Запрос.УстановитьПараметр("парамМассивФизЛиц", МассивФизЛиц);
Запрос.УстановитьПараметр("ГоловнаяОрганизация", ГоловнаяОрганизация);

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

Запрос.Текст = ТекстЗапроса;

Выборка = Запрос.Выполнить().Выбрать();

КонецЕсли;

Если ТипЗнч(ТабельныеНомера) <> Тип("Соответствие") Тогда
ТабельныеНомера = Новый Соответствие;
КонецЕсли;

Если Не ЕстьПриказ Тогда

Если МассивФизЛиц.Количество() > 0 Тогда

Пока Выборка.Следующий() Цикл
ТабельныеНомера[Выборка.ФизЛицо] = Выборка.ТабельныйНомер;
КонецЦикла;

КонецЕсли;

Для Каждого СтрокаТабличнойЧасти Из ОформленияСтрок Цикл
ТабНомер = ТабельныеНомера.Получить(СтрокаТабличнойЧасти.Ячейки.ФизЛицо.Значение);
Если ТабНомер <> Неопределено Тогда
СтрокаТабличнойЧасти.Ячейки.ТабельныйНомерСтрока.УстановитьТекст(ТабНомер);
КонецЕсли;
КонецЦикла;

Иначе

Если МассивФизЛиц.Количество() > 0 Тогда

Пока Выборка.Следующий() Цикл
Приказы = ТабельныеНомера[Выборка.ФизЛицо];
Если Приказы = Неопределено Тогда
Приказы = Новый Соответствие;
ТабельныеНомера[Выборка.ФизЛицо] = Приказы;
КонецЕсли;
Приказы[Выборка.Приказ] = Выборка.ТабельныйНомер;
КонецЦикла;

КонецЕсли;

Для Каждого СтрокаТабличнойЧасти Из ОформленияСтрок Цикл
Ячейки = СтрокаТабличнойЧасти.Ячейки;
Приказы = ТабельныеНомера[Ячейки.ФизЛицо.Значение];
Если Приказы <> Неопределено Тогда
ТабНомер = Приказы.Получить(Ячейки.Приказ.Значение);
Если ТабНомер <> Неопределено Тогда
Ячейки.ТабельныйНомерСтрока.УстановитьТекст(ТабНомер);
КонецЕсли;
КонецЕсли;
КонецЦикла;

КонецЕсли;

КонецПроцедуры // УстановитьЗначенияКолонкиТабельныйНомерСтрока()
Только вместо "ТабельныйНомер", указал "Статус"

[alex0402]

Ячейки.ТабельныйНомерСтрока.УстановитьТекст(ТабНомер)

Код Выделить Развернуть

Ячейки.СтатусСтрока.УстановитьТекст(Статус)

[Sheriff]

Ячейки.ТабельныйНомерСтрока.УстановитьТекст(ТабНомер)

Код Выделить Развернуть

Ячейки.СтатусСтрока.УстановитьТекст(Статус)

Код Выделить Развернуть

Если ТЧДокумента.Колонки.Найти("СтатусСтрока") = Неопределено
Или Не ТЧДокумента.Колонки.СтатусСтрока.Видимость Тогда
Возврат;
КонецЕсли;

ЕстьПриказ = ТЧДокумента.Колонки.Найти("Приказ") <> Неопределено И ТЧДокумента.Колонки.Приказ.Видимость;

// проверим содержимое соответствия - могла изменилась настройка приказа
Если ТипЗнч(Статус) = Тип("Соответствие") Тогда
Для Каждого КлючЗначение Из Статус Цикл
Если ТипЗнч(КлючЗначение.Значение) = Тип("Строка") Тогда
// в соответствии хранится информация без Приказов
Если ЕстьПриказ Тогда
// нужен приказ - перезаполним
Статус = Неопределено;
КонецЕсли;
Иначе
// хранится Приказ
Если НЕ ЕстьПриказ Тогда
// приказ не нужен - перезаполним
Статус = Неопределено;
КонецЕсли;
КонецЕсли;

Прервать; // анализируем только один элемент, т.к. все остальные имеют такую же структуру
КонецЦикла;
КонецЕсли;

МассивФизЛиц = Новый Массив;
Если ТипЗнч(Статус) <> Тип("Соответствие") Тогда
Для Каждого СтрокаТабличнойЧасти Из ОформленияСтрок Цикл
Если СтрокаТабличнойЧасти.ДанныеСтроки <> Неопределено Тогда
МассивФизЛиц.Добавить(СтрокаТабличнойЧасти.ДанныеСтроки.ФизЛицо);
КонецЕсли;
КонецЦикла;
Иначе
Для Каждого СтрокаТабличнойЧасти Из ОформленияСтрок Цикл
Если СтрокаТабличнойЧасти.ДанныеСтроки <> Неопределено Тогда
ФизЛицо = СтрокаТабличнойЧасти.ДанныеСтроки.ФизЛицо;
Если Статус[ФизЛицо] = Неопределено Тогда // добавляем только тех, кого еще нет в соответствии
МассивФизЛиц.Добавить(ФизЛицо);
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЕсли;

Если МассивФизЛиц.Количество() > 0 Тогда

Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ДатаАктуальности", ДатаАктуальности);
Запрос.УстановитьПараметр("парамМассивФизЛиц", МассивФизЛиц);
Запрос.УстановитьПараметр("ГоловнаяОрганизация", ГоловнаяОрганизация);

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

Запрос.Текст = ТекстЗапроса;

Выборка = Запрос.Выполнить().Выбрать();

КонецЕсли;

Если ТипЗнч(Статус) <> Тип("Соответствие") Тогда
Статус = Новый Соответствие;
КонецЕсли;

Если Не ЕстьПриказ Тогда

Если МассивФизЛиц.Количество() > 0 Тогда

Пока Выборка.Следующий() Цикл
Статус[Выборка.ФизЛицо] = Выборка.Статус;
КонецЦикла;

КонецЕсли;

Для Каждого СтрокаТабличнойЧасти Из ОформленияСтрок Цикл
Статус = Статус.Получить(СтрокаТабличнойЧасти.Ячейки.ФизЛицо.Значение);
Если Статус <> Неопределено Тогда
СтрокаТабличнойЧасти.Ячейки.СтатусСтрока.УстановитьТекст(Статус);
КонецЕсли;
КонецЦикла;

Иначе

Если МассивФизЛиц.Количество() > 0 Тогда

Пока Выборка.Следующий() Цикл
Приказы = Статус[Выборка.ФизЛицо];
Если Приказы = Неопределено Тогда
Приказы = Новый Соответствие;
Статус[Выборка.ФизЛицо] = Приказы;
КонецЕсли;
Приказы[Выборка.Приказ] = Выборка.Статус;
КонецЦикла;

КонецЕсли;

Для Каждого СтрокаТабличнойЧасти Из ОформленияСтрок Цикл
Ячейки = СтрокаТабличнойЧасти.Ячейки;
Приказы = Статус[Ячейки.ФизЛицо.Значение];
Если Приказы <> Неопределено Тогда
Статус = Приказы.Получить(Ячейки.Приказ.Значение);
Если Статус <> Неопределено Тогда
Ячейки.СтатусСтрока.УстановитьТекст(Статус);
КонецЕсли;
КонецЕсли;
КонецЦикла;

КонецЕсли;

Пустое поле, ничего не заполняет

[alex0402]

Статус = Приказы.Получить(Ячейки.Приказ.Значение);

а если в отладчике посмотреть? Здесь статус есть?

[Sheriff]

Статус = Приказы.Получить(Ячейки.Приказ.Значение);

а если в отладчике посмотреть? Здесь статус есть?

Неопределено пишет

[alex0402]

Неопределено пишет

нужно по тексту выше смотреть, почему не заполняется соответствие приказы...