Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 17:59

Подскажите что нужно сделать УТ 10.3

Автор alexs-safin, 05 ноя 2015, 00:03

0 Пользователей и 1 гость просматривают эту тему.

alexs-safin

Есть обработка для установки (дописанной) характеристики номенклатуры (установить архивный), нужно сделать проверку по регистру сведений, если есть номенклатура в номенклатуре контрагентов то заполнить, если в регистре нету такой номенклатуры то игнориров



Процедура ЗаполнитьПоОстаткам() Экспорт

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СпрНом.Ссылка КАК Номенклатура,
| СпрНом.Архивный КАК ТекущееЗначениеАрхивный,
| ЕСТЬNULL(ТоварыНаСкладахОстатки.КоличествоОстаток, 0) КАК Остаток,
| ЕСТЬNULL(ТоварыВРезервеНаСкладахОстатки.КоличествоОстаток, 0) КАК Резерв,
| ЕСТЬNULL(ТоварыНаСкладахОстатки.КоличествоОстаток, 0) - ЕСТЬNULL(ТоварыВРезервеНаСкладахОстатки.КоличествоОстаток, 0) КАК СвободныйОстаток,
| ВЫБОР
| КОГДА ЕСТЬNULL(ТоварыНаСкладахОстатки.КоличествоОстаток, 0) - ЕСТЬNULL(ТоварыВРезервеНаСкладахОстатки.КоличествоОстаток, 0) > 0
| ТОГДА ЛОЖЬ
| ИНАЧЕ ИСТИНА
| КОНЕЦ КАК НовоеЗначениеАрхивный,
| ВЫБОР
| КОГДА ВЫБОР
| КОГДА ЕСТЬNULL(ТоварыНаСкладахОстатки.КоличествоОстаток, 0) - ЕСТЬNULL(ТоварыВРезервеНаСкладахОстатки.КоличествоОстаток, 0) > 0
| ТОГДА ЛОЖЬ
| ИНАЧЕ ИСТИНА
| КОНЕЦ = СпрНом.Архивный
| ТОГДА ЛОЖЬ
| ИНАЧЕ ИСТИНА
| КОНЕЦ КАК Пометка
|ИЗ
| Справочник.Номенклатура КАК СпрНом
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыНаСкладах.Остатки(&ДатаКон, ) КАК ТоварыНаСкладахОстатки
| ПО СпрНом.Ссылка = ТоварыНаСкладахОстатки.Номенклатура
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыВРезервеНаСкладах.Остатки КАК ТоварыВРезервеНаСкладахОстатки
| ПО СпрНом.Ссылка = ТоварыВРезервеНаСкладахОстатки.Номенклатура
|ГДЕ
| НЕ СпрНом.ПометкаУдаления
| И НЕ СпрНом.Услуга
| И НЕ СпрНом.Набор
| И НЕ СпрНом.ЭтоГруппа
|
|УПОРЯДОЧИТЬ ПО
| СпрНом.Наименование";

Запрос.УстановитьПараметр("ДатаКон",КонецДня(ДатаОстатков)+1);
Товары.Загрузить(Запрос.Выполнить().Выгрузить());

КонецПроцедуры

дфтын

|ГДЕ
|    НЕ СпрНом.ПометкаУдаления
....
+
|И СпрНом.Ссылка  В (Выбрать Спр.Номенклатура из регистрСведений.НоменклатураКонтрагентов как Спр)

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск