![]() |
|
Как удалить штрихкод | ☑ | ||
---|---|---|---|---|
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
|
Извините, много лишнего вот так:
Штрикоды = РегистрыСведений.Штрихкоды; мОтбор = Новый Структура("Владелец",Номенклатура); Выборка = Штрикоды.Выбрать(мОтбор); Пока Выборка.Следующий() Цикл ТекОбъект = Выборка.ПолучитьМенеджерЗаписи(); ТекОбъект.Удалить(); КонецЦикла; |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |