Цена

Roman · 21.05.2010

Код:

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

Цену выдает равной нулю.
Вопрос- почему.
ТипыЦен = Выбираю в диалоге.

puh14 · 21.05.2010

Ошибка в моменте определения цены.

Дайнеко · 21.05.2010

puh14 проповедует принцип "Дам направление". Во времена моего обучения гигантские компьютеры часто "висли". Тогда препод говорил: "Отлаживайте всухую". Этот значит нарисовать на бумаге набор исходных данных, потом поводить пальцем по распечатке и высчитать результат.
До сих пор помогает.

vbs · 21.05.2010

Дайнеко сказал(а):
Во времена моего обучения гигантские компьютеры часто "висли".

А мне доводилось лазать по дампу, выведенному на АЦПУ. Длина распечатки достигала нескольких метров

А вообще-то, принцип "Дам направление" правилен. Ошибка видна сразу, и задаватель вопроса мог легко сам ее
обнаружить, если бы не ленился.

Roman · 21.05.2010

vbs сказал(а):
А вообще-то, принцип "Дам направление" правилен. Ошибка видна сразу, и задаватель вопроса мог легко сам ее
обнаружить, если бы не ленился.

Хм.Вообще-то я тему закрыл, кому-то делать просто не фиг. Взял и открыл тему.