Comandos de botones

Comandos de los botones

Comando del Botón primero:

GO TOP
THISFORM.REFRESH

Comando del Botón anterior:

IF .NOT. BOF()
SKIP -1
ELSE
GO BOTTOM
ENDIF
THISFORM.REFRESH

Comando delBotón Siguiente:

IF .NOT. EOF()
SKIP 1
ELSE
GO TOP
ENDIF
THISFORM.REFRESH

Comando dek Botón último:

GO BOTTOM
THISFORM.REFRESH

Comando de Botón Cerrar:

THISFORM.RELEASE

Comandode Botón Buscar:

buscar= 0
buscar=VAL(THISFORM.CONTAINER1.txtbuscar.VALUE)
SEEK buscar ORDER TAG cod_client;
OF ‘C:\maria daluz\Sistema de Clientes\Datos\clientes.cdx’
IF !FOUND()
ctexto ='Registro no encontrado. ¿Desea buscar de nuevo?'
ntipodedialogo = 4 + 32 + 256
ctitulo = 'Mensaje'
* 4 = Botones Sí y No.
* 32 = Icono del signo de interrogación.
* 256 = El segundo botón es elpredeterminado.
nrespuesta = MESSAGEBOX(ctexto, ntipodedialogo, ctitulo)
DO CASE
CASE nrespuesta = 6
THISFORM.CONTAINER1.txtbuscar.SETFOCUS()
CASE nrespuesta = 7
THISFORM.cmdsalir.SETFOCUS()ENDCASE
ELSE
THISFORM.REFRESH
ENDIF

Comando del Botón Cmdagregar:

THISFORM.txtcod_cliente.ENABLED=.t.
THISFORM.txtnom_cliente.ENABLED=.t.
THISFORM.txtape_cliente.ENABLED=.t.THISFORM.txtnom_negocio.ENABLED=.t.
THISFORM.edtdir_cliente.ENABLED=.t.
THISFORM.txtcod_dpto.ENABLED=.t.
THISFORM.txttele_cliente.ENABLED=.t.
THISFORM.txtfax_cliente.ENABLED=.t.THISFORM.txtno_cuenta.ENABLED=.t.
THISFORM.commandgroup1.ENABLED=.f.
THISFORM.container1.ENABLED=.F.
THISFORM.commandgroup2.ENABLED=.F.
THISFORM.cmdsalir.ENABLED=.F.
THISFORM.cmdguardar.VISIBLE=.T.
GO BOTTOMTHISFORM.REFRESH
contador=THISFORM.txtcod_cliente.VALUE
APPEND BLANK
THISFORM.txtcod_cliente.value=contador+1
THISFORM.txtnom_cliente.SETFOCUS
THISFORM.REFRESH

Comando de Botón Cmdguardar:

ctexto ='¿Esta seguro de grabar el registro?'
ntipodedialogo = 4 + 32 + 256
ctitulo = 'Guardar'
4 = Botones Sí y No.
* 32 = Icono del signo de interrogación.
* 256 = El segundo botón es el predeterminado....