Amigos
necesito colocar en un diálogo, cuatro botones,
<| << >> |>
para ir al ppio del archivo, retroceder un registro, avanzar un registro o ir al final de la misma.
Para los botones de ir al ppio o final del archivo, no hay problemas, el tema es cuando estoy en el primer
registro o el último, quiero deshabilitar los botones correspondientes y no lo puedo hacer funcionar correctamente.
Hago:
DO CASE
CASE ppio
(archivo)->(DBGOTOP())
oBtn[1]:Hide()
oBtn[2]:Hide()
oBtn[3]:Show()
oBtn[4]:Show()
CASE retrocedo
IF !(archivo)->(BOF())
(archivo)->(DBSKIP(-1))
oBtn[1]:Show()
oBtn[2]:Show()
oBtn[3]:Show()
oBtn[4]:Show()
ELSE
oBtn[1]:Hide()
oBtn[2]:Hide()
oBtn[3]:Show()
oBtn[4]:Show()
ENDIF
CASE avanzo
IF !(archivo)->(EOF())
(archivo)->(DBSKIP())
oBtn[1]:Show()
oBtn[2]:Show()
oBtn[3]:Show()
oBtn[4]:Show()
ELSE
oBtn[1]:Show()
oBtn[2]:Show()
oBtn[3]:Hide()
oBtn[4]:Hide()
ENDIF
CASE final
(archivo)->(DBGOBOTTOM())
oBtn[1]:Show()
oBtn[2]:Show()
oBtn[3]:Hide()
oBtn[4]:Hide()
ENDCASE
Donde oBtn[1] es el boton del ppio del archivo, oBtn[2] retroceder uno, oBtn[3] avanzar uno y oBtn[4] fin del archivo.
Que podré estar haciendo mal?
Muchas gracias!
Roberto