................
SET DELETED OFF
CALCULATE CNT(), SUM(IIF(DELETED(),1,0)) TO _cantidad, _borrados
SET DELETED ON
IF _cantidad <> 1
IF _cantidad = 0
ThisForm.SetAll( "Enabled", .F., "CommandButton")
ThisForm.bAgregar.Enabled = .T.
ThisForm.bSalir.Enabled = .T.
GO TOP
ELSE
SEEK configura.gorecno
ENDIF
ELSE
ThisForm.bBuscar.Enabled = .F.
GO TOP
ENDIF
IF _borrados = 0
ThisForm.bRecupera.Enabled = .F.
ENDIF
ThisForm.LblAyuda.Visible = .F.
ThisForm.LbAyuda3.Visible = .F.
.............