Срочно!!! Программист 1С 8.0, Москва

Поиск временных и постоянных исполнителей.

Модератор: Yurich

betapress
Сообщения: 161
Зарегистрирован: 01 авг 2006, 18:25

Вакансия закрыта!!!
AGENT
Сообщения: 1
Зарегистрирован: 11 сен 2009, 14:07

Уважаемые. ПОМОГИТЕ ПОЖАЛУЙСТА. Стаж работы высчитывается совершенно не верно. Какая то ошибка внутри процедуры, не могу понять. Пожалуйста помогите, посоветуйте что-нибудь, очень жду. Вот весь модуль:

Перем ИтогоЛет;
Перем ИтогоМесяцев, СуммаМесяцев;
Перем ИтогоДней, СуммаДней;


Процедура ПериодыНачДатаПриИзменении(Элемент)
СтрокаТабличнойЧасти = ЭлементыФормы.Периоды.ТекущиеДанные;

ОбщегоНазначения.РазобратьРазностьДат(СтрокаТабличнойЧасти.КонДата, СтрокаТабличнойЧасти.НачДата, СтрокаТабличнойЧасти.Лет, СтрокаТабличнойЧасти.Месяцев, СтрокаТабличнойЧасти.Дней);

СуммаДней = СуммаДней + СтрокаТабличнойЧасти.Дней;
ИтогоДней = СуммаДней - (Цел(СуммаДней /30))*30;
СуммаМесяцев = Цел(СуммаДней /30)+ СтрокаТабличнойЧасти.Месяцев;
ИтогоМесяцев = СуммаМесяцев - (Цел(СуммаМесяцев /12))*12;
ИтогоЛет = Цел(СуммаМесяцев /12) + СтрокаТабличнойЧасти.Лет;//+Лет2+Лет3+Лет4+Лет5+Лет6+Лет7+Лет8+Лет9+Лет10+Лет11+Лет12+Лет13+Лет14+Лет15;
ЭлементыФормы.ИтоговаяСтрока.Заголовок = " Итого: "+ ИтогоЛет + " лет, " + ИтогоМесяцев + " месяцев, "+ ИтогоДней + " дней." ;

КонецПроцедуры


Процедура ПериодыКонДатаПриИзменении(Элемент)
СтрокаТабличнойЧасти = ЭлементыФормы.Периоды.ТекущиеДанные;

ОбщегоНазначения.РазобратьРазностьДат(СтрокаТабличнойЧасти.КонДата, СтрокаТабличнойЧасти.НачДата, СтрокаТабличнойЧасти.Лет, СтрокаТабличнойЧасти.Месяцев, СтрокаТабличнойЧасти.Дней);

СуммаДней = СуммаДней + СтрокаТабличнойЧасти.Дней;
ИтогоДней = СуммаДней - (Цел(СуммаДней /30))*30;
СуммаМесяцев = Цел(СуммаДней /30)+ СтрокаТабличнойЧасти.Месяцев;
ИтогоМесяцев = СуммаМесяцев - (Цел(СуммаМесяцев /12))*12;
ИтогоЛет = Цел(СуммаМесяцев /12) + СтрокаТабличнойЧасти.Лет;//+Лет2+Лет3+Лет4+Лет5+Лет6+Лет7+Лет8+Лет9+Лет10+Лет11+Лет12+Лет13+Лет14+Лет15;
ЭлементыФормы.ИтоговаяСтрока.Заголовок = " Итого: "+ ИтогоЛет + " лет, " + ИтогоМесяцев + " месяцев, "+ ИтогоДней + " дней." ;

КонецПроцедуры

ИтогоДней = 0;
ИтогоМесяцев = 0;
ИтогоЛет = 0;
СуммаДней = 0;
СуммаМесяцев = 0;
Ответить