CustVendSettle просмотр кода

[Wamr]

DAX 2009 RU 5
просматривал код и возникли вопросы
- метод settleNow
строка 552 и далее

            if (!areDebitsDone && custVendTransDebit.AmountCur != 0)
            {
                //find the offset to the custVendTransDebet still open
                select firstonly custVendTransCredit order by RecId desc
                where custVendTransCredit.RecId == custVendTransDebit.OffsetRecId;

                this.setStillOpenValues(custVendTransDebit,
                    custVendTransOpenDebit.RecId,
                    specTransDebit.Balance01,
                    custVendTransCredit.Dimension,
                    debitTransState);
            }

            if (!areCreditsDone && custVendTransCredit.AmountCur != 0)
            {
                this.setStillOpenValues(custVendTransCredit,
                    custVendTransOpenCredit.RecId,
                    specTransCredit.Balance01,
                    custVendTransCredit.Dimension,
                    debitTransState); // ???
            }

почему (или зачем) при сохранении кредитовой проводки с ней идет состояние дебетовой?

- метод processStillOpenTransactions
Делается цикл по еще открытым проводкам.

    for (currentIndex = stillOpenIndex; currentIndex > 0; currentIndex--)
    {
        // Find over/under amount for the company
        currentCompany = stillOpenCompany[stillOpenIndex];
        changecompany(currentCompany)
        {
            // There can be multiple transactions per company in the index, but we only want to
            // process each company once for over/under taxes.  Will use set called companiesWithTaxProccesed
            // and if company is already in the set this is indication that taxes where already calculated
            // and shouldn't be calculated again.
            if (companiesWithTaxProcessed.in(currentCompany))
            {
                calcTaxForCompany = false;
            }
            else
...

Здесь каждый раз берется код компании для проводки с индексом stillOpenIndex, который не меняется. Надо либо changeCompany вынести из цикла, либо все-таки брать компанию для currentIndex .

- метод processStillOpenTransactions
объявлена переменная isCrossCompany.
Единственный раз ее значение меняется в цикле по проводкам. То есть, с какого-то момента все последуюшие проводки обрабатывются с признаком isCrossCompany = true, независимо от данных в самих проводках.
Это такая задумка или недодумка?

[tav]

Это еще не все. Вы взгляните на строки в методе settleForDifferentProfilesOrPrepayment:

        if (exchRateDiffCalcType == ExchRateDiffCalcType_W::Standard ||   firstCustVendTrans.RecId == custVendTransCredit.RecId)
        {
            closeAmountMST = _settleAmountMstDebit;
        }

сопоставил предоплату 3100 руб. с валютной отгрузкой 100$ по курсу 30. При таком алгоритме в основной валюте получается сумма 3000, хотя сумма в валюте проводки 3100 и валюта проводки - рубли.

[Sada]

\Classes\CustVendSettle\settleForDifferentProfilesOrPrepayment

        if (reversePrepayment)
        {
            CustVendSettle::postingProfileSettle_RU(ledgerVoucher,
                                                    custVendTransDebit,
                                                    this.amount(_settleAmountCurCredit),
                                                    custVendTransSettlement,
                                                    settlementGroupPlaceHolder,
                                                    custVendTransDebit.Dimension,
                                                    custVendTransDebit.PostingProfile,
                                                    LedgerTransTxt::Settlement,
                                                    this.amount(- closeAmountMST),
                                                    0,
                                                    custVendTransCredit.CurrencyCode);

            CustVendSettle::postingProfileSettle_RU(ledgerVoucher,
                                                    custVendTransCredit,
                                                    this.amount(-_settleAmountCurCredit),
                                                    custVendTransSettlement,
                                                    settlementGroupPlaceHolder,
                                                    custVendTransCredit.Dimension,
                                                    custVendTransCredit.PostingProfile,
                                                    LedgerTransTxt::Settlement,
                                                    this.amount(closeAmountMST));
        }
        else
        {
            CustVendSettle::postingProfileSettle_RU(ledgerVoucher,
            // </GEEU>
                                                    custVendTransDebit,  ??????????????????????????????????????????????????????????????????????
                                                    this.amount(_settleAmountCurDebit),
                                                    custVendTransSettlement,
                                                    settlementGroupPlaceHolder,
                                                    custVendTransCredit.Dimension,
                                                    custVendTransCredit.PostingProfile,
                                                    LedgerTransTxt::Settlement,
                                                     /* <SYS>
                                                     this.amount(_settleAmountMstDebit));
        }
        else
        {
            CustVendSettle_Vend::postingProfileSettle(ledgerVoucher,
            </SYS> */
                                                    // <GEEU>
                                                    this.amount(closeAmountMST));

            CustVendSettle::postingProfileSettle_RU(ledgerVoucher,
            // </GEEU>
                                                    custVendTransDebit,
                                                    this.amount(-_settleAmountCurDebit),
                                                    custVendTransSettlement,
                                                    settlementGroupPlaceHolder,
                                                    custVendTransDebit.Dimension,
                                                    custVendTransDebit.PostingProfile,
                                                    LedgerTransTxt::Settlement,
                                                      /* <SYS>
                                                      this.amount(-_settleAmountMstDebit));

            CustVendSettle_Vend::postingProfileSettle(ledgerVoucher,
                                                      custVendTransDebit,
                                                      this.amount(_settleAmountCurDebit),
                                                      custVendTransSettlement,
                                                      settlementGroupPlaceHolder,
                                                      custVendTransCredit.Dimension,
                                                      custVendTransCredit.PostingProfile,
                                                      LedgerTransTxt::Settlement,
                                                      this.amount(_settleAmountMstDebit));
                                                      </SYS> */
                                                    // <GEEU>
                                                    this.amount(- closeAmountMST));
        }

Мне показалось или там custVendTransCredit должно быть?

[S.Kuskov]

Цитата:

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

Мне показалось или там custVendTransCredit должно быть?

Не только вам Сопоставление разных профилей (договоры)

[kashperuk]

Только вот недавно эту тему увидел.
Баги создал, но уже наверное поздно, но может пофиксят хотфиксом каким-нить.

[Sada]

И снова здравствуйте, любители сопоставлений! Оказывается, просто замена дебетовой проводки на кредитовую чинит одно, но ломает другое. Оказывается, нужно там еще передать валюту из ДЕБЕТОВОЙ проводки. Вот так:

            // </GEEU>
                                                    // BugFix 26.12.12 -->
                                                    //custVendTransDebit,
                                                    custVendTransCredit,
                                                    // BugFix 26.12.12 <--
                                                    this.amount(_settleAmountCurDebit),
                                                    custVendTransSettlement,
                                                    settlementGroupPlaceHolder,
                                                    custVendTransCredit.Dimension,
                                                    custVendTransCredit.PostingProfile,
                                                    LedgerTransTxt::Settlement,
                                                     /* <SYS>
                                                     this.amount(_settleAmountMstDebit));
        }
        else
        {
            CustVendSettle_Vend::postingProfileSettle(ledgerVoucher,
            </SYS> */
                                                    // <GEEU>
                                                    this.amount(closeAmountMST)
                                                    // BugFix 19.02.13 -->
                                                    , 0
                                                    , custVendTransDebit.CurrencyCode);      !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
                                                    // BugFix 19.02.13 <--

по аналогии как в

        if (reversePrepayment)
        {
            CustVendSettle::postingProfileSettle_RU(ledgerVoucher,
                                                    custVendTransDebit,
                                                    this.amount(_settleAmountCurCredit),
                                                    custVendTransSettlement,
                                                    settlementGroupPlaceHolder,
                                                    custVendTransDebit.Dimension,
                                                    custVendTransDebit.PostingProfile,
                                                    LedgerTransTxt::Settlement,
                                                    this.amount(- closeAmountMST),
                                                    0,
                                                    custVendTransCredit.CurrencyCode); !!!!!!!!!!!!!!!   :)

            CustVendSettle::postingProfileSettle_RU(ledgerVoucher,
                                                    custVendTransCredit,
                                                    this.amount(-_settleAmountCurCredit),
                                                    custVendTransSettlement,
                                                    settlementGroupPlaceHolder,
                                                    custVendTransCredit.Dimension,
                                                    custVendTransCredit.PostingProfile,
                                                    LedgerTransTxt::Settlement,
                                                    this.amount(closeAmountMST));

Фишка вот в чем, если сопоставляются две проводки в разных валютах, то Аксапта из Евро(например) с неправильно подсунутой валютой пытается перевести опять в Евро

[b_nosoff]

\Classes\CustVendSettle\calcCreditToDebitExchRate()

    // Use the payment date and exchange rates from the invoice company.
    exchangeRateHelper = ExchangeRateHelper::newExchangeDate(Ledger::primaryLedger(CompanyInfo::findDataArea(debitCompany).RecId),
                                                                custVendTransDebit.CurrencyCode,  // Invoice currency
                                                                custVendTransCredit.TransDate); // Payment date
                                                                // <--

AX2012 R2 CU7

UPDATE: Хотя, тут, может быть, все верно - рассчитывается курс на дату платежа, а не накладной. Но неочевидно как-то, похоже на копипасту )