Effective "Date effectivness"

[EVGL]

Дамы и господа, как вы считаете, можно ли запрограммировать следующий код в AX2012 лаконичнее:

public static void setStopped(
    InventItemOrderSetupMap     _inventItemOrderSetupMap,
    ItemStopped                 _stopped,
    date                        _effectiveDate = systemDateGet())
{

    InventItemSetupStopped  record;

    ttsBegin;

    record = InventItemSetupStopped::find(_inventItemOrderSetupMap.TableId, _inventItemOrderSetupMap.RecId, _effectiveDate);

    record.validTimeStateUpdateMode(ValidTimeStateUpdate::Correction);

    if (record && record.Stopped != _stopped)
    {
        while select forUpdate validTimeState(_effectiveDate) record
            where record.InventItemSetupRecId   == _inventItemOrderSetupMap.RecId
               && record.InventItemSetupTableId == _inventItemOrderSetupMap.TableId
               && record.ValidTo                != _effectiveDate
        {
            record.ValidTo = max(_effectiveDate-1, record.ValidFrom);
            if (record.validateWrite())
                record.update();
        }

    }

    select forUpdate validTimeState(_effectiveDate) record
        where record.InventItemSetupRecId   == _inventItemOrderSetupMap.RecId
           && record.InventItemSetupTableId == _inventItemOrderSetupMap.TableId
           && record.ValidTo                == _effectiveDate;

    record.initFromInventItemOrderSetupMap(_inventItemOrderSetupMap);
    record.ValidFrom = _effectiveDate;
    record.ValidTo = dateMax();
    record.Stopped = _stopped;

    if (record.validateWrite())
        record.write();

    ttsCommit;
}

[mazzy]

а что за версия?

судя по функции validTimeState - акс2012.
но не вижу таблицы InventItemSetupStopped в стандартном функционале.

[mazzy]

Цитата:

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

    if (record && record.Stopped != _stopped)
    {
        while select forUpdate validTimeState(_effectiveDate) record
            where record.InventItemSetupRecId   == _inventItemOrderSetupMap.RecId
               && record.InventItemSetupTableId == _inventItemOrderSetupMap.TableId
               && record.ValidTo                != _effectiveDate
        {
            record.ValidTo = max(_effectiveDate-1, record.ValidFrom);
            if (record.validateWrite())
                record.update();
        }

    }

насколько я помню книжку, следить за внутренними интервалами будет сам механизм периодических значений. поэтому внутренние значения можно не обновлять вручную.

но точно - не помню. надо перечитать про механизм периодических значений в книге.

[gl00mie]

По-моему, в приведенном выше куске кода выполняется "закат солнца вручную". Схожий по смыслу, но более лаконичный код можно найти в ГАКе, например, \Data Dictionary\Tables\DirPersonUser\Methods\createDirPersonUser.

[EVGL]

Благодарю! Удалось выбросить пару строчек:

public static void setStopped(
    InventItemOrderSetupMap     _inventItemOrderSetupMap,
    ItemStopped                 _stopped,
    date                        _effectiveDate = systemDateGet())
{
    InventItemSetupStopped  record;

    ttsBegin;

    record = InventItemSetupStopped::find(_inventItemOrderSetupMap.TableId, _inventItemOrderSetupMap.RecId, _effectiveDate);

    record.validTimeStateUpdateMode(ValidTimeStateUpdate::Correction);

    if (record && record.Stopped != _stopped)
    {
        while select forUpdate validTimeState(_effectiveDate) record
            where record.InventItemSetupRecId   == _inventItemOrderSetupMap.RecId
               && record.InventItemSetupTableId == _inventItemOrderSetupMap.TableId
        {
            record.ValidTo = max(_effectiveDate-1, record.ValidFrom);
            if (record.validateWrite())
                record.update();
        }
    }

    select forUpdate validTimeState(_effectiveDate) record
        where record.InventItemSetupRecId   == _inventItemOrderSetupMap.RecId
           && record.InventItemSetupTableId == _inventItemOrderSetupMap.TableId;

    record.initFromInventItemOrderSetupMap(_inventItemOrderSetupMap);
    record.ValidFrom = _effectiveDate;
    record.ValidTo = dateMax();
    record.Stopped = _stopped;

    if (record.validateWrite())
        record.write();

    ttsCommit;
}

Таблица ...Stopped - моя.
Без строки record.ValidTo = max(_effectiveDate-1, record.ValidFrom); работает, но ожидаемо перестает формироваться строчка с историей, а хочется.

[gl00mie]

Цитата:

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

Удалось выбросить пару строчек. Без строки record.ValidTo = max(_effectiveDate-1, record.ValidFrom); работает, но ожидаемо перестает формироваться строчка с историей, а хочется.

Может, если нужна строка с историей, вместо ValidTimeStateUpdate::Correction следует использовать ValidTimeStateUpdate::CreateNewTimePeriod?

[EVGL]

Проверял, не стыкуется с попыткой перезаписать настроки текущего дня, выдает ошибку.