opt_step
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
//*******************************************
// Процедура генерации запроса Сформировать.
//
Процедура Сформировать()
Перем Закупка, Продажа, ЕдиницаЦены, ВалютаЦены, НайденнаяЦена, Запрос, ТекстЗапроса, Таб;
Если (Цена1.Выбран() = 0) или (Цена2=0) Тогда
Предупреждение("Тип цены обязательно должен быть выбран!!!");
Возврат;
КонецЕсли;
// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Таб.ВывестиСекцию("Шапка");
// Заполнение полей Наименование
Спр = СоздатьОбъект("Справочник.Номенклатура");
// Спр.ВыбратьЭлементы();
Если Номенкл.Выбран() = 1 Тогда
Спр.ИспользоватьРодителя(Номенкл,);
КонецЕсли;
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
глВернутьЦену(Спр.ТекущийЭлемент(), Цена1, ВыбДат, Закупка, ЕдиницаЦены, ВалютаЦены, НайденнаяЦена);
глВернутьЦену(Спр.ТекущийЭлемент(), Цена2, ВыбДат, Продажа, ЕдиницаЦены, ВалютаЦены, НайденнаяЦена);
Продажа = Число(Продажа);
Закупка = Число(Закупка);
Если (Закупка>0) и (Продажа>0) Тогда
Процент = глФРМ(Продажа*100/Закупка-100);
Процент = Число(Процент)
Иначе
Процент = 0;
КонецЕсли;
Если Спр.ЭтоГруппа()=0 Тогда
Если ВыбПроцент <> 0 Тогда
Если ВыбПроцент >= Процент Тогда
Таб.ВывестиСекцию("Товар");
КонецЕсли;
Иначе
Таб.ВывестиСекцию("Товар");
КонецЕсли;
Иначе
Таб.ВывестиСекцию("Группа");
КонецЕсли;
Закупка = 0;
Продажа = 0;
Процент = 0;
КонецЦикла;
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");
КонецПроцедуры
Процедура ПриОткрытии()
ВыбДат = ТекущаяДата();
КонецПроцедуры
|
Всего записей: 11230 | Зарегистр. 10-09-2008 | Отправлено: 11:35 18-01-2013 | Исправлено: opt_step, 11:35 18-01-2013 |
|
