Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
13 дек 2024, 03:00

УАТ

Автор gliokker, 31 июл 2013, 16:15

0 Пользователей и 1 гость просматривают эту тему.

gliokker

Столкнулся с такой проблемой,У нас на организации поставили Управление автотранспортом, редакция 1.0, Проф (1.0.8.2).В этой конфе неправильно рассчитывается нормы расхода ГСМ. Процедура расчёта находится в закрытом модуле.Я его синхронизировал.Но и там не чего нету,решил переписать формулу.
Функция РасчитатьРасходГСМПоНорме(_вхПЛ, _вхТС, _вхГСМ, _вхОрганизация, Отказ, СписокНормРасход = Неопределено, ЭтоУкрРешение = Ложь) Экспорт
   ОбработкаЗащиты = "";

   Если Не уатЗащищенныеФункции.уатПроверкаЗащиты(ОбработкаЗащиты) Тогда
      Возврат 0;
   КонецЕсли;

   м_вхПЛ = _вхПЛ;
   м_вхТС = _вхТС;
   м_вхГСМ = _вхГСМ;

   м_вхОрганизация = Новый Структура;
   м_вхОрганизация.Вставить("Организация", _вхОрганизация);
   м_вхОрганизация.Вставить("ТочностьОстатковТоплива", уатПраваИНастройки.уатПолучитьПраваИНастройкиПользователя(_вхОрганизация, ПланыВидовХарактеристик.уатПраваИНастройки.ТочностьОстатковТоплива));
   м_вхОтказ = Отказ;
   мСписокНорм = СписокНормРасход;


Рез = ОбработкаЗащиты.Компонента.РасчитатьРасходГСМПоНорме(м_вхПЛ, м_вхТС, м_вхГСМ, м_вхОрганизация, Отказ, СписокНормРасход, Ложь);

Это уже мои дописки.Может кто нибудь с таким сталкивался?Подскажите как правильно исправить формулу?И написать запрос
//         Qн = 0,01 x Hsanc x S x (1 + 0,01 x D) + Hz x Z,            (4)

//где Qн - нормативный расход топлив, л;
//S - пробег автомобиля-самосвала или автопоезда, км;
//Hsanc - норма расхода топлив автомобиля-самосвала или самосвального автопоезда:
//Hsanc = Hs + Hw x (Gпр + 0,5q), л/100 км,
//где Hs - транспортная норма с учетом транспортной работы (с коэффициентом загрузки 0,5), л/100 км;
//Hw - норма расхода топлив на транспортную  работу  автомобиля-самосвала (если при расчете Hs не учтен коэффициент 0,5) и на дополнительную  массу самосвального прицепа или полуприцепа, л/100 т x км;
//Gпр - собственная масса самосвального прицепа, полуприцепа, т;
//q - грузоподъемность  прицепа,  полуприцепа  (0,5q  - с коэффициентом загрузки 0,5), т;
//Hz - дополнительная норма расхода топлив на каждую ездку с грузом автомобиля-самосвала, автопоезда, л;
//Z - количество ездок с грузом за смену;
//D - поправочный коэффициент (суммарная относительная надбавка или снижение) к норме, %.
  //  Рез = (Рез - Hz x Z)/(Hw x (Gпр + 0,5q))
  Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
|   уатНормыРасходаГСМ.НормаНаЕздку,
|   уатПутевойЛист.Задание.(
|      КоличествоЕздок
|   ),
|   уатНормыРасходаГСМ.ЛинейнаяНорма,
|   уатНормыРасходаГСМ.МодельТС.СобственныйВес,
|   уатНормыРасходаГСМ.МодельТС.Грузоподъемность
|ИЗ
|   РегистрСведений.уатНормыРасходаГСМ КАК уатНормыРасходаГСМ,
|   Документ.уатПутевойЛист КАК уатПутевойЛист";

    РезультатЗапроса = Запрос.Выполнить();

Теги:
Рейтинг@Mail.ru

Поиск