[Varmen]

Classdeclaration

#define.CurrentVersion(1)
    #localmacro.CurrentList
       employerId[4],
       strOrderText,
       dateOrderDate
    #endmacro

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

public boolean unpack(container packedClass)
{
 boolean ret;
 Integer version = conpeek(packedClass,1);
 
 switch (version)
 {
  case #CurrentVersion:
  [version, #CurrentList] = packedClass;
  ret = true;
  break;
  default: 
  ret = false;
 }
return ret;
}

не сохраняет значения диалога, что можно еще добавить/убавить.