-
-
Notifications
You must be signed in to change notification settings - Fork 45
Open
Description
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()