Do While .t.
@ 10,10 Say "Usuario:" GET cNombre
READ
If !Empty(cNombre)
lRetorno := USUARIOS->(Dbseek(Alltrim(cNombre)))
Endif
Enddo


Me da warning con la variable getlist, que ya la he declarado como MEMVAR, pero me da error diciendo que devout() scroll() y readmodal() no existen...




Por lo tanto como lo reescribo?

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006

Hola.

Pues si. Esta sintaxis no es correcta con C3.

Deberias de reciclarte y cambiar un poco tu forma de pensar con C3.

El GET de clipper tiene su equivalencia con el TEdit y el texto con el TLabel

El READ como tal podrias equipararlo a mostrar la ventana que contiene esos controles y cuando lanzas un ::Show() o ::ShowModal() es cuando realiza algo parecido al READ.

Añadir a esto que logicamente ni GetList, devout() scroll() y readmodal() NO EXISTEN porque no se necesitan.

Mirate los ejemplos de C3 y animo!!!!!!

_________________
Un saludo.
Jesús P. Melgar Velasco