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

[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;
}

так красивше