Все про картинки в 1С 7.7, ну или почти все...

Итак, с чего начать. Естественно с 1С Предприятие|Документация|Описание встроенного языка 7.7. Глава 35 Работа с картинками. Те, кому разжёвывать не нужно, могут обратиться к встроенной справке  - Картинка. Но это теория. Как говорится, лучше раз увидеть, чем сто раз прочитать.

Начнем с постановки задач.

1. Требуется прикрепить картинки к элементам справочника «Номенклатура», а так же видеть картинку текущего справочника при перемещении по списку номенклатуры.
2. Для первоначального прикрепления картинок к элементам справочника номенклатура, а так же для редактирования  требуется менеджер картинок.
3. Требуется показать картинки в отчете или печатной форме, например в прайсе.
4. Требуется переименовывать картинки при изменении кодов и (или) атрибутов номенклатуры.
5. Требуется выгружать картинки на сайт.

Прежде всего, требуется выбрать способ связи картинки с элементом справочника. Можно ввести дополнительный реквизит справочника типа строка, в котором задавать путь в картинке. Видимо такой подход, надежно связывает элемент с картинкой, но необходимо менять конфигурацию. Поэтому для связи можно использовать определенные договоренности. Например, считать, что файлы картинок находятся в подкаталоге ИБ, например, с именем «Фото», а имя файла картинки определять как код товара, полный код товара, штрих-код, штрих-код с кодом ну и так далее. Для простоты будем в дальнейшем использовать связь через код элемента.

Пункт 1. Здесь ничего сложного. Вот что должно находиться в процедуре ПриОткрытии() для элемента справочника.

Процедура ПриОткрытии()

    ПустаяКартинка=СоздатьОбъект("Картинка");

    КаталогФотографий = КаталогИБ() + "Фото\";

    ФайлФото = КаталогФотографий + СокрЛП(Строка(ТекущийЭлемент().Код))+".*";

    Если ФС.СуществуетФайл(ФайлФото) = 1 Тогда

        Фото.Загрузить(КаталогФотографий+ФС.НайтиПервыйФайл(ФайлФото));

        Фото.РежимРисования(3);

        Форма.Фото.Видимость(1);

    Иначе

        Фото.УстановитьКартинку(ПустаяКартинка);

    КонецЕсли;  

КонецПроцедуры

Аналогичный код д.б. и в форме списка. Конкретная реализация – в прилагаемой базе данных Демобаза.zip.

Пункт 2. Можно использовать приведенную выше обработку //infostart.ru/public/15239/. Кроме того, к статье прикреплены два файла МенеджерКартинок1, представляющий собой переработанную  под прикрепленную базу данных приведенную выше обработку, и МенеджерКартинок2 – другая обработка, служащая тем же целям.

Пункт 3. Тоже ничего сложного. Достаточно создать в таблице колонку, в которой разместить рисунок и в свойствах которого будет указано ВывестиРисунок(Таб.ТекущийОбъект, Путь).

Код процедуры:

Процедура ВывестиРисунок(ОбъектКартинка, Путь)

    Картинка = СоздатьОбъект("Картинка");

    Картинка.Загрузить(Путь);

    ОбъектКартинка.РежимРисования(3);

    ОбъектКартинка.УстановитьКартинку(Картинка);

КонецПроцедуры 

Пример прайса приведен в файле ПрайсЛист.

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

Если ПолучитьИД(сн.ТекущийЭлемент())<>ПолучитьИД(сп.ТекущийЭлемент()) Тогда  

    кс = сн.Код;

    сп.Код = МаксКод;

    Попытка

        сп.Записать();

    Исключение

        Сообщить("Элемент с максимально допустимым кодом существует");Возврат;

    КонецПопытки;

    сн.Код = нк;

    Попытка

        сн.Записать();

    Исключение

        Сообщить("Неудачная попытка записи элемента с кодом "+нк+" "+ОписаниеОшибки());Возврат;

    КонецПопытки;

    сп.Код = кс;

    Попытка

        сп.Записать();

    Исключение

        Сообщить("Неудачная попытка записи элемента с кодом "+кс+" "+ОписаниеОшибки());Возврат;

    КонецПопытки;  

КонецЕсли;

Достаточно вставить следующий код:

СтарыйКод = сн.код;

сн.Код = НовыйКод;

Попытка

    сн.Записать();

    КаталогФотографий = КаталогИБ() + "Фото\";

    ФайлСтарогоФото = КаталогФотографий + СокрЛП(Строка(СтарыйКод))+".jpg";

    ФайлНовогоФото = КаталогФотографий + СокрЛП(сн.код))+".jpg";

    Если ФС.СуществуетФайл(ФайлСтарогоФото) = 1 Тогда

        ФС.ПереименоватьФайл(ФайлСтарогоФото, ФайлНовогоФото,1);

    КонецЕсли;

Исключение

    Сообщить("Неудачная попытка записи элемента с кодом "+кс+" "+ОписаниеОшибки());Возврат;

КонецПопытки;  

Пункт 5. Работа с интернет магазином. Это конечно тема для отдельной статьи, поэтому дам только ссылку на первую из трех статей http://www.ibm.com/developerworks/ru/library/os-1C_OpenCart_01/  . Ссылки на остальные две находятся внутри первой. Здесь подробно рассмотрены все этапы обмена с сайтом, начиная с планирования и заканчивая конкретной реализацией.