Имя: Пароль:
1C
1С v8
Как удалить штрихкод
0 Повелитель
 
25.06.13
10:19
Вот рабочий код был:
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|    Штрихкоды.Код,
|    Штрихкоды.ТипШтрихкода,
|    Штрихкоды.Штрихкод,
|    Штрихкоды.Владелец,
|    Штрихкоды.ЕдиницаИзмерения,
|    Штрихкоды.ХарактеристикаНоменклатуры,
|    Штрихкоды.СерияНоменклатуры,
|    Штрихкоды.Качество
|ИЗ
|    РегистрСведений.Штрихкоды КАК Штрихкоды
|ГДЕ
|    Штрихкоды.Владелец = &Владелец";
Запрос.УстановитьПараметр("Владелец",Состав.Ссылка);
ТаблицаШтрикодов = Запрос.Выполнить().Выгрузить();

Штрикоды = РегистрыСведений.Штрихкоды;
Для Каждого мСостав Из ТаблицаШтрикодов Цикл
   мОтбор = Новый Структура("Код",мСостав.Код);
   Выборка = Штрикоды.Выбрать(мОтбор);
   Пока Выборка.Следующий() Цикл
       ТекОбъект = Выборка.ПолучитьМенеджерЗаписи();
       ТекОбъект.Удалить();
   КонецЦикла;
КонецЦикла;

Пока в типовой не удалили измерение "Код".
В регистре вот такие измерения:
|    Штрихкоды.ТипШтрихкода,
|    Штрихкоды.Штрихкод,
|    Штрихкоды.Владелец,
|    Штрихкоды.ЕдиницаИзмерения,
|    Штрихкоды.ХарактеристикаНоменклатуры,
|    Штрихкоды.СерияНоменклатуры,
|    Штрихкоды.Качество

Помогите удалить штрихкод.
1 zak555
 
25.06.13
10:20
номер записи
2 Повелитель
 
25.06.13
10:27
(1) шутишь?
3 puasson
 
25.06.13
10:34
да боже мой установи фильтр, прочти запись и запиши ещё с параметром 0. Всё. делов то
4 Повелитель
 
25.06.13
10:50
Штрикоды = РегистрыСведений.Штрихкоды;
   Для Каждого мСостав Из ТаблицаШтрикодов Цикл
       мОтбор = Новый Структура("Владелец",мСостав.Владелец);
       Выборка = Штрикоды.Выбрать(мОтбор);
       Пока Выборка.Следующий() Цикл
           ТекОбъект = Выборка.ПолучитьМенеджерЗаписи();
           ТекОбъект.Удалить();
       КонецЦикла;
   КонецЦикла;

Спасибо, тема закрыта.
5 puasson
 
25.06.13
10:53
но веть можно сделать лучше! мы тебе советуем как лучше! а ты не слушаешь(
6 Повелитель
 
25.06.13
10:54
Извините, много лишнего вот так:

Штрикоды = РегистрыСведений.Штрихкоды;
   мОтбор = Новый Структура("Владелец",Номенклатура);
   Выборка = Штрикоды.Выбрать(мОтбор);
   Пока Выборка.Следующий() Цикл
       ТекОбъект = Выборка.ПолучитьМенеджерЗаписи();
       ТекОбъект.Удалить();
       
   КонецЦикла;