Selection screen invisible

Question

Hi Experts,
In selection screen first i will give first matnr(Material Number).and press enter it need to check if it is there in database(marc table)  or not.
if it is in data base the below selection screen not to be displyed.
if it is there  the below selection screen  with Material Desc(maktx),sales text,Division. how can achive this requirement.thanks in advance.
Thanks,
Venkat.

Answer 1

Hi,
Consider parameter p_param as DIVISION NUMBER
If no material found from MARC, p_param is set to AE, else if material found p_param is cleared.
If p_param is other than AE or AC, then error message 'Invalid Division'
Refer:
PARAMETERS : p_matnr TYPE marc-matnr OBLIGATORY,
             p_maktx TYPE makt-maktx MODIF ID abc,
             p_param(10) TYPE c MODIF ID def.
DATA : v_matnr TYPE marc-matnr.
AT SELECTION-SCREEN OUTPUT.
  IF NOT p_matnr IS INITIAL.
    SELECT SINGLE matnr FROM marc INTO v_matnr WHERE matnr = p_matnr.
    IF sy-subrc <> 0.
      CLEAR p_maktx.
      CLEAR p_param.
      p_param = 'AE'.
      LOOP AT SCREEN.
        IF screen-group1 = 'ABC'.
          screen-invisible = 0.
          screen-active = 1.
          screen-input = 1.
          screen-required = 1.
        ENDIF.
        IF screen-group1 = 'DEF'.
          screen-invisible = 0.
          screen-active = 1.
          screen-input = 1.
          screen-required = 1.
        ENDIF.
        MODIFY SCREEN.
      ENDLOOP.
    ELSE.
      SELECT SINGLE maktx FROM makt INTO p_maktx WHERE matnr = p_matnr.
      CLEAR p_param.
      LOOP AT SCREEN.
        IF screen-group1 = 'ABC'.
          screen-invisible = 0.
          screen-active = 1.
          screen-input = 1.
          screen-required = 0.
        ENDIF.
        IF screen-group1 = 'DEF'.
          screen-invisible = 0.
          screen-active = 1.
          screen-input = 1.
          screen-required = 0.
        ENDIF.
        MODIFY SCREEN.
      ENDLOOP.
    ENDIF.
  ENDIF.
AT SELECTION-SCREEN.
  SELECT SINGLE matnr FROM marc INTO v_matnr WHERE matnr = p_matnr.
  IF sy-subrc <> 0.
    p_param = 'AE'.
  ENDIF.
  IF NOT ( p_param = 'AE' OR p_param = 'AC' ).
    MESSAGE 'Invalid Division' TYPE 'E'.
  ENDIF.
Hope this helps you.
Regards,
Tarun