Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

Search help issue

sachin_yadav3
Active Participant
0 Likes
356

Hi Experts,

I am creating one search help in which i have to disply long text value for material as a out put.

My client req is as below:-

Display 40 first characters and display the complete text when the Cursor is on the description.

I do not know how to acheive the above functionality in search help.

Kindly help.

1 ACCEPTED SOLUTION
Read only

former_member222860
Active Contributor
0 Likes
331

Sachin,

Here' s some logic :

TYPES:BEGIN OF T_MARA,
      MATNR       TYPE MAKT-MATNR,
      MAKTX       TYPE MAKT-MAKTX,
     END OF T_MARA,

     T_RETURN_TAB  TYPE DDSHRETVAL.

DATA:W_MARA      TYPE T_MARA,
    W_RETURN_TAB TYPE T_RETURN_TAB.

DATA:I_MARA      TYPE STANDARD TABLE OF T_MARA,
    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 BLOCK B1 WITH FRAME.
PARAMETERS :P_MATNR TYPE MAKT-MATNR,
            P_MAKTX TYPE MAKT-MAKTX,
            P_LDESC TYPE MAKT-MAKTX.

SELECTION-SCREEN END OF BLOCK B1.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_MATNR.
 IF I_MARA[] IS INITIAL.
   SELECT MATNR MAKTX
   FROM MAKT
   INTO TABLE I_MARA.
 ENDIF.


 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
   EXPORTING
     RETFIELD    = 'MATNR'
     DYNPPROG    = SY-REPID
     DYNPNR      = SY-DYNNR
     DYNPROFIELD = 'P_MATNR'
     VALUE_ORG   = 'S'
   TABLES
     VALUE_TAB   = I_MARA
     RETURN_TAB  = I_RETURN_TAB.

 READ TABLE I_RETURN_TAB INTO W_RETURN_TAB INDEX 1.
 P_MATNR = W_RETURN_TAB-FIELDVAL.

 READ TABLE I_MARA INTO W_MARA WITH KEY MATNR = P_MATNR.
 IF SY-SUBRC = 0.
   W_DYNPFIELDS-FIELDNAME    = 'P_MAKTX'.
   W_DYNPFIELDS-FIELDVALUE   = W_MARA-MAKTX(4).  "Displays first 4 chars
   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.

 READ TABLE I_MARA INTO W_MARA WITH KEY MATNR = P_MATNR.
 IF SY-SUBRC = 0.
   W_DYNPFIELDS-FIELDNAME    = 'P_LDESC'.
   W_DYNPFIELDS-FIELDVALUE   = W_MARA-MAKTX.  "Displays LONG DESCRIPTION
   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.

Hi Experts,

I am creating one search help in which i have to disply long text value for material as a out put.

My client req is as below:-

Display 40 first characters and display the complete text when the Cursor is on the description.

I do not know how to acheive the above functionality in search help.

Kindly help.

2 REPLIES 2
Read only

former_member222860
Active Contributor
0 Likes
332

Sachin,

Here' s some logic :

TYPES:BEGIN OF T_MARA,
      MATNR       TYPE MAKT-MATNR,
      MAKTX       TYPE MAKT-MAKTX,
     END OF T_MARA,

     T_RETURN_TAB  TYPE DDSHRETVAL.

DATA:W_MARA      TYPE T_MARA,
    W_RETURN_TAB TYPE T_RETURN_TAB.

DATA:I_MARA      TYPE STANDARD TABLE OF T_MARA,
    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 BLOCK B1 WITH FRAME.
PARAMETERS :P_MATNR TYPE MAKT-MATNR,
            P_MAKTX TYPE MAKT-MAKTX,
            P_LDESC TYPE MAKT-MAKTX.

SELECTION-SCREEN END OF BLOCK B1.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_MATNR.
 IF I_MARA[] IS INITIAL.
   SELECT MATNR MAKTX
   FROM MAKT
   INTO TABLE I_MARA.
 ENDIF.


 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
   EXPORTING
     RETFIELD    = 'MATNR'
     DYNPPROG    = SY-REPID
     DYNPNR      = SY-DYNNR
     DYNPROFIELD = 'P_MATNR'
     VALUE_ORG   = 'S'
   TABLES
     VALUE_TAB   = I_MARA
     RETURN_TAB  = I_RETURN_TAB.

 READ TABLE I_RETURN_TAB INTO W_RETURN_TAB INDEX 1.
 P_MATNR = W_RETURN_TAB-FIELDVAL.

 READ TABLE I_MARA INTO W_MARA WITH KEY MATNR = P_MATNR.
 IF SY-SUBRC = 0.
   W_DYNPFIELDS-FIELDNAME    = 'P_MAKTX'.
   W_DYNPFIELDS-FIELDVALUE   = W_MARA-MAKTX(4).  "Displays first 4 chars
   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.

 READ TABLE I_MARA INTO W_MARA WITH KEY MATNR = P_MATNR.
 IF SY-SUBRC = 0.
   W_DYNPFIELDS-FIELDNAME    = 'P_LDESC'.
   W_DYNPFIELDS-FIELDVALUE   = W_MARA-MAKTX.  "Displays LONG DESCRIPTION
   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.

Read only

0 Likes
331

sorry but my req is not to create the search help. I have already created the search help.

My req is as below:-

On output window(values of the search help) of search help "Display 40 first characters and display the complete text when the Cursor is on the description".

Thanks & Regards

Sachin