Selection-Screen : Displaying Text next to Input field

 *&---------------------------------------------------------------------*
*& Report ZVB_DESC
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zvb_desc.
TYPES:
  BEGIN OF t_t001w,
    werks TYPE t001w-werks,
    name1 TYPE t001w-name1,
  END OF t_t001w,
  t_return_tab TYPE ddshretval.
DATA:
  w_t001w      TYPE t_t001w,
  w_return_tab TYPE t_return_tab.
DATA:
  i_t001w      TYPE STANDARD TABLE OF t_t001w,
  i_return_tab TYPE STANDARD TABLE OF t_return_tab.

DATA:
  w_dynpfields TYPE dynpread,
  i_dynpfields LIKE STANDARD TABLE OF dynpread.

SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT (10) TEXT-001.
  PARAMETERS: p_werks TYPE t001w-werks.
**              p_name1 TYPE t001w-name1.
  SELECTION-SCREEN COMMENT 23(30) p_name1.
SELECTION-SCREEN END OF LINE.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_werks.
  PERFORM f4_help_for_palant.

AT SELECTION-SCREEN.
  IF sy-ucomm = ' '.
    SELECT SINGLE werks,name1
   FROM t001w
   INTO @DATA(ir_t001w)
      WHERE werks = @p_werks.

    p_name1 = ir_t001w-name1.
*    IF sy-subrc = 0.
    w_dynpfields-fieldname    = 'P_NAME1'.
    w_dynpfields-fieldvalue   = w_t001w-name1.
    APPEND w_dynpfields TO i_dynpfields.
    CLEAR w_dynpfields.
    CALL FUNCTION 'DYNP_VALUES_UPDATE'
      EXPORTING
        dyname     = sy-repid
        dynumb     = sy-dynnr
      TABLES
        dynpfields = i_dynpfields.
*    ENDIF.

  ENDIF.

*AT SELECTION-SCREEN OUTPUT.
*  LOOP AT SCREEN.
*    IF screen-name = 'P_NAME1'.
*      screen-input = '0'.
*      MODIFY SCREEN.
*    ENDIF.
*  ENDLOOP.
*&---------------------------------------------------------------------*
*&      Form  f4_help_for_palant
*&---------------------------------------------------------------------*
FORM f4_help_for_palant.

  IF i_t001w[] IS INITIAL.
    SELECT werks name1
    FROM t001w
    INTO TABLE i_t001w.
  ENDIF.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield    = 'WERKS'
      dynpprog    = sy-repid
      dynpnr      = sy-dynnr
      dynprofield = 'P_WERKS'
      value_org   = 'S'
    TABLES
      value_tab   = i_t001w
      return_tab  = i_return_tab.
  READ TABLE i_return_tab INTO w_return_tab INDEX 1.
  p_werks = w_return_tab-fieldval.
  READ TABLE i_t001w INTO w_t001w WITH KEY werks = p_werks.
  IF sy-subrc = 0.
    w_dynpfields-fieldname    = 'P_NAME1'.
    w_dynpfields-fieldvalue   = w_t001w-name1.
    APPEND w_dynpfields TO i_dynpfields.
    CLEAR w_dynpfields.
    CALL FUNCTION 'DYNP_VALUES_UPDATE'
      EXPORTING
        dyname     = sy-repid
        dynumb     = sy-dynnr
      TABLES
        dynpfields = i_dynpfields.
  ENDIF.
ENDFORM.                    " f4_help_for_plant

Output:

 

Comments

Post a Comment

Popular posts from this blog

Passing Dynamic Variables to SO10 TEXT

REPORT  ZTEST_POPUP . PARAMETERS : A  TYPE  i ,  B  TYPE  i . DATA:  C TYPE  i ,       lv_text  TYPE  string , C  =  A + B .   data : it_final  TYPE  TABLE  OF  tline . DATA : CHANGED  TYPE  STRING . CALL  FUNCTION  'READ_TEXT'    EXPORTING     CLIENT                         =  SY - MANDT      id                             =  'ST'      language                       =  SY - LANGU  ...
Read more

Implicit Enhancement with Example

    Implicit Enhancement : Implicit point is available at the starting or at the last of the Program,Sub routines, Function Modules etc. We will create the Implicit Implementation using those points  Example:  Changing the Title of the Presentation Layer while using the Function Module 'F4_FILENAME'. 1.Go to T-code 'SE37'. 2.Execute the FM 'F4_FILENAME'.   Now the title is 'File Select.'. We are changing this title to 'Choose file'.  3.The Title is coming from the FM 'WS_FILENAME_GET'. Steps to create Implicit Enhancement: 1.Go to T-code 'SE37'. 2.Enter FM ' WS_FILENAME_GET'. 3.Click on 'Display'. 4.click on 'Edit'. 5.Click on 'Enhancement Operations'.  6.Click on 'Show Implicit Enhancement Options'.   7.Click on the 'Enhance' Icon.  8.Right click on the implicit points (""""""""""""""""""...
Read more

TMG Events

Image
In SAP ABAP, TMG (Table Maintenance Generator) events are used to customize the behavior of table maintenance dialogs generated by the Table Maintenance Generator. The Table Maintenance Generator is a tool provided by SAP that allows developers to create basic maintenance screens for database tables without having to write extensive ABAP code. TMG events are predefined function modules that are called at specific points during the execution of the table maintenance dialog. These events provide developers with hooks to add custom logic or validations to the standard table maintenance process without modifying the generated code. Some common TMG events in SAP ABAP include: BEFORE OUTPUT: This event is triggered before the maintenance screen is displayed. Developers can use this event to modify the screen layout or initialize screen fields. AFTER INPUT: This event is triggered after the user enters data on the maintenance screen and clicks the save button. Developers can ...
Read more