|
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
|
|