Как во внешней обработке по двум одинаковым по наименованию видам номенклатуры, удалить номенклатуру
Процедура ПодготовитьДанныеДляПечатиДополнительно(ДанныеДляПечати)
ДанныеПечати = ДанныеДляПечати.РезультатПоШапке.Выбрать();
ДанныеПечати.Следующий();
ТаблицаВидыНоменклатурыДляПроизводства = ДанныеДляПечати.ВидыНоменклатурыДляПроизводства.Выгрузить();
Товары = ДанныеДляПечати.РезультатПоТабличнойЧасти.Выгрузить();
ВидНоменклатуры_ДП=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Дверное полотно");
ВидНоменклатуры_Накладка=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Накладка");
ВидНоменклатуры_Портал=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Портал");
ВидНоменклатуры_Фрамуга=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Фрамуга");
ВидНоменклатуры_Стеноваяпанель=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Стеновая панель");
ВидНоменклатуры_Стекло=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Стекло");
ВидНоменклатуры_Прочее=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Прочее");
ВидНоменклатуры_Фурнитура=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Фурнитура");
ВидНоменклатуры_Фурнитура=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Фурнитура");
//только для вида номенклатуры кроме "Дверное полотно"
//+только кроме характеристик с цветом "эмаль"
ПодстрокаХарактеристикиПоиск="эмаль";
Сч = 0;
Пока Сч < Товары.Количество() Цикл
СтрокаТаблицы = Товары.Получить(Сч);
ТекущаяХарактеристикаСтрока=нрег(Строка(СтрокаТаблицы.Характеристика));
Если СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_ДП Тогда
Товары.Удалить(СтрокаТаблицы);
ИначеЕсли СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_Накладка Тогда
Товары.Удалить(СтрокаТаблицы);
ИначеЕсли СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_Портал Тогда
Товары.Удалить(СтрокаТаблицы);
ИначеЕсли СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_Фрамуга Тогда
Товары.Удалить(СтрокаТаблицы);
ИначеЕсли СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_Стеноваяпанель Тогда
Товары.Удалить(СтрокаТаблицы);
ИначеЕсли СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_Стекло Тогда
Товары.Удалить(СтрокаТаблицы);
ИначеЕсли СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_Прочее Тогда
Товары.Удалить(СтрокаТаблицы);
ИначеЕсли СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_Фурнитура Тогда
Товары.Удалить(СтрокаТаблицы);
ИначеЕсли СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_Фурнитура Тогда
Товары.Удалить(СтрокаТаблицы);
ИначеЕсли Найти(ТекущаяХарактеристикаСтрока,ПодстрокаХарактеристикиПоиск)>0 Тогда
Товары.Удалить(СтрокаТаблицы);
Иначе
Сч = Сч + 1;
КонецЕсли;
КонецЦикла;
ПоказатьПо теме из базы знаний
- Конструирование аналитической структуры плана счетов в программе «1С:Бухгалтерия 8» с целью обеспечения достоверности финансовой отчетности
- Анализ ключей аналитики РАУЗ (УПП 1.3)
- Применение средств MS SQL R service для 1С
- Универсальная загрузка данных формата Excel
- API-интеграция 1С с маркетплейсами ОЗОН, WildBerries, Я.Маркет, СберМегаМаркет, Стройландия, Леруа Мерлен, Hoff, AliExpress для УТ11, КА2, ERP2, УНФ, БП3, Розница, УТ10, УПП1.3
Ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
(1) Вы можете отдельно, вне обработки, получить ГУИДы нужных Вам элементов, а внутри обработки использовать конструкцию
или
ВидНоменклатуры_ДП = Справочники.ВидыНоменклатуры.ПолучитьСсылку(Новый УникальныйИдентификатор(ГУИД)); // Дверное полотно
или
ВидНоменклатуры_ДП = XMLЗначение(Тип("СправочникСсылка.ВидыНоменклатуры"), ГУИД); // Дверное полотно
Вакансии
Аналитик 1С / Бизнес-аналитик
Нижний Новгород
зарплата от 100 000 руб. до 250 000 руб.
Временный (на проект)
Нижний Новгород
зарплата от 100 000 руб. до 250 000 руб.
Временный (на проект)