Vi também que no Clipper devo passar uma string para a função OrdSetFocus() e no xHarbour pede um inteiro.
Vejam o comentário no xHarbour:
No clipper:OrdSetFocus()
Sets focus to the controlling index in a work area
Syntax
OrdSetFocus( [<nOrder>|<cIndexName>], ;
[<cIndexFile>] ) --> cOldIndexName
Arguments
<nOrder>
A numeric value specifying the ordinal position of the index open in a work area to select as the controling index. Indexes are numbered in the sequence of opening, beginning with 1. The value zero identifies the controlling index.
<cIndexName>
Alternatively, a character string holding the symbolic name of the index to select can be passed. It is analogous to the alias name of a work area. Support for <cIndexName> depends on the RDD used to open the index. Usually, RDDs that are able to maintain multiple indexes in one index file support symbolic index names, such as DBFCDX, for example.
<cIndexFile>
<cIndexFile> is a character string with the name of the file that stores the index. It is only required when multiple index files are open that contain indexes having the same <cIndexName>.
Essas não deverian ser a mesma função?ORDSETFOCUS()
Set focus to an order in an order list
Syntax
ORDSETFOCUS([<cOrderName> | <nOrder>]
[,<cOrderBagName>]) --> cPrevOrderNameInFocus
Arguments
<cOrderName> is the name of the selected order, a logical ordering
of a database. ORDSETFOCUS() ignores any invalid values of
<cOrderName>.
<nOrder> is a number representing the position in the order list of
the selected order.
<cOrderBagName> is the name of a disk file containing one or more
orders. You may specify <cOrderBagName> as the file name with or
without the path name or appropriate extension. If you do not include
the extension as part of <cOrderBagName>, CA-Clipper uses the default
extension of the current RDD.
Returns
ORDSETFOCUS() returns the order name of the previous controlling order.
