Помогите с модулем

gliokker · 01 авг 2013, 12:24

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

   КонецЕсли;
КоличествоЕздок =уатПутевойЛист.Задание.Итог.КоличествоЕздок;
СпидометрВозвращения = уатПутевойЛист.Итог.СпидометрВозвращения;
СпидометрВыезда =    уатПутевойЛист.Итог.СпидометрВыезда;
КоличествоКмГруз = уатПутевойЛист.Задание.Итог(КоличествоКмГруз);

Рез = 0.01 * ((НаТранспортнуюРаботу + ЛинейнаяНорма * (Грузоподъемность + 0.5 * Грузоподъемность ) - ЛинейнаяНорма *
(Грузоподъемность + 0.5 * Грузоподъемность)) * (СпидометрВозвращения - СпидометрВыезда) +
ЛинейнаяНорма * КоличествоКмГруз * Грузоподъемность ) * (1 + 0.01 ) + НормаНаЕздку * КоличествоЕздок ;
КонецФункции

Почему то выскакивает ошибка
ОбщийМодуль.РасчётГСМПоНорме.Модуль(59,16)}: Переменная не определена (НаТранспортнуюРаботу)
Рез = 0.01 * ((<<?>>НаТранспортнуюРаботу + ЛинейнаяНорма * (Грузоподъемность + 0.5 * Грузоподъемность ) - ЛинейнаяНорма * (Проверка: Толстый клиент (обычное приложение

Подскажите как это исправить

Dethmontt · 01 авг 2013, 12:38

Ну так переменная не объявлена...

Добавлено: 01 авг 2013, 12:39

Цитата: gliokker от 01 авг 2013, 12:24Подскажите как это исправить

Объявить переменную...
Например:

Код Выделить

НаТранспортнуюРаботу = 0;

gliokker · 01 авг 2013, 12:42

Цитата: Dethmontt от 01 авг 2013, 12:38
Ну так переменная не объявлена...
Добавлено: 01 авг 2013, 12:39

Цитата: gliokker от 01 авг 2013, 12:24Подскажите как это исправить
Объявить переменную...
Например:
Код Выделить Развернуть
НаТранспортнуюРаботу = 0;

А не подскажите зачем это нужно?и если поставлю ноль то и значене тоже будет ноль?

mixqn · 01 авг 2013, 12:57

Цитата: gliokker от 01 авг 2013, 12:24Рез = 0.01 * ((НаТранспортнуюРаботу + ЛинейнаяНорма * (Грузоподъемность + 0.5 * Грузоподъемность ) - ЛинейнаяНорма *
(Грузоподъемность + 0.5 * Грузоподъемность)) * (СпидометрВозвращения - СпидометрВыезда) +
ЛинейнаяНорма * КоличествоКмГруз * Грузоподъемность ) * (1 + 0.01 ) + НормаНаЕздку * КоличествоЕздок ;

вот тут вы что имели ввиду под НаТранспортнуюРаботу ? эта переменная ранее не определена

Добавлено: 01 авг 2013, 12:59

вы должны ее определить ДО использования.
Либо объявить как переменную

Код Выделить

Перем НаТранспортнуюРаботу;
Либо присвоить значение

Код Выделить

НаТранспортнуюРаботу = 0;
либо, возможно, вот тут вместо

Код Выделить

НормаНаТранспортнуюРаботу = Выборка.НаТранспортнуюРаботу;
должно быть

Код Выделить

НаТранспортнуюРаботу = Выборка.НаТранспортнуюРаботу;

Добавлено: 01 авг 2013, 13:00