PDA

Ver la Versión Completa : pasar valores por default a un select-option


andresf02
26/05/10, 04:22:08
Buenas noches

tengo un select-option para el campo "ATWRT" el cual quiero que inicie con ciertos valores al ejecutar el reporte que estoy creando.

En dicho campo, solo son posibles los valores de 0 hasta el 13 (00, 01, 02, 03, 0, 05, 06, 07, 08, 09, 10, 11, 12, 13).

Lo que quiero es que el select-option tenga por default los valores 00, 01, 03.

Como no son consecutivos, no puedo hacerlo con un rango.

Es posible hacer esto. Quien me pueda ayudar de antemano muchas gracias

calanis
26/05/10, 05:20:29
Hola

Esto lo puedes solucionar de la siguiente manera:



*--------------------------------------------------------------------*
* Pantalla de Selección
*--------------------------------------------------------------------*
SELECT-OPTIONS S_ATWRT FOR NUMC02.

*--------------------------------------------------------------------*
* Evento de Inicialización
*--------------------------------------------------------------------*
initialization.
Perform inicializar.

*--------------------------------------------------------------------*
* Definición de Inicializar
*--------------------------------------------------------------------*
FORM inicializar.
REFRESH:S_ATWRT.
S_ATWRT-sign = 'I'.
S_ATWRT-option = 'EQ'.
S_ATWRT-low = '00'.
append S_ATWRT.
S_ATWRT-low = '01'.
append S_ATWRT.
S_ATWRT-low = '03'.
append S_ATWRT.
ENDFORM.


También controlaría que el valor este dentro del rango que necesito, osea del 00 al 13 dentro del evento AT SELECTION-SCREEN ON S_ATWRT.

Espero que la data te sea de utilidad.

Saludos
Carlos Alanis

andresf02
26/05/10, 15:24:48
Carlos
Muchas Gracias era exactamente lo que necesitaba. Funcionò perfecto

cidbebop
14/11/11, 07:23:12
Hola

Esto lo puedes solucionar de la siguiente manera:



También controlaría que el valor este dentro del rango que necesito, osea del 00 al 13 dentro del evento AT SELECTION-SCREEN ON S_ATWRT.

Espero que la data te sea de utilidad.

Saludos
Carlos Alanis

Efectivamente, el codigo a mi tambien me sirvió bastante, Gracias Carlos.