Daniel:

 

Dandole una mirada rapida a tus prg. me parece que te falta la funcion que maneja el dbedit (es decir las acciones a realizar) ademas me parece que estas cerrando el archivo apenas lo abris

 

use cliente
do while .t.
 dbedit(5,7,20,70)
 use            //cierra clientes
 return
enddo

 

Seria bueno que veas nuevamente como se estructura un dbedit aca te lo mando

 

DBEDIT visualiza el contenido de una base de datos en pantalla. Es una potente función que permite la edición de los datos sobre una ventana definida en pantalla.

DBEDIT([<fila sup>[,<colizq>,[<fila inf>,[<col dcha>]]]] [,<array1>],[,<func>][,<array2]/<expC>] [,<array3]/<expC>][,<array4]/<expC>] [,<array5]/<expC>][,<array6]/<expC>] [,<array7]/<expC>])

<fila sup> <col izq> <fila inf> <col dcha> posiciones.
<array1> - Tabla de nombres de los campos.
<func> - Función de usuario.
<array2> - Tabla de modelos de visualización.
<array3> - Tabla de encabezados de columnas.
<array4> - Tabla de separación de encabezados. <array5> - Tabla de separación de columnas.
<array6> - Tabla de separación de pies.
<array7> - Tabla de pies.

Cuando se utiliza una función de usuario, DBEDIT() pasa de forma automática dos parámetros:
1-Estado actual de DBEDIT() dependiendo de la última tecla pulsada antes de llamar a la función. Las diferentes modalidades del estado son:

0 Inactividad
1 Se ha intentado sobrepasar el primer
2 Se ha intentado sobrepasar el último registro
3 El fichero de datos se encuentra vacio
4 Se ha pulsado una tecla específica

2-Posición que ocupa en la tabla el campo sobre el que nos encontramos posicionados.
Valores de retorno:

0 Para salir de DBEDIT()
1 Para continuar la ejecución de DBEDIT() 2 Se vuelven a leer los datos nuevamente y se continúa DBEDIT()
3 Se activa la posibilidad de añadir nuevos registros

Ejemplo_1:

DECLARE
TAB1[3],TAB2[3],TAB3[3],TAB4[3],TAB5[3],TAB6[3],TAB7[3]
* Nombre campos

TAB1[1]= "BAS_LOC"
TAB1[2]= "BAS_PRO"
TAB1[3]= "BAS_HAB"

* Máscaras de visualización

TAB2[1]= "XXXXXXX"
TAB2[2]= "XXXXXXX"
TAB2[3]= "999,999,999"

* Encabezados de columna

TAB3[1]= "LOCALIDAD"
TAB3[2]= "PROVINCIA"

TAB3[3]= "HABITANTES"

* Separadores de encabezados

TAB4[1]= "D"
TAB4[2]= "D"
TAB4[3]= "D"

* Separadores de columnas

TAB5[1]= "3"
TAB5[2]= "3"
TAB5[3]= "3"

* Separadores de pies de página

TAB6[1]= "D"
TAB6[2]= "D"
TAB6[3]= "D"

* Pies de página

TAB7[1]= "DPIE_1D"
TAB7[2]= "DPIE_2D"
TAB7[3]= "DPIE_3D"

CLEAR
USE BASE
DBEDIT(1,1,7,40,TAB1,"",TAB2,TAB3,TAB4,TAB5,TAB6,TAB7)

dag_ferro <dag_ferro@...> wrote: