The daily Axapta WTF - Страница 9 - Курилка

Logger · 21.11.2014, 16:14

Цитата:

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

AX2009, AX2012, sys слой:

X++:

final class TaxSalesInvoice extends Tax
{
    SalesCalcTax    salesFormLetter;
    ...
}

SalesCalcTax к иерархии FormLetter - никаким боком.
Аналогичные объявления в классах TaxSales, TaxPurch, TaxPurchInvoice, может еще где-то...
Наверно я чего-то не догоняю, но эта невинная "шутка" стоила битого часа впустую потерянного времени

да лана, чо вы придираетесь.

Вон в самом \Classes\ClassFactory\queryRunClass
написали :

X++:

public QueryRun queryRunClass(Args _args)
{
    SysQueryRun ret;

    ret = new SysQueryRun(_args);

    return ret;
}

в параметрах объявлен тип args а приходит Query !
Версия - любая.

**Vadik** · 15.12.2014, 10:38

\Forms\EmplAdvLineCreate_RU\Data Sources\EmplTrans\Methods\init

X++:

qbdsTransCredit.addRange(fieldNum(EmplTrans_RU, AmountCur)).value("@GLS111254");

прелесть какая..

**fed** · 03.04.2015, 14:45

DAX2012 (проверялось для DAX2012R3CU8, но было и раньше). Из непонятных соображений, разработчики запретили маркировку складских проводок по номенклатуре со стандартной себестоимостью. (Новым вариантом стандартной, а не fixed receipt price). В методе tmpInventTransMark:: packTmpMark(), который собственно и строит временную таблицу кандидатов на маркировку, есть следующий замечательный код:

X++:

         includeAll = inventTable.modelGroup().inventModelType().isSettled();

        InventDimGroupSetup::newInventTable(inventTable).inventDimParmActiveFinancialInventory(inventDimParmFinancial);

        while select forceplaceholders inventTrans
            where inventTrans.ValueOpen                     == InventTransOpen::Yes
               && inventTrans.TransChildType                == InventTransChildType::None
               && inventTrans.PackingSlipReturned           == NoYes::No
               && (inventTrans.MarkingRefInventTransOrigin  || includeAll)
               && (!inventTrans.MarkingRefInventTransOrigin
                 || inventTrans.MarkingRefInventTransOrigin == _inventTransOrigin.RecId     // marked with reference
                 || inventTrans.InventTransOrigin           == _inventTransOrigin.RecId)    // is reference itself
            join inventTransOrigin
            where inventTransOrigin.ItemId                  == _inventTransOrigin.ItemId
               && inventTransOrigin.RecId                   == inventTrans.InventTransOrigin
            #inventDimExistsJoin(inventTrans.inventDimId, inventDim, _inventDimCriteria, inventDimParmFinancial)

Если номенклатура использует стандартную себестоимость, то includeAll==false. В этом случае показываются только записи уже примаркированные к текущей складской проводке. Таким образом, можно снять уже существующую маркировку (получившуюся, например, в результате утверждения спланированных заказов), но невозможно примаркировать чего-нибудь к отмаркированной складской проводке. Если первую строчку закомментировать, и поставить вместо нее includeAll=true, то проблема решается.

Во первых, похоже что авторы кода забыли что маркировка используется не только для себестоимости, но и для резервирования в заказанных и манипуляций со сводным планом. (Собственно мы и налетели на эту проблему, после того как я консам посоветовал менять маркировку чтобы повлиять на покрытие в сводном плане).
Во вторых - даже для рассчета себестоимости по модели стандартной себестоимости, маркировка безвредна. В момент вычисления мгновенной себестоимости списания, маркировка игнорируется; Закрытие и пересчет аналогично игнорируют номенклатуру со стандартной себестоимости.

Ну и вообще - уже очень и очень давно напрашивается разделение маркировки для себестоимости и маркировки для сводного/планирования.

Ivanhoe · 03.04.2015, 14:53

Последнее надо бы на Connect и всем миром за это проголосовать.

macklakov · 22.04.2015, 03:36

DAX2012R3CU8, \Classes\SubledgerJournalizer\validateSubledgerJournalAccountEntry

X++:

mainAccount = null; // consider adding a cache

if (mainAccount == null)
{          
...
}

Ace of Database · 22.04.2015, 10:46

AX3.0 SP4
Данный код при компиляции вызывает ошибку "Переполнение во внутреннем стеке компилятора". Помогает разбиение на несколько маленьких контейнеров, которые надо сложить между собой, чтобы получить большой контейнер. До 48 элементов компилятор проглатывает, на 49-м спотыкается.

X++:

