Browse barra vertical correção.

[Itamar M. Lins Jr.]

Olá!

For indexed database you need to add the following "magic") lines:
oBrw:bRcou := {|o| (o:alias)->(Ordkeycount()) }
oBrw:bRecnoLog := {|o| (o:alias)->(Ordkeyno()) }

You may add a common function to open dbf in a browse, like in dbchw.prg, UpdBrowse():
...
IF OrdNumber() == 0
oBrw:bRcou := {|o| (o:alias)->(Reccount()) }
oBrw:bRecnoLog := {|o| (o:alias)->(Recno()) }
ELSE
oBrw:bRcou := {|o| (o:alias)->(Ordkeycount()) }
oBrw:bRecnoLog := {|o| (o:alias)->(Ordkeyno()) }
ENDIF
...

Regards, Alexander

Deixando aqui registrado. A barra vertical não funciona com DBF indexado.

Saudações,
Itamar M. Lins Jr.