pack\unpack

[Diman]

Здравствуйте.
Помогите пожалуйста чайнику разобраться, где ошибка в коде?

ClassDeclaration:

PHP код:

class IST_InventTransPosting  extends RunBaseBatch
{
    DialogField         fielddtBegPeriod;
    DialogField         fielddtEndPeriod;
    DialogField         fieldLedgerAccount;
    DialogField         fieldLedgerAccountOffset;
    DialogField         fieldItemId;
    DialogField         fieldItemGroupId;
    DialogField         fieldTransType;

    ItemId              itemId;                  
    ItemGroupId         itemGroupId;            
    ledgerAccount       ledgerAccount;           
    ledgerAccount       ledgerAccountOffset;     
    TransDate           dtBegPeriod;             
    TransDate           dtEndPeriod;           
    InventTranstype     inventTransType;         

    #define.CurrentVersion(1)
    #localmacro.CurrentList
      dtBegPeriod,
      dtEndPeriod,
      ledgerAccount,
      ledgerAccountOffset,
      inventTransType,
      itemGroupId,
      itemId,
    #endmacro

}

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


public boolean unpack (container packedClass)
{
    container       base;
    boolean         ret;
    Integer         version  = RunBase::getVersion(packedClass);
    boolean         dummy;

    ;

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

    return ret;

} 


Премного благодарен.