В документ вношу картинку в тч, отображается при инструкции
|
&НаКлиенте
Процедура ФОТОПриАктивизацииСтроки(Элемент)
  Если Объект.ФОТО.Количество() > 0 Тогда
      АдресКартинки = Элемент.ТекущиеДанные.АдресКартинки;
|
после записи документа и при его открытии, по этой инструкции ничего не отображается, а начинает отображаться вот по этой
|
&НаКлиенте
Процедура ФОТОПриАктивизацииСтроки(Элемент)
  Если Объект.ФОТО.Количество() > 0 Тогда
     УстановкаКартинки(Элемент.ТекущиеДанные.НомерСтроки-1);
  КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура УстановкаКартинки(НомерСтроки)
   АдресКартинки = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ФОТО.ХранилищеКартинки",НомерСтроки);
КонецПроцедуры
|
как все же сделать что бы и при вводе строк, и при повторном открытии документа все отображалось?

с этой инструкцией, фотографии загружаю, хоть сколько перехожу по ним все отображается в поле картинка как нужно
|
&НаКлиенте
Процедура ФОТОПриАктивизацииСтроки(Элемент)
  Если Объект.ФОТО.Количество() > 0 Тогда
      АдресКартинки = Элемент.ТекущиеДанные.АдресКартинки;
|
стоит записать документ, закрыть, открыть, все уже ничего не отображается по переходе
по строкам, что нужно поправить?

>стоит записать документ, закрыть, открыть, все уже ничего не отображается
как ты этого добился?

разница в инструкциях

АдресКартинки = Элемент.ТекущиеДанные.АдресКартинки;

АдресКартинки = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ФОТО.ХранилищеКартинки",НомерСтроки);

