#4
|
|||
|
|||
select option por default
buen dia yo lo encare distinto y me funciono. . .te paso lo que hice.
Espero te sirva !!! DATA: v_fecha_lun TYPE d, v_fecha_dom TYPE d, p_repid TYPE d020s-prog, p_dynnr TYPE d020s-dnum. p_repid = sy-repid. p_dynnr = sy-dynnr. * PANTALLA DE SELECCIÓN SELECTION-SCREEN BEGIN OF BLOCK param WITH FRAME TITLE t1. SELECT-OPTIONS: s_fecha FOR sy-datum . SELECTION-SCREEN END OF BLOCK param. INITIALIZATION. *CONSIGO EL VALOR DEL LUNES PERFORM f_lunes_ant. *CONSIGO EL VALOR DEL DOMINGO v_fecha_dom = v_fecha_lun + 6. *CARGO EL RANGO DEL SELECT CON LOS VALORES OBTENIDOS MOVE: 'I' TO s_fecha-sign, 'BT' TO s_fecha-option, v_fecha_lun TO s_fecha-low, v_fecha_dom TO s_fecha-high. APPEND s_fecha. **** TITULO DEL FRAME t1 = 'comienzo y fin de la semana'. *&---------------------------------------------------------------------* *& Form F_LUNES_ANT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM f_lunes_ant . DATA: f_week TYPE scal-week, f_data TYPE d. *CONSIGO SEMANA DEL AÑO CALL FUNCTION 'DATE_GET_WEEK' EXPORTING date = sy-datum IMPORTING week = f_week EXCEPTIONS date_invalid = 1 OTHERS = 2. IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. *CONSIGO PRIMER DIA DE LA SEMANA CALL FUNCTION 'WEEK_GET_FIRST_DAY' EXPORTING week = f_week IMPORTING date = v_fecha_lun EXCEPTIONS week_invalid = 1 OTHERS = 2. IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDFORM. " F_LUNES_ANT |
Herramientas | Buscar en Tema |
Desplegado | |
|
|