Здравствуйте,у меня обычное приложение. Подскажите как можно в документе,в ФормеСписка, обойти каждый документ,проверяя есть ли среди них ,например в колонке ИнвентарныйНомер,какое-то значение.

можно запросить и обработать результат запроса. иное - от лукавого

ИсточникДанных

(1) А пример вы не додите,я навичок еще :\

Построитель = Новый ПостроительЗапроса;
Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ДокументСписокРеализацияТоваров);
Результат = Построитель.Результат;
Результат.Выгрузить();

(3) Эххх, Димка, Димка, ты еще и русский херово знаешь.

(4) Тоесть в Результат,у меня будет мой спиосок,а потом с помощью массива обойти таб часть?

зачем?

(5) прибедняется. чтоб жалели больше ;)
(6) в результате ты получишь свои документы. и можешь с ними делать всё, что вздумается

(5) Вот вы повторили точь в точь слова моей бывшей учительнице  по русскому)

(8) Ага,спасибо,сейчас буду пробывать!

Намедни смотрел фильм "Жмурки". Так вот ТС - Эфиоп... :)

Помогите пожалуйста,вот пишу так в модуле ФормеСписка документа

Построитель = Новый ПостроительЗапроса;
   Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ДокументСписок);
   Результат = Построитель.Результат;
   Результат.Выгрузить();

   Для Каждого Стр Из Результат Цикл
       Для Каждого Ап Из Стр.ОбъектыПроката Цикл
       Если Стр.ИнвентарныйНомер = 1 Тогда
               Отказ=Истина;
               Сообщить("Некоторые фильмы,были уже оприходованы!");
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;

Пишет интегратор не определен :\  
в для каждого Стр Из Результат

Построитель = Новый ПостроительЗапроса;
   Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ДокументСписок);
   Результат = Построитель.Результат;
   ТЗ=Результат.Выгрузить();

   Для Каждого Стр Из ТЗ Цикл
       Для Каждого Ап Из Стр.ОбъектыПроката Цикл
       Если Стр.ИнвентарныйНомер = 1 Тогда
               Отказ=Истина;
               Сообщить("Некоторые фильмы,были уже оприходованы!");
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;

А вообще - ты чето мутное делаешь.

(12) итератор, батенька, итератор

(0) Может ты хочешь просто при просмотре этого списка видеть колонку ИнвентарныйНомер?

и запятых маловато в Сообщить

(16) Нет,я делаю,при добавлении документа,если совпадает инвентарный номер,то его не проводить.
Я не могу к Таб.Части обратиться

Для Каждого Стр Из ТЗ Цикл
       Для Каждого Ап Из Стр.ОбъектыПроката Цикл
       Если Ап.ИнвентарныйНомер = 1 Тогда
               Отказ=Истина;
               Сообщить("Некоторые фильмы,были уже оприходованы!");
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;


Таб часть ОбъектыПроката,раньше так обращался видел его

(18) Это и нужно было в (0) писать...

"Некоторые фильмы,были уже оприходованы!"

Запятая не нужна. В этом все дело

> "Некоторые фильмы,были уже оприходованы!"

За заставляй пользователя крыть матом всё на свете, напиши конкретно с каким фильмом проблема...

Не заставляй...

(20) :))
Извините наверное глупые вопросы задаю) Я просто недавно в этом деле еще)

(23) В твоем случае нужно использовать запрос.

(22) Да это учебная,для себя пишу,я понимаю что так писать плохо) Мне бы моя выборка заработала)

(23) В Древней Греции взрослые мужи брали мальчиков в обучение. Почему бы тебе не пойти путем мальчиков?

(25) В том что и дело, что нужно сразу учиться правильно делать..

(25) И для себя так писать не нужно. Нужно разобраться и писать сразу хорошо, а не чтобы "заработала".

(26) а ты возьмешь в падаваны ? за еду ?

(25) Попробуй запросом, если что задавай вопросы

(26) Некому учить :\
Я запроса еще на Вы,по другому никак не сделать?
А отменить копирование в форме списка тогда можно?

(29) Нет. Из зарубежья мы берем только девушек.

(32) ага, а потом окажется что это девушка, бородач :)

(31)

Процедура ДокументСписокПередНачаломДобавления(Элемент, Отказ, Копирование)
   
   Если Копирование Тогда
       Отказ = Истина;
   КонецЕсли;

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



(31) >Я запроса еще на Вы,по другому никак не сделать?

Запросами еще легче делать, чем всякими выборками...

Построитель = Новый ПостроительЗапроса;
   Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ДокументСписок);
   Результат = Построитель.Результат;
   ТЗ=Результат.Выгрузить();

   
   Для Каждого Стр Из ТЗ Цикл
       Для Каждого Ап Из Стр.Ссылка.ОбъектыПроката Цикл
       Если Ап.ИнвентарныйНомер = 1 Тогда
               Отказ=Истина;
               Сообщить("Бери берёзу и уходи!");
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;

Вот он заработал,надо было,Ссылка поставить перед словом.

А как проверить на все существующие интвентарный номера в документе?Чтобы прошел по всем и если такого нету, то все хорошо.

(36) запросом же

"Бери берёзу и уходи!"

Ах, Беларусь, Беларусь...


Процедура КнопкаВыполнитьНажатие(Кнопка)
   
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    ТабельОтработанноеВремя.Ссылка,
                  |    ТабельОтработанноеВремя.Сотрудник
                  |ИЗ
                  |    Документ.ТабельУчетаРабочегоВремениОрганизации.ОтработанноеВремя КАК ТабельОтработанноеВремя
                  |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ТабельУчетаРабочегоВремениОрганизации.ОтработанноеВремя КАК ТабельОтработанноеВремяСвой
                  |        ПО ТабельОтработанноеВремя.Сотрудник = ТабельОтработанноеВремяСвой.Сотрудник
                  |ГДЕ
                  |    ТабельОтработанноеВремя.Ссылка.ПериодРегистрации = &ПериодРегистрации
                  |    И ТабельОтработанноеВремя.Ссылка <> &СсылкаНаСвойДокумент
                  |    И ТабельОтработанноеВремяСвой.Ссылка = &СсылкаНаСвойДокумент"
   ;
   Запрос.УстановитьПараметр("СсылкаНаСвойДокумент", Ссылка);
   Запрос.УстановитьПараметр("ПериодРегистрации", ПериодРегистрации);
   
   Результат = Запрос.Выполнить().Выбрать();
   
   Отказ = Результат.Количество() > 0;
   
   Пока Выборка.Следующий() Цикл
       Сообщить("В этом периоде уже введен документ " + Выборка.Ссылка + " на сотрудника " + Выборка.Сотрудник, СтатусСообщения.Важное);
   КонецЦикла;
   
   
КонецПроцедуры



(39) Это в обработку проведения засунуть

(40) ага,спасибо!

(39) Че за бредятина?

(42) На скорую руку

Результат = Запрос.Выполнить().Выбрать(); ->  Выборка = Запрос.Выполнить().Выбрать();

(43) Тяжелая у тебя рука. Запрос бессмысленнен.

(45) Сперва так сделал, потом что-то переделал...


Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    ТабельОтработанноеВремя.Ссылка,
                  |    ТабельОтработанноеВремя.Сотрудник
                  |ИЗ
                  |    Документ.ТабельУчетаРабочегоВремениОрганизации.ОтработанноеВремя КАК ТабельОтработанноеВремя
                  |ГДЕ
                  |    ТабельОтработанноеВремя.Ссылка.ПериодРегистрации = &ПериодРегистрации
                  |    И ТабельОтработанноеВремя.Сотрудник В (&СписокСотрудников)"
   ;
   СписокСотрудников = Новый Массив;  
   Для каждого т Из ОтработанноеВремя Цикл
       СписокСотрудников.Добавить(т.Сотрудник);
   КонецЦикла;
   
   Запрос.УстановитьПараметр("СписокСотрудников", СписокСотрудников);
   Запрос.УстановитьПараметр("ПериодРегистрации", ПериодРегистрации);
   
   Выборка = Запрос.Выполнить().Выбрать();
   
   Отказ = Выборка.Количество() > 0;
   
   Пока Выборка.Следующий() Цикл
       Сообщить("В этом периоде уже введен документ " + Выборка.Ссылка + " на сотрудника " + Выборка.Сотрудник, СтатусСообщения.Важное);
   КонецЦикла;


Первый не сработает пока док не записан...

(46) Ну и проверить, нужно что бы документ сам себя не банил )))

Делаю так

Построитель = Новый ПостроительЗапроса;
   Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ДокументСписок);
   Результат = Построитель.Результат;
   ТЗ=Результат.Выгрузить();
   
   Запрос = Новый Запрос;
   Запрос.Текст =
   "ВЫБРАТЬ
   |    ОприходованиеОбъектаПрокатаОбъектыПроката.ИнвентарныйНомер
   |ИЗ
   |    Документ.ОприходованиеОбъектаПроката.ОбъектыПроката КАК ОприходованиеОбъектаПрокатаОбъектыПроката";
   мРезультат = Запрос.Выполнить().Выбрать();
   
   Пока мРезультат.Следующий() Цикл
   Для Каждого Стр Из ТЗ Цикл
       Для Каждого Ап Из Стр.Ссылка.ОбъектыПроката Цикл
       Если Ап.ИнвентарныйНомер = мРезультат.ИнвентарныйНомер Тогда
               Отказ=Истина;
               Сообщить("Бери берёзу и уходи!");
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;
   КонецЦикла;

Всегда отказ получаю)

(48) Зачем тебе тебе для проверки список документов из формы?
Проверяй при проведении или записи документа...