[Jox]

PHP код:

class PurchPlanningBatch extends RunBaseBatch
{
    date                dayOutStartDate;
    date                dayOutEndDate;
    date                needsEndDate;
    DeliverySchedId     schedId;
    DeliverySchedule    DeliverySchedule;
    InventNeedsCalc     inventNeedsCalc;

    DialogField         dfOutStart;
    DialogField         dfOutEnd;
    DialogField         dfNeedsEnd;
    DialogField         dfSchedId;

    #define.CurrentVersion(1)
    #localmacro.CurrentList
        dayOutStartDate
        , dayOutEndDate
        , needsEndDate
        , schedId
    #endmacro
}

public container pack()
{
    return [#CurrentVersion,#CurrentList];
}

public boolean unpack(container packedClass)
{
    Version version = runbase::getVersion(packedClass);
    ;

    switch (version)
    {
        case #CurrentVersion:
            [version,#CurrentList] = packedClass;
            break;
        default:
            return false;
    }

    return true;
}