Skip to Content

Archived discussions are read-only. Learn more about SAP Q&A

using Selection screen and selection screen output

Hi All,

I am trying to execute AT SELECTION-SCREEN and AT SELECTION-SCREEN output. Both the para's working fine seperately. But when I execute them together AT SELECTION-SCREEN output is not working. Please let me know how to solve this problem. Please see below for the code.

PARAMETERS: p_werks LIKE marc-werks OBLIGATORY MEMORY ID WRK,

p_lgort LIKE mard-lgort OBLIGATORY,

p_rlgort LIKE mard-lgort OBLIGATORY.

PARAMETERS: p_boml TYPE c RADIOBUTTON GROUP mode user-command flag.

SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS: p_aufnr LIKE aufk-aufnr MODIF ID cp2.

SELECTION-SCREEN: END OF BLOCK b1.

*SELECTION-SCREEN COMMENT 1(44) text-004 FOR FIELD p_cmpl.

PARAMETERS: p_cmpl TYPE c RADIOBUTTON GROUP mode.

*-----

SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.

PARAMETERS: p_matnr type marc-matnr MODIF ID cp1,

p_verid type afpo-verid MODIF ID cp1,

p_labst type mard-labst MODIF ID cp1.

SELECTION-SCREEN: END OF BLOCK b2.

*------

PARAMETERS: p_mstr TYPE c RADIOBUTTON GROUP mode.

AT SELECTION-SCREEN output.

LOOP AT SCREEN.

IF p_boml <> 'X' AND

screen-group1 = 'CP1'.

screen-active = '1'.

MODIFY SCREEN.

ENDIF.

IF p_cmpl <> 'X' AND

screen-group1 = 'CP2'.

screen-active = '1'.

MODIFY SCREEN.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

AT SELECTION-SCREEN.

IF p_boml EQ 'X'.

IF p_AUFNR EQ space.

MESSAGE e000(z1) WITH 'Please fill Production Order.'.

ENDIF.

endif.

IF p_cmpl EQ 'X'.

IF p_MATNR EQ space OR p_verid EQ space OR p_labst EQ space.

MESSAGE e000(z1) WITH text-003 'Production Version & Quantity. '.

ENDIF.

endif.

Thanks,

Senthil

Tags:
Former Member
Not what you were looking for? View more on this topic or Ask a question