Тема: pack\unpack
Показать сообщение отдельно
Старый 30.07.2003, 09:48   #1  
Diman is offline
Diman
Участник
Сотрудники Microsoft Dynamics
 
166 / 35 (2) +++
Регистрация: 27.06.2003
Адрес: Москва
pack\unpack
Здравствуйте.
Помогите пожалуйста чайнику разобраться, где ошибка в коде?

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;


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