Есть сильно доработанная ТиС 9.2, нужно перевести все на УТ 11 - справочники

Добрый вечер! Сделаю с удовольствием. На все вопросы и портфолио : в лс.

Готов обсудить, пишите или звоните

Готов выполнить.
E-mail: zavladaev_alex@mail.ru
Алексей.

&НаКлиенте
Процедура КартинкаНажатие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ДВФ = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДВФ.Показать(Новый ОписаниеОповещения("ОбработкаДВФ",ЭтотОбъект));
КонецПроцедуры

&НаКлиенте
Процедура ОбработкаДВФ(Результат, ДП) Экспорт
Если Не Результат = Неопределено Тогда
Карт = Новый Картинка(Результат[0]);
ЗагрузитьКартинку(Карт);
КонецЕсли
КонецПРоцедуры

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

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

&НаКлиенте
Процедура НаименованиеПриИзменении(Элемент)
ЧФ = СтрРазделить(Объект.Наименование," ");
Объект.Имя = ЧФ[0] + " " + Лев(ЧФ[1],1) + "." + Лев(ЧФ[2], 1) + ".";
КонецПроцедуры





Функция СозданиеКартинки(Наименование, Картинка) Экспорт
ХранЗнач = Новый ХранилищеЗначения(Картинка);
Файлы = Справочники.Файлы.СоздатьЭлемент();
Файлы.Наименование = Наименование;
Файлы.Файл = ХранЗнач;
Файлы.Записать();
Возврат Файлы.Ссылка;
КонецФункции



просто пусть будет здесь

Здравствуйте.
Готов выполнить.

Добрый вечер.

+++

+

+

Skype tochkadimon

Сделаю

+

Готов взяться

Могу выполнить.
Большой опыт - более 25 лет.
Нужны уточнения:
1. Что понимается перенести всё?
2. Переносить в типовую УТ-11 или нужны доработки?

-- пишите в skype live:vladm0146
или телега @vladm0146 (не всегда с собой)
для обсудить условия и задание