Browse barra vertical correção.
Enviado: 05 Set 2023 11:08
Olá!
Saudações,
Itamar M. Lins Jr.
Deixando aqui registrado. A barra vertical não funciona com DBF indexado.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
Saudações,
Itamar M. Lins Jr.