Clarion - Como editar un Queue

 
Vista:

Como editar un Queue

Publicado por Fernando (18 intervenciones) el 17/01/2009 15:29:58
Hola a Todos, estoy tratando de editar un queque, logro editar el primer registro pero no se como hacer que me pase al registro de abajo al dar enter en el último campo. Espero se entienda. Gracias.
Este es el código que coloqué:

/** Colocar campos edit en una cola para hacer la carga de la cola. **/

**Definir Procedimientos (En la pantalla, en procedure routine)

AsignarEdits Routine

?List1{PROP:EDIT,Where(COLA_PRECIOS,CP:GAP_CAN_ANO)} = ?EGAP_CAN_ANO
?List1{PROP:EDIT,Where(COLA_PRECIOS,CP:GAP_PRE_GAR)} = ?EGAP_PRE_GAR

UnHide(?EGAP_CAN_ANO)
UnHide(?EGAP_PRE_GAR)

Display

DesAsignarEdits Routine

?List1{PROP:EDIT,Where(COLA_PRECIOS,CP:GAP_CAN_ANO)} = 0
?List1{PROP:EDIT,Where(COLA_PRECIOS,CP:GAP_PRE_GAR)} = 0

Hide(?EGAP_CAN_ANO)
Hide(?EGAP_PRE_GAR)

Display

**En New seleccion de la Cola

IF CHOICE(?List1) > 0
GET(COLA_PRECIOS,CHOICE(?List1))
Do AsignarEdits
Enable(?BotonB)
ELSE
Do DesAsignarEdits
Disable(?BotonB)
END

Display


**En el acepted de cada edit

PUT(COLA_PRECIOS)
Display

**En el acepted del Botón Agregar

Clear(COLA_PRECIOS)
Add(COLA_PRECIOS)
Select(?List1,RECORDS(COLA_PRECIOS))
Do AsignarEdits
Enable(?BotonB)
Select(?EGAP_CAN_ANO)


**En el acepted del Botón Borrar

IF CHOICE(?List1) > 0 Then DELETE(COLA_PRECIOS).
POST(EVENT:NewSelection,?List1)

**Edits

Los edits se le pone que usen cada campo de la cola.

CP:GAP_PRE_GAR,,?EGAP_PRE_GAR
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder