Как добавить в строку справочник

1С v8

24.08.11

✎

11:22

Нужно модернизировать сделанную программку что бы в строке Наименование
можно было вибирать Физических лиц.Помогите сделать.....

Процедура ЗаписатьДанныеФИО()

ФИОСрез = РегистрыСведений.ФИОФизЛиц.ПолучитьПоследнее(,Новый Структура("ФизЛицо",Ссылка));

СтрокаСреза = ФИОСрез.Фамилия + ФИОСрез.Имя + ФИОСрез.Отчество;

Если СтрокаСреза <> (Фамилия + Имя + Отчество) Тогда

МенеджерЗаписи = РегистрыСведений.ФИОФизЛиц.СоздатьМенеджерЗаписи();

МенеджерЗаписи.ФизЛицо = Ссылка;
Если ПустаяСтрока(СтрокаСреза) Тогда
МенеджерЗаписи.Период = '19000101';
Иначе
МенеджерЗаписи.Период = РабочаяДата;
КонецЕсли;

МенеджерЗаписи.Фамилия = Фамилия;
МенеджерЗаписи.Имя = Имя;
МенеджерЗаписи.Отчество = Отчество;

МенеджерЗаписи.Записать(Истина);
КонецЕсли;

КонецПроцедуры

Функция ВыделитьСлово(ИсходнаяСтрока)

Буфер = СокрЛ(ИсходнаяСтрока);
ПозицияПослПробела = Найти(Буфер, " ");

Если ПозицияПослПробела = 0 Тогда
ИсходнаяСтрока = "";
Возврат Буфер;
КонецЕсли;

ВыделенноеСлово = СокрЛП(Лев(Буфер, ПозицияПослПробела));
ИсходнаяСтрока = Сред(ИсходнаяСтрока, ПозицияПослПробела + 1);

Возврат ВыделенноеСлово;

КонецФункции

Процедура НаименованиеПриИзменении(Элемент)
ФИО = Наименование;

Если ПустаяСтрока(Фамилия) ИЛИ ЭтоНовый() Тогда
Фамилия = ВыделитьСлово(ФИО);
Имя = ВыделитьСлово(ФИО);
Отчество = ВыделитьСлово(ФИО);
КонецЕсли;

КонецПроцедуры

1 butterbean

24.08.11

✎

11:25

не твое что-ли?

2 Wobland

24.08.11

✎

11:26

>в строке Наименование можно было вибирать Физических лиц
уже страшно

3 salvator

24.08.11