Skip to content

[TypedSDK] DBServer:OrderDescend() returns int instead of logic #1771

@cpyrgas

Description

@cpyrgas

In VO and in X# using the regular SDK, DBServer:OrderDescend() returns a logic value (in a usual). In the TypedSDK, it returns an INT:

FUNCTION Start( ) AS VOID
	LOCAL cDbf AS STRING
	cDbf := "c:\test\descend"
	RddSetDefault("DBFCDX")
	FErase(cDbf + ".cdx")
	DbCreate(cDbf, {{"FLD","N",1,0}})
	DbUseArea(TRUE,,cDbf)
	DbCreateIndex(cDbf,"FLD")
	DbAppend();FieldPut(1,2)
	DbAppend();FieldPut(1,3)
	DbAppend();FieldPut(1,1)
	DbCloseArea()

	LOCAL o AS dbserver
	o := dbserver{cDbf}

	o:GoTop()
	? o:FIELDGET(1) // 1, OK

	? o:OrderDescend(1) // 0, should be FALSE

	o:GoTop()
	? o:FIELDGET(1)  // 1, OK

	? o:OrderDescend(1,,TRUE) // 0, should be FALSE

	o:GoTop()
	? o:FIELDGET(1)  // 3, OK

	? o:OrderDescend(1) // 1, should be TRUE
	o:Close()

Metadata

Metadata

Assignees

Type

Projects

Status

Needs testing

Milestone

Relationships

None yet

Development

No branches or pull requests

Issue actions