штрихкоды » Поиск

Результаты по ключевому слову: штрихкоды

Запрос с ответом Категория: Запросы

Как выбрать запросом записи регистра сведений и удалить их?

В регистре сведений штрих кодов появились ошибочные записи, которые надо было быстро удалить... можно конечно и ручками выбирать и жать Delete, но это не наш метод!

Код 1C v 8.3

 Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

|	Штрихкоды.Штрихкод,

|	Штрихкоды.Владелец,

|	Штрихкоды.ТипШтрихкода,

|	Штрихкоды.ЕдиницаИзмерения,

|	Штрихкоды.ХарактеристикаНоменклатуры,

|	Штрихкоды.СерияНоменклатуры,

|	Штрихкоды.Качество

|ИЗ

|	РегистрСведений.Штрихкоды КАК Штрихкоды

|ГДЕ

|	Штрихкоды.СерияНоменклатуры.ПометкаУдаления";



Результат = Запрос.Выполнить();

РезультатТаблица = Результат.Выгрузить();



ТекПозиция = 0;	

Для каждого СтрокаЗапроса из РезультатТаблица Цикл

	

	ОбработкаПрерыванияПользователя();

	ТекПозиция = ТекПозиция + 1;

	Состояние("Выполнено " + Окр(ТекПозиция / РезультатТаблица.Количество() * 100) + "%");



	НаборЗаписей = РегистрыСведений.Штрихкоды.СоздатьНаборЗаписей();

	НаборЗаписей.Отбор.Штрихкод.Установить(СтрокаЗапроса.Штрихкод);

	НаборЗаписей.Отбор.Владелец.Установить(СтрокаЗапроса.Владелец);

	НаборЗаписей.Отбор.ТипШтрихкода.Установить(СтрокаЗапроса.ТипШтрихкода);

	НаборЗаписей.Отбор.ЕдиницаИзмерения.Установить(СтрокаЗапроса.ЕдиницаИзмерения);

	НаборЗаписей.Отбор.ХарактеристикаНоменклатуры.Установить(СтрокаЗапроса.ХарактеристикаНоменклатуры);

	НаборЗаписей.Отбор.СерияНоменклатуры.Установить(СтрокаЗапроса.СерияНоменклатуры);

	// Удаляем записи

	НаборЗаписей.Записать(Истина);   



КонецЦикла;



Предупреждение("Обработка закончена.");

Категория: Регистры сведений

Как изменить запись регистра сведений?

Код 1C v 8.х

 НаборЗаписей = РегистрыСведений.НумерацияДоговоров.СоздатьНаборЗаписей();  			

			НаборЗаписей.Отбор.Период.Установить(НачалоГода(Дата));

			НаборЗаписей.Отбор.Организация.Установить(Организация);

			НаборЗаписей.Прочитать();

			Если НаборЗаписей.Количество() = 0 Тогда

				НовыйНомер = НаборЗаписей.Добавить();

				НовыйНомер.Организация = Организация;

				НовыйНомер.Период = НачалоГода(Дата);

				НовыйНомер.Номер = 2; ном=1;

			ИначеЕсли НаборЗаписей.Количество() = 1 Тогда

				НовыйНомер = НаборЗаписей[0];

				ном = НовыйНомер.Номер;

				НовыйНомер.Номер = ном+1;

			КонецЕсли;

			НаборЗаписей.Записать();

			Номер = Организация.Префикс +  "-" + Ном + "/" + Строка(Прав(Год(ТекущаяДата()),2));

Код 1C v 8.х

 //Установить курс Валюты USD

КурсыВалют = РегистрыСведений.КурсыВалют;

НаборКурсов = КурсыВалют.СоздатьНаборЗаписей();

Доллар = Справочники.Валюты.НайтиПоНаименованию("USD");

НаборКурсов.Отбор.Валюта.Установить(Доллар);

НаборКурсов.Отбор.Период.Установить(НачалоДня(ТекущаяДата()));

НаборКурсов.Прочитать();

Если НаборКурсов.Количество() = 0 Тогда

    НовыйКурс = НаборКурсов.Добавить();

    НовыйКурс.Валюта = Доллар;

    НовыйКурс.Период = ТекущаяДата();

ИначеЕсли НаборКурсов.Количество() = 1 Тогда

    НовыйКурс = НаборКурсов[0];

Иначе

    Предупреждение("Курс валюты задается один раз в день.", 60);

    Возврат;

КонецЕсли;

НовыйКурс.Курс = 31.44;

НовыйКурс.Кратность = 1;

НаборКурсов.Записать();

Код 1C v 8.х

  //В регистр были ошибочно записаны штрихкоды. 

