
Size: a a a
&НаКлиенте
Процедура СгенерироватьШК(Команда)
СгенерироватьШКНаСерв();
КонецПроцедуры
&НаСервереБезКонтекста
Процедура СгенерироватьШКНаСерв()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ХарактеристикиНоменклатуры.Наименование КАК Наименование,
| ХарактеристикиНоменклатуры.Владелец КАК Владелец,
| Штрихкоды.Штрихкод КАК Штрихкод,
| ЕСТЬNULL(Штрихкоды.Владелец, 0) КАК ВладелецШК,
| Штрихкоды.Характеристика КАК Характеристика,
| Штрихкоды.Упаковка КАК Упаковка,
| Штрихкоды.ТипШтрихкода КАК ТипШтрихкода,
| Штрихкоды.ПредставлениеШтрихкода КАК ПредставлениеШтрихкода,
| ХарактеристикиНоменклатуры.Ссылка КАК Ссылка
|ИЗ
| Справочник.ХарактеристикиНоменклатуры КАК ХарактеристикиНоменклатуры
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
| ПО ХарактеристикиНоменклатуры.Ссылка = Штрихкоды.Характеристика
|АВТОУПОРЯДОЧИВАНИЕ";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если ВыборкаДетальныеЗаписи.ВладелецШК = 0 Тогда
НоваяЗапись = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();
НоваяЗапись.Владелец = ВыборкаДетальныеЗаписи.Владелец;
НоваяЗапись.Характеристика = ВыборкаДетальныеЗаписи.Ссылка;
НоваяЗапись.Штрихкод = СформироватьШтрихкодEAN13();
НоваяЗапись.ТипШтрихкода = ПредопределенноеЗначение("ПланВидовХарактеристик.ТипыШтрихкодов.EAN13");
Попытка
НоваяЗапись.Записать();
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
&НаСервереБезКонтекста
Функция СформироватьШтрихкодEAN13()
Возврат ПодключаемоеОборудованиеРТВызовСервера.СформироватьШтрихкод();
КонецФункции
sudo apt update
sudo apt install xrdp
sudo apt install xfce4
sudo apt-get install xfce4-terminal tango-icon-theme
echo xfce4-session > ~/.xsession
sudo service xrdp restart
mstsc
для подключения к серверу Ubuntu. В linux можно использовать remmina
.