[kilysap]

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