Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Подмена картинки при переходе на другую строку документа
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
gorik77
всем добрый день! Подскажите пожалуйста если кто знает! как организовать прорисовку картинки при переходе на другую строку или при возврате на предыдущую. в строке имеется ячейка в которую прописывается имя файла картинки относящейся к этой строке как показано на первой картинке. на второй картинке показан повторный просмотр документа после сохранения, но даже если перейти на строчку где имеется картинка то изображения тоже не показывает.


Картинка №1
необходимо зарегистрироваться для просмотра ссылки

Картинка№2
необходимо зарегистрироваться для просмотра ссылки

К примеру в справочнике ето можно организовать способом приведеным ниже! но в документе необходимо именно привязаться както к файлу который имеется именно в строке на которой стоит курсор.
КаталогФотографий = КаталогИБ() + "\Photo\";
    ФайлФото = КаталогФотографий + СокрЛП(ТМЦ ) + " " + СокрЛП("серт") + "." + "bmp";
    Если ФС.СуществуетФайл(ФайлФото) = 1 Тогда
        Фото.Загрузить(КаталогФотографий+ФС.НайтиПервыйФайл(ФайлФото));
    КонецЕсли;


Смена фото происходит по следуюющей процедуре!
Процедура СменитьФото() 
    //  загружаем или меняем фото елемента
    
    Перем Файл, Каталог, КаталогФотографий, ФайлФото;
    КаталогФотографий = КаталогИБ() + "\Photo\";
    Каталог = КаталогИБ() + "image";
    Если ФС.СуществуетФайл(Каталог) = 0 Тогда
        ФС.СоздатьКаталог(Каталог);
    КонецЕсли;
    Файл = "";
    Если ФС.ВыбратьФайлКартинки(0,Файл,Каталог,"Выберите фотографию") = 1 Тогда
        Если ФС.СуществуетФайл(КаталогФотографий) = 0 Тогда
            ФС.СоздатьКаталог(КаталогФотографий);
        КонецЕсли;
        ФС.УдалитьФайл(КаталогФотографий+ФС.НайтиПервыйФайл(ФайлФото));
        ФайлФото = КаталогФотографий + СокрЛП(ТМЦ) + " " + СокрЛП("серт") + "." + "bmp";
        ФС.КопироватьФайл(Каталог+Файл,ФайлФото,0);
        Фото.Загрузить(ФайлФото);
        Сертификат = СокрЛП(ТМЦ ) + " " + СокрЛП("серт") + "." + "bmp";    
    КонецЕсли;  
    
КонецПроцедуры



Немного коряво объяснил но если что не понятно то дополню!!! 09000000.gif
kalyamov
Если текущая строка не пустая и файл картинки тоже не пустоезначение, то тогда и загружать в картинку нужный файл, если так уж надо динамически менять картинку. Проверку и заливку картинки вставляем в функцию УстДост или что там есть. Если я правильно понял, что не получается.
gorik77
каким выражением дать понять что я перешел на другую строчку ?
mister-x
як варіант - порівняти старе і нове значення ТМЦ між собою
Ardi
На форме текстовый реквизит с функцией "аааа()";


Перем ПредНоменклатура;

Функция аааа()
если Номенклатура<>ПредНоменклатура Тогда
ОбновитьФото();
ПредНоменклатура=Номенклатура;
Конецесли;
Возврат "";
Конецфункции;
gorik77
может подскажете где можно посмотреть реализованное подобное решение, если таковое есть. или похожее приближенно, что то пока не мугу все собрать до кучи.
MATEVI
Цитата(gorik77 @ 18.10.11, 13:16) необходимо зарегистрироваться для просмотра ссылки
может подскажете где можно посмотреть реализованное подобное решение, если таковое есть. или похожее приближенно, что то пока не мугу все собрать до кучи.

Ну так Вам же уже написали выше постом!
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.