Привет, просят сделать: если выбран склад 1 или 2 или 3 ил 4 или 5 тогда реквизит1(элемент справочника) нужно конкретный подставить
я хочу сделать так:
в обработке перед записью
склад1 = спрачоники.склады.найтипокоду(код)
склад2 = спрачоники.склады.найтипокоду(код)
склад3 = спрачоники.склады.найтипокоду(код)
склад4 = спрачоники.склады.найтипокоду(код)
склад5 = спрачоники.склады.найтипокоду(код)
реквизит = справочники.справочник1.найтипокоду(код)
в процедуре ПередЗаписью
если этаформа.документобъект.склад = склад1 или .... тогда
этаформа.документобъект.реквизит1 = реквизит
конецесли
или что то не учел ?

если "просят" то это надо в форме

(1) я имел ввиду модуль формы "ПередЗаписью"

А если будут просить каждый месяц по складу добавлять, каждый месяц переписывать будешь код?

(3) А тебе жалко?

(0) Сделай у склада реквизит и, если он заполнен - копируй его в документ. И лучше не перед записью, а при выборе склада

(4) да мне то нет)

(5) нельзя реквизит новый добавлять

(5)  делается это из-за того, что забывают Реквизит1 заполнить, заполнять его нужно только если выбраны конкретные склады

(8)  + склады известны и добавляться/убавляться их кол-во не будет

(7) Допсвойство склада...
У ут10 вроде свойства к складу можно ...

(8) Ну так сделай проверку.
Ну и при изменении склада можно заполнять.

(11) а в (0) не проверка ?

(12) Проверка это если Реквизит1 не заполнен, то не давать проводить.

(13) его не всегда нужно заполнять..

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

Я просто спрашиваю правильно ли я в (0) написал или можно как то красивее без найтипокоду тыщу раз ?

(16) Правильней будет как в (5) или (10)

(17) лан, поищу доп свойства, спасибо

Ммм, доп свойства я нашел, а как к нему обратиться програмно?
Ну т.е. я хочу что-то типа
Если склад.допсвойство = моёсвойство тогда
реквизит = нужныйэлементсправочника
конеццикла

Ну т.е. не допсвойство а РС Значения свойств объектов

Или это запросом склады получить надо ?

выбрать значение
из регистрСведений.ЗначенияСвойствОбъектов
где объект = &склад
и свойство = &НужноеСвойствоРеквизитДокументаДляСклада

И уже из запроса читай.
Или, если хочешь какашкокода - создай набор записей, задай ему отборы, прочитай...

(22) спасибо!

"спрачоники" - это что?

(24)  справочники )

Вопрос ещё, я сделал "ПередЗаписью" проверку, теперь, если склад из моего списка, то реквизит заполняется, а как сделать чтобы если склад поменяли на не из списка, то очищалось, но если сами реквизит заполнили, то не очищалось

(26) Проверку поставить Индира не позволяет?

(27) я не совсем понимаю как

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

(29)  т.е. выбрали склад не из списка, заполнили реквизит, а он из-за проверки очистится

Ааа, всё, туплю, спасибо

(26) делай это не при записи а в ПриИзменении реквизита склад

(32) Я ему ещё в (5) это сказал... Но это, похоже, житель дальнего севера...

(32) (33) поч?

(34) пот!

Ну я то сделаю, просто не понимаю почему так лучше

Извиняюсь, ещё вопрос, я неверно что-то делаю? Получил в запросе нужные склады
выгрузил
затем обхожу таблицу и сравниваю значение склада на форме с результатом запроса
чего то я видимо не понимаю и неверно сделал

Результат = Запрос.Выполнить().Выгрузить();
    Для каждого МоиСклады из Результат цикл
        Если ЭтаФорма.ДокументОбъект.Склад = МоиСклады.Объект Тогда
            ЭтаФорма.ДокументОбъект.Реквизит1 = РеквизитНайденныйМоКоду
        КонецЕсли;
        КонецЦикла;

(37) больше кода

Как это срабатывает?
Если ЭтаФорма.ДокументОбъект.Склад = МоиСклады.Объект
как сравнивает склад, там же не 1, который выбран на форме, а список складов

(39) да это весь код, до него запрос только

(39) в Результат у меня 9 складов

(38)
1.покажи запрос
2. это обычные формы или УФ ?

(43) это обычные формы

"ВЫБРАТЬ
                   |    ЗначенияСвойствОбъектов.Объект КАК Объект
                   |ИЗ
                   |    РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
                   |ГДЕ
                   |    ЗначенияСвойствОбъектов.Свойство.Наименование = ""ТестовоеСвойство""";

У меня наверное больше вопрос как он сравнивает склады в Для каждого и в Если
Ну т.е. он сравнивает пока не обойдёт всю таблицу и если в таблице условие выполняется, то заполняет мой реквизит, верно ?

(44) На вот, занимайся


Процедура СкладПриИзменении(Элемент)
   Если Не ЗначениеЗаполнено(Склад) Тогда
        ТвойРеквизит = Неопределено;
        Возврат;
   КонецЕсли;
   Запрос = Новый Запрос("

|ВЫБРАТЬ
|            СвойствоСклада.Значение КАК ТвойРеквизит,
|        ИЗ
|            РегистрСведений.ЗначенияСвойствОбъектов КАК СвойствоСклада
|        ГДЕ
|            СвойствоСклада.Объект = &Склад
|            И СвойствоСклада.Свойство = &ТвоёСвойство");

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

(45) Хочешь продам тебе неэкселюзивное право использовать оператор Прервать в цикле?
Недорого, 10евро в месяц...

Ну а твой код - в топку.

Да я учусь, чо вы...
спасибо