FoxPro/Visual FoxPro - GUARDARDATOS EN TABLAS DE FOXPRO

HOLA AMIGOS PROGRAMADORES ME PODRAN AYUDAR EN ESTO
TENGO UN PROYECTO QUE REQUIERE GUARDATOS EN TABLAS DE FOXPRO
ME PUEDEN AYUDAR A INLEMENTAR UN BOTTON GUARDAR

Buenas tardes,

Si quieres me envías un email con lo que necesitas para que te pueda ayudar

lee en la ayuda de foxpro los siguientes comandos

APPEND y REPLACE

**CODIGO PARA GUARDAR EN UNA TABLA
Public cUsuar_comp, cCompañia, Iniciales_siglas, cCod_instalacion,dFecha_instalacion, cTelefono;
cDireccion, nMensaje

Select tblCompañia
cUsuar_comp =alltrim(thisform.txtUsuar_comp.value)
cCompañia =alltrim(thisform.txtCompañia.value)
cIniciales_siglas=alltrim(thisform.txtIniciales_siglas.value)
cCod_instalacion =alltrim(thisform.txtCod_instalacion.value)
dFecha_instalacion=thisform.txtFecha_instalacion.value
cTelefono =alltrim(thisform.txtTelefono.value)
cDireccion =alltrim(thisform.EditDireccion.value)

nMensaje=MessageBox("¿Desea Agregar los Datos?",4+32+256,"Confirmar/Agregar")

Select tblCompañia
go top
Locate for Usuar_comp=cUsuar_comp and len(alltrim(thisform.txtUsuar_comp.value))=len(alltrim(Usuar_comp))


If !Empty(cUsuar_comp) and !Empty(cCompañia) and !Empty(cIniciales_siglas) and !Empty(cCod_instalacion);
and !Empty(cTelefono) and !Empty(cTelefono) and !Empty(cDireccion)

If found()
MessageBox("El Dato ya existe",0+48+0,"Error/Dato repetido")
else
If nMensaje=6
Select tblCompañia
Append Blank
Replace tblCompañia.Usuar_comp with thisform.txtUsuar_comp.value
Replace tblCompañia.Compañia with thisform.txtCompañia.value
Replace tblCompañia.Iniciales_siglas with thisform.txtIniciales_siglas.value
Replace tblCompañia.Cod_instalacion with thisform.txtCod_instalacion.value
Replace tblCompañia.Fecha_instalacion with thisform.txtFecha_instalacion.value
Replace tblCompañia.Telefono with thisform.txtTelefono.value
Replace tblCompañia.Direccion with thisform.editDireccion.value

thisform.txtUsuar_comp.value=""
thisform.txtCompañia.value=""
thisform.txtIniciales_siglas.value=""
thisform.txtCod_instalacion.value=""
thisform.txtFecha_instalacion.value=Date()
thisform.txtTelefono.value=""
thisform.EditDireccion.value=""

thisform.grdCompañia.setfocus
Else
nMesnaje=MessageBox("Los Datos no se Agregaron",0+48+0,"Cancelado")
Endif
ENDIF
Else
nMensaje=MessageBox("Hay Espacios en Blanco",0+16+0,"Error/datos vacios")
Endif

Un tanto complejo, helder.....yo recomendaría algo mas simple:

Select 1

Locate for Mitabla.num= Thisform.text1_num.value
If found() then
replace num with Thisform.text1_num.value

wait window "Datos Actualizados" Timeout 1.2

else

Append Blank
replace num with Thisform.text1_num.value

wait window "Datos Guardados" Timeout 1.2

endif

******fin*****

despues que comprendas esto, podrás complementar con el comentario de Helder que es mas completo y robusto.

suerte►

Buen tips el de Leo, el mio es muy complejo, LENNIN ya cuando vallas agarrando un pooco mas de practica y experiencia entenderas mas el mio.
Bey