как добиться что бы все ровно работало не пойму (((((

(2) я не храню в справочнике картинки, храню их в табличной части документа

" я не храню в справочнике картинки, храню их в табличной части документа"

не советую

(5) +1 Особенно удобно, если картинки еще где нибудь понадобятся...

(3) Сперва выясни где у тебя проблема - при записи или при открытии.

(4) двести документов с одной картинкой размером в 1 Кбайт потребуют 200 Кбайт?

(8) *с одной и той же картинкой

(5) это понятно, лень было заводить справочник... пока не ясно в чем проблеиа !!!

всего 4 килорубля, и готовая cf у тебя

(10) Отладчик пробовал?

(12) а что там в нем смотреть? вообще сейчас не пойму что как работает (((( надо мозги включать!!!

(13)  миссия невыполнима из за отсутствия предмета включения ...

(7)  где проблема - понятно...

(15)сейчас буду включаться

(13) Есть ли картинки в ТЧ при открытии.

(17) в Тч поля:
Картинка          - строка неограничено
АдресКартинки     - строка неограничено
ХранилищеКартинки - ХранилищеЗначения
ИмяФайла          - строка неограничено

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

&НаСервере
Процедура УстановкаКартинки(НомерСтроки)
   АдресКартинки = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ФОТО.ХранилищеКартинки",НомерСтроки);
КонецПроцедуры
|
запись картинки
|
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
  Для каждого Строка Из ТекущийОбъект.ФОТО Цикл
     Если ЭтоАдресВременногоХранилища(Строка.АдресКартинки) Тогда
        ДвоичныеДанные  = ПолучитьИзВременногоХранилища(Строка.АдресКартинки);
        //Строка.ХранилищеКартинки = Новый ХранилищеЗначения(ДвоичныеДанные, Новый СжатиеДанных(9));
        ТекущийОбъект.Фото[Строка.НомерСтроки-1].ХранилищеКартинки = Новый ХранилищеЗначения(ДвоичныеДанные, Новый СжатиеДанных(9));
     КонецЕсли;
  КонецЦикла;
КонецПроцедуры

(17) все есть при открытии, проблема в корректном отображении и выводе

(18+) На форме изображение - поле картинки, путь к данным адрес картинки

проблема тут
|
&НаКлиенте
Процедура ФОТОПриАктивизацииСтроки(Элемент)
   Если Объект.ФОТО.Количество() > 0 Тогда
       //УстановкаКартинки(Элемент.ТекущиеДанные.НомерСтроки-1);

       АдресКартинки = Элемент.ТекущиеДанные.Картинка;
   КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура УстановкаКартинки(НомерСтроки)
   АдресКартинки = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ФОТО.ХранилищеКартинки",НомерСтроки);
КонецПроцедуры
|
в выводе изображения в поле, но я реально не догоняю как нужно, то так работает, то так....

Хотелось бы уже разобраться и делать как требуется, а не на угад шарить...

(22) расскажи, зачем ты этим занимаешься?

(23) тестовое задание делаю, и не могу разобраться, подстегивает это, хочу закончить и выслать

(24) на работу, значит, устраиваешься. у меня сложилось впечатление, что они руками кандидатов хотят поиметь программный продукт для себя. денег хоть за это обещали?

и не АН Центральное ли это?

и?

(25) про деньги не знаю, они мне не нужны за это, на работу хочу, как то месяцев 5 назад такое приходило ко мне, я не стал делать.... и так их переделал дофига, смысла от них нет от этих тз.

позванила от туда секретутка, пригласила, прищел, выясняется какого то  эникейщика ждут, ну раз я, то программист 1с тоже нужен, тз говорят надо сделать, я говорю, нах тз, не делаю тз, ... ну вот взялся...

(25) вы лучше про Сибирь посмотрите, тз выслали, бился 4 дня, потом прихожу, там 2 бобика, начали грузить какой то хренью, так и до сих пор их вакансия висит, былы это, тоже около 5 месяцев назад

(29) а что Сибирь? я не слежу за рынком труда, особенно в Нске

бред вообще, картинку загружаю появляется, закрываю открываю есть, закрываю открываю ещё раз, нету... че править не понятно вообще (((((

(30) уроды они, чмо

(32) надеюсь, чмо - это не обращение? ;)
(31) я б глянул цф, да не вижу смысла приводить в чувство криво спроектированное решение

плюс к прочему. получение объекта такого документа (например, для изменения реквизита шапки) приведёт в извлечению его всего из БД. а там картинков туева гора

вот процедура, все добавляется в табличную часть, курсор только не перемещается... при перемещении курсора по строкам картинка меняется в поле на форме, при том что процедура ПриАктивизацииСтроки не задана:
|
&НаКлиенте
Процедура Команда1(Команда)
   Перем ВыбранноеИмя,АдресВременногоХранилища;
   НоваяСтрока                        = Объект.Фото.Добавить();
   СтандартнаяОбработка               = Ложь;
   ДиалогОткрытияФайла                = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
   ДиалогОткрытияФайла.ПолноеИмяФайла = "";
   ДиалогОткрытияФайла.Заголовок      = "Выберите файл изображения";
   Если ДиалогОткрытияФайла.Выбрать() Тогда
       ИмяФайла             = ДиалогОткрытияФайла.ПолноеИмяФайла;
       //
       НоваяСтрока.ИмяФайла = ИмяФайла;
       НоваяСтрока.Картинка = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ФОТО.ХранилищеКартинки",НоваяСтрока.НомерСтроки-1);
       //
       Если ПоместитьФайл(АдресВременногоХранилища, ИмяФайла, ВыбранноеИмя, Ложь, УникальныйИдентификатор) Тогда
           НоваяСтрока.АдресКартинки = АдресВременногоХранилища;
           АдресКартинки             = АдресВременногоХранилища;
       КонецЕсли;
       Модифицированность = Истина;
   КонецЕсли;
КонецПроцедуры
|
при записи, вот эти процедуры все рушат, с какой стати это может быть:
|
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
  Для каждого Строка Из ТекущийОбъект.ФОТО Цикл
     Если ЭтоАдресВременногоХранилища(Строка.АдресКартинки) Тогда
        ДвоичныеДанные  = ПолучитьИзВременногоХранилища(Строка.АдресКартинки);
        Строка.ХранилищеКартинки = Новый ХранилищеЗначения(ДвоичныеДанные, Новый СжатиеДанных(9));
        //ТекущийОбъект.Фото[Строка.НомерСтроки-1].ХранилищеКартинки = Новый ХранилищеЗначения(ДвоичныеДанные, Новый СжатиеДанных(9));
     КонецЕсли;
  КонецЦикла;
КонецПроцедуры
|
&НаСервере
Процедура ПриЗаписиНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
   Для каждого Строка Из ТекущийОбъект.ФОТО Цикл
       Если ЭтоАдресВременногоХранилища(Строка.АдресКартинки) Тогда
           УдалитьИзВременногоХранилища(Строка.АдресКартинки);
       КонецЕсли;    
   КонецЦикла;    
   АдресКартинки = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ФОТО.ХранилищеКартинки",0);
КонецПроцедуры
|

Если актуально, могу прислать реализованное решение

+(34) а у тебя веб-клиент с тонким каналом связи ;)

(35) Чем закончилось то? )