Subject "NATURAL ORDER UNSUPORTTED"
Author GMS - Ulrich Hutter
hi
 
i solved it, but really dirty.....
now it works for the  moment
 
 
 

procedure TIB_InternalCursor.SysPrepareSQL;

.....


  if ( tColStr1 <> '' )  and (FBDataset.FSQLOrderLinks.Count > 0 )  then
  begin
    if ( FBDataset.OrderingItemNo > -1 ) then
    begin
      if FAscending then
        aOp := '>='
      else
      if aIsForSync then
        aOp := '<='
      else
        aOp := '<';
    end
    else
    if ( FBDataset.OrderingItemNo < 0 ) then
    begin
      if FAscending then
        aOp := '<='
      else
      if aIsForSync then
        aOp := '>='
      else
        aOp := '>';
//    end
//    else
//    begin
//      // todo: What to do when using natural order?
//      raise EIB_Error.Create('Natural Order Unsupported');
    end;

 

 

 

mit besten Grüßen aus Salzburg

 

Logo GMS

Ulrich Hutter
Programmierung und Geschäftsführung
 
 
Original Message processed by David®  
 
Re: Re-10: [IBO] Problems IBO 5.9,3 "NATURAL ORDER UNSUPORTTED" (22-Jul-2017 16:09)
To:
IBObjects@yahoogroups.com
 
 

I am in Mountain Standard Time (Denver CO) Timezone.

I have a possible work around that can be tried.

I'm wondering it this source patch to IB_Components.pas line 36877 adjusted as follows would fix it.

...
begin

  inherited SysPrepareSQL;

  aIsForSync := FSeqNo > 0;

  tColStr1 := FColName1;

  tColStr2 := FColName2;

  tColStr3 := FColName3;

  if ( tColStr1 <> '' ) and  // Add in a check to the FSQLOrderLinks.Count

     ( FBDataset.FSQLOrderLinks.Count > 0 ) then

  begin

    if ( FBDataset.OrderingItemNo >= 0 ) then

    begin

      if FAscending then
...

 

Will someone apply this change to their sources and then go to the ibo5\build folder and run the Build batch file to rebuild the binaries and then test their application again to see if this will be a quick workaround?

Where I have not been able to reproduce this yet, I'm just grasping for a solution.

 

Thanks,

Jason Wharton

www.ibobjects.com