Показать сообщение отдельно
Старый 27.03.2012, 13:24   #8  
Alexanderis.ua is offline
Alexanderis.ua
Участник
 
53 / 40 (2) +++
Регистрация: 25.12.2008
Адрес: Киев, Украина
Вдруг кому интересно - проблему победили (еще тогда, все никак руки не доходили написать).
Насколько правильно вообще использовать такие проводки и степень полезности такого функционала оставим за кадром.

Проблема, как и можно было догадаться - в классах LedgerBond*
Есть такая табличка, TmpLedgerBondWorkTable_RU, которая собирает информацию о всех проводках к корреспонденции.
Так вот у нее есть поля сумм для дебета и кредита в валюте. Т.е. корреспонденция в разных валютах предполагалась изначально. Но по какой-то причине в классе LedgerBondServer_RU в методе splitTrans об этом забыли.

В результате внутренний метод doSplit содержит строку
X++:
    amountCur = resSign * abs(tmpBond.AmountCurDebit);
т.е. на кредитовую валютную сумму просто забили

Перепишем метод следующим образом
X++:
// SOI -->
/*
void doSplit
*/
void doSplit(DebCredUnknown_RU _direction = DebCredUnknown_RU::Unknown)
// SOI <--
{
    // ... // 

    // SOI -->
    /*
    amountCur = resSign * abs(tmpBond.AmountCurDebit);
    */
    switch(_direction)
    {
        case DebCredUnknown_RU::Credit:
            amountCur = resSign * abs(tmpBond.AmountCurCredit);
            break;
        case DebCredUnknown_RU::Debit:
        default:
            amountCur = resSign * abs(tmpBond.AmountCurDebit);                    
    }
   // SOI <--

    // ... //
}
Ну и везде по методу splitTrans добавляем передачу соответствующего параметра (4 вызова - по 2 на дебет и кредит).
Это решает проблему подсчета сумм корреспонденции при проверке.

Далее, в том же методе splitTrans производим замену
X++:
    // SOI -->
    /*
     _ledgerTrans.calcCrediting();
    */
    _ledgerTrans.calcCreditingBond();
    // SOI <--
// SOI <--
где
X++:
public void calcCreditingBond()
{
    Amount tmpAmount = this.AmountCur ? thisAmountcur : 
                                                   this.AmountMST ? this.AmountMST :
                                                   this.AmountMSTSecond;
    ;
    
    this.Crediting = (tmpAmount < 0);
}
Использование тут стандартного метода определения кредитования, мягко говоря, непонятно. Нам при корреспонденции нужно знать реальный знак операции, а не была ли это прямая или обратная проводка.
Это исправление исключает проблему нескорреспондированных операций (до этого были операции, которые из-за галки "коррекция" оставались на одной стороне).

И, наконец, ручная корреспонденция.
Точно так же - забыли про корреспонденцию в разных валютах.
Перед корреспонденцией и непосредственно после нее идет суммирование дебитовых и кредитовых сумм корреспондируемых проводок во всех валютах (! опять-таки, предполагалась корреспонденция в разных валютах). Это происходит для контроля корректности (что сальдо операции до и после не изменилось).

Подсчет сумм для контроля в случае одной валюты даст 0 UAH (дебет = кредит). И сколько бы раз мы его не запускали, будет 0 (при условии если в самом деле суммы совпадают, конечно).
В случае с разными валютами, получаем -200 UAH, +20 EUR. После непосредственно корреспонденции проверка запускается еще раз (на той же мапе) и получаем +200 UAH, -10 EUR, что в сумме дает те же нули.

А вот ручная корреспонденция запускает проверку 3 раза . До, после корреспонденции. И еще раз явно - при загрузке проводок в форму корреспонденции. Зачем - неясно, но это порождает ошибку расхождения сумм. Убираем.
LedgerBondServerManual_RU.loadUnbondedTrans
X++:
    this.insTransList(originalTransList, ledgerTrans);
    // SOI -->
    /*
    this.addCheckBalance(ledgerTrans);
    */
    // SOI <--
В результате ошибок нет. Все корреспондируется, все счастливы.
__________________
If it ain't broke, take it apart and find out why (с)
За это сообщение автора поблагодарили: mnt_dx (1).