2015-04-21 14:45:37

Краткое описание :

Округление стоимости при реализации Спецодежды

Описание :

Выбытие

Что измененно :

При оформлении Реализации необходимо учитывать настройки округления
ROUND.SELL
"Настройки Галактики \ Логистика \ Документы \ Управление сбытом \ Округление в документах сбыта"
.

На данный момент работает так:

function SpDocBuf_SetAnotherPrice: boolean;
var wasError: boolean;
{
...
_loop SpMoveOsCur
// карточка спецификации операции Выбытие
if (GetFirst SpDocBuf where ((SpMoveOsCur.nRec == SpDocBuf.NRecSpStep)) = tsOk)
{
SpDocBuf.Price := SpDocBuf_GetPrice(TSpMoveOs(SpMoveOsCur.buffer), NastrOsCur.field4 = 1, false);
...


А хотело бы так, как это сделано при ручном создании "Накладной на отпуск" - с использованием Паскалевских функций округления, например fRoundRub2:

(файл _src\CompSrc\L\L_SoprDoc\vip\ChkSum.vpp)

//округление цены при включенной настройке
Procedure FSRoundPrice;
{
if (SpSopr.KolOpl <> 0)
if FSRoundRub(SpSopr.Price * SpSopr.KolOpl) <> (SpSopr.Price * SpSopr.KolOpl) OR
FSRoundVal(SpSopr.VPrice * SpSopr.KolOpl) <> (SpSopr.VPrice * SpSopr.KolOpl)
{
SpSopr.Price := FSRoundRub(SpSopr.Price * SpSopr.KolOpl) / SpSopr.KolOpl;
!!!НЕЛЬЗЯ ЭТОГО ДЕЛАТЬ SpSopr.rPrice := SpSopr.Price;
SpSopr.VPrice := FSRoundVal(SpSopr.VPrice * SpSopr.KolOpl) / SpSopr.KolOpl;
!!!НЕЛЬЗЯ ЭТОГО ДЕЛАТЬ SpSopr.rVPrice := SpSopr.VPrice;
}
}

Как измененно :

Округление производится согласно настройки
"Настройки Галактики \ Логистика \ Документы \ Управление сбытом \ Округление в документах сбыта".