anchor.diff:      procedure ReadFromQueryRow(aQuery: TOraQuery);
       function BaseTable(const aTablePrefix:string): string;
       function BaseTableNoPrefix: string;
  -    function BuildJoin(const aTablePrefix: string; out aShapePrefix: string): string;
  +    function BuildJoin(const aTablePrefix: string; out aShapePrefix, aObjectIDPrefix, aPreJoin: string): string;
       function SQLQuery(const aTablePrefix:string; xMin: Integer=0; yMin: Integer=0; xMax: Integer=-1; yMax: Integer=-1): string;
       function SQLQueryNew(const aTablePrefix:string): string;
       //function SQLQueryChange(const aTablePrefix:string): string;
  
positive.code:             VALUE_EXPR+' AS VALUE, '+
              ShapePrefix+'SHAPE '+
            'FROM '+join+' '+
            'WHERE '+ShapePrefix+'OBJECT_ID=:OBJECT_ID';
          if JOINCONDITION<>''
          then Result := Result+' AND '+
            JOINCONDITION;
        end;
      5, 9:
        begin
  
negative.code:             ShapePrefix+'poiType, '+
              ShapePrefix+'category '+
            'FROM '+join+' '+
            'WHERE '+ObjectIDPrefix+'OBJECT_ID=:OBJECT_ID';
          if JOINCONDITION<>''
          then Result := Result+' AND '+PreJoin+JOINCONDITION;
        end;
    else
      Result :=
  