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
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


0