Прошу прощения за похожую тему, которую я же создавал (Отображение остатка товара в УТ 10.3). Мне необходимо переписать эту процедуру при помощи запроса. Никак до меня не дойдет что включать в запрос, отбор и как их связать. Нигде путевого справочного материала найти не могу. И еще вопрос: как изменить цвет текста в текстовом поле на форме?

Пока только на такое мозгов хватило:

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

в прошлой ветке тебе и запрос давали

+(1) Запрос.УстановитьПараметр(), Выполнить().Выбрать(), Пока Следующий()
всё, работай

(1) помню, но не смог я его прилепить, спасибо за помощь :)
сутки не спал, эх... буду делать

(3) читай (2), где будет непонятно, спросишь

эмм... так?

Запрос.УстановитьПараметр("Отбор", Отбор);
   Выборка = Запрос.Выполнить().Выбрать();
   Пока Выборка.Следующий() Цикл
   ЭлементыФормы.НадписьОстаток.Заголовок= "Остаток:" + Выборка.КоличествоОстаток;
   КонецЦикла;
КонецПроцедуры

(5) то есть запрос ты не вкурил. а ещё хвастался "Да запрос-то сделать смогу, не беда"

Запрос.УстановитьПараметр("Номенклатура", НужнаяНоменклатура);
...

Красить ячейки с помощью свойства Таб поля при получении данных.
Для каждого … Из ОформленияСтрок Цикл

(6) да вот видимо лохонулся...

Вообще ничего понять не могу, не зря человеку сон дан. Вздремну пару часов и вернусь. Может во сне запрос приснится :)

перекопипастить сюда запрос что ли.. или пускай уж спит..

А пока у меня получается какой-то перебор значений, но потом все равно заголовок = 1

(11) вот

ВЫБРАТЬ
   ТоварыНаСкладахОстатки.КоличествоОстаток
ИЗ
   РегистрНакопления.ТоварыНаСкладах.Остатки(
           &Период,
           Качество = &Качество
               И Номенклатура = &Номенклатура
               И СерияНоменклатуры = &СерияНоменклатуры
               И Склад = &Склад
               И ХарактеристикаНоменклатуры = &ХарактеристикаНоменклатуры) КАК ТоварыНаСкладахОстатки

запрос на одну строку ?

Куда выводястя остатки! В фору подбора?

(14) не более чем на одну

(13) вот и задай параметры запроса. поштучно. выполни и попробуй выбрать. если получится, значит, в поле КоличествоОстаток что-то будет, если нет - значит ноль

(16) если он тыкает на другую строку -- новый запрос идёт

(18) он так и хочет. да пускай так и будет

(19) так это быдлокод

При активизации запрос фигачить - здорово. Можно с таким же успехом его в цикл поместить

Объясните, пожалуйста, другими словами (не как в СП), что такое параметры запроса?

(22) Это те данные, которые ты явно не можешь прописать в запросе, потому что они зависят от внешней ситуации, например от того, что указал пользователь

(23) Данная информация вообще под контролем ФСБ, зачем ты ее рассекречиваешь? :)

(24) у меня есть разрешение на разглашение данной информации.
Мне за это платят.

(25) Понятно, отзываем людей в черном :)

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

   ЗапросПоСкладам = Новый Запрос;
   ЗапросПоСкладам.УстановитьПараметр("ГруппаДоступности",ГруппаДоступностиСкладов);
   ЗапросПоСкладам.Текст = "ВЫБРАТЬ
   |    СоставГруппДоступностиСкладов.Склад
   |ИЗ
   |    РегистрСведений.СоставГруппДоступностиСкладов КАК СоставГруппДоступностиСкладов
   |ГДЕ
   |    СоставГруппДоступностиСкладов.ГруппаДоступности = &ГруппаДоступности";
                           
   МассивСклады = ЗапросПоСкладам.Выполнить().Выгрузить().ВыгрузитьКолонку("Склад");                        

       
   ТаблицаОстатков = УправлениеЗапасами.ПолучитьТаблицуСвободныхОстатковПоСериям(МассивСклады, "", МассивНоменклатуры);
   
   Если Элемент.Колонки.Остаток.Видимость Тогда
       Для Каждого ОформлениеСтроки ИЗ ОформленияСтрок Цикл
           НайденнаяСтрока = ТаблицаОстатков.Найти(ОформлениеСтроки.ДанныеСтроки.Номенклатура, "Номенклатура");
           Если НайденнаяСтрока <> Неопределено Тогда
               ОформлениеСтроки.Ячейки.ОстатокОсновногоСклада.УстановитьТекст(Формат(НайденнаяСтрока.Остаток,"ЧО="));
           КонецЕсли;
       КонецЦикла;
       
   КонецЕсли;
   
КонецПроцедуры

А что в (13) означает это:
(
           &Период,
           Качество = &Качество
               И Номенклатура = &Номенклатура
               И СерияНоменклатуры = &СерияНоменклатуры
               И Склад = &Склад
               И ХарактеристикаНоменклатуры = &ХарактеристикаНоменклатуры) ?

(28) А может, для начала книжки умные почитаешь?

(29) я 1С занимаюсь от силы 2 недели, по этому, уж извините, если потревожил, спрашиваю все, что не понимаю. А так, в планах очень даже есть, правда в нормальном качестве придется поискать. Сегодня пока пытался кое-что из пары прочесть, чуть глаза не сломал.

(30) пары? мои опасения оказались верны? 1С уже преподают в вузах?

виртуальные таблицы тебе надо изучить

(31) лучше бы 1С, чем Паскаль, которые преподают бабульки, писавшие еще под калькуляторы и тетрис и заставляющие нас заниматься "правильным кодингом".
А так не пугайтесь, я просто скачал пару книг и посмотрел в них про запросы очень бегло.

(32) не трожь структурные языки. это понимание достаточно важно

(33) да я не спорю, учиться в любом случае на нем. Но у нас просто если ты вместо того, чтобы описать тип (н-р: atype = array[1..n,1..m] of integer) и присвоить его переменной взял и присвоил массив переменной напрямую, все, пиши пропало...

(33) а если еще и про константы забыл, все...смерть тебе обеспечена.

мягкая типизация - зло ;)

(36) а в моем случае обязательно использовать Пока Следующий()?
А то все это в цикле получается.

(37) если уверен, что одна строка в результате, достаточно сделать Если Выборка.Следующий(). или выгружать в ТЗ и делать по аналогии с объектным подходом. там я в ТЗ как раз выгружал

(38) *не более одной строки, конечно

(38)Да в том-то и дело, что сказали с запросом делать, контекст не трогать

(40) какой контекст? ну и делай запросом, контекст не трогай

(41) Просто выгрузить запрос в ТаблицуЗначений и потом из нее выборку делать?

(42) вариант 1: Просто выгрузить результат запроса в ТаблицуЗначений и потом из нее выборку сделать
вариант 2: сделать Выбрать() и попросить Следующий()

Измените, пожалуйста, что не так сделал. Все, мозг полностью вырубился. Только, если можно, на моем же примитивном уровне.

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

(44) а что ты получил этим запросом?

(43) 1. Параметр номенклатура в твоём запросе не участвует, в результате запроса столько строк, сколько в остатках номенклатур.
2. Разыменование "Номенклатура.Ссылка" ведёт к неявному соединению с таблицей номенклатуры, что замедляет запрос.

Прошу прощения, уснул. Сейчас попробую разобраться.
Скажите, почему может не запускаться консоль запросов? Хотел поучиться их делать, а никак.

(47) из-за ошибки в 43й строке может не запускаться

(47) лучше готовую возьми

Да я и так скачал. Просто не запускается. Ничего не происходит.

(50) телепатирую. у твоей консоли нет формы для того режима, в котором запускаешь предприятие

(50)У меня не запускается в режиме управляемого приложения. Ошибка выползает про какую-то переменную вроде, не вдавался, т.к. она не моя.

(52) тогда в 58й строке ошибка

Wobland, у меня к Вам личная просьба. Не могли бы Вы наваять верный запрос. Хотелось бы сделать задание и потом уже капитально садиться за изучение языка запросов, а то франч ругаться будет. И все я никак не допру, какой параметр нужно номенклатуре передать. Создать отбор и передать его?

(54) запрос я тебе уже наваял

Процедура ТоварыПриАктивизацииСтроки(Элемент)
   ТекСтрока=Элемент.ТекущаяСтрока;
   //Отбор=Новый Структура("Склад, Номенклатура, ХарактеристикаНоменклатуры, СерияНоменклатуры, Качество",
   //        Склад, ТекСтрока.Номенклатура, ТекСтрока.ХарактеристикаНоменклатуры, ТекСтрока.СерияНоменклатуры, ТекСтрока.Качество);
   //Остатки=РегистрыНакопления.ТоварыНаСкладах.Остатки(Дата, Отбор);
   Запрос=Новый Запрос;
   Запрос.Текст=
   "ВЫБРАТЬ
   |    ТоварыНаСкладахОстатки.КоличествоОстаток КАК Количество
   |ИЗ
   |    РегистрНакопления.ТоварыНаСкладах.Остатки(
   |            &Период,
   |            Качество = &Качество
   |                И Номенклатура = &Номенклатура
   |                И СерияНоменклатуры = &СерияНоменклатуры
   |                И Склад = &Склад
   |                И ХарактеристикаНоменклатуры = &ХарактеристикаНоменклатуры) КАК ТоварыНаСкладахОстатки";
   Запрос.УстановитьПараметр("Период", Дата);
   Запрос.УстановитьПараметр("Качество", ТекСтрока.Качество);
   Запрос.УстановитьПараметр("Номенклатура", ТекСтрока.Номенклатура);
   Запрос.УстановитьПараметр("СерияНоменклатуры", ТекСтрока.СерияНоменклатуры);
   Запрос.УстановитьПараметр("Склад", Склад);
   Запрос.УстановитьПараметр("ХарактеристикаНоменклатуры", ТекСтрока.ХарактеристикаНоменклатуры);
   Остатки=Запрос.Выполнить().Выгрузить();
   ЭлементыФормы.НадписьОстатокТовара.Заголовок="на складе: "+?(Остатки.Количество(), Остатки[0].Количество, 0);
   //ЭлементыФормы.НадписьОстатокТовара.Заголовок="на складе: "+?(РегистрыНакопления.ТоварыНаСкладах.Остатки(Дата, Новый Структура("Склад, Номенклатура, ХарактеристикаНоменклатуры, СерияНоменклатуры, Качество", Склад, Элемент.ТекущаяСтрока.Номенклатура, Элемент.ТекущаяСтрока.ХарактеристикаНоменклатуры, Элемент.ТекущаяСтрока.СерияНоменклатуры, Элемент.ТекущаяСтрока.Качество)).Количество(), РегистрыНакопления.ТоварыНаСкладах.Остатки(Дата, Новый Структура("Склад, Номенклатура, ХарактеристикаНоменклатуры, СерияНоменклатуры, Качество", Склад, Элемент.ТекущаяСтрока.Номенклатура, Элемент.ТекущаяСтрока.ХарактеристикаНоменклатуры, Элемент.ТекущаяСтрока.СерияНоменклатуры, Элемент.ТекущаяСтрока.Качество))[0].Количество, 0);
КонецПроцедуры

(56) чорт! какуля из одной строки всё-таки вырвалась из меня ;)

Вот теперь доперло, спасибо :) у меня как-то туго с параметрами получается.

И, если можно, скажите, где можно про вывод посмотреть?
ЭлементыФормы.НадписьОстатокТовара.Заголовок="на складе: "+?(Остатки.Количество(), Остатки[0].Количество, 0);
Не могу никак понять эту запись.

(59) именно этого я от тебя добивался в прошлой ветке

начни с этого: http://screencast.com/t/hhzshifd6mNS

(61)Спасибо, теперь понял. Единственное, не очень вот это: Остатки[0].Количество, для чего [0] - обнуление?

(62) первая строка

(63) А, все, индекс, понял.

Достал уже я. Мне нужно окрасить текст НадписьОстатокТовара в синий. Надпись находится в подвале. Все равно использовать, как Вы написали св-во ТЧ ПриПолученииДанных ?

(65) покрась визуально на форме в пофигураторе

(66) вот сам не мог дойти до этого, попробовать и .. сдержать себя? или каждый чих благословлять придётся?

(67) не попробовав сам - не стал бы писать.

(68) это радует, но это вовсе не очевидно. поздравлять?

(69) Можно поздравить, допер :)

ЦветТекста = ЦветаСтиля.ТекстИнформационнойНадписи;
ЭлементыФормы.ИнфНадписьОстаток.ЦветТекста = ЦветТекста;

Просто сначала ума на первую строку не хватило.

(70) не буду поздравлять, плохо допёр. без кода, в визуальном режиме проще ж

(71) А где это? Я так и не нашел. В свойствах надписи нет.

(72) это полное безобразие! возьми мои свойства: http://screencast.com/t/ilymtHgCWx

(73) У меня только "Основные" и "События"

http://screencast.com/t/u48Jevln2K

(75) Тьфу ты... Забыл я про "Показать только важные" Спасибо.