Ошибка контролей
Добавлено: 13.03.2009 14:20
У нас всем УРМщикам передавался код бюджета районный = 146. Из за этого контроли не работали у поселенческих организаций. То ли мы забыли какое то из обновлений поставить, то ли реально ошибка есть.
В ПоддержкаФорм_яПроверяемых.abl
//результат.Values("Бюджет") := ЦелаяКонстанта(-1, 3); //текущий бюджет - эту строчку пришлось закомментировать.
В ПоддержкаФорм_яПроверяемых.abl
Код: Выделить всё
функция СоздатьОграничения(ВидКонтроля: целое) : IVariables;
переменные
Год, Месяц, День : целое;
ТекДата : дробное;
начало
результат := CreateVariables;
ТекДата := ТекущаяДатаССервера;
ПолучитьДату(ТекДата, Год, Месяц, День);
результат.Values("НачальнаяДата") := "00.00.0000";
//результат.Values("НачальнаяДата") := "00.00." + ЦелоеВСтроку(Год);
//начало года //ДатаВСтроку(РасширДатаВОбычную(Год*10000 + 101));
//результат.Values("КонечнаяДата") := ДатаВСтроку(ТекДата); //текущая дата
//результат.Values("Бюджет") := ЦелаяКонстанта(-1, 3); //текущий бюджет
результат.Values("ВидКонтроля") := ЦелоеВСтроку(ВидКонтроля);
результат.Values("БюджетныйКонтроль") := '1'; // для идентификации, что алгоритмы вызываются из бюджетного контроля
конец;//результат.Values("Бюджет") := ЦелаяКонстанта(-1, 3); //текущий бюджет - эту строчку пришлось закомментировать.