Clipper/FiveWin - ¿ Pequeña pregunta ?...

Estimados Clipperos de donde emana la sabiduría:
Les hago una pequeña pregunta que espero no sea grande...
Ejem.
PROC AltaMov
//Procedimiento que da de alta movimiento de banco
...
...
SET KEY -8 TO AltaCuentas()
xCuenta:=0
@1,1 SAY "Cuenta:" GET xCuenta PICT "999";
VALID !EMPTY(xCuenta)
READ
...
...
SEEK xCuenta
IF !FOUND(); ? "La cuenta no existe...";ENDIF
@2,1 SAY "Concepto:" ...
...
...

En el procedimiento AltaCuentas, ocupo la misma variable(xCuenta)que en el de AltaMov y se me pierde esa variable (Su GET, se salta de un procedimiento a otro)
1)Cómo puedo hacer para que esto no pase?
2)Cómo hago para que el 1er. GET (primario) se quede en espera hasta que edite o me salga del 2o. GET (secundario)y me deje posicionado en el primero?

DE ANTEMANO AGRADEZCO MUCHO SU AYUDA, QUEDANDO DE UDS.
Atte.
Jorge Glez.

Hola Jorge, Lo que tu pretendes es anidar varios GETS y en SUMMER 87 casi es imposible, pero en 5.x resulta muy sencillo. Partamos de la base que los GETS se convierten en elementos del ARRAY publico llamado GETLIST y que tras una orden READ se reinicializa por esto es que cuando vas de una funcion a otra y de esta sales con un READ, los GETS que tenias pendientes desaparecen. La solucion es crear un ARRAY LOCAL llamdo GETLIST en la funcion llamada (AltaCuentas()) de la siguiente forma

FUNCTION AltaCuentas()
LOCAL GETLIST := {}
.
.
.
RETURN (NIL)

Espero que esto te ayude.

Saludos de Mexico

Armando

Estimado Armando:
Muchas gracias por tu ayuda...

Jorge Glez.