Hello, I did solved my problem,
Here my solution:
Go to Ekko with EBELN and Get the field:
FRGSX <- Rel. Strategy
FRGGR <- Release group
FRGZU <- Release status
Then
SELECT SINGLE * FROM T16FS
INTO WA_T16FS
WHERE FRGSX EQ WA_ALV-FRGSX
AND FRGGR EQ WA_ALV-FRGGR.
IF wa_alv-frgke EQ '0'.
v_cant_lib = 0.
v_cant_lib = strlen( wa_alv-frgzu ).
* IF WA_ALV-FRGGR = 'VR' .
CASE v_cant_lib.
WHEN 0.
v_cod_lib = WA_T16FS-FRGC1.
WHEN 1.
v_cod_lib = WA_T16FS-FRGC2.
WHEN 2.
v_cod_lib = WA_T16FS-FRGC3.
WHEN 3.
v_cod_lib = WA_T16FS-FRGC4.
WHEN 4.
v_cod_lib = WA_T16FS-FRGC5.
WHEN 5.
v_cod_lib = WA_T16FS-FRGC6.
WHEN 6.
v_cod_lib = WA_T16FS-FRGC7.
WHEN 7.
v_cod_lib = WA_T16FS-FRGC8.
ENDCASE.
READ TABLE it_t16 INTO wa_t16
WITH KEY frggr = wa_alv-frggr
frgco = v_cod_lib.
IF sy-subrc = 0.
wa_alv-frgct = wa_t16-frgct.
ENDIF.
ELSEIF wa_alv-frgke EQ '5' or
wa_alv-frgke EQ '6'.
wa_alv-frgct = "Total released'.
ELSEIF wa_alv-frgke IS INITIAL.
wa_alv-frgct = 'Without Strategy'.
ENDIF.
MODIFY IT_ALV FROM WA_ALV TRANSPORTING OBMNG ZTER2 ERNAMT DATVR UDATE FRGCT.
ENDLOOP.
Thanks all and regards