a input field with disable mode

[Former Member]

I am creating an infotype ..

I have 4 fields for the first field doman table is created.

if i select value from the pop up, I need to display discripition for that in non editable mode.

these 2 boxes should be in the same line.

Please help me here....

Thanks

Chitra

[faisal_altaf2]

Hi,

Please Test the following Sample Code this will solve out your problem, i have tested it is working fine.

Please Don't forget to press Enter Key after Provide the Personal Number Than you will see the name Right Side

TABLES: pa0001.

SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001 .
SELECT-OPTIONS: sopernr FOR pa0001-pernr NO-EXTENSION NO INTERVALS.
SELECTION-SCREEN COMMENT 45(40) sscpernr FOR FIELD sopernr MODIF ID dpt.
SELECTION-SCREEN END OF BLOCK a.


AT SELECTION-SCREEN OUTPUT.
  PERFORM get_lables.
  LOOP AT SCREEN.
    IF screen-group1 = 'DPT'.
      screen-intensified = '1'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

*&---------------------------------------------------------------------*
*&      Form  get_lables
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM get_lables.
  IF sopernr-low IS INITIAL.
    sscpernr = ''.
  ELSE.
    SELECT SINGLE * FROM pa0001 WHERE pernr = sopernr-low AND endda = '99991231'.
    IF sy-subrc = 0 .
      sscpernr = pa0001-ename.
    ENDIF.
  ENDIF.
ENDFORM.                    "get_lables

Please Reply if any Issue.

Kind Regards,

Faisal

[faisal_altaf2]

Hi,

Please Test the following Sample Code too.

TABLES: pa0001.

SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001 .
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(35) text1."sscpernr FOR FIELD sopernr MODIF ID dpt.
SELECT-OPTIONS: sopernr FOR pa0001-pernr NO-EXTENSION NO INTERVALS.
PARAMETERS: pename LIKE pa0001-ename MODIF ID dpt.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK a.

INITIALIZATION.
  text1 = 'Please Enter the Personal Number'.

AT SELECTION-SCREEN OUTPUT.
  PERFORM get_lables.
  LOOP AT SCREEN.
    IF screen-group1 = 'DPT'.
      screen-input = '0'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

*&---------------------------------------------------------------------*
*&      Form  get_lables
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM get_lables.
  IF sopernr-low IS INITIAL.
    pename = ''.
  ELSE.
    SELECT SINGLE * FROM pa0001 WHERE pernr = sopernr-low AND endda = '99991231'.
    IF sy-subrc = 0 .
      pename = pa0001-ename.
    ENDIF.
  ENDIF.
ENDFORM.                    "get_lables

Please Reply if any Issue,

Kind Regards,

Faisal

[Former Member]

thnaks