Проблема с округлением в отчете о занятости и трудоустройстве инвалидов

Форум Учет и отчетность Зарплата и кадровый учет (Зарплата)

1. CO-U-NT 27.01.21 17:58 Сейчас в теме

При заполнении показателя среднесписочной численности, на определенном этапе попадаем в функцию

Функция ОкруглитьПоПравилуЧетнойЦифры(Значение)
	
	Если (Значение = Неопределено) или (Значение = NULL) Тогда
		Возврат 0;
	КонецЕсли;	
	
	ЦелаяЧасть = Цел(Значение);
	ДробнаяЧасть = Значение - ЦелаяЧасть;
	Если (ДробнаяЧасть >= 0.6) или (ДробнаяЧасть < 0.5) Тогда
		//Стандартно
		Возврат Окр(Значение);
	КонецЕсли;
	ПоловинаЦелой = Цел(ЦелаяЧасть/2);
	Если (ЦелаяЧасть = (ПоловинаЦелой*2)) Тогда
		//четное - округляем в меньшую
	    Возврат ЦелаяЧасть;
	Иначе
		//нечетное - округляем в большую
		Возврат ЦелаяЧасть+1;
	КонецЕсли;	
	
КонецФункции

Показать

Если входящее значение лежит в пределах диапазона от значение = 0,5 до значение < 0,6 округляет до 0.

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. SergVB 21 27.01.21 18:12 Сейчас в теме

(1) В каком месте функция? Какой отчет? В чем вопрос?

4. CO-U-NT 28.01.21 21:08 Сейчас в теме

(2) МодульФормы, Процедура ЗаполнитьАвто() Экспорт
тут ловим

ТаблСреднеспЧисленности = ПроведениеРасчетов.ПолучитьСреднююЧисленность(мДатаНачалаПериодаОтчета, КонецКвартала(мДатаКонцаПериодаОтчета), "ССЧ", "КВАРТАЛСНАЧАЛАГОДА", Организация, "ИНВШТАТ");

РегламентированныйОтчет10ПИ. Как лучше/оптимальнее решить проблему ?

5. CO-U-NT 28.01.21 21:11 Сейчас в теме

(2) и, собственно, уже в указанной процедуре натыкаемся на

ТекСтрока.Средняя = ?( КвоМесяцев = 0, 0, ОкруглитьПоПравилуЧетнойЦифры(ТекСтрока.Средняя/КвоМесяцев));

3. FatPanzer 27.01.21 18:15 Сейчас в теме

А проблема-то в чем?

6. CO-U-NT 28.01.21 21:12 Сейчас в теме

(3)округляет криво, Как лучше/оптимальнее решить проблему ?

7. FatPanzer 28.01.21 21:37 Сейчас в теме

(6) Может потому, что так положено по методике именно этого отчета?

8. CO-U-NT 28.01.21 21:40 Сейчас в теме

(7)Точно нет.

9. FatPanzer 28.01.21 21:45 Сейчас в теме

(8) Ну так исправьте так, как вам требуется. Проблема-то в чем?

10. CO-U-NT 29.01.21 10:51 Сейчас в теме

(9)Блин, я только начинаю программировать (ведь вопрос-то по сути не сложный, как я понимаю) вот и спрашиваю у опытных прогеров как лучше, Вы говорите - Исправь как требуется... Я-то могу исправить как мне нравится, но потом когда следующий прогер работающий с этой ИБ откроет код, то скорее всего, будет плеваться - какой криворукий урод это написал!!! ВОт я и спрашиваю наперед, что бы научиться писать не как мне хочется, а аккуратно, лаконично и правильно.

Оставьте свое сообщение

E-mail: