ЗиК, "Свод по зарплате" и "Свод проводок" - копеечная разница

"ЗиК, 265, хозрасчетная.<br>Свод начислений и удержаний - Всего начислено<br>Свод проводок - Итого начислено в 70-й<br>Не совпадают! Разница 1-2 копейки. Разница появилась после того, как стали распределять затраты документом "Бухгалтерский и налоговый учет начислений и удержаний", и только по сотрудникам с этим распределением. <br>Залез в глобальный модуль, процедура "глПолучитьРаспределениеРезультата".<br><br>Если Результат<>ТаблицаБухУчета.Итог("Сумма") Тогда<br>ОшибкаРазница=Результат-ТаблицаБухУчета.Итог("Сумма");<br> Сообщить("Ошибка у "+ЗаписьИзЖурнала.Объект+" на "+ОшибкаРазница);<br>.............<br><br>Выдала много-много. Выходит, что за счет округления распределяемая сумма может оказаться не равной "Итого распределено". Ошибка в плюс или минус, в общем может компенсироваться, а может и нет. Да и вообще, какие могут быть округления - копейку разницы надо кидать на любую статью!<br><br>Сделал так (Это в самом конце процедуры глПолучитьРаспределениеРезультата):<br> Если Результат<>ТаблицаБухУчета.Итог("Сумма") Тогда<br> КосякРазница=Результат-ТаблицаБухУчета.Итог("Сумма");<br> ТаблицаБухУчета.ВыбратьСтроки();<br> Пока ТаблицаБухУчета.ПолучитьСтроку()=1 Цикл<br> Если ТаблицаБухУчета.Сумма=0 Тогда<br>        Продолжить;<br> КонецЕсли;<br> Если (ТаблицаБухУчета.Сумма+КосякРазница)<0 Тогда<br> Продолжить;<br> КонецЕсли;<br> ТаблицаБухУчета.Сумма=ТаблицаБухУчета.Сумма+КосякРазница;<br>            Прервать;<br> КонецЦикла;<br> Если Результат<>ТаблицаБухУчета.Итог("Сумма") Тогда<br> КосякРазница=Результат-ТаблицаБухУчета.Итог("Сумма");<br> Сообщить("Все равно косяк у "+ЗаписьИзЖурнала.Объект+" на "+КосякРазница);<br> КонецЕсли;<br> КонецЕсли;<br><br>Теперь стабильно имею разницу в 1 копейку. И не могу найти, почему.<br>Может кто сталкивался, подскажите плизз..."

Скорее всего где-то идет округление суммы<br>либо просто нехватает точности при расчете, короче найти это не получиться помоему<br>у нас давно на это забили

"Попробуй не через "ВыбратьСтроки()", а так<br>Для сч=1 По ТаблицаБухУчета.КоличествоСтрок() Цикл<br><<...>><br>КонецЦикла;<br><br><<...>> - через получить и установить значение."

"Да нет, в ЭТОМ месте теперь все ОК. Я там специально оставил:<br><br>Если Результат<>ТаблицаБухУчета.Итог("Сумма") Тогда<br>КосякРазница=Результат-ТаблицаБухУчета.Итог("Сумма");<br>Сообщить("Все равно косяк у "+ЗаписьИзЖурнала.Объект+" на "+КосякРазница);<br>КонецЕсли;<br><br>Где-то еще копейка набегает. Вот сижу - ищу."

"Ну все, нашол решение:<br><br>В функции "глПроводкиЗаПериод" точность полей "Сумма" в таблицах значений "ТаблицаРаспределения", "ТаблицаРаспределенияННП" и "ТаблицаРаспределенияЕСН" сделал 2 знака. Была 10 знаков после запятой. <br><br>Не понятно, зачем в бухгалтерских расчетах точность 10 знаков от зпт. ведь это не промежуточные значения, они выгружаются в бухралтерию, т.е. это суммы проводок!<br><br>В принципе, после этого все пошло нормально, но дополнительно сделал контроль:<br><br>//КонтрольРаспределения<br>//<br>//Параметры<br>// Сумма - распределяемая сумма<br>// ТабЗн - таблица значений с распределением в поле "Сумма"<br>//<br>//Возвращаемое значение.<br>// Нет<br>//<br>//Описание<br>// Процедура проверяет, равна ли сумма распределенного исходной<br>// (может получиться в результате округления) и, в случае необходимости, изменяет распределение<br>// предварительно делается контроль, чтобы изменяемая сумма не стала отрицательной.<br>// При разнице больше 0,01 ничего не изменяется (причина отличия - другая)<br>//<br>Процедура КонтрольРаспределения(Сумма, ТабЗн)<br> Перем Разница, Итог;<br> Если ПустоеЗначение(ТабЗн)=1 Тогда<br> Возврат;<br> КонецЕсли;<br> Разница=Сумма-ТабЗн.Итог("Сумма");<br> Разница=Сумма-Итог;<br> Если (Разница<0.01) И (Разница>-0.01) Тогда<br> ТабЗн.ВыбратьСтроки();<br> Пока ТабЗн.ПолучитьСтроку()=1 Цикл<br> Если (ТабЗн.Сумма+Разница)<0 Тогда<br> Продолжить;<br> КонецЕсли;<br> ТабЗн.Сумма=ТабЗн.Сумма+Разница;<br> Прервать;<br> КонецЦикла;<br> Если Сумма<>ТабЗн.Итог("Сумма") Тогда<br> Сообщить("Ошибка округления.","!!!");<br> КонецЕсли;<br> КонецЕсли;<br>КонецПроцедуры<br><br>И в конце "глПроводкиЗаПериод" вставил строки<br><br>КонтрольРаспределения(Результат, ТаблицаРаспределения);<br>КонтрольРаспределения(Результат, ТаблицаРаспределенияЕСН);<br>КонтрольРаспределения(Результат, ТаблицаУчетаНалогаНаПрибыль);<br><br>Так что все решаемо!"