Подбор физлиц
По теме из базы знаний
- Подбор товаров по характеристикам (свойствам и значениям)
- Подбор электронной почты в форме отправки сообщения
- Поиск сотрудника и поиск физлица в документах ЗУП
- Расчетная ведомость Т-51 из документа Ведомость в банк (ЗУП 3.1)
- Несколько альтернативных универсальных способов подбора ссылок при переносах данных
Ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Процедура КоманднаяПанельСотрудникиОрганизацииДействие9(Кнопка)
СтандартнаяОбработка = Ложь;
ФормаВыбора = Справочники.ФизическиеЛица.ПолучитьФормуВыбора(,ЭтаФорма);
ФормаВыбора.РежимВыбора = Истина;
ФормаВыбора.ПараметрВыборГруппИЭлементов = ИспользованиеГруппИЭлементов.Элементы;
ФормаВыбора.МножественныйВыбор = Истина;
ФормаВыбора.ЗакрыватьПриВыборе = Ложь;
ФормаВыбора.Отбор.Ссылка.ВидСравнения = ВидСравнения.ВСпискеПоИерархии;
ФормаВыбора.Отбор.Ссылка.Использование = истина;
ФормаВыбора.ЭлементыФормы.СправочникСписок.НастройкаОтбора.Ссылка.Доступность = Истина;
ФормаВыбора.Открыть();
КонецПроцедуры
Процедура ОбработкаВыбора(ЗначениеВыбора, Источник)
ОбработкаПодбора(ЭтотОбъект.СотрудникиОрганизации, ЗначениеВыбора);
КонецПроцедуры
Процедура ОбработкаПодбора(ТабличнаяЧасть, ЗначениеВыбора)Экспорт
Модифицированность = Истина;
Для Каждого К Из ЗначениеВыбора цикл
СтандартнаяОбработка = Ложь;
Физлицо = к;
Если СотрудникиОрганизации.НайтиСтроки(Новый Структура("Сотрудник", ФизЛицо)).Количество() = 0 Тогда
СтрокаТабличнойЧасти = СотрудникиОрганизации.Добавить();
СтрокаТабличнойЧасти.Сотрудник = Физлицо;
СтрокаТабличнойЧасти.НомерСправки = мМаксимальныйНомерСправки + 1;
мМаксимальныйНомерСправки = мМаксимальныйНомерСправки + 1;
СправкиПоНДФЛ.ПрочитатьДанныеСотрудника(СтрокаТабличнойЧасти, Дата, НалоговыйПериод);
Если ОснованиеДляПредставленияСправок <> Перечисления.ОснованияДляПредставленияСправок2НДФЛ.ОНевозможностиУдержанияНДФЛ И НомерКорректировки <> 99 Тогда
СправкиПоНДФЛ.ПрочитатьДанныеСправки(СтрокаТабличнойЧасти, ОбработкаОтображенияДоходовИВычетов.СведенияОДоходах, ОбработкаОтображенияДоходовИВычетов.СведенияОВычетах, СуммыНалогов, НалоговыйПериод, Организация, мГоловнаяОрганизация, ОКТМО_КПП, НачалоМесяца(Дата), Истина, Истина);
КонецЕсли;
Если ЭлементыФормы.СотрудникиОрганизации.ТекущаяСтрока = Неопределено Тогда
ЭлементыФормы.СотрудникиОрганизации.ТекущаяСтрока = СотрудникиОрганизации[0]
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Показать