anchor.diff:  class function TmUprightDatum.GetKeyField: String;
   begin
     Result := FLD_POSITION;
  +end;
  +
  +procedure TmUprightDatum.SetUpright(const aIndex: byte; const aValue: double);
  +begin
  +  FUprights[aIndex] := aValue;
  +end;
  +
  +function TmUprightDatum.GetUpright(const aIndex: byte): double;
  +begin
  +  Result := FUprights[aIndex];
   end;
   
   { TmUpright }
  
positive.code: end;
  
  constructor TmUprightEvent.Create;
  begin
    EventDate:= 0;
    DatumKey:= '';
    Value:= 0;
    EventType:= etuValue;
  
    FAttribute1 := TNullableString.Create;
    FAttribute2 := TNullableString.Create();
    FAttribute3 := TNullableString.Create();
    FAttribute4 := TNullableString.Create();
  end;
  
  destructor TmUprightEvent.Destroy;
  
negative.code:     constructor Create;
      destructor Destroy; override;
      function CompareTo (aOther : TmUprightEvent) : integer;
      function GetValue (const aIndex : byte) : double;
      procedure SetValue (const aIndex: byte; const aValue : double);
  
      property EventDate: TDateTime read FEventDate write FEventDate;
      property Attribute1 : TNullableString read FAttribute1;
      property Attribute2 : TNullableString read FAttribute2;
      property Attribute3 : TNullableString read FAttribute3;
  