Имя: Пароль:
1C
1С v8
Происходит замещение одними данными над другими
0 Rusf1n
 
10.08.16
11:37
Добрый день. В мобильном приложении нажимаю кнопку "Фото" делаю фотографию, нажимаю кнопку "открыть" - фото нормально открывается. Если нажимаю еще раз кнопку "фото" - то открывается новое фото, и в предыдущей записи "фото" меняется на это новое. Как отключить замещение??

Процедура Фото(Команда)    
Если СредстваМультимедиа.ПоддерживаетсяФотоснимок() тогда
   Результат  = СредстваМультимедиа.СделатьФотоснимок();
   РезультатМультимедиа(Результат);
КонецПроцедуры     

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

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

&НаСервере
Процедура ПоместитьФайлОбъекта(АдресВременногоХранилища)
    ЭлементСправочника = РеквизитФормыВЗначение("Объект");
    ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);
    ЭлементСправочника.ДанныеФайла = Новый ХранилищеЗначения(ДвоичныеДанные, Новый СжатиеДанных());
    Файл = Новый Файл(ЭлементСправочника.ИмяФайла);
    ЭлементСправочника.ИмяФайла = Файл.Имя;
    ЭлементСправочника.Записать();
    Модифицированность = Ложь;
    УдалитьИзВременногоХранилища(АдресВременногоХранилища);
    ЗначениеВРеквизитФормы(ЭлементСправочника, "Объект");
КонецПроцедуры
1 Горогуля
 
10.08.16
11:38
над - это про превосходство, а не про замещение
2 Rusf1n
 
10.08.16
13:02
Есть какие-то предложения?
3 hhhh
 
10.08.16
13:34
(2)     Объект.ИмяФайла = "ТМ" + "." +Результат.РасширениеФайла;

Объект у вас что? И зачем в один и тот же объект пихаете и тот и другой файл?
4 Rusf1n
 
10.08.16
14:06
Если я правильно понял вопрос, то Объект - это справочник, а имяфайла - это его реквизит.
А как сделать,чтобы нормально все записывалось?
5 Rusf1n
 
11.08.16
10:49
Вообще вариантов нет что-ли решения данного вопроса?