Добрый день. Подскажите пожалуйста, не могу понять к чему приравнять артикул.
Задача 1. если выдается один артикул, он должен выдаться целиком на исполнителя.
Задача 1. если выдается один артикул, он должен выдаться целиком на исполнителя.
Если СтруктураВозврата.ПараллельноеВыполнение И НЕ СтруктураВозврата.Логотипы Тогда
ИтогоОбъем = 0;
ИтогоСтрок = 1;
ОтобраноВсе = Ложь;
СтруктураПоиска = Новый Структура;
СтруктураПоиска2 = Новый Структура;
СтруктураПоиска3 = Новый Структура;
СтруктураПоиска4 = Новый Структура;
СтруктураПоиска.Вставить("Участок",СтруктураВозврата.Участок); // Этаж
СтруктураПоиска2.Вставить("исполнитель",Справочники.Пользователи.ПустаяСсылка()); //Пользователь
СтруктураПоиска3.Вставить("остаток по этажу", Документ.Отгрузка.Исполнитель); //Остаток по этажу
СтруктураПоиска4.Вставить("Артикул", Справочники.Номенклатура.Артикул);
СтрокиЭтажа = ДокументОтбора.Подбор.НайтиСтроки(СтруктураПоиска);
СтруктураИсполнитель = ДокументОтбора.Подбор.НайтиСтроки(СтруктураПоиска2);
//ОстатокОтгрузка = ДокументОтгрузкаИсполнитель;
Если СтрокиЭтажа.Количество()<>0 Тогда
Для каждого стр Из СтрокиЭтажа И СтруктураИсполнитель Цикл
Если ЗначениеЗаполнено(стр.исполнитель) Тогда
Продолжить;
КонецЕсли;
Если (ИтогоСтрок>=5 и ИтогоОбъем>=3) ИЛИ ИтогоСтрок>=30 Тогда
ОтобраноВсе = Истина;
Прервать;
КонецЕсли;
стр.исполнитель = ТекПользователь;
стр.НомерИтерации = НомерИтерации;
итогоСтрок = итогоСтрок+1;
итогоОбъем = итогоОбъем + стр.ЕдиницаИзмерения.Объем*стр.КоличествоПлан;
//Если меньше 30, тогда брать остатки с любого этажа
Для каждого СтруктураИсполнитель Из СтруктураПоиска3 Цикл
Если ИтогоСтрок<30 Тогда
ОтобраноВсе = Истина;
Продолжить;
КонецЕсли;
Стр.исполнитель = ТекПользователь;
Стр.НомерИтерации = НомерИтерации;
ИтогоСтрок = ИтогоСтрок + 1;
ИтогоОбъем = стр.ЕдиницаИзмерения.Объем * стр.КоличествоПлан;
КонецЦикла;
КонецЦикла; ПоказатьПо теме из базы знаний
- 1С Характеристики номенклатуры. Переход на учёт по характеристикам для УТ, УНФ, Розница, КА
- Загрузка картинок по артикулу
- Настройка доступности элементов формы у пользователей
- Доступ и видимость реквизитов справочников по пользователям - универсально
- Универсальный передаточный документ (УПД) для сети АШАН (артикул покупателя в колонке "Код товара, работ, услуг")
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(2)
Для каждого стр Из СтрокиЭтажа И СтруктураИсполнитель Цикл
Если ЗначениеЗаполнено(стр.исполнитель) Тогда
Продолжить;
КонецЕсли;
Если СтруктураПоиска4 = ????? , Тогда
ОтобораноВсе = Истина;
Прервать;
КонецЕсли;
Если (ИтогоСтрок>=5 и ИтогоОбъем>=3) ИЛИ ИтогоСтрок>=30 Тогда
ОтобраноВсе = Истина;
Прервать;
КонецЕсли; Показать
(6) Так за объяснениями пускай в школу и возвращаются... Потому что вряд ли кто-то в здравом уме будет читать их опусы после вот такой первой строчки
или вот такой
Для каждого стр Из СтрокиЭтажа И СтруктураИсполнитель Циклили вот такой
СтруктураПоиска3.Вставить("остаток по этажу", Документ.Отгрузка.Исполнитель)
(9) Первый раз код пишут на уроках и на учебных примерах, именно там проходят что такое циклы, что такое структуры и проч.. А не пытаются сразу писать код на сложной учетной системе, да еще и приходить с этим в профессиональное сообщество. Тут не школа. Тут обмен опытом. Опытом.
Аффтор. если Вы учились в школе, то прочитайте Роберта Шекли. К сожалению это в школе не проходит, поэтому такие вот казусы каждый день на этом сайте случаются...
(15)
Да-да, иногда так и есть...
— Дикари — вот мы кто, — продолжал Морран, нервно расхаживая перед Ответчиком. — Представте себе бушмена, требующего у физика, чтобы тот объяснил, почему нельзя пустить стрелу в Солнце. Ученый может объяснить это только своими терминами. Как иначе?
— Ученый и пытаться не станет, едва слышно проговорил Лингман. — Он сразу поймет тщетность объяснения.
— Или вот как вы разъясните дикарю вращение Земли вокруг собственной оси, не погрешив научной точностью?
— Ученый и пытаться не станет, едва слышно проговорил Лингман. — Он сразу поймет тщетность объяснения.
— Или вот как вы разъясните дикарю вращение Земли вокруг собственной оси, не погрешив научной точностью?
Да-да, иногда так и есть...
Чтобы правильно задать вопрос, нужно знать большую часть ответа.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот