tecla INS y como modificar dbf por programa

[lafug]

Hola Amigos!

Dos preguntas:

- como puedo activar la tecla INS por defecto en un prg para que al ingresar el dato no borre el contenido existente? sin que el usuario tenga que activarla antes de ingresar.

- Como modificar una DBF por programa para adicionar un campo y que funcion me permite verificar si el campo existe?

de antemano muchas gracias por sus comentarios

un xhabrazo

[carlos vargas]

un poco de ayuda

donde esta ????? lo haces tu, ya que voy saliendo y no me dio tiempo finalizarlos

Code: Select all  Expand view  RUN

FUNCTION FieldExist(cFieldName)
LOCAL aFields[FCOUNT()]

afields(aFields)

FOR x:=1 TO len(aFields)
  IF aFields[x] = cFieldName
   RETURN .t.
  ENDIF
NEXT

RETURN .f.


Code: Select all  Expand view  RUN

FUNCTION InsertField(aField)
LOCAL aStruct:=dbstruct()
LOCAL cAlias  := alias()

//agrega al arreglo con la estructura el nuevo campo
aadd(aStruct,aField)

//crea una tabla temporal
dbcreate("_TEMP_",aStruct)

//copia todos los registros de la tabla actual a la tabla nueva
GO TOP
COPY TO _TEMP_

//cierra tabla actual
CLOSE TABLE

//elimina tabla actual
??????

//renombra la tabla nueva con el nombre de la tabla anterior
?????

//abre tabla nueva con el alias anterior
?????

RETURN NIL


Code: Select all  Expand view  RUN

...
//verifica si existe el campo ENERO07 en la tabla TEMP
IF !TEMP->(FieldExist("ENERO07"))

   //altera la tabla agregando el campo
   aNewField := {"ENERO07","N",09,02}
   TEMP->(InsertField(aField))

ENDIF


[lafug]

gracias mil eduardo!!

lo voy a probar