Вопрос по Йокселю.

1С v8

24.11.14

✎

15:23

Добрый день. Появилась задача сохранять печатную форму документа в формате jpeg. Почитал форумы, везде советуют решать эту задачу с йокселем. Я зарегистрировал компоненту yoksel.dll, регистрация прошла успешно. Но что делать дальше и как с ним работать - понятия не имею. Подскажите, в каком направлении копать?

1 antoneus

24.11.14

✎

15:25

http://yoksel.net.ru/HomePage

2 Bodrug

24.11.14

✎

15:27

(1) только оттуда

3 antoneus

24.11.14

✎

15:28

И что непонятно? Платформа-то какая?

4 Bodrug

24.11.14

✎

15:30

я не нашел пошаговой инструкции, как его юзать в 1С.
Платформа 8.2

5 Bodrug

24.11.14

✎

15:34

может, кто-то может привести пример кода, как к йокселю обратиться и как с ним работать.

6 antoneus

24.11.14

✎

15:39

Ну, я им пользовался в семерке, в восьмерке, думаю, надо юзать Com сервер, то есть,

Йоксель = Новый COMОбъект("Йоксель")

http://yoksel.net.ru/ComServer/Ob%27ekty/Jjoksel%27

Тебе, как понимаю, нужен ГрафическийКонвертер

http://yoksel.net.ru/ComServer/Ob%27ekty/GraficheskijjKonverter

7 antoneus

24.11.14

✎

15:40

(6) че за ссылка вставилась, вот: http://yoksel.net.ru/ComServer/Ob%27ekty/Jjoksel

8 Bodrug

24.11.14

✎

15:43

(7) Спасибо большое, буду пробовать. =)

9 Guk

24.11.14

✎

15:45

а что, появился йоксель по 8.2? вроде эта компонента только для 7.7...

10 antoneus

24.11.14

✎

15:47

(9) её вроде можно как ком-сервер использовать (я не пробовал)

11 Klesk666

24.11.14

✎

16:06

v8: Сохранить макет в JPG

12 Босечка

24.11.14

✎

16:13

Загрузка из Еxel в 1с8.2 и формирование документов и элементов справочника

           xlLastCell = 11;

    ВыбФайл = Новый Файл(ИмяФайла);
    Если НЕ ВыбФайл.Существует() Тогда
        Сообщить("Файл не существует!");

    КонецЕсли;

    Попытка
        Excel = Новый COMОбъект("Excel.Application");

        Excel.WorkBooks.Open(ИмяФайла);
        Состояние("Обработка файла Microsoft Excel...");
        ExcelЛист = Excel.Sheets(НомерЛистаExcel);
    Исключение
        Сообщить("Ошибка. Возможно неверно указан номер листа книги Excel.");
    КонецПопытки;



    ActiveCell = Excel.ActiveCell.SpecialCells(xlLastCell);
    RowCount = ActiveCell.Row;
    ColumnCount = ActiveCell.Column;



///загрузка

        Версия = Лев(Excel.Version,Найти(Excel.Version,".")-1);
    Если Версия = "8" тогда
        ФайлСтрок   = ExcelЛист.Cells.CurrentRegion.Rows.Count;
        ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 13);
    Иначе
        ФайлСтрок   = ExcelЛист.Cells(1,1).SpecialCells(11).Row;
        ФайлКолонок = ExcelЛист.Cells(1,1).SpecialCells(11).Column;
    Конецесли;
    // Выбираем данные из файла

        Индикатор.Значение = 0;
        Индикатор.МаксимальноеЗначение = ФайлСтрок;

    Для а = 2 по ФайлСтрок Цикл
        //Получим данные из соответсвующих ячеек
        Индикатор.Значение = Индикатор.Значение + 1;
        ЗН =Документы.ЗаказНаряд.СоздатьДокумент();
        маркаТС=СокрЛП(ExcelЛист.Cells(а,2).Value);
        модельКУ=СокрЛП(ExcelЛист.Cells(а,3).Value);