Subject | "NATURAL ORDER UNSUPORTTED" |
---|---|
Author | GMS - Ulrich Hutter |
Post date | 2017-07-24T21:12:41Z |
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
Ulrich Hutter
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.
...
begininherited 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