Имя: Пароль:
1C
1С v8
COMОбъект("V8.Barcod.1")
,
0 dimogen
 
26.04.12
11:06
Подскажите, почему виснет система и сжирается вся оператива? я создаю штрих код в макете, дальше делаю присоединить(обл) и тут вся система напрочь отказывает. если делаю показать(обл) - то все нормально, но помимо штрих кода мне еще надо вывести другие данные в макет. в чем ошибка? ниже код.

без зависания:

Макет = ПолучитьМакет ("Макет");
Обл = Макет.ПолучитьОбласть("Шир");
Обл = Макет.ПолучитьОбласть("Выр");
Попытка КомпонентШК = Новый COMОбъект("V8.Barcod.1");
Исключение Сообщить("Компонента 1С:Печать штрихкодов не установлена на данном компьютере!", СтатусСообщения.Важное);
Возврат КомпонентШК;
КонецПопытки;
Обл.Рисунки.ШтрихКод.Объект.Сообщение = ТипШтрихкодаEAN13ТО(Штрихкод);
Обл.Показать(Обл);
   
с зависанием, отрывок кода:

Макет = ПолучитьМакет ("Макет");
Обл = Макет.ПолучитьОбласть("Шир");
Обл = Макет.ПолучитьОбласть("Выр");
Попытка КомпонентШК = Новый COMОбъект("V8.Barcod.1");
Исключение Сообщить("Компонента 1С:Печать штрихкодов не установлена на данном компьютере!", СтатусСообщения.Важное);
Возврат КомпонентШК;
КонецПопытки;
Обл.Рисунки.ШтрихКод.Объект.Сообщение = ТипШтрихкодаEAN13ТО(Штрихкод);
Обл.Присоединить(Обл);
Обл = Макет.ПолучитьОбласть("Шапка");
Обл.Присоединить(Обл);
Обл = Макет.ПолучитьОбласть("Разделитель");
Обл.Присоединить(Обл);
1 sash-ml
 
26.04.12
11:08
драйвер принтера переустанови
2 dimogen
 
26.04.12
11:12
а драйвер то тут причем?у меня макет никуда еще не посылается, я его еще доделываю, толку выводить на печать при выводе макета такая проблема
3 dimogen
 
26.04.12
11:54
больше идей нет?
4 dimogen
 
26.04.12
14:51
видимо никто не сталкивался...
5 Rizhij_Nikitos
 
26.04.12
16:31
слова отказывает непонятно.
6 Rizhij_Nikitos
 
26.04.12
16:32
Обл.Рисунки.ШтрихКод.Объект.Сообщение = ТипШтрихкодаEAN13ТО(Штрихкод);
Обл.Присоединить(Обл);

ты сюда выводишь штрих код и у тебя ругается да? тута ошибка зависания или чего-то там?
7 dimogen
 
26.04.12
16:41
да, при присоединени областей происходит зависание. и потом runtime error когда всю оперативу сожрет. если делаю показать то выводит 2 таблицы нормально, а мне надо одну слепить, но не получается
8 Apokalipsec
 
26.04.12
16:49
у тебя штрих-код в какой области?
9 Apokalipsec
 
26.04.12
16:51
или ты пытаешься нарисовать макет?
если ты его рисуешь, то передавай все таки параметры штрих-кода, или он бесконечный?
10 dimogen
 
26.04.12
16:57
(8)у меня штрихкод находится в области шир,выр.
(9)в макет надо вставить штрихкод и еще другие данные, штрихкод в своей области, данные в другой...хочу области соединить и фиг там...все виснет
11 Apokalipsec
 
26.04.12
17:00
(10) открой печать этикеток в ут. посмотри как там реализован вывод шк.
Обл.Рисунки.ШтрихКод.Объект.Сообщение = ТипШтрихкодаEAN13ТО(Штрихкод);
Обл = Макет.ПолучитьОбласть("Шапка");
Обл.Присоединить(Обл);
Обл = Макет.ПолучитьОбласть("Разделитель");
Обл.Присоединить(Обл);
Вот так он выводит штрих-код?
12 Rizhij_Nikitos
 
26.04.12
17:04
А пробывал
Обл.Вывести(Обл);?
13 dimogen
 
26.04.12
17:04
(10) так не выводит, если правильно помню в УТ печается только этикетка, там вроде штрихкод и номенклатура выводится, и макет отличается от моего.
14 Rizhij_Nikitos
 
26.04.12
17:04
Блин в ТабДокумент выводить данные пробывал а не в область?
тип того
ТабДокумент.Вывести(Обл);
15 dimogen
 
26.04.12
17:08
(12) пробовал...такая же фигня. ча попробую табдок
16 dimogen
 
26.04.12
17:13
(14) с табдок не выходит, ни вывести, ни присоединить, пропускает штрихкод, остальные данные появляются
17 dimogen
 
26.04.12
17:14
(14) а не все ок, в конце просто не исправил обл.показать на табдок.показать))) спс))
18 Rizhij_Nikitos
 
26.04.12
17:21
ну и чудно )
19 dimogen
 
26.04.12
17:25
(18) еще раз спасибо))
Закон Брукера: Даже маленькая практика стоит большой теории.