Имя: Пароль:
1C
 
Не могу найти код в УНФ.
0 lanc2233
 
12.05.15
14:55
У кого есть под рукой УНФ, можете подсказать следующий момент?

В номенклатуре, в форме элемента, есть процедура ДобавитьИзображение(Команда)

Она добавляет элемент в справочник подчиненных файлов, и устанавливает реквизиту ФайлКартинки ссылку на этот присоединенный файл.

Вопрос : никак не могу найти строчку, где идет это присваивание.
Тоесть  .ФайлКартинки = Ссылка на новый файл.

Прошел полностью код в отладчике по всем процедурам БСП, поиск присваивания по имени реквизита ничего не дали.

Как-будто ниоткуда берется это значение.
1 serpentt
 
12.05.15
15:21
Такой Процедуры нет...
есть

&НаКлиенте
// Процедура - обработчик события Нажатие поля АдресКартинки.
//
Процедура АдресКартинкиНажатие(Элемент, СтандартнаяОбработка)
    
    СтандартнаяОбработка = Ложь;
    
    Если ЗначениеЗаполнено(Объект.ФайлКартинки) Тогда
        
        ДанныеФайла = РаботаСФайламиСлужебныйВызовСервера.ПолучитьДанныеФайлаДляОткрытия(Объект.ФайлКартинки, Неопределено, УникальныйИдентификатор);
        
        РаботаСФайламиКлиент.Открыть(ДанныеФайла);
        
    Иначе
        
        Если ЗначениеЗаполнено(Объект.Ссылка) Тогда
            
            ОткрытьФорму("Справочник.Файлы.ФормаВыбора", Новый Структура("ВладелецФайла", Объект.Ссылка), Элементы.ФайлКартинки);
            
        Иначе
            
            ТекстСообщения = НСтр("ru = 'Элемент справочника еще не записан.'");
            ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
            
        КонецЕсли;
        
    КонецЕсли;
    
КонецПроцедуры // АдресКартинкиНажатие()
2 serpentt
 
12.05.15
15:23
так-же...

&НаКлиенте
// Процедура - обработчик события ПриИзменении поля ФайлКартинки.
//
Процедура ФайлКартинкиПриИзменении(Элемент)
    
    // Отслеживание изменения картинки и соответствующее обновление
    // реквизита АдресКартинки.
    ФайлКартинки = ПолучитьТекущуюВерсиюКартинки(Объект.ФайлКартинки);
    Если Не ФайлКартинки.Пустая() Тогда
        ТекущаяВерсияКартинки = ПолучитьТекущуюВерсиюКартинки(Объект.ФайлКартинки);
        АдресКартинки = РаботаСФайламиСлужебныйВызовСервера.ПолучитьНавигационнуюСсылкуДляОткрытия(ТекущаяВерсияКартинки);
    Иначе     
        АдресКартинки = "";
    Конецесли;
    
КонецПроцедуры
3 Garykom
 
гуру
12.05.15
15:27
УНФ они такие разные...

ЗЫ моя вот решить назвать нетленку У(правление) Н(енормальной) Ф(ирмой)

ЗЗЫ и версию сразу 10k
4 Garykom
 
гуру
12.05.15
15:28
(3)+ хотя не 40k круче звучит...