// Нужно по заданным Номенклатуре (Товар) и Характеристике (ХарактеристикаТовара) найти эту запись и заменить там штрихкод.

  Запрос = Новый Запрос;

    Запрос.Текст = 

    "ВЫБРАТЬ

    |    ШтрихкодыНоменклатуры.Штрихкод КАК Штрихкод

    |ИЗ

    |    РегистрСведений.ШтрихкодыНоменклатуры КАК ШтрихкодыНоменклатуры

    |ГДЕ

    |    ШтрихкодыНоменклатуры.Номенклатура = &Номенклатура И

    |    ШтрихкодыНоменклатуры.Характеристика = &Характеристика";

    

    Запрос.УстановитьПараметр("Номенклатура", Товар);

    Запрос.УстановитьПараметр("Характеристика", ХарактеристикаТовара);



    Выборка = Запрос.Выполнить().Выбрать();

        Если НЕ Выборка.Следующий() Тогда

        ТекЗапись = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьМенеджерЗаписи();

        ТекЗапись.Номенклатура = Товар;

        Если ЗначениеЗаполнено(ХарактеристикаТовара) Тогда

             ТекЗапись.Характеристика = ХарактеристикаТовара;

        Иначе    

             ТекЗапись.Характеристика = Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка();

        КонецЕсли;

        ТекЗапись.Штрихкод  = ?(ПустаяСтрока(ШтрихКод),РегистрыСведений.ШтрихкодыНоменклатуры.СформироватьШтрихкодEAN13(), Штрихкод);

        Попытка

            ТекЗапись.Записать();

        Исключение

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

    Иначе

        НайденныйШтрихкод = Выборка.Штрихкод;

         ТекЗапись = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьМенеджерЗаписи();

        ТекЗапись.Штрихкод = НайденныйШтрихкод;

        ТекЗапись.Прочитать();

        

        ТекЗапись.Штрихкод  = Штрихкод;

        Попытка

            ТекЗапись.Записать();

        Исключение

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



    КонецЕсли;

Категория: Регистры сведений

Печать штрихкода

1. Для того чтобы вставить объект для печати штрихкода в табличный документ выполните последовательно следующие действия: Меню Таблица - Рисунки - Вставить объект
Если библиотека 1C Bar Code установлена корректно, в списке выбора внешних объектов появится строка "1С.V8.Печать штрих-кодов" (режим выбора как элемент управления):
2. Разместите рисунок объекта в нужной области печатной формы, установить размер колонки и рисунка так, чтобы ширина одного и другого не мешали выводу на печать
3. Далее необходимо внести изменения в код внешней обработки, которую планируется подключить в качестве внешней печатной формы. Первым делом нужно отредактировать текст запроса, добавив туда информацию из регистра сведений "Штрихкоды". Это позволит использовать два нужных нам измерения - сам штрихкод и тип штрихкода.

Код 1C v 8.х

 Запрос.Текст = "ВЫБРАТЬ

| РеализацияТоваровУслугТовары.НомерСтроки,

| РеализацияТоваровУслугТовары.Номенклатура.Артикул КАК Артикул,

| РеализацияТоваровУслугТовары.Номенклатура,

| РеализацияТоваровУслугТовары.Номенклатура.НаименованиеПолное КАК Товар,

| РеализацияТоваровУслугТовары.Количество,

| РеализацияТоваровУслугТовары.ЕдиницаИзмерения КАК ЕдиницаЦены,

| МестаХраненияНоменклатуры.МестоХранения.Наименование КАК Склад,

| Штрихкоды.Штрихкод,

| Штрихкоды.ТипШтрихкода

|ИЗ

| Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.МестаХраненияНоменклатуры КАК

МестаХраненияНоменклатуры

| ПО РеализацияТоваровУслугТовары.Номенклатура =

МестаХраненияНоменклатуры.Номенклатура

| И РеализацияТоваровУслугТовары.Склад =

МестаХраненияНоменклатуры.Склад

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды

| ПО РеализацияТоваровУслугТовары.Номенклатура = Штрихкоды.Владелец

| И РеализацияТоваровУслугТовары.ЕдиницаИзмерения.ЕдиницаПоКлассификатору =

| Штрихкоды.ЕдиницаИзмерения.ЕдиницаПоКлассификатору

|ГДЕ

| РеализацияТоваровУслугТовары.Ссылка = &СсылкаНаОбъект

|УПОРЯДОЧИТЬ ПО

| Склад УБЫВ";

После внесения изменений в макет и запрос обработки, требуется отредактировать способ заполнения данными областей макета с учетом внесенных изменений. Самое интересное в этом примере кода процедуры - способ передачи данных в объект рисунка печати штрихкода:

Код 1C v 8.х

 // Строки накладной

Выборка = Результат.Выбрать();

Пока Выборка.Следующий() Цикл

ОбластьМакета = Макет.ПолучитьОбласть("Строка");

ОбластьМакета.Параметры.Заполнить(Выборка);



Если Выборка.ТипШтрихкода <> NULL И Выборка.Штрихкод <> NULL Тогда

ОбластьМакета.Рисунки.D1.Объект.ТипКода = Выборка.ТипШтрихкода.Код;

ОбластьМакета.Рисунки.D1.Объект.ТекстКода = Выборка.Штрихкод;

иначе

ОбластьМакета.Рисунки.D1.Объект.ТипКода = 0;

ОбластьМакета.Рисунки.D1.Объект.ТекстКода = "00000000";

КонецЕсли;



ТабДок.Вывести(ОбластьМакета);

КонецЦикла;

Все, больше ничего не надо, сохраняем и формируем

Категория: Штрих-код (barcode)

Простое штрихкодирование документов Категория: Штрих-код (barcode)