anchor.diff:          'ACTION VARCHAR2(100 BYTE),'+
           'ACTION_PARAMETERS VARCHAR2(255 BYTE),'+
           'ACTION_ID INTEGER,'+
  -        'CONSTRAINT META_MEASURES_PK PRIMARY KEY (OBJECT_ID))');
  +        'CONSTRAINT '+MEASURES_TABLE_NAME+'_PK PRIMARY KEY (OBJECT_ID))');
       OraSession.Commit;
     end;
     try
     measures := ReturnAllResults(OraSession,
       'SELECT OBJECT_ID, Category, Measure, Description, ObjectTypes, Action, Action_Parameters, Action_ID '+
  -    'FROM META_MEASURES');
  +    'FROM '+MEASURES_TABLE_NAME);
       if length(measures)>0 then
       begin
  -  for m := 0 to length(measures)-1 do
  -  begin
  -        // todo:
  -
  -  end;
  +      for m := 0 to length(measures)-1 do
  +      begin
  +            // todo:
  +
  +      end;
       end
       else log.WriteLn('NO measures defined (no entries)', llWarning);
     except
  -    // no measures, prop. no META_MEASURES table defined
  +    // no measures, prop. no MEASURES_TABLE_NAME table defined
       log.WriteLn('NO measures defined (no valid table)', llWarning);
     end;
     // todo:
  
positive.code: //                              UpdateObject(fChangeQuery, wdid, o);
  //                              signalObject(o);
  //                            end
                            ChangeStack.Push(entry.objectID.ToString);
                          end
                  else Log.WriteLn('TUSLayer.handleChangeObject: no result on change object ('+entry.objectID.toString+') query', llWarning);
                      end;
                  end;
  
negative.code: var
    table: TOraTable;
  begin
    if not TableExists(aOraSession, PROJECT_TABLE_NAME) then
    begin
      // try to read view from database
      table := TOraTable.Create(nil);
      try
        table.Session := aOraSession;
        table.SQL.Text :=
          'SELECT Lat, Lon, Zoom '+
          'FROM '+PROJECT_TABLE_NAME;
        try
          table.Execute;
          try
            if table.FindFirst
            then Result := TMapView.Create(table.Fields[0].AsFloat, table.Fields[1].AsFloat, table.Fields[2].AsInteger)
            else Result := aDefault;
          finally
            table.Close;
          end;
        except
          Result := aDefault;
        end;
      finally
        table.Free;
      end;
    end
    else Result := aDefault;
  end;
  
  function getUSProjectID(aOraSession: TOraSession; const aDefault: string): string;
  var
    table: TOraTable;
  begin
    if TableExists(aOraSession, PROJECT_TABLE_NAME) then
    begin
      // try to read project info from database
      table := TOraTable.Create(nil);
      try
        table.Session := aOraSession;
        table.SQL.Text :=
          'SELECT ProjectID '+
            'FROM '+PROJECT_TABLE_NAME;
        try
          table.Execute;
          try
            if table.FindFirst then
            begin
              if not table.Fields[0].IsNull
              then Result := table.Fields[0].AsString
              else Result := aDefault;
            end
            else Result := aDefault;
          finally
            table.Close;
          end;
        except
          Result := aDefault;
        end;
      finally
        table.Free;
      end;
    end
    else Result := aDefault;
  end;
  