RE:GUARDARDATOS EN TABLAS DE FOXPRO
**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