Закрытие склада во вторичной валюте - DAX: Программирование

Sergey Petrov · 10.11.2020, 14:17

Коллеги, обнаружил что в методе класса \Classes\InventCostItemDim\updateMarking используется отбор проводок определённого типа:

X++:

    // load
    while select forupdate inventTrans
        index hint OpenItemIdx
        where inventTrans.ValueOpen         == InventTransOpen::Yes     &&
              inventTrans.ItemId            == _itemId                  &&
              inventTrans.InventRefTransId  != ''
        join inventDim
        where inventDim.InventDimId == inventTrans.InventDimId
    {
...

В классе InventCostItemDimSecCur_RU этот метод не перекрыт.
Таким образом, при закрытии склада во вторичной валюте после закрытия в основной, мы не можем отобрать нужные проводки (потому что фильтрация по inventTrans.ValueOpen == InventTransOpen::Yes) и вообще не получаем сопоставлений, аналогичных тем, что были в основной валюте.

То же самое видим в методе класса \Classes\InventCostItemDim\updateServiceItemTrans:

X++:

    while select forupdate inventTrans
        index hint OpenItemIdx
        where inventTrans.ValueOpen         == InventTransOpen::Yes         &&
              inventTrans.ItemId            == _itemId                      &&
             (inventTrans.StatusIssue       == StatusIssue::Sold            ||
              inventTrans.StatusReceipt     == StatusReceipt::Purchased)    &&
              inventTrans.DateStatus        <= inventClosing.TransDate      &&
              inventTrans.InventRefTransId  == '' //marked service item transactions will be settled according to marking principle

    {
...

Но перекрытого метода в потомке-классе InventCostItemDimSecCur_RU нет. Соответственно, результат тот же - мы не получаем сопоставлений во вторичной валюте, аналогичных сопоставлениям в основной валюте.

Заметили только что, потому что наша бизнес-логика активно использует эти сопоставления (коррекции себестоимости) в основной и во вторичной валюте.

Думаю исправить сие вручную. Но, может, кому известны какие-нибудь подводные камни?

SRF · 10.11.2020, 15:32

Если есть возможность загляните в AX 2012 R3, может быть там не только эти баги исправлены, вот как выглядят данные выборки в InventCostItemDim

X++:

countryRegion_RU = SysCountryRegionCode::isLegalEntityInCountryRegion([#isoRU]);

X++:

    // load
    while select forupdate inventTrans
        index hint OpenItemIdx
        // <GEERU>
        where (countryRegion_RU
           && ((inventTransCurrency                     == InventTransCurrency_RU::PrimaryCur
           &&   inventTrans.ValueOpen                   == InventTransOpen::Yes)
           ||  (inventTransCurrency                     == InventTransCurrency_RU::SecondaryCur
           &&   inventTrans.ValueOpenSecCur_RU          == InventTransOpen::Yes))
           || (!countryRegion_RU
           && (inventTrans.ValueOpen                    == InventTransOpen::Yes)))
        // </GEERU>
           && inventTrans.ItemId                        == _itemId
           && inventTrans.MarkingRefInventTransOrigin
        join inventDim
        where inventDim.InventDimId == inventTrans.InventDimId

X++:

protected void updateServiceItemTrans(ItemId _itemId)
{
    InventTrans         inventTrans;
    InventSettlement    inventSettlement;

    RecordInsertList    recordInsertList = new RecordInsertList(tableNum(InventSettlement),true,true);

    // Optimization note: All columns are expected to be included in the index
    while select forupdate inventTrans
        index hint OpenItemIdx
        // <GEERU>
        where ((countryRegion_RU
           && ((inventTransCurrency             == InventTransCurrency_RU::PrimaryCur
           &&   inventTrans.ValueOpen           == InventTransOpen::Yes)
           ||  (inventTransCurrency             == InventTransCurrency_RU::SecondaryCur
           &&   inventTrans.ValueOpenSecCur_RU  == InventTransOpen::Yes)))
           || (!countryRegion_RU
           && inventTrans.ValueOpen         == InventTransOpen::Yes))
        // </GEERU>
          &&  inventTrans.ItemId            == _itemId
          && (inventTrans.StatusIssue       == StatusIssue::Sold
          ||  inventTrans.StatusReceipt     == StatusReceipt::Purchased)
          &&  inventTrans.DateStatus        <= inventClosing.TransDate
          &&  inventTrans.MarkingRefInventTransOrigin   == 0 // marked service item transactions will be settled according to marking principle

    {
        // <GEERU>
        if (countryRegion_RU)
        {
            inventSettlement = this.initInventSettlement(inventTrans,
                                                         inventTransCurrency == InventTransCurrency_RU::PrimaryCur ? inventTrans.financialOpenQty()   : inventTrans.financialOpenQtySecCur_RU(),
                                                         inventTransCurrency == InventTransCurrency_RU::PrimaryCur ? inventTrans.financialOpenValue() : inventTrans.financialOpenValueSecCur_RU(),
                                                         0,
                                                         InventSettleModel::ServiceItem,
                                                         inventTrans.Qty >= 0 ? InventSettleType::Receipt : InventSettleType::Issue,
                                                         #initLedgerDrop
                                                         );
        }
        else
        {
        // </GEERU>
            inventSettlement = this.initInventSettlement(inventTrans,
                                                         inventTrans.financialOpenQty(),
                                                         inventTrans.financialOpenValue(),
                                                         0,
                                                         InventSettleModel::ServiceItem,
                                                         inventTrans.Qty >= 0 ? InventSettleType::Receipt : InventSettleType::Issue,
                                                         #initLedgerDrop
                                                         );
        // <GEERU>
        }
        // </GEERU>

        inventSettlement.SettleTransId      = InventSettlement::nextSettleTransId();
        inventSettlement.insertUsingInsertList(recordInsertList);

        // <GEERU>
        if (!countryRegion_RU
            || inventTransCurrency == InventTransCurrency_RU::PrimaryCur)
        {
        // </GEERU>
            inventTrans.QtySettled             += inventTrans.financialOpenQty();
            inventTrans.CostAmountSettled      += inventTrans.financialOpenValue();
        // <GEERU>
        }
        else
        {
            inventTrans.QtySettledSecCur_RU        += inventTrans.financialOpenQtySecCur_RU();
            inventTrans.CostAmountSettledSecCur_RU += inventTrans.financialOpenValueSecCur_RU();
        }
        // </GEERU>
        this.updateCostAmountStd(inventTrans);
        inventTrans.update();
    }

    recordInsertList.insertDatabase();
}

В DAX2009 насколько я помню регион как то по другому определяется, но смысл думаю ясен.

SRF · 10.11.2020, 16:03

Но это далеко не все артефакты вторичного закрытия в валюте, на одном приложении делал вот такие исправления в DAX2012 R3, думаю в AX2009 такая же беда

InventCostItemDim\updateReceiptAdjustmentTrans

X++:

            while select forceplaceholders pessimisticlock
                #settlementFieldList from settlementReceipt
                index hint RecIdTypeIdx
                where settlementReceipt.TransRecId      == _receipt.RecId
                   && settlementReceipt.SettleType      == InventSettleType::Receipt
                   && settlementReceipt.InventTransId   == _receipt.inventTransOrigin().InventTransId
                   // <GEERU>
                   && (!countryRegion_RU || settlementReceipt.InventTransCurrency_RU == inventTransCurrency)
                   // </GEERU>
                   && settlementReceipt.Cancelled       == 0
                   && settlementReceipt.QtySettled      >  0
            join forupdate
                #settlementFieldList from settlementIssue
                index hint TransactionIdx
                where settlementIssue.SettleTransId     == settlementReceipt.SettleTransId
                   && settlementIssue.SettleType        == InventSettleType::Issue
                   //+ sn 
                   //// <GEERU>
                   //&& (!countryRegion_RU || settlementReceipt.InventTransCurrency_RU == inventTransCurrency)
                   //// </GEERU>
                   && (!countryRegion_RU || settlementIssue.InventTransCurrency_RU == inventTransCurrency)
                   //- sn 
                   && settlementIssue.Cancelled         == 0
                   && settlementIssue.QtySettled        <  0

InventCostItemDimSecCur_RU\updateReceiptAdjustmentTrans

X++:

...
        if (adjustment &&
            (abs(adjustment) < inventClosing.MinTransferValue ||
             (_receipt.CostAmountSecCurAdjustment_RU - _adjustmentLater == 0 &&
             //+ sn
             // Currency::amount(_receipt.CostAmountSettledSecCur_RU / _receipt.QtySettled) == Currency::amount(costAmount / _receipt.QtySettled))))
              Currency::amount(_receipt.CostAmountSettledSecCur_RU / _receipt.QtySettledSecCur_RU, secondaryCurrency) == Currency::amount(costAmount / _receipt.QtySettledSecCur_RU, secondaryCurrency))))
             //- sn
...

            while select forceplaceholders pessimisticlock
                #settlementFieldList from settlementReceipt
                index hint RecIdTypeIdx
                where settlementReceipt.TransRecId              == _receipt.RecId
                   && settlementReceipt.SettleType              == InventSettleType::Receipt
                   && settlementReceipt.InventTransId           == _receipt.inventTransOrigin().InventTransId
                   && settlementReceipt.InventTransCurrency_RU  == inventTransCurrency
                   && settlementReceipt.Cancelled               == 0
                   && settlementReceipt.QtySettled              >  0
            join forupdate
                #settlementFieldList from settlementIssue
                index hint TransactionIdx
                where settlementIssue.SettleTransId             == settlementReceipt.SettleTransId
                   && settlementIssue.SettleType                == InventSettleType::Issue
                   //+ sn
                   //&& settlementReceipt.InventTransCurrency_RU  == inventTransCurrency
                   && settlementIssue.InventTransCurrency_RU    == inventTransCurrency
                   //- sn
                   && settlementIssue.Cancelled                 == 0
                   && settlementIssue.QtySettled                <  0
...

                //+ sn
                //settleValue = Currency::amount(settleValueDec, secondaryCurrency);
                //
                //if (abs(settleValueDec) < abs(settleValue))
                //{
                //    settleValue += (settleValueDec > 0 ? -roundOffunit : roundOffunit);
                //}
                if (abs(settleValueDec) > abs(roundOffunit))
                {
                    settleValue = Currency::amount(settleValueDec, secondaryCurrency);
                }
                else
                {
                    settleValue = sign(settleValueDec) * roundOffunit;
                }
                //- sn

InventCostItemDimSecCur_RU\updateItemReturnAdjustments()

X++:

public void updateItemReturnAdjustments(ItemId _itemId = inventCostList.ItemId)
{
...
this.updateTransKeyAdjust(); //sn
}

InventCostItemDimSecCur_RU\financialOpenValue

X++:

    //+ sn
    //CostAmount  costAmount = _inventTrans.isUpdatedFinancial() ? _inventTrans.financialOpenValueSecCur_RU() : _inventTrans.CostAmountSecCurPhysical_RU;
    CostAmount  costAmount = _inventTrans.isUpdatedFinancial() && _inventTrans.DateFinancial <= inventClosing.TransDate ? _inventTrans.financialOpenValueSecCur_RU() : _inventTrans.CostAmountSecCurPhysical_RU;
    //-sn

+ Разница InventSplitTrans и InventSplitTrans_Remain

Но самым интересным квестом оказался следующий :

1. Если у вас используется две модели по средней(для первичного и для вторичного), то когда вы запускаете вторичное закрытие виртуальный перенос по средней созданный в рамках первичного закрытия становится Нефинансовым (рвётся маркировка между лотами) со всеми вытекающими последствиями.

2. В результате такой ошибки при начислении НР за прошлые периоды все проводки зависают на средней и не корректируют связанные расходы.

Sergey Petrov · 10.11.2020, 17:36

Спасибо за помощь! Посмотрю ещё и в других местах. Вроде у нас проблемы только с указанными мной ранее, но мало ли...

Pavel · 10.11.2020, 20:16

Странно, что автор (один из) сего чуда присутствует на форуме, но скромно молчит.))

EVGL · 10.11.2020, 23:36

Цитата:

Сообщение от Pavel

Странно, что автор (один из) сего чуда присутствует на форуме, но скромно молчит.))