//какие поля копировать из плательщика в филиалы
static container fieldsToCopy()
{
    ;
    return
    [
        fieldNum(CustTable, INN_RU),
        fieldNum(CustTable, CodeOKDP_RU),
        fieldNum(CustTable, CodeOKPO_RU),
        fieldNum(CustTable, OKATO_RU),
        fieldNum(CustTable, KPP_RU),
        fieldNum(CustTable, GM_OKONH),
        fieldNum(CustTable, GM_SortIncorporatedId),
        fieldNum(CustTable, GM_Partner_Vend),
        fieldNum(CustTable, GM_Partner_Producer),
        fieldNum(CustTable, GM_Partner_Carrier),
        fieldNum(CustTable, GM_Partner_Cust),
        fieldNum(CustTable, GM_IsInventLocation),
        fieldNum(CustTable, CustItemGroupId),
        fieldNum(CustTable, GM_UnionPartnerPriceId),
        fieldNum(CustTable, GM_UnionStatusGroupId),
        fieldNum(CustTable, Address),
        fieldNum(CustTable, GM_ManagerCustomerId),
        fieldNum(CustTable, zBankAccountId),
        fieldNum(CustTable, zPrintAccount),
        fieldNum(CustTable, PaymTermId),
        fieldNum(CustTable, PaymDayId),
        fieldNum(CustTable, BankAccount),
        fieldNum(CustTable, TaxItemGroupPrepayment),
        fieldNum(CustTable, TaxGroupPrepayment),
        fieldNum(CustTable, PostingProfilePrepayment),
        fieldNum(CustTable, GM_VolumePurchId),
        fieldNum(CustTable, GM_PriorityCustomerId),
        fieldNum(CustTable, GM_CalcInventLocation),
        fieldNum(CustTable, GM_DeliveryType),
        fieldNum(CustTable, GM_IsVat),
        fieldNum(CustTable, GM_AddMarking),
        fieldNum(CustTable, GM_PrintCertificate),
        fieldNum(CustTable, zCFOId),
        fieldNum(CustTable, GM_FactureNotMake),
        fieldNum(CustTable, zPartnerStatus),
        fieldNum(CustTable, GM_VendNumNet),
        fieldNum(CustTable, zSalesPart),
        fieldNum(CustTable, zFactureCorrection),
        fieldNum(CustTable, zFactureAutoPrintChanged),
        fieldNum(CustTable, zFactureNotAutoPrintReturnChanged),
        fieldNum(CustTable, zFactureKeepVersions),
        fieldNum(CustTable, zInventPalletTypeCust),
        fieldNum(CustTable, zCPPCheckEnable),
        fieldNum(CustTable, zOGRN),
        fieldNum(CustTable, zRegistrationDate),
        fieldNum(CustTable, zRegistrationPlace),
        fieldNum(CustTable, zPrintReturnForClient),
        fieldNum(CustTable, Blocked),
        fieldNum(CustTable, zJunkByDeliveryPrice)
    ];
}

S.Kuskov · 22.04.2015, 11:30

Ограничено ли количество элементов в контейнере?

gl00mie · 14.05.2015, 14:23

AX 2012 R2 CU7, \Classes\LedgerUtils_RU\createLedgerTransStorno_RU

X++:

/// Creates storno ledger transactions based on _transDate, _voucher parameters.
public static void createLedgerTransStorno_RU(
    LedgerVoucherObject                _voucherObject,
    TransDate                          _transDate,
    Voucher                            _voucher,
    TaxTransGeneralJournalAccountEntry _taxLinks          = null,
    LedgerPostingType                  _ledgerPostingType = LedgerPostingType::None)
// ... 
while select RecId from localSubledgerVoucherGeneralJournalEntry
where localSubledgerVoucherGeneralJournalEntry.Voucher              == _voucher   &&
      localSubledgerVoucherGeneralJournalEntry.VoucherDataAreaId    == curext()   &&
      localSubledgerVoucherGeneralJournalEntry.AccountingDate       == _transDate
join RecId, PostingLayer, JournalCategory from localGeneralJournalEntry
// ...
_voucherObject.parmPostingLayer(localGeneralJournalEntry.PostingLayer);
_voucherObject.parmJournalCategory(localGeneralJournalEntry.JournalCategory);
_voucherObject.addTrans(ledgerVoucherTransObject);

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

skuull · 05.06.2015, 05:41

Форма SysRecordInfo метод buildForm:

X++:

...
showAllFieldsForm = new Form();
showAllFieldsForm.name('_ShowAllRecords_'+dictTable.name());
...

Если имя таблици + _ShowAllRecords_ превышает 40 символов ловим ексепшен.
Правда на R3 уже починили.

skuull · 23.06.2015, 00:52

Форма SystemDate метод init()

X++:

