Конфигурация "Управление торговым предприятием для Украины", редакция 1.2.
День добрый!
! | необходимо зарегистрироваться для просмотра ссылки: 3,4 |
! | необходимо зарегистрироваться для просмотра ссылки: 3,4 |
Процедура Кнопка1Нажатие(Элемент)
ЧислоДо = ЭлементыФормы.ПолеВвода2.Значение;
ЧислоОт =1;
Пока ЧислоОт <=ЧислоДо Цикл
Счётчик = ЧислоОт;
НарисоватьМакет2(); // процедура перерисовки макета
ПечатьЭтикетки(); // процедура печати
ЧислоОт=ЧислоОт+1;
КонецЦикла;
КонецПроцедуры
Процедура НарисоватьМакет2()
Макет = Обработки.ПечатьШтрихкодов.ПолучитьМакет("ПечатьНаклейки");
ОбластьНадпись = Макет.ПолучитьОбласть("Надпись");
ОбластьМодель = Макет.ПолучитьОбласть("Модель");
ОбластьШтрихКод = Макет.ПолучитьОбласть("ШтрихКод");
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ЭлементыФормы.ТабДок.ВерхнийКолонтитул.Выводить = Ложь;
ЭлементыФормы.ТабДок.НижнийКолонтитул.Выводить = Ложь;
ЭлементыФормы.ТабДок.АвтоМасштаб = Истина;
ЭлементыФормы.ТабДок.ПолеСверху = 0;
ЭлементыФормы.ТабДок.ПолеСнизу=0;
ЭлементыФормы.ТабДок.ПолеСлева = 0;
ЭлементыФормы.ТабДок.ПолеСправа = 0;
ЭлементыФормы.ТабДок.РазмерКолонтитулаСверху = 0;
ЭлементыФормы.ТабДок.РазмерКолонтитулаСнизу = 0;
ЭлементыФормы.ТабДок.ИмяПринтера = "TSC TTP-244 Pro_Server";
ЭлементыФормы.ТабДок.Очистить();
ЭлементыФормы.ТабДок.Вывести(ОбластьНадпись);
ОбластьМодель.Параметры.Модель = Строка(ЭтотОбъект.Номенклатура.Наименование);
ЭлементыФормы.ТабДок.Вывести(ОбластьМодель);
РисунокШтрихкод = ОбластьШтрихКод.Рисунки.КодРисунок;
СтрШтрихКод=ШтрихКод+"000";
Если Счётчик <=9 Тогда
СШтрихКод = Лев(СтрШтрихКод,12)+Строка(Счётчик);
ИначеЕсли Счётчик >9 И Счётчик <=99 Тогда
СШтрихКод = Лев(СтрШтрихКод,11)+Строка(Счётчик);
ИначеЕсли Счётчик >99 И Счётчик <=899 Тогда
СШтрихКод = Лев(СтрШтрихКод,10)+Строка(Счётчик);
Иначе
Сообщить("Напечатано 900 этикеток!!!");
КонецЕсли;
ОбластьШтрихКод.Рисунки.КодРисунок.Объект.ТипКода = 4; // тип штрихкода Code-128
ОбластьШтрихКод.Рисунки.КодРисунок.Объект.Сообщение = ?(ПустаяСтрока(""),СШтрихКод,"");
ЭлементыФормы.ТабДок.Вывести(ОбластьШтрихКод);
Если Флаг=Истина Тогда
ОбластьПодвал.Параметры.Флаг = Строка("Ростовка");
Иначе
ОбластьПодвал.Параметры.Флаг = Строка("Вязка");
КонецЕсли;
ЭлементыФормы.ТабДок.Вывести(ОбластьПодвал);
КонецПроцедуры
Процедура ПечатьЭтикетки()
ЭтаФорма.ТекущийЭлемент = ЭлементыФормы.ТабДок;
Shell = Новый COMОбъект("WScript.Shell");
//Shell.SendKeys("%+A+H)");
Shell.SendKeys("^P"); //имитируем нажатие Ctr+Р Предварительный просмотр
//Shell.SendKeys("%фм"); //Параметры страницы
////· "Shift" - +;
////· "Ctrl" - ^;
////· "Alt" - %.
КонецПроцедуры
НарисоватьМакет2();
ПечатьЭтикетки();
Счётчик = Счётчик +1;