В мой огород камень?

Когда нечего сказать, я молчу: амбиции разработчика я с себя сложил еще в 2008 году, ибо стало скучно. Ждем Microsoft с лучшим решением задачи. Слухи ходят, планы появляются: https://experience.dynamics.com/idea...0-00155d460d59

и исчезают, пока осталось только это: https://docs.microsoft.com/en-us/dyn...n-capabilities Если вчитаться, то это лишь доработка нового Учета затрат в D365 до уровня старого в AX2012, и результат в бухгалтерские книги не попадает.

EVGL · 10.11.2020, 23:48

P.S. Если поизучать сайт https://experience.dynamics.com/idea...4-000d3a4f1244 , то можно убедиться, что речь идет о третьем месте самых нужных функций для D365 в расчете себестоимости. В мире. Не в России. Причем Райнхард напрямую просит улучшить русскую фичу в том плане, чтобы было две и более модели для одной валюты, т.е. стандартная себестоимость в евро + средняя в евро. Так что стеб абсолютно неуместен.

Sergey Petrov · 11.11.2020, 15:56

Коллеги, а что бы вы могли посоветовать, если у нас такое замечено только на паре номенклатур с типом "Услуга"? Откатывать закрытие склада до начала времён не хочется. Может, есть какие-то точечные инструменты?

Вот подумали и решили для начала просто пересчёт запустить. По идее, если там ничего не работало, то накопленные недосопоставленные суммы должны раскидаться.

В общем, пересчёт склада по отдельным позициям (причём, как во вторичной, так и в основной валютах) помог. Всё стало ровненько-красивенько.

Похожие темы
Тема	Автор	Раздел	Ответов	Посл. сообщение
Закрытие склада: обработка маркированных проводок	Sergey Petrov	DAX: Программирование	1	26.06.2015 12:04
Странное закрытие склада и коррекция себестоимости в наличии	Aquarius	DAX: Функционал	11	28.05.2010 11:45
Denis Fedotenko: Себестоимость и закрытие склада	Blog bot	DAX: База знаний и проекты	44	29.03.2010 14:54
Закрытие склада в валюте.	NJD	DAX: Функционал	1	05.10.2005 12:10
Закрытие склада в основной и вторичной валюте, отключенная корреспонденция счетов	May	DAX: Функционал	1	02.04.2004 13:25

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид