Обновление статуса производственного заказа программно

[niksen]

День добрый!
версия 2009
Есть желание создать небольшой job или даже целый класс, который проходился бы по всем заказам в ProdTable, и где статус выше "создано", но максимум "запланировано", сбрасывал его, затем сам же запускал планирование от сегодняшней даты.
Как я понимаю, сбросом статуса занимается класс ProdUpdStatusDecrease, а обновлением статуса до "запланировано" класс ProdUpdScheduling.
Но оба эти класса запускаются через формы и т.д. и требуют заполнения Query с нажатием кнопки ок. Вопрос, как это сделать программно?
я думаю, задача не нова и кто-нибудь её уже решал. Если ошибся где-нибудь, поправьте.

с уважением, Николай

[pitersky]

Так вы же сами и написали решение
Сэмулировать Query с формы несложно, а дальше запускаете указанные классы

У меня аналогичная задача - удалённый запуск создания отгрузочной накладной - отняла совсем немного времени

[niksen]

ээээ, несложно, но что-то сколько не ищу, не могу найти, сколько не копаю...
или может быть воспользоваться prodtable.autoupdate() для обновления? но чем тогда сбрасывать? именно тем, что я написал? и вопрос, если честно, не в курсе, как сэмулировать, может быть есть другой способ?
как это лучше реализовывать? через пакетное задание?

[S.Kuskov]

Если цель перепланирования - сдвиг дат, то на сколько я понимаю статус можно не сбрасывать, а просто повторно перепланировать.

Вот нашёл у себя код:

    ProdParmScheduling  prodParmScheduling;
    ;

    prodParmScheduling.clear();
    prodParmScheduling.ParmBuffer::initParmId();
    prodParmScheduling.ProdId = _ProdId;
//    устанавливаем параметры перепланирования:
//    prodParmScheduling.SchedDirection = 
//    prodParmScheduling.SchedMethod =
//    prodParmScheduling.SchedDate =
//    ...
    prodParmScheduling.insert();

    ProdTable::find(_ProdId).status().runOperationScheduling(prodParmScheduling);

На всякий случай код, сбрасывающий статус:

    prodMultiStatusDecrease = new JmgProdMultiStatusDecrease();

    parmBuffer = prodMultiStatusDecrease.defaultParmBuffer();
    prodMultiStatusDecrease.initParmSFC();

    prodMultiStatusDecrease.insert(prodTable,parmBuffer);
    prodParmStatusDecrease = parmBuffer;
    prodParmStatusDecrease.WantedStatus = ProdStatus::Created;
    prodMultiStatusDecrease.run();

[pitersky]

Эм... давно я производством не занимался, конечно... но разве нельзя эту задачу решить инструментами сводного? вы же, по сути, пытаетесь делать динамическое перепланирование

[S.Kuskov]

Цитата:

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

Эм... давно я производством не занимался, конечно... но разве нельзя эту задачу решить инструментами сводного? вы же, по сути, пытаетесь делать динамическое перепланирование

Сводное максимум что нагенерит фьючерсов и действий. Уже утверждённые ПЗ оно не изменит.

[niksen]

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

[niksen]

Цитата:

Сообщение от S.Kuskov

Если цель перепланирования - сдвиг дат, то на сколько я понимаю статус можно не сбрасывать, а просто повторно перепланировать.

Вот нашёл у себя код:

    ProdParmScheduling  prodParmScheduling;
    ;

    prodParmScheduling.clear();
    prodParmScheduling.ParmBuffer::initParmId();
    prodParmScheduling.ProdId = _ProdId;
//    устанавливаем параметры перепланирования:
//    prodParmScheduling.SchedDirection = 
//    prodParmScheduling.SchedMethod =
//    prodParmScheduling.SchedDate =
//    ...
    prodParmScheduling.insert();

    ProdTable::find(_ProdId).status().runOperationScheduling(prodParmScheduling);

На всякий случай код, сбрасывающий статус:

    prodMultiStatusDecrease = new JmgProdMultiStatusDecrease();

    parmBuffer = prodMultiStatusDecrease.defaultParmBuffer();
    prodMultiStatusDecrease.initParmSFC();

    prodMultiStatusDecrease.insert(prodTable,parmBuffer);
    prodParmStatusDecrease = parmBuffer;
    prodParmStatusDecrease.WantedStatus = ProdStatus::Created;
    prodMultiStatusDecrease.run();

а что за тип данных parmBuffer?

[S.Kuskov]

Цитата:

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

а что за тип данных parmBuffer?

ProdParmStatusDecrease

[niksen]

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

static void Job4(Args _args)
{

    JmgProdMultiStatusDecrease _prodMultiStatusDecrease = new JmgProdMultiStatusDecrease();
    ProdParmStatusDecrease  parmBuffer, prodParmStatusDecrease;
    ProdTable               ProdTable;
    prodId                  prodId;
    ;
    do
    {
    while select prodTable
        where (ProdTable.ProdStatus != ProdStatus::Created)
    {
    parmBuffer = null;
    _prodMultiStatusDecrease.reset();
    prodParmStatusDecrease = null;
    parmBuffer = _prodMultiStatusDecrease.defaultParmBuffer();
    _prodMultiStatusDecrease.initParmSFC();
    _prodMultiStatusDecrease.insert(prodTable,parmBuffer);
    prodParmStatusDecrease = parmBuffer;
    prodParmStatusDecrease.WantedStatus = ProdStatus::Created;
    _prodMultiStatusDecrease.run();
    }
    prodId = '1';
    select firstonly prodTable
        where (ProdTable.ProdStatus != ProdStatus::Created);
        {
            prodId = prodTable.ProdId;
        }
    }
    while (prodId!='');


}

[Sada]

учите бест практис, без него никуда. Зачем do while? Еще, наверно, транзакцию влепить лучше.

[niksen]

do-while затем, что некоторые заказы не сбрасываются до желаемого статуса, а while select проходит по таблице prodTable только 1 раз и может выйти ситуация, когда остаются заказы с другими статусами. А как обойти это без ещё одного select с выборкой только по несброшенным - я пока не додумался.
Транзакцию конечно же влепить нужно это без вопросов и try-catch тоже

[Sada]

Цитата:

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

while select проходит по таблице prodTable только 1 раз

????? значит у вас только один заказ, который не в статусе создано. По другому никак

[niksen]

вот что получилось для перепланирования. Может кому понадобится.
Критикуйте

static void ProdStatusSched(Args _args)
{
    ProdParmScheduling  prodParmScheduling;
    ProdTable           prodTable;
    ;
    ttsbegin;
    while select ProdTable
        where ProdTable.ProdStatus != ProdStatus::Scheduled
    {
        prodParmScheduling.clear();
        prodParmScheduling.ParmBuffer::initParmId();
        prodParmScheduling.ProdId = ProdTable.ProdId;
//    устанавливаем параметры перепланирования:
        prodParmScheduling.SchedDirection = ProdSchedDirection::ForwardFromToday;
        prodParmScheduling.SchedMethod = ProdSchedMethod::OperationScheduling;
        prodParmScheduling.SchedDate = str2date('24/05/2012',123);
        prodParmScheduling.SchedTime = str2time('15:55');
        prodParmScheduling.CapLimited = NoYes::Yes;
        prodParmScheduling.MatLimited = NoYes::Yes;
        prodParmScheduling.SyncRef = NoYes::Yes;
        prodParmScheduling.SchedRef = NoYes::Yes;
        prodParmScheduling.CancelProcessTime = NoYes::No;
        prodParmScheduling.CancelSetupTime = NoYes::No;
        prodParmScheduling.CancelQueueTime = NoYes::No;
        prodParmScheduling.CancelTransportTime = NoYes::No;
        prodParmScheduling.CancelOverlap = NoYes::No;
        prodParmScheduling.JobStatus = ParmJobStatus::Executed;
        prodParmScheduling.AutoUpdate = NoYes::Yes;

        prodParmScheduling.insert();

        ProdTable::find(ProdTable.ProdId).status().runJobScheduling(prodParmScheduling);

    }
    ttscommit;

}

[niksen]

Цитата:

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

????? значит у вас только один заказ, который не в статусе создано. По другому никак

неа, проходит по всем заказам со статусом выше "создано", и нагло оставляет статус "оценено" некоторым.

[Sada]

static void ProdStatusSched(Args _args)
{
    ProdParmScheduling  prodParmScheduling;
    ProdTable           prodTable;
    ;
    ttsbegin;
    while select prodTable
        where prodTable.ProdStatus != ProdStatus::Scheduled
    {
        prodParmScheduling.clear();
        prodParmScheduling.ParmBuffer::initParmId();
        prodParmScheduling.ProdId           = ProdTable.ProdId;
        prodParmScheduling.SchedDirection   = ProdSchedDirection::ForwardFromToday;
        prodParmScheduling.SchedMethod      = ProdSchedMethod::OperationScheduling;
        prodParmScheduling.SchedDate        = str2date('24/05/2012',123);
        prodParmScheduling.SchedTime        = str2time('15:55');
        prodParmScheduling.CapLimited       = NoYes::Yes;
        prodParmScheduling.MatLimited       = NoYes::Yes;
        prodParmScheduling.SyncRef          = NoYes::Yes;
        prodParmScheduling.SchedRef         = NoYes::Yes;
        prodParmScheduling.JobStatus        = ParmJobStatus::Executed;
        prodParmScheduling.AutoUpdate       = NoYes::Yes;
        prodParmScheduling.insert();

        prodTable.status().runJobScheduling(prodParmScheduling);

    }
    ttscommit;
}

так красивше

[niksen]

Sada, и правда красивше и понятнее. Дело в другом, правильно ли я использую тот приём с выборкой, чтобы узнать, пустая ли она? Может его как-нибудь заменить, а то совсем уж некрасиво выглядит...

[Sada]

Не понял...

[niksen]

prodId = '1';
    select firstonly prodTable
        where (ProdTable.ProdStatus != ProdStatus::Created);
        {
            prodId = prodTable.ProdId;
        }
    }
    while (prodId!='');

вот этот кусок
можно ли его как-нибудь заменить?