ironmansp escribió:
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?
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!!!!!!