...
//Handle security explicit as the form can be started from the status bar
    switch (sysDictMenu.rights())
    {
        case AccessType::NoAccess:
            throw error("@SYS57330");

        case AccessType::View:
            element.form().design().control(identifierstr(newdate)).allowEdit(false);
            break;
    }
...

Все бы хорошо но контрола newdate на форме нет

pedrozzz · 09.09.2015, 14:23

Ax2012 R3
Класс PriceDiscSmartRounding

X++:

boolean checkRoundingRuleOK()
{
    boolean ok = true;

    infolog.clear(0);
    ...

Попробуйте использовать стандартное психологическое округление в коде и, возможно, когда-нибудь обнаружите, что все накопленные в результате работы какой-нибудь ПО сообщения в инфолог вот так просто стираются и никто ничего не видит. Убивал бы за такое

gl00mie · 03.07.2015, 17:07

AX 2012 R2 CU7, \Classes\InventCostItemDimSecCur_RU\updateReceiptAdjustmentTrans

X++:

if (adjustment &&
    (abs(adjustment) < inventClosing.MinTransferValue ||
     (_receipt.CostAmountSecCurAdjustment_RU - _adjustmentLater == 0 &&
      Currency::amount(_receipt.CostAmountSettledSecCur_RU / _receipt.QtySettled) == Currency::amount(costAmount / _receipt.QtySettled))))
{
    if (! this.financialOpenQty(_receipt))
    {
        this.createErrorAdjustment(_receipt, -adjustment);
    }

    adjustment  = 0;
}

Код не проверяет _receipt.QtySettled, поэтому закрытие склада в валюте иногда валится с делением на ноль

Vasiliy Petrovich · 03.07.2015, 21:46

WHSWorkExecuteDisplay*
как можно было купить такой код? :facepalm:

demoded · 03.08.2015, 23:39

интересно, зачем могла понадобиться такая магия?

X++:

    #define.7(7)
    #define.8(8)
    #define.15(15)

нарыл в SalesTotals.classDeclaration (AX2012R2CU7). далее потом нигде этим макросы не используются

belugin · 03.08.2015, 23:49

Цитата:

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

интересно, зачем могла понадобиться такая магия?

Я думаю, у кого-то потребовали по-быстрому исправить ошибки BestPractice, а времени было не много

Link · 02.09.2015, 17:23

LogisticsAddresssCity

Stitch_MS · 09.09.2015, 12:33

Link · 09.09.2015, 12:42

Цитата:

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

Похоже, класс для взрослых

X++:

class SysVersionControlInfo
{
#define.xxx('xxx')
}

skuull · 17.09.2015, 07:16

Может было уже 2012 RTM

class PriceDiscAdmCheckPost method run

X++:

    warningsFound = this.checkJournal(_acceptWarnings);
    postJournal = (warningsFound && _acceptWarnings) ||
                  !infologLine();

а в checkJournal :

X++:

        priceDiscAdmTrans.validateWrite();

        if (oldValue != infolog.num())
        {
            while (oldValue < infolog.num())
            {
                oldValue++;
                priceDiscAdmTrans.Log = priceDiscAdmTrans.Log + infolog.text(oldValue)+'\n';
                errorsFound = true;
            }
        }

skuull · 07.03.2016, 10:20

RunBaseBatch.prepareForRun

X++:

...
            // the following if statement tests if the control is an I/O type
            // control. It would be better if there was support of static methods
            // from the controls team to do this, but there isn't, so the test is inline
            if (
                control is FormBuildButtonControl ||
                control is FormBuildCheckBoxControl ||
                control is FormBuildComboBoxControl ||
                control is FormBuildCommandButtonControl ||
                control is FormBuildDateControl ||
                control is FormBuildDateTimeControl ||
                control is FormBuildDropDialogButtonControl ||
                control is FormBuildFilterPaneControl ||
                control is FormBuildFunctionButtonControl ||
                control is FormBuildGridControl ||
                control is FormBuildGuidControl ||
                control is FormBuildHTMLControl ||
                control is FormBuildIntControl ||
                control is FormBuildInt64Control ||
                control is FormBuildListBoxControl ||
                control is FormBuildListControl ||
                control is FormBuildManagedHostControl ||
                control is FormBuildMenuButtonControl ||
                control is FormBuildProgressControl ||
                control is FormBuildRadioControl ||
                control is FormBuildRealControl ||
                control is FormBuildReferenceGroupControl ||
                control is FormBuildRichTextControl ||
                control is FormBuildSegmentedEntryControl ||
                control is FormBuildStaticTextControl ||
                control is FormBuildStringControl ||
                control is FormBuildTableControl ||
                control is FormBuildTimeControl ||
                control is FormBuildTreeControl)
            {
                return;
            }
....