Изменения в типовых конфигурациях.
Бухгалтерия для Беларуси. Редакция 1.6
- Например для печати ТТН и ТН, документа «РеализацияТоваровУслуг» и других
"ЧЦ=19; ЧДЦ=0; ЧРГ=' '"
заменить на (можно глобальной заменой)ФормированиеПечатныхФорм.ФорматСуммПечать(ВалютаДокумента).
гдеФорматСуммПечать
// Стандартная для данной конфигурации функция форматирования сумм // // Параметры: // Сумма - число, которое мы хотим форматировать, // Валюта - ссылка на элемент справочника валют, если задан, то к в результирующую строку // будет добавлено представление валюты // ЧН - строка, представляющая нулевое значение числа, // ЧРГ - символ-разделитель групп целой части числа. // // Возвращаемое значение: // Отформатированная должным образом строковое представление суммы. // Функция ФорматСуммПечать(Валюта) Экспорт СтрокаЗнаковДробнойЧасти = Валюта.ПараметрыПрописиНаРусском; СтрокаПараметров = СтрЗаменить(СтрокаЗнаковДробнойЧасти, ",", Символы.ПС); ЧислоЗнаковДрЧасти = ?(ЗначениеЗаполнено(СокрЛП(СтрПолучитьСтроку(СтрокаПараметров, 9))),СокрЛП(СтрПолучитьСтроку(СтрокаПараметров, 9)),0); ФорматнаяСтрока = "ЧЦ=19; ЧДЦ=" + ЧислоЗнаковДрЧасти + "; ЧРГ=' '"; Возврат ФорматнаяСтрока; КонецФункции // ФорматСумм()
- Изменить Регистры сведений КурсыВалют Точность числа 4
- Проверить разрядность КурсВзаиморасчетов, внекоторых документах стоит Число(10,2)),например в документе ПлатежноеПоручениеВходящее и ПлатежноеПоручениеИсходящее.
Управление торговлей для Беларуси, редакция 2.0
- Например для печати ТТН и ТН, документа «РеализацияТоваровУслуг» и других
Пример
СуммаНДС = Окр(Строка.СуммаНДС,0,1);
заменить на
СуммаНДС = ОбщегоНазначения.ОкруглитьСумму(Строка.СуммаНДС, ВалютаДокумента);
Где
ОкруглитьСумму
//НачМинск// Функция округляет сумму в соответствии с количеством знаков в дробной части ,
//указанных в справочнике "Валюты"
//Параметры:
//Валюта - тип СправочникСсылка.Валюты
//Сумма - тип число,сумма ,которую необходимо округлить
//Возвращаемое значение:
//число
//
Функция ОкруглитьСумму(Сумма,Валюта) Экспорт
Если Не ПустаяСтрока(Валюта.ПолеПрописиДлинаДробнойЧасти)
И Найти("0123456789", СокрЛП(Валюта.ПолеПрописиДлинаДробнойЧасти))>0 Тогда
ЧислоЗнаковДрЧасти = Число(Валюта.ПолеПрописиДлинаДробнойЧасти);
РезСумма = Окр(Сумма,ЧислоЗнаковДрЧасти,1);
Возврат РезСумма;
Иначе
Возврат Сумма;
КонецЕсли;
КонецФункции//ОкруглитьСуммуВСоответствииССправочникомВалюты()
