X-Sharp/XSharpPublic

[DBFNTX] DBSetOrder(0) always returns FALSE

Closed this issue · 1 comments

https://www.xsharp.eu/forum/topic?p=30378#p30378

DBSetOrder(0) returns FALSE but seems to actually do set the natural order. Problem exists only with DBFNTX, DBFCDX works fine.

FUNCTION Start() AS VOID
	LOCAL cDbf AS STRING
	RddSetDefault("DBFNTX")
	
	cDbf := "C:\dbf\testorder"
	
	DbCreate(cDbf, {{"FLD","C",10,0}})
	
	DbUseArea(,,cDbf)
	DbCreateIndex(cDbf, "FLD")
	DbAppend();FieldPut(1,"bbb")
	DbAppend();FieldPut(1,"ccc")
	DbAppend();FieldPut(1,"aaa")
	
	
	? RecCount()

	? DbSetOrder(1)
	DbGoTop()
	? FieldGet(1)
	DbGoBottom()
	? FieldGet(1)

	? DbSetOrder(0) // FALSE

	DbGoTop()
	? FieldGet(1) // bbb, correct
	DbGoBottom()
	? FieldGet(1) // aaa, correct

Confirmed fixed