FoxPro/Visual FoxPro - Necesito Ayuda Botones (Agregar y Modificar)

Necesito urgentemente el codigo de programación de los botones Agregar y Nuevo para una aplicación que estoy haciendo en Visula fox Pro 6.0

El codigo para agregar es tan simple como un append blank y un refresh() para limpiar la pantalla , se supone que estas vinculandos los campos a una tabla , sino evidentemente tendras que poner las variables en blanco o cero , segun el tipo ...

El codigo para modificar es tan simple como , desproteger los campos , puesto que se supone estan protegidos (solo lectura) , y posicionarse en el primero de ellos ... setfocus()..

Si quieres echale un ojo a los ejemplos del foxpro , o incluso genera un formulario con el asistente y lo veras ...

Espero te sirva...

Hola Wences te agradezco la ayuda que me brindas peo ahora tengo otro problema necesito que cuando yo voy a introducir un nuevo registro y sis este ya existe me saque un mensaje que diga registro existente.

Gracias de nuevo

Me imagino que tendras algun indice establecido , solo tienes que ejecutar un seek , locate o lo que quieras de la tabla y si lo encuentra , ya tienes resuelto el problema ...

Evidentemente puedes optar por hacerlo de varias maneras y en varios lugares ... yo personalmente no uso los botones nuevo , etc ... sino que lo que hago es en elcampo codigo (indice) , verifico una vez escrito si existe y si es asi leo la informacion y la presento , dando opcion de modificarla , no le dejo meter datos para decirle despues que ya existe y a la hora de grabar ejecuto algo asi :

if !used('albaran')
use albaran in 23 shared
endif
select albaran
set order to numero
seek padl(alltrim(m.numero),7)
if !found()
append blank
endif
rlock()
gather memvar
replace albaran.tiporte with portes.grupotp
replace albaran.fecha_s with date()
replace albaran.nusuario with m.usuario
replace albaran.dia_hora with datetime()
unlock

En tablas libres y sin buffer .. claro ...

Espero te sirva...

hola Elkin:
yo lo hago de la siguiente manera primero pongo un textBox que no esta conectado a la tabla y que me va a servir para tener una variable con la que voy a comprobar si exsite.
Ese TextBox va estar con las propiedades Visible=.f. y Enabled=.f.
cuando el usuario oprima el boton de Nuevo las cambiamos a .t.
Te recomiendo que el codigo lo pongas en la propiedad o metodo Valid
que es cuando presiona el usuario enter o cuando el objeto pierde el foco.

si fuera de un cliente por ejemplo
seria asi

select cliente "selecionas la tabla"
set order to codcli "seleccionas el indice de codigo de cliente"

codigo=thisform.Text1.Value "igualas el valor del objeto a la variable "

seek codigo "buscas el codigo"

if found() "si lo encuentra"
despareces el textbox propiedades visible y enabled= .f.
thisform.Refresh "la tabla se posiciona en el codigo en contrado
como si fuera buscar"
else "si no existe"
appen blank "creas un registro en blanco"
replace codcli with codigo "por que el valor lo tenemos en la
variable"
poner en .t. las textBox
Thisform.Refresh "para que se vean en blanco y capturen"
endif
thisform.Refresh


Espero y te sirva yo lo hago asi y me a funcionado

Saludos