v7: Запрос по остаткам ТМЦ
☑
0
Масянька
02.08.12
✎
10:54
День добрый!
Подскажите, пожалуйста, где ошибка:
Процедура ПоКнопкеОстатки()
СпрСклад = СоздатьОбъект("Справочник.Склады");
СпрСклад.НайтиПоКоду("00004");
Материалы = СпрСклад.ТекущийЭлемент();
ДатаКонца = ДатаДок;
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ДатаКонца по ДатаКонца;
|Фирма = Регистр.ОстаткиТМЦ.Фирма;
|УпрАналитика = Регистр.ОстаткиТМЦ.Фирма.УпрАналитика;
|ЮрЛицо = Регистр.ОстаткиТМЦ.Фирма.ЮрЛицо;
|Номенклатура = Регистр.ОстаткиТМЦ.Номенклатура;
|Склад = Регистр.ОстаткиТМЦ.Склад;
|Количество = Регистр.ОстаткиТМЦ.Количество;
|Группировка Номенклатура Без Групп;
|Условие (Склад = Материалы);";
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Предупреждение("Нет остатков.");
Возврат;
Иначе
Пока (Запрос.Группировка("Номенклатура") = 1) Цикл
Сообщить("1 - " + Запрос.Номенклатура + " - " + Запрос.Количество);
КонецЦикла;
КонецЕсли;
КонецПроцедуры // ПоКнопкеОстатки
Сообщить - ничего не выводит:(((
Спасибо.
1
Ёпрст
гуру
02.08.12
✎
10:56
(0) воткни и наслаждайся
|Функция Останки = КонОст(Количество);
2
Ork
02.08.12
✎
10:57
|Количество = Регистр.ОстаткиТМЦ.Количество;
|//Вставить сюда
|Функция КонОст = КонОст(Количество);
|//Конец вставки
|Группировка Номенклатура Без Групп;
Это заменить на :
Сообщить("1 - " + Запрос.Номенклатура + " - " + Запрос.Количество);
Сообщить("1 - " + Запрос.Номенклатура + " - " + Запрос.КонОст);
3
Масянька
02.08.12
✎
11:02
Мужчины! Вы - лучшие из лучших! СПАСИБО!
4
Злопчинский
02.08.12
✎
15:15
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Предупреждение("Нет остатков.");
Возврат;
.
Выполнить(<?>)
Синтаксис:
Выполнить(<ТекстЗапроса>)
Назначение:
Выполнить запрос.
Возвращает: 1 - если запрос выполнен, 0 - иначе.
Параметры:
.
когда нет остатков - это тоже РЕЗУЛЬТАТ, то есть =1, а вот если 0 - 'nj ,zrf d pfghjct
Независимо от того, куда вы едете — это в гору и против ветра!