SEARCH HELP IW21 ASSETMENT ANLNR

Hi Guru's,
I created a specific field ZZAUFNT(Subnetworf of) in reference object tab the same field as in location data tab Asset field.
My issue is I would to have the same search help that this standard field.

I changed the data element and I put the same that ANLA table but it is the same issue.
I tried to put the code in the PAI I create the search help for the activitity fied but I don't get the value in the VIQMEL structure.

Similar Messages

  • Search help for Asset Class in LDB ADA

    Hi,
    I have a requirement to restrict values in certain search help.
    It is Z transaction for Z SAP Query which has logical database ADA under itself.
    The field which search help I should restrict is Asset Class.
    As I found in LDB ADA, it is select option SO_ANLKL with type ANLAV-ANLKL. It leads me to search help SH_ANLKA which is defined for domain ANLKL.
    But actually, another search help is called. It looks like SH_ANKA, but I don't know if it is right one.
    I have two problems:
    1. How to identify what search help is called?
    2. How to restrict values in search help or maybe how to attach Z search help in this case (should I attach in query or is there a way to enhance LDB)?
    As I am new both to SAP Query and LDB's I am not sure where to start.
    Tnx in advance,
    Natasa

    Solved.
    For those who face the same problem, here is the solution.
    LDB ADA creates basic search help for select options Asset Class by reading ANKA-ANLKL and ANKT-TXK20.
    Output list can be restricted by adding an enhancement at the end of FM DD_SHLP_GET_HELPVALUES and changing the internal table OUTPUT_VALUES.
    If necessary, it can be conditioned by TCODE and for this purpose parameter can be set in the enhancement of FM DD_SHLP_CALL_FROM_DYNP by reading content of the field HELP_INFOS-TCODE.
    Regards,
    Natasa

  • Asset Search help

    Hi
    we are creating a asset Shopping cart, Can any one tell which is the search help used for assets which fetched the data from the backend system.
    We are on SRM version 4.0
    thanks

    Hi. If you check table T77OMATTR it lists all the attributes and their search helps.
    Asset is attribute AN1.
    The search help is BBP_ATTR_F4_ACC.
    Regards,
    Dave.

  • Asset master search help

    Hi
    Hope someone could enlighten me on this.
    In the asset master display transaction (AS03), when I select F4 in the asset field, no value is generated when the company code and asset class field is entered with a value. However when only the asset class field is entered (ie leaving the company code field blank), a list of relevant assets is generated.
    When only the company code field is entered, no value is generated too.
    Is there some limitation with the search help functionality?
    Please advise.
    Thank you.

    Hi Hui
    Check if you have authorization to display the assets for that particular company code.  We also have similar setup that we can display assets only for particular company codes and not others.
    Its purely authorization issue.
    Thanks
    Ashok
    Assign points for useful answer

  • Search help name for Asset number

    Hi ! Guru
        I create new feild  and I need new feild can search  , I want to know Search help Name and Parameter  ID  for Asset number
    (ANLN1)
    thank you very much.

    Hi vinny,
    try to declare like this.
    whar max told is correct.
    time1 like sy-uzeit
    rgds
    Anver
    if hlpd pls mark points

  • Getting the value of a dynpro field in an exit for a standard search help.

    Hallo Experts!
    I need to modify the selected data displayed in standard sap search help: H_T357
    What I've done is create an exit for the search help.
    Then, when CALLCONTROL-STEP = 'DISP' I use the function module F4UT_PARAMETER_VALUE_GET and I get the value of the parameter 'WERKS' correctly. I think that this function module can only obtain values from the parameters of the search help. Well, here is the problem, I would like to get the values of dynpro fields
    'ILOA-STORT' and 'VIQMEL-QMART' (warning type) in transaction IW21.
    I prefer not to add these fields as parameters to the standard search help: H_T357.
    Any ideas for getting the value of these fields? I've seen functions modules: F4UT_GET_ENVIRONMENT and F4UT_SH_SIC_GET_FIELDS. But I don't know if I can use them  for my porpuses.
    Thanks a lot in advance.

    Hello again,
    I have already solved the problem using function module 'DYNP_VALUES_READ'.
    Thanks, David.

  • Help for asset aqusition report

    hi,
    here i am sending my code for asset aqusition report but not getting right output ie i am not able to get all the line items for particular asset no.
    bcoz an asset has different line items with different doc no.
    REPORT  XXXXXX                            .
    TABLES : sflight.
    TYPE-POOLS: slis.
    DATA : w_repid LIKE sy-repid.
    w_repid = sy-repid.
    DATA : BEGIN OF it_sflight OCCURS 0,
           checkbox(1),
           carrid LIKE sflight-carrid,
           END OF it_sflight.
    *layout
    DATA: wa_layout           TYPE slis_layout_alv.
    *field catalog
    DATA: it_fieldcatalog TYPE slis_t_fieldcat_alv,
          wa_fieldcatalog TYPE slis_fieldcat_alv.
    START-OF-SELECTION.
      SELECT carrid FROM sflight INTO CORRESPONDING FIELDS OF TABLE
    it_sflight.
    END-OF-SELECTION.
      CLEAR it_fieldcatalog.
      REFRESH it_fieldcatalog.
      wa_fieldcatalog-fieldname = 'CHECKBOX'.
      wa_fieldcatalog-outputlen = '3'.
      wa_fieldcatalog-col_pos = '1'.
      wa_fieldcatalog-seltext_m   = 'Chk'.
      wa_fieldcatalog-checkbox = 'X'.
      wa_fieldcatalog-edit = 'X'.
      APPEND  wa_fieldcatalog TO it_fieldcatalog.
      CLEAR  wa_fieldcatalog.
      wa_fieldcatalog-fieldname = 'CARRID'.
      wa_fieldcatalog-outputlen = '10'.
      wa_fieldcatalog-col_pos = '2'.
      wa_fieldcatalog-seltext_m   = 'Carrid'.
      APPEND  wa_fieldcatalog TO it_fieldcatalog.
      CLEAR  wa_fieldcatalog.
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
          i_callback_program      = w_repid
          is_layout               = wa_layout
          i_callback_user_command = 'USER_COMMAND'
          it_fieldcat           = it_fieldcatalog
        TABLES
          t_outtab                = it_sflight
        EXCEPTIONS
          program_error           = 1
          OTHERS                  = 2.
    *&      Form  USER_COMMAND
    FORM user_command USING p_ucomm TYPE sy-ucomm
                          p_selfld TYPE slis_selfield.
      CASE p_ucomm.
        WHEN '&DATA_SAVE'.
          DATA ref1 TYPE REF TO cl_gui_alv_grid.
          CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
            IMPORTING
              e_grid = ref1.
          CALL METHOD ref1->check_changed_data.
          LOOP AT it_sflight WHERE checkbox = 'X'.
            DELETE it_sflight INDEX sy-tabix.
          ENDLOOP.
          p_selfld-refresh = 'X'.
      ENDCASE.
    ENDFORM.                    "user_command
    Check the following code...
    DATA: BEGIN OF itab OCCURS 0,
    check,
    value(20),
    END OF itab.
    SET PF-STATUS 'TEST1'.
    itab-value = 'ETSAT'.
    APPEND itab.
    itab-value = 'ETSATADSF'.
    APPEND itab.
    itab-value = 'ETSAT'.
    APPEND itab.
    LOOP AT itab.
    WRITE: / itab-check AS CHECKBOX,
    itab-value.
    ENDLOOP.
    AT USER-COMMAND.
    DATA: wa LIKE itab.
    DATA: itab_download LIKE itab OCCURS 0 WITH HEADER LINE.
    IF sy-ucomm = 'DOWNLOAD'.
    DESCRIBE TABLE itab.
    DO sy-tfill TIMES.
    READ LINE sy-index FIELD VALUE itab-check.
    IF sy-subrc <> 0.
    EXIT.
    ENDIF.
    CHECK itab-check = 'X'.
    itab_download-value = itab-value.
    APPEND itab_download.
    ENDDO.
    DOWNLOAD
    CALL FUNCTION 'WS_DOWNLOAD'
    EXPORTING
    filename = 'C:\TEST.XLS '
    TABLES
    data_tab = itab_download.
    ENDIF.
    Thanks
    Shobi

    Hi,
      One the guy has same report as problem,  ok, my friend Eswar as given the code for that, i will send you that, hope it is helpful
    <b>Please check with this code now:
    TYPE-POOLS : SLIS.
    TABLES : ANLA,                     "ASSET MASTER RECORD-SEGMENT
            ANLZ.                     "time dependent asset allocations
    DATA : BEGIN OF T_ANLA OCCURS 0,
          BUKRS LIKE ANLA-BUKRS,
          ANLN1 LIKE ANLA-ANLN1,
          ANLN2 LIKE ANLA-ANLN2,
          AKTIV LIKE ANLA-AKTIV,
          TXT50 LIKE ANLA-TXT50,
          ZUGDT LIKE ANLA-ZUGDT,
          MENGE LIKE ANLA-MENGE,
          MEINS LIKE ANLA-MEINS,
          END OF T_ANLA.
    DATA : BEGIN OF T_ANLZ OCCURS 0,
          BUKRS LIKE ANLZ-BUKRS,
          ANLN1 LIKE ANLZ-ANLN1,
          ANLN2 LIKE ANLZ-ANLN2,
          GSBER LIKE ANLZ-GSBER,
          KOSTL LIKE ANLZ-KOSTL,
          STORT LIKE ANLZ-STORT,
          RAUMN LIKE ANLZ-RAUMN,
          KFZKZ LIKE ANLZ-KFZKZ,
          END OF T_ANLZ.
    DATA : BEGIN OF T_ANEK OCCURS 0,
          BUKRS LIKE ANEK-BUKRS,
          ANLN1 LIKE ANEK-ANLN1,
          ANLN2 LIKE ANEK-ANLN2,
          BELNR LIKE ANEK-BELNR,
          BUDAT LIKE ANEK-BUDAT,
          XBLNR LIKE ANEK-XBLNR,
          SGTXT LIKE ANEK-SGTXT,
          END OF T_ANEK.
    DATA : BEGIN OF T_ANLC OCCURS 0,
          BUKRS LIKE ANLC-BUKRS,
          ANLN1 LIKE ANLC-ANLN1,
          ANLN2 LIKE ANLC-ANLN2,
          KANSW LIKE ANLC-KANSW,
          KNAFA LIKE ANLC-KNAFA,
          AAFAP LIKE ANLC-AAFAP,
          AFABE LIKE ANLC-AFABE,
          GJAHR LIKE ANLC-GJAHR,
          END OF T_ANLC.
    DATA : BEGIN OF IT_FINAL OCCURS 0,
           ANLN1 LIKE ANLA-ANLN1,
           ANLN2 LIKE ANLA-ANLN2,
           AKTIV LIKE ANLA-AKTIV,
           TXT50 LIKE ANLA-TXT50,
           ZUGDT LIKE ANLA-ZUGDT,
           MENGE LIKE ANLA-MENGE,
           MEINS LIKE ANLA-MEINS,
           GSBER LIKE ANLZ-GSBER,
           KOSTL LIKE ANLZ-KOSTL,
           STORT LIKE ANLZ-STORT,
           RAUMN LIKE ANLZ-RAUMN,
           KFZKZ LIKE ANLZ-KFZKZ,
           BELNR LIKE ANEK-BELNR,
           BUDAT LIKE ANEK-BUDAT,
           XBLNR LIKE ANEK-XBLNR,
           SGTXT LIKE ANEK-SGTXT,
           KANSW LIKE ANLC-KANSW,
           KNAFA LIKE ANLC-KNAFA,
           AAFAP LIKE ANLC-AAFAP,
           GJAHR LIKE ANEK-GJAHR,
           END OF IT_FINAL.
    DATA : LINE_COLOR(4) TYPE C.
    DATA : FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
          GD_LAYOUT TYPE SLIS_LAYOUT_ALV.
    SELECTION-SCREEN : BEGIN OF BLOCK B_FA WITH FRAME TITLE TEXT-001.
    SELECT-OPTIONS : S_BUKRS FOR ANLA-BUKRS DEFAULT 'ML',
                    S_ANLN1 FOR ANLA-ANLN1,
                    S_ANLN2 FOR ANLA-ANLN2.
                    s_gjahr FOR anlc-gjahr.
    SELECTION-SCREEN : END OF BLOCK B_FA.
    *SELECT-OPTIONS : s_belnr FOR anek-belnr.
    SELECT BUKRS ANLN1 ANLN2 AKTIV TXT50 ZUGDT MENGE MEINS
          FROM ANLA
          INTO CORRESPONDING FIELDS OF TABLE T_ANLA
          WHERE ANLN1 IN S_ANLN1
          AND   ANLN2 IN S_ANLN2
          AND   BUKRS IN S_BUKRS.
    CHECK: NOT T_ANLA[] IS INITIAL.
    SELECT BUKRS ANLN1 ANLN2 GSBER KOSTL STORT RAUMN KFZKZ
          FROM ANLZ
          INTO CORRESPONDING FIELDS OF TABLE T_ANLZ
          FOR ALL ENTRIES IN T_ANLA
          WHERE ANLN1 = T_ANLA-ANLN1
          AND   ANLN2 = T_ANLA-ANLN2
          AND   BUKRS = T_ANLA-BUKRS.
    *IF sy-subrc EQ 0.
    SELECT BUKRS ANLN1 ANLN2 BELNR BUDAT XBLNR SGTXT GJAHR
          FROM ANEK
          INTO CORRESPONDING FIELDS OF TABLE T_ANEK
          FOR ALL ENTRIES IN T_ANLA
          WHERE ANLN1 = T_ANLA-ANLN1
          AND   ANLN2 = T_ANLA-ANLN2
          AND   BUKRS = T_ANLA-BUKRS.
          AND   gjahr = t_anek-gjahr.
    *ENDIF.
    SELECT BUKRS ANLN1 ANLN2 KANSW KNAFA AAFAP AFABE GJAHR
          FROM ANLC
          INTO CORRESPONDING FIELDS OF TABLE T_ANLC
          FOR ALL ENTRIES IN T_ANLA
          WHERE ANLN1 = T_ANLA-ANLN1
          AND   ANLN2 = T_ANLA-ANLN2
          AND   BUKRS = T_ANLA-BUKRS
          AND   GJAHR = T_ANLC-GJAHR.
          AND   afabe = '01'.
    LOOP AT T_ANLA.
      MOVE : T_ANLA-ANLN1 TO IT_FINAL-ANLN1,
             T_ANLA-ANLN2 TO IT_FINAL-ANLN2,
             T_ANLA-AKTIV TO IT_FINAL-AKTIV,
             T_ANLA-TXT50 TO IT_FINAL-TXT50,
             T_ANLA-ZUGDT TO IT_FINAL-ZUGDT,
             T_ANLA-MENGE TO IT_FINAL-MENGE,
             T_ANLA-MEINS TO IT_FINAL-MEINS.
      READ TABLE T_ANLZ WITH KEY BUKRS = T_ANLA-BUKRS
                                ANLN1 = T_ANLA-ANLN1
                                ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.
      IF SY-SUBRC EQ 0.
        MOVE : T_ANLZ-GSBER TO IT_FINAL-GSBER,
               T_ANLZ-KOSTL TO IT_FINAL-KOSTL,
               T_ANLZ-STORT TO IT_FINAL-STORT,
               T_ANLZ-RAUMN TO IT_FINAL-RAUMN,
               T_ANLZ-KFZKZ TO IT_FINAL-KFZKZ.
      ENDIF.
      READ TABLE T_ANLC WITH KEY BUKRS = T_ANLA-BUKRS
                                ANLN1 = T_ANLA-ANLN1
                                ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.
      IF SY-SUBRC EQ 0.
        MOVE : T_ANLC-KANSW TO IT_FINAL-KANSW,
               T_ANLC-KNAFA TO IT_FINAL-KNAFA,
               T_ANLC-AAFAP TO IT_FINAL-AAFAP.
      ENDIF.
    *SORT t_anla.
    *READ TABLE T_ANEK WITH KEY BUKRS = T_ANLA-BUKRS
                             ANLN1 = T_ANLA-ANLN1
                             ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.
    *IF SY-SUBRC EQ 0.
    LOOP AT T_ANEK WHERE BUKRS = T_ANLA-BUKRS AND ANLN1 = T_ANLA-ANLN1 AND
    ANLN2 = T_ANLA-ANLN2.
        MOVE : T_ANEK-BELNR TO IT_FINAL-BELNR,
               T_ANEK-BUDAT TO IT_FINAL-BUDAT,
               T_ANEK-XBLNR TO IT_FINAL-XBLNR,
               T_ANEK-SGTXT TO IT_FINAL-SGTXT.
    *ENDIF.
        APPEND IT_FINAL.
      ENDLOOP.
    ENDLOOP.
    *ENDIF.
    PERFORM BUILD_FIELDCATALOG.
    PERFORM DISPLAY_ALV_REPORT.
    PERFORM BUILD_LAYOUT.
          FORM BUILD_FIELDCATALOG                                       *
    FORM BUILD_FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'ANLN1'.
      FIELDCATALOG-SELTEXT_M = 'ASSET MAIN NO'.
      FIELDCATALOG-COL_POS   = 0.
      FIELDCATALOG-OUTPUTLEN = 14.
      FIELDCATALOG-EMPHASIZE = 'X'.
      FIELDCATALOG-KEY       = 'X'.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'ANLN2'.
      FIELDCATALOG-SELTEXT_M = 'SUB NO'.
      FIELDCATALOG-COL_POS   = 1.
      FIELDCATALOG-OUTPUTLEN = 7.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'AKTIV'.
      FIELDCATALOG-SELTEXT_M = 'CAP.DATE'.
      FIELDCATALOG-COL_POS   = 2.
      FIELDCATALOG-OUTPUTLEN = 10.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'TXT50'.
      FIELDCATALOG-SELTEXT_M = 'NAME'.
      FIELDCATALOG-COL_POS   = 3.
      FIELDCATALOG-OUTPUTLEN = 50.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'ZUGDT'.
      FIELDCATALOG-SELTEXT_M = 'POSTING DATE'.
      FIELDCATALOG-COL_POS   = 4.
      FIELDCATALOG-OUTPUTLEN = 10.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'MENGE'.
      FIELDCATALOG-SELTEXT_M = 'QTY'.
      FIELDCATALOG-COL_POS   = 5.
      FIELDCATALOG-OUTPUTLEN = 13.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'MEINS'.
      FIELDCATALOG-SELTEXT_M = 'UNITS'.
      FIELDCATALOG-COL_POS   = 6.
      FIELDCATALOG-OUTPUTLEN = 3.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'GSBER'.
      FIELDCATALOG-SELTEXT_M = 'BA'.
      FIELDCATALOG-COL_POS   = 7.
      FIELDCATALOG-OUTPUTLEN = 4.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'KOSTL'.
      FIELDCATALOG-SELTEXT_M = 'COST CENTER'.
      FIELDCATALOG-COL_POS   = 8.
      FIELDCATALOG-OUTPUTLEN = 13.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'STORT'.
      FIELDCATALOG-SELTEXT_M = 'LOCATION'.
      FIELDCATALOG-COL_POS   = 9.
      FIELDCATALOG-OUTPUTLEN = 10.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'RAUMN'.
      FIELDCATALOG-SELTEXT_M = 'ROOM'.
      FIELDCATALOG-COL_POS   = 10.
      FIELDCATALOG-OUTPUTLEN = 10.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'KFZKZ'.
      FIELDCATALOG-SELTEXT_M = 'LICENSE PLATE NO'.
      FIELDCATALOG-COL_POS   = 11.
      FIELDCATALOG-OUTPUTLEN = 20.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'BELNR'.
      FIELDCATALOG-SELTEXT_M = 'DOC NO'.
      FIELDCATALOG-COL_POS   = 12.
      FIELDCATALOG-OUTPUTLEN = 13.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'BUDAT'.
      FIELDCATALOG-SELTEXT_M = 'POSTING DATE'.
      FIELDCATALOG-COL_POS   = 13.
      FIELDCATALOG-OUTPUTLEN = 15.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'XBLNR'.
      FIELDCATALOG-SELTEXT_M = 'REF NO'.
      FIELDCATALOG-COL_POS   = 14.
      FIELDCATALOG-OUTPUTLEN = 25.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'SGTXT'.
      FIELDCATALOG-SELTEXT_M = 'TEXT'.
      FIELDCATALOG-COL_POS   = 15.
      FIELDCATALOG-OUTPUTLEN = 50.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
    ENDFORM.                    "BUILD_FIELDCATALOG
          FORM BUILD_LAYOUT                                             *
    FORM BUILD_LAYOUT.
      GD_LAYOUT-ZEBRA = 'X'.
      GD_LAYOUT-INFO_FIELDNAME = 'LINE_COLOR'.
    ENDFORM.                    "BUILD_LAYOUT
          FORM DISPLAY_ALV_REPORT                                       *
    FORM DISPLAY_ALV_REPORT.
      CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
          EXPORTING
            I_INTERFACE_CHECK        = ' '
            I_CALLBACK_PROGRAM       = ' '
            I_CALLBACK_PF_STATUS_SET = ' '
            I_CALLBACK_USER_COMMAND  = ' '
            I_STRUCTURE_NAME         =
             IS_LAYOUT                = GD_LAYOUT
               IT_FIELDCAT              = FIELDCATALOG[]
            IT_EXCLUDING             =
            IT_SPECIAL_GROUPS        =
            IT_SORT                  =
            IT_FILTER                =
            IS_SEL_HIDE              =
            I_DEFAULT                = 'X'
            I_SAVE                   = ' '
            IS_VARIANT               = ' '
            IT_EVENTS                =
            IT_EVENT_EXIT            =
            IS_PRINT                 =
            I_SCREEN_START_COLUMN    = 0
            I_SCREEN_START_LINE      = 0
            I_SCREEN_END_COLUMN      = 0
            I_SCREEN_END_LINE        = 0
       IMPORTING
            E_EXIT_CAUSED_BY_CALLER  =
            ES_EXIT_CAUSED_BY_USER   =
           TABLES
                T_OUTTAB                 = IT_FINAL
           EXCEPTIONS
                PROGRAM_ERROR            = 1
                OTHERS                   = 2.
    ENDFORM.                    "DISPLAY_ALV_REPORT
    Thanks & Regards
    Eswar. B
    Tel: +65 6544 7449
    mailto: [email protected]
    From: [email protected] [mailto:[email protected]]
    Sent: Tuesday, November 28, 2006 7:36 PM
    To: Boddeti, Eswar Rao
    Subject: Re: need ur help for asset aqusition report
    Hai,
       Sorry sorry this is the right Code.
    Z_FA_ACQ  NO STANDARD PAGE HEADING
                    LINE-SIZE 400
                    LINE-COUNT 65(3).
    TYPE-POOLS : SLIS.
    TABLES : ANLA,                     "ASSET MASTER RECORD-SEGMENT
            ANLZ.                     "time dependent asset allocations
    DATA : BEGIN OF T_ANLA OCCURS 0,
          BUKRS LIKE ANLA-BUKRS,
          ANLN1 LIKE ANLA-ANLN1,
          ANLN2 LIKE ANLA-ANLN2,
          AKTIV LIKE ANLA-AKTIV,
          TXT50 LIKE ANLA-TXT50,
          ZUGDT LIKE ANLA-ZUGDT,
          MENGE LIKE ANLA-MENGE,
          MEINS LIKE ANLA-MEINS,
          END OF T_ANLA.
    DATA : BEGIN OF T_ANLZ OCCURS 0,
          BUKRS LIKE ANLZ-BUKRS,
          ANLN1 LIKE ANLZ-ANLN1,
          ANLN2 LIKE ANLZ-ANLN2,
          GSBER LIKE ANLZ-GSBER,
          KOSTL LIKE ANLZ-KOSTL,
          STORT LIKE ANLZ-STORT,
          RAUMN LIKE ANLZ-RAUMN,
          KFZKZ LIKE ANLZ-KFZKZ,
          END OF T_ANLZ.
    DATA : BEGIN OF T_ANEK OCCURS 0,
          BUKRS LIKE ANEK-BUKRS,
          ANLN1 LIKE ANEK-ANLN1,
          ANLN2 LIKE ANEK-ANLN2,
          BELNR LIKE ANEK-BELNR,
          BUDAT LIKE ANEK-BUDAT,
          XBLNR LIKE ANEK-XBLNR,
          SGTXT LIKE ANEK-SGTXT,
          END OF T_ANEK.
    DATA : BEGIN OF T_ANLC OCCURS 0,
          BUKRS LIKE ANLC-BUKRS,
          ANLN1 LIKE ANLC-ANLN1,
          ANLN2 LIKE ANLC-ANLN2,
          KANSW LIKE ANLC-KANSW,
          KNAFA LIKE ANLC-KNAFA,
          AAFAP LIKE ANLC-AAFAP,
          AFABE LIKE ANLC-AFABE,
          GJAHR LIKE ANLC-GJAHR,
          END OF T_ANLC.
    DATA : BEGIN OF IT_FINAL OCCURS 0,
           ANLN1 LIKE ANLA-ANLN1,
           ANLN2 LIKE ANLA-ANLN2,
           AKTIV LIKE ANLA-AKTIV,
           TXT50 LIKE ANLA-TXT50,
           ZUGDT LIKE ANLA-ZUGDT,
           MENGE LIKE ANLA-MENGE,
           MEINS LIKE ANLA-MEINS,
           GSBER LIKE ANLZ-GSBER,
           KOSTL LIKE ANLZ-KOSTL,
           STORT LIKE ANLZ-STORT,
           RAUMN LIKE ANLZ-RAUMN,
           KFZKZ LIKE ANLZ-KFZKZ,
           BELNR LIKE ANEK-BELNR,
           BUDAT LIKE ANEK-BUDAT,
           XBLNR LIKE ANEK-XBLNR,
           SGTXT LIKE ANEK-SGTXT,
           KANSW LIKE ANLC-KANSW,
           KNAFA LIKE ANLC-KNAFA,
           AAFAP LIKE ANLC-AAFAP,
           GJAHR LIKE ANEK-GJAHR,
           END OF IT_FINAL.
    DATA : LINE_COLOR(4) TYPE C.
    DATA : FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
          GD_LAYOUT TYPE SLIS_LAYOUT_ALV.
    SELECTION-SCREEN : BEGIN OF BLOCK B_FA WITH FRAME TITLE TEXT-001.
    SELECT-OPTIONS : S_BUKRS FOR ANLA-BUKRS DEFAULT 'ML',
                    S_ANLN1 FOR ANLA-ANLN1,
                    S_ANLN2 FOR ANLA-ANLN2.
                    s_gjahr FOR anlc-gjahr.
    SELECTION-SCREEN : END OF BLOCK B_FA.
    *SELECT-OPTIONS : s_belnr FOR anek-belnr.
    SELECT BUKRS ANLN1 ANLN2 AKTIV TXT50 ZUGDT MENGE MEINS
          FROM ANLA
          INTO CORRESPONDING FIELDS OF TABLE T_ANLA
          WHERE ANLN1 IN S_ANLN1
          AND   ANLN2 IN S_ANLN2
          AND   BUKRS IN S_BUKRS.
    SELECT BUKRS ANLN1 ANLN2 GSBER KOSTL STORT RAUMN KFZKZ
          FROM ANLZ
          INTO CORRESPONDING FIELDS OF TABLE T_ANLZ
          FOR ALL ENTRIES IN T_ANLA
          WHERE ANLN1 = T_ANLA-ANLN1
          AND   ANLN2 = T_ANLA-ANLN2
          AND   BUKRS = T_ANLA-BUKRS.
    *IF sy-subrc EQ 0.
    SELECT BUKRS ANLN1 ANLN2 BELNR BUDAT XBLNR SGTXT GJAHR
          FROM ANEK
          INTO CORRESPONDING FIELDS OF TABLE T_ANEK
          FOR ALL ENTRIES IN T_ANLA
          WHERE ANLN1 = T_ANLA-ANLN1
          AND   ANLN2 = T_ANLA-ANLN2
          AND   BUKRS = T_ANLA-BUKRS.
          AND   gjahr = t_anek-gjahr.
    *ENDIF.
    SELECT BUKRS ANLN1 ANLN2 KANSW KNAFA AAFAP AFABE GJAHR
          FROM ANLC
          INTO CORRESPONDING FIELDS OF TABLE T_ANLC
          FOR ALL ENTRIES IN T_ANLA
          WHERE ANLN1 = T_ANLA-ANLN1
          AND   ANLN2 = T_ANLA-ANLN2
          AND   BUKRS = T_ANLA-BUKRS
          AND   GJAHR = T_ANLC-GJAHR.
          AND   afabe = '01'.
    LOOP AT T_ANLA.
    MOVE : T_ANLA-ANLN1 TO IT_FINAL-ANLN1,
            T_ANLA-ANLN2 TO IT_FINAL-ANLN2,
            T_ANLA-AKTIV TO IT_FINAL-AKTIV,
            T_ANLA-TXT50 TO IT_FINAL-TXT50,
            T_ANLA-ZUGDT TO IT_FINAL-ZUGDT,
            T_ANLA-MENGE TO IT_FINAL-MENGE,
            T_ANLA-MEINS TO IT_FINAL-MEINS.
    READ TABLE T_ANLZ WITH KEY BUKRS = T_ANLA-BUKRS
                              ANLN1 = T_ANLA-ANLN1
                              ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.
    IF SY-SUBRC EQ 0.
    MOVE : T_ANLZ-GSBER TO IT_FINAL-GSBER,
           T_ANLZ-KOSTL TO IT_FINAL-KOSTL,
           T_ANLZ-STORT TO IT_FINAL-STORT,
           T_ANLZ-RAUMN TO IT_FINAL-RAUMN,
           T_ANLZ-KFZKZ TO IT_FINAL-KFZKZ.
    ENDIF.
    READ TABLE T_ANLC WITH KEY BUKRS = T_ANLA-BUKRS
                              ANLN1 = T_ANLA-ANLN1
                              ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.
    IF SY-SUBRC EQ 0.
    MOVE : T_ANLC-KANSW TO IT_FINAL-KANSW,
           T_ANLC-KNAFA TO IT_FINAL-KNAFA,
           T_ANLC-AAFAP TO IT_FINAL-AAFAP.
    ENDIF.
    *SORT t_anla.
    READ TABLE T_ANEK WITH KEY BUKRS = T_ANLA-BUKRS
                              ANLN1 = T_ANLA-ANLN1
                              ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.
    IF SY-SUBRC EQ 0.
    MOVE : T_ANEK-BELNR TO IT_FINAL-BELNR,
           T_ANEK-BUDAT TO IT_FINAL-BUDAT,
           T_ANEK-XBLNR TO IT_FINAL-XBLNR,
           T_ANEK-SGTXT TO IT_FINAL-SGTXT.
    ENDIF.
    APPEND IT_FINAL.
    *ENDLOOP.
    ENDLOOP.
    *ENDIF.
    PERFORM BUILD_FIELDCATALOG.
    PERFORM DISPLAY_ALV_REPORT.
    PERFORM BUILD_LAYOUT.
          FORM BUILD_FIELDCATALOG                                       *
    FORM BUILD_FIELDCATALOG.
    FIELDCATALOG-FIELDNAME = 'ANLN1'.
    FIELDCATALOG-SELTEXT_M = 'ASSET MAIN NO'.
    FIELDCATALOG-COL_POS   = 0.
    FIELDCATALOG-OUTPUTLEN = 14.
    FIELDCATALOG-EMPHASIZE = 'X'.
    FIELDCATALOG-KEY       = 'X'.
    APPEND FIELDCATALOG TO FIELDCATALOG.
    CLEAR FIELDCATALOG.
    FIELDCATALOG-FIELDNAME = 'ANLN2'.
    FIELDCATALOG-SELTEXT_M = 'SUB NO'.
    FIELDCATALOG-COL_POS   = 1.
    FIELDCATALOG-OUTPUTLEN = 7.
    APPEND FIELDCATALOG TO FIELDCATALOG.
    CLEAR FIELDCATALOG.
    FIELDCATALOG-FIELDNAME = 'AKTIV'.
    FIELDCATALOG-SELTEXT_M = 'CAP.DATE'.
    FIELDCATALOG-COL_POS   = 2.
    FIELDCATALOG-OUTPUTLEN = 10.
    APPEND FIELDCATALOG TO FIELDCATALOG.
    CLEAR FIELDCATALOG.
    FIELDCATALOG-FIELDNAME = 'TXT50'.
    FIELDCATALOG-SELTEXT_M = 'NAME'.
    FIELDCATALOG-COL_POS   = 3.
    FIELDCATALOG-OUTPUTLEN = 50.
    APPEND FIELDCATALOG TO FIELDCATALOG.
    CLEAR FIELDCATALOG.
    FIELDCATALOG-FIELDNAME = 'ZUGDT'.
    FIELDCATALOG-SELTEXT_M = 'POSTING DATE'.
    FIELDCATALOG-COL_POS   = 4.
    FIELDCATALOG-OUTPUTLEN = 10.
    APPEND FIELDCATALOG TO FIELDCATALOG.
    CLEAR FIELDCATALOG.
    FIELDCATALOG-FIELDNAME = 'MENGE'.
    FIELDCATALOG-SELTEXT_M = 'QTY'.
    FIELDCATALOG-COL_POS   = 5.
    FIELDCATALOG-OUTPUTLEN = 13.
    APPEND FIELDCATALOG TO FIELDCATALOG.
    CLEAR FIELDCATALOG.
    FIELDCATALOG-FIELDNAME = 'MEINS'.
    FIELDCATALOG-SELTEXT_M = 'UNITS'.
    FIELDCATALOG-COL_POS   = 6.
    FIELDCATALOG-OUTPUTLEN = 3.
    APPEND FIELDCATALOG TO FIELDCATALOG.
    CLEAR FIELDCATALOG.
    FIELDCATALOG-FIELDNAME = 'GSBER'.
    FIELDCATALOG-SELTEXT_M = 'BA'.
    FIELDCATALOG-COL_POS   = 7.
    FIELDCATALOG-OUTPUTLEN = 4.
    APPEND FIELDCATALOG TO FIELDCATALOG.
    CLEAR FIELDCATALOG.
    FIELDCATALOG-FIELDNAME = 'KOSTL'.
    FIELDCATALOG-SELTEXT_M = 'COST CENTER'.
    FIELDCATALOG-COL_POS   = 8.
    FIELDCATALOG-OUTPUTLEN = 13.
    APPEND FIELDCATALOG TO FIELDCATALOG.
    CLEAR FIELDCATALOG.
    FIELDCATALOG-FIELDNAME = 'STORT'.
    FIELDCATALOG-SELTEXT_M = 'LOCATION'.
    FIELDCATALOG-COL_POS   = 9.
    FIELDCATALOG-OUTPUTLEN = 10.
    APPEND FIELDCATALOG TO FIELDCATALOG.
    CLEAR FIELDCATALOG.
    FIELDCATALOG-FIELDNAME = 'RAUMN'.
    FIELDCATALOG-SELTEXT_M = 'ROOM'.
    FIELDCATALOG-COL_POS   = 10.
    FIELDCATALOG-OUTPUTLEN = 10.
    APPEND FIELDCATALOG TO FIELDCATALOG.
    CLEAR FIELDCATALOG.
    FIELDCATALOG-FIELDNAME = 'KFZKZ'.
    FIELDCATALOG-SELTEXT_M = 'LICENSE PLATE NO'.
    FIELDCATALOG-COL_POS   = 11.
    FIELDCATALOG-OUTPUTLEN = 20.
    APPEND FIELDCATALOG TO FIELDCATALOG.
    CLEAR FIELDCATALOG.
    FIELDCATALOG-FIELDNAME = 'BELNR'.
    FIELDCATALOG-SELTEXT_M = 'DOC NO'.
    FIELDCATALOG-COL_POS   = 12.
    FIELDCATALOG-OUTPUTLEN = 13.
    APPEND FIELDCATALOG TO FIELDCATALOG.
    CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'BUDAT'.
      FIELDCATALOG-SELTEXT_M = 'POSTING DATE'.
      FIELDCATALOG-COL_POS   = 13.
      FIELDCATALOG-OUTPUTLEN = 15.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'XBLNR'.
      FIELDCATALOG-SELTEXT_M = 'REF NO'.
      FIELDCATALOG-COL_POS   = 14.
      FIELDCATALOG-OUTPUTLEN = 25.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
      FIELDCATALOG-FIELDNAME = 'SGTXT'.
      FIELDCATALOG-SELTEXT_M = 'TEXT'.
      FIELDCATALOG-COL_POS   = 15.
      FIELDCATALOG-OUTPUTLEN = 50.
      APPEND FIELDCATALOG TO FIELDCATALOG.
      CLEAR FIELDCATALOG.
    ENDFORM.
          FORM BUILD_LAYOUT                                             *
    FORM BUILD_LAYOUT.
    GD_LAYOUT-ZEBRA = 'X'.
    GD_LAYOUT-INFO_FIELDNAME = 'LINE_COLOR'.
    ENDFORM.
          FORM DISPLAY_ALV_REPORT                                       *
    FORM DISPLAY_ALV_REPORT.
    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
         EXPORTING
            I_INTERFACE_CHECK        = ' '
            I_CALLBACK_PROGRAM       = ' '
            I_CALLBACK_PF_STATUS_SET = ' '
            I_CALLBACK_USER_COMMAND  = ' '
            I_STRUCTURE_NAME         =
            IS_LAYOUT                = GD_LAYOUT
              IT_FIELDCAT              = FIELDCATALOG[]
            IT_EXCLUDING             =
            IT_SPECIAL_GROUPS        =
            IT_SORT                  =
            IT_FILTER                =
            IS_SEL_HIDE              =
            I_DEFAULT                = 'X'
            I_SAVE                   = ' '
            IS_VARIANT               = ' '
            IT_EVENTS                =
            IT_EVENT_EXIT            =
            IS_PRINT                 =
            I_SCREEN_START_COLUMN    = 0
            I_SCREEN_START_LINE      = 0
            I_SCREEN_END_COLUMN      = 0
            I_SCREEN_END_LINE        = 0
       IMPORTING
            E_EXIT_CAUSED_BY_CALLER  =
            ES_EXIT_CAUSED_BY_USER   =
          TABLES
               T_OUTTAB                 = IT_FINAL
          EXCEPTIONS
               PROGRAM_ERROR            = 1
               OTHERS                   = 2.
    ENDFORM.
    Thanks
    manju

  • F4 search help is not getting displayed in WAD

    Hi all,
    For a certain InfoObject we want to add an attribute in the F4-search help. The additional attribute does appear when executing the query in the Bex Analyzer but not on the Web. Can anyone tell me how to achieve this in WAD?
    Thanks in Advance

    Hi all,
    For a certain InfoObject we want to add an attribute in the F4-search help. The additional attribute does appear when executing the query in the Bex Analyzer but not on the Web. Can anyone tell me how to achieve this in WAD?
    Thanks in Advance

  • Issue in custom search help for Suggest Value

    Hi,
    I have a requirement to have the suggest values pick up the records form any par of the string. Basically, using pattern. I have written the code in search help exit and it work in some cases and doesnt work for others.Eg. The result shows up for 123 but doesnt show for 1234, even though 1234 exists and it had showed up when i keyed in 123.
    My select quest works fine and i can see the values in record tab but on the screen. What could be going wrong.
    Thanks in advance for your help.
    Pris.
    PS: the code:
    IF callcontrol-step = 'SELECT'.
        DATA:lwa_selopt TYPE  ddshselopt,
             lit_selopt_id TYPE RANGE OF yselxyz-builder_id,
             lwa_selopt_id LIKE LINE OF lit_selopt_id ,
             lit_selopt_desc TYPE RANGE OF yselxyz-builder_name,
             lwa_selopt_desc LIKE LINE OF lit_selopt_desc,
             lwa_header TYPE yselabc,
             lit_header TYPE STANDARD TABLE OF yselabc,
             lv_sel_val TYPE ddshselopt-low.
        READ TABLE shlp-selopt INTO lwa_selopt WITH KEY shlpfield = 'BUILDER_ID'."'DKEY'.
        IF sy-subrc EQ 0.
          lwa_selopt-option = 'CP'.
          CONCATENATE '*' lwa_selopt-low INTO lwa_selopt-low.
          MOVE-CORRESPONDING  lwa_selopt TO lwa_selopt_id.
          APPEND  lwa_selopt_id TO lit_selopt_id.
          MOVE-CORRESPONDING  lwa_selopt TO lwa_selopt_desc.
          APPEND  lwa_selopt_desc TO lit_selopt_desc.
          CLEAR:lit_header[],record_tab[].
          SELECT builder_id builder_name FROM yselxyz INTO TABLE lit_header
            WHERE ( builder_id IN lit_selopt_id )
           OR ( builder_name IN lit_selopt_desc ).
          SORT lit_header BY builder_id.
          DELETE ADJACENT DUPLICATES FROM lit_header COMPARING builder_id.
          CALL FUNCTION 'F4UT_RESULTS_MAP'
            EXPORTING
              source_structure  = 'YSELABC'
            TABLES
              shlp_tab          = shlp_tab
              record_tab        = record_tab
              source_tab        = lit_header
            CHANGING
              shlp              = shlp
              callcontrol       = callcontrol
            EXCEPTIONS
              illegal_structure = 1
              OTHERS            = 2.
          callcontrol-step = 'DISP'.
          EXIT.
        ENDIF.
      ENDIF.

    Issue Resolved. For less than 50 records, client side filtering takes over. In that case the search help exit will not come into picture. Issue resolved by avoiding client side rendering.
    callcontrol-maxexceed = 'X'.
    Thanks,
    Pris.

  • How to populate data in MPP through F4 search help(the field should get filtered as per key)

    Dear Experts.
    I am new to ABAP and hence trying jmy hands on various ways of peforming a task.
    I have a requirement. I want to maintain a database tables through MPP :  ZLT_Auftrag (Refer Screen Shot 1: Doubt MPP1) and ZLT_Kunde (Refer Screen Shot2: Doubt MPP2)
    The fields of ZLT_Kunde are: K1, K2, K3
    The fields of ZLT_Auftrag are: A1, A2, A3, A4, P1 P2 and P3 are related as per the key field "A3"   (Here A3 = K2)
    I want the User to be able to Maintain this table through the Screen that I had created using MPP. (Plz refer the attached Screen Shot3:Doubt MPP3  of the SCREEN in MPP)
    When I populate the Kunde name(K1) in the SCREEN (Can be done by F4 Search help), then on hitting the pushbutton "Get Kunde" the  kunde Code (K2) appears . Now from here it can be deleted or even a new Kunde name and code can be saved dirctly to the database table : ZLT_Kunde. (Refer Screen Shoot4: Doubt MPP4)
    For Example for Kunde (K1)= BASF, Kunde Code (K2) = BSF, the Auftrag should be all those values from ZLT_Auftrag (where A3 = BSF)
    When I try to populate the Auftrag value on the SCREEN then on hitting F4 (already created for table ZLT_Auftrag in se11) then I get all the values of Auftrag (A1) from the table ZLT_Auftrag. (Ply refer Screen Shot 5: Doubt MPP5)
    MY REQUIREMENT: Here I want that either through F4 help or through drop down ONLY those values of Auftrag-A1 should appear on the SCREEN which satisfies the condition: A3 = K2
    I am unbale to get how to do that.
    I need your valuable suggstions.
    Regards
    Chandan

    And the  code of the MPP is:
    *& Module Pool       SAPMZDEMO_MPOOL_03
    PROGRAM  SAPMZDEMO_MPOOL_03.
    TABLES:  ZLT_MITA, ZLT_Kunde, ZLT_Auftrag, Zlt_Stdsatz.
    DATA: flg_lock  TYPE c,
    *      indx  TYPE i,
    *      indxk TYPE i,
    *      indxa TYPE i,
    *      TCNT TYPE sy-tabix,
          lv_msgv1  TYPE  sy-msgv1.
    *DATA: it_mita    TYPE TABLE OF ZLT_mita,
    *      it_kunde   TYPE TABLE OF ZLT_KUNDE,
    *      it_auftrag TYPE TABLE OF ZLT_AUFTRAG.
    *&      Module  STATUS_9000  OUTPUT
    *       text
    module STATUS_9000 output.
      SET PF-STATUS 'ZSTATUS01'.
    *  SET TITLEBAR 'xxx'.
      If flg_lock is Not initial.
        LOOP at Screen.
      If screen-group1 = 'G1'.
      Screen-input = 0.
      MODIFY SCREEN.
           Endif.
        ENDLOOP.
          MESSAGE s000(8i) WITH 'Mitarbeiter already locked by user' lv_msgv1.
      ENDIF.
    endmodule.                 " STATUS_9000  OUTPUT
    *&      Module  USER_COMMAND_9000  INPUT
    *       text
    module USER_COMMAND_9000 input.
    *To Populate Data into Mitarbeiter through Pushbuttons
      CASE sy-ucomm.
        When 'OK_GET'.
          Clear : flg_lock.
            IF ZLT_MITA-M1 is NOT INITIAL.
                SELECT SINGLE *
                FROM  ZLT_MITA
                Where M1 = ZLT_MITA-M1.
    *To create a Lock Object so that when two or more employees are accessing the same data
    * at the same time then for the new user the data gets locked and only can been seen in
    *display mode
            IF sy-subrc = 0.
            CALL FUNCTION 'ENQUEUE_EZLT_MITALOCK'
             EXPORTING
               MODE_ZLT_MITA        = 'E'
               MANDT                = SY-MANDT
               M1                   = ZLT_MITA-M1
    *           X_M1                 = ' '
    *           _SCOPE               = '2'
    *           _WAIT                = ' '
    *           _COLLECT             = ' '
             EXCEPTIONS
               FOREIGN_LOCK         = 1
               SYSTEM_FAILURE       = 2
               OTHERS               = 3
            IF sy-subrc <> 0.
              flg_lock = 'X'.
              lv_msgv1 = sy-msgv1.
            ENDIF.
            ENDIF.
            ELSE.
                MESSAGE S000(8i) With 'Enter Mitarbeiter Name'.
            ENDIF.
        When 'OK_SAVE'.
           Modify ZLT_MITA.
           IF sy-subrc = 0.
             MESSAGE s000(8i) With 'Data Saved'.
           ENDIF.
        When 'OK_DELETE'.
            IF ZLT_MITA-M1 is NOT INITIAL.
                DELETE
                FROM  ZLT_MITA
                Where M1 = ZLT_MITA-M1.
              IF sy-subrc = 0.
                MESSAGE S000(8i) With 'Data deleted'.
              ENDIF.
            ENDIF.
    *     When 'OK_FIRST'.
    *           indx = 1.
    *     When 'OK_NEXT'.
    *           indx = indx + 1.
    *     When 'OK_PREV'.
    *           indx = indx - 1.
    *     When 'OK_LAST'.
    *           Describe Table it_mita lines indx.
    *To Populate Data into Kunde through Pushbuttons
        When 'OK_GETK'.
            IF ZLT_Kunde-K1 is NOT INITIAL.
                SELECT SINGLE *
                FROM  ZLT_Kunde
                Where K1 = ZLT_KUNDE-K1.
            ELSE.
                MESSAGE S000(8i) With 'Enter Kunde Name'.
            ENDIF.
        When 'OK_SAVEK'.
           Modify ZLT_Kunde.
           IF sy-subrc = 0.
             MESSAGE s000(8i) With 'Data Saved'.
           ENDIF.
        When 'OK_DELETEK'.
            IF ZLT_KUNDE-K1 is NOT INITIAL.
                DELETE
                FROM  ZLT_KUNDE
                Where K1 = ZLT_KUNDE-K1.
              IF sy-subrc = 0.
                MESSAGE S000(8i) With 'Data deleted'.
              ENDIF.
            ENDIF.
    *To Populate Data into Auftrag Through Pushbuttons
        When 'OK_GETA'.
            IF ZLT_KUnde-K2 is NOT INITIAL.
                SELECT SINGLE *
                FROM  ZLT_Auftrag
                Where A3 = ZLT_Kunde-K2.
            ELSE.
                MESSAGE S000(8i) With 'Enter Kunde Name'.
            ENDIF.
        When 'OK_SAVEA'.
           Modify ZLT_Auftrag.
           IF sy-subrc = 0.
             MESSAGE s000(8i) With 'Data Saved'.
           ENDIF.
        When 'OK_DELETEA'.
            IF ZLT_Auftrag-A1 is NOT INITIAL.
                DELETE
                FROM  ZLT_Auftrag
                Where A1 = ZLT_Auftrag-A1.
              IF sy-subrc = 0.
                MESSAGE S000(8i) With 'Data deleted'.
              ENDIF.
            ENDIF.
    *To Populate Data into Position Thorugh Pushbuttons
        When 'OK_GETP'.
            IF ZLT_Auftrag-A2 is NOT INITIAL.
                SELECT SINGLE *
                FROM  ZLT_Auftrag
                Where A3 = ZLT_Kunde-K2.
            ELSE.
                MESSAGE S000(8i) With 'Enter Kunde Name'.
            ENDIF.
        When 'OK_SAVEP'.
           Modify ZLT_Auftrag.
           IF sy-subrc = 0.
             MESSAGE s000(8i) With 'Data Saved'.
           ENDIF.
        When 'OK_DELETEP'.
            IF ZLT_Auftrag-A1 is NOT INITIAL.
                DELETE
                FROM  ZLT_Auftrag
                Where A1 = ZLT_Auftrag-A1.
              IF sy-subrc = 0.
                MESSAGE S000(8i) With 'Data deleted'.
              ENDIF.
            ENDIF.
        When 'OK_EXIT'.
           Leave Program.
        When 'OK_CLEAR'.
          Clear : ZLT_MITA, ZLT_KUNDE, ZLT_AUFTRAG.
    *              it_mita, it_kunde, it_auftrag,
          CALL FUNCTION 'DEQUEUE_EZLT_MITALOCK'
           EXPORTING
             MODE_ZLT_MITA       = 'E'
             MANDT               = SY-MANDT
             M1                  =  ZLT_MITA-M1
    *         X_M1                = ' '
    *         _SCOPE              = '3'
    *         _SYNCHRON           = ' '
    *         _COLLECT            = ' '
    ENDCASE.
    endmodule.                 " USER_COMMAND_9000  INPUT
    *&      Module  user_cmd_9000  INPUT
    *       text
    module user_cmd_9000 input.
      If sy-ucomm = 'OK_CANCEL'.
      LEAVE PROGRAM.
      ENDIF.
      IF sy-ucomm = 'OK_EXIT'.
          LEAVE PROGRAM.
      ENDIF.
    endmodule.                 " user_cmd_9000  INPUT

  • F4_FILENAME in search help in screen painter

    Hello gurus,
    I want to design a screen in which the text input field is used to get file name. For that i need to enable file search in local folders and drives with f4 key press. I wish to use the functionality of function module 'F4_FILENAME" in screen painter. How can i do that?
    I tried creating search help for RLGRAP structure. It compiles fine but gives the message 'No inout for selection'.
    What should i do?

    Thank you all,
    The problem has been solved.
    I am posting the final code.
    1. In se38, i created program zprogram.
    2. In se51, i created a screen for the program zprogram.
    3. In layout, i took 2 buttons and one input/output field.
    1st button for import and 2nd button for exit.
    4.In flow logic-
    i wrote the follwing code.
    PROCESS BEFORE OUTPUT.
    MODULE STATUS_100.
    PROCESS AFTER INPUT.
    PROCESS ON VALUE-REQUEST.
    FIELD FILENAME1 MODULE F4_FILE_SEARCH.
    5. IN THE MAIN PROGRAM
    i wrote the following code-
    REPORT ZPROGRAM.
    DATA: FILENAME1 TYPE RLGRAP-FILENAME,
               OK_CODE TYPE SY-UCOMM.
    CALL SCREEN 100.
    MODULE F4_FILE_SEARCH INPUT.
    OK_CODE = SY-UCOMM.
    CALL FUNCTION 'F4_FILENAME'
    EXPORTING
        FIELD_NAME         = 'FILENAME1'
    IMPORTING
        FILE_NAME           = FILENAME1
    ENDMODULE.
    MODULE STATUS_100 OUTPUT.
    CASE OK_CODE.
    WHEN 'IMPORT'.
    MESSAGE 'THE FILE IS RECIEVED' TYPE 'I'.
    WHEN 'CANCEL'.
    LEAVE PROGRAM.
    ENDCASE.
    ENDMODULE.
    I REFERRED TO THE DEMO PROGRAM MENTIONED
    IN OTHER POST
    NAME OF THE DEMO PROGRAM IS - DEMO_DYNPRO_F4_HELP_MODULE

  • Creating search help for a field in AdHoc Query

    Hi
    We have created an infoset based on LDB PCH.
    (The infoset contains object type O only).
    For the object-id field the users want search help when choosing this field for selection.
    Using "start via selection screen" does not give a good solution.
    Can anyone explain how I can create search help for fields in an infoset?
    Regards
    Kirsten

    Hi
    We have created an infoset based on LDB PCH.
    (The infoset contains object type O only).
    For the object-id field the users want search help when choosing this field for selection.
    Using "start via selection screen" does not give a good solution.
    Can anyone explain how I can create search help for fields in an infoset?
    Regards
    Kirsten

  • Question on Search Help and Authorization Check for Sales Order Type

    Question 1:
    When I go to VA01 and click the search help, it shows only order type that are not blocked.
    However, when I have sales order type in select-options of a Z program,
    S_AUART FOR VBAK-AUART
    I click on the search help, it gives all the sales order types. How can I have a list with unblocked sales order type only?
    Question 2:
    I want to check whether a use can extract data from a sales order type (e.g. OR and RE)that he/she authorized to use.
    I have include the following in my program:
    AUTHORITY-CHECK OBJECT 'AUART'
    ID 'AUART' FIELD 'OR'.
    It always returns SY-SUBRC = 12.
    But order type 'OR' is granted to the user (he/she can create order with type OR in VA01)
    Please kindly give me some ideas, thanks.

    hi,
    ad1
    use following code:
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR auart.
      PERFORM auartGet.
    FORM auartGet.
        CALL FUNCTION 'RV_HELP'
             EXPORTING
                  KEY            = VKORG
                  KEY2           = VTWEG
                  KEY3           = SPART
                  KEY4           = '0'
                  NUMBER         = '008'
                  FIELD_IN       = AUART
             IMPORTING
                  FIELD          = AUART.
    ENDFORM.
    ad2.
    example:
       AUTHORITY-CHECK OBJECT 'V_VBAK_AAT'
             ID 'AUART' FIELD 'OR'
             ID 'ACTVT' FIELD '01'. "01-create order, 02-change, 03 display
    check sy-subrc eq 0.
    regards,darek

  • Search Help Not show/display the data

    Dear All,
                  I have created a search help whith mannual itab of 4 entries. Itab is filled correctly, but when i see in the screen field it show the search help and display no record with the message 4 entries found; but I can't see the data.
    pls. guide me what can be the problem
    Thanks and Regards,
    Sohail

    Hi,
    If you want to Show the Search help for Particular Field in Screen painter , You must give the Code In PROCESS ON VALUE REQUEST(POV).
    ie.
    process on value-request.
      field P9611-REQ_STATUS  module GET_REQ_STATUS.
    and in Program Give the internal table Fieldname in Capital Letter while Passing in Fuctional Module.
    like.
    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
        EXPORTING
          retfield        = 'REQ_STATUS2'    "internal table field
          dynpprog        = sy-dynnr
          dynpnr          = sy-dynnr
          dynprofield     = 'P9611-REQ_STATUS' "screen field name
          value_org       = 'S'
        TABLES
          value_tab       = req_status_tab "internal table
        EXCEPTIONS
          parameter_error = 1
          no_values_found = 2
          OTHERS          = 3.
      IF sy-subrc  NE 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    With Regards
    Kesavaperumal

  • Not able to get the data in custom search help.

    Hi ,
    sorry was not aware of how to post a new thread.
    I am working on web UI and i need help asap.
    I want f4 help whose value depends on the other fields drop down.somhow i managed to get the values in local table and passed it to static attribute of the z class ZL_CRM_UIU_ZZORDERADM_H0201_G.
    in this z class i have redefined a method IF_BSP_WD_CUSTOM_F4_CALLBACK~RETRIEVE_CUSTOM_VALUES.
    which returns a table CT_RESULTS_TAB of type as f4.i have taken key n values in this table too.but the below code should populate the value in the field.but m not getting the values.
    move 'STRUCT.ZZORDERADM_H0201' to ls_map-context_attr.    "#EC NOTEXT
      condense ls_map-context_attr no-gaps.
      ls_map-f4_attr = 'KEY'.
      append ls_map to: lt_outmap.
      lr_entity ?= me->collection_wrapper->get_current( ).
      if lr_entity is bound.
        move 'STRUCT.ZZORDERADM_H0201' to lv_controller_key.
        call method cl_bsp_wd_reference_tool=>set_reference
          exporting
            iv_remove_existing = abap_true
            iv_controller_key  = lv_controller_key
            iv_controller_ref  = lr_entity.
        concatenate '\''' lv_controller_key '\''' into ls_map-context_attr.
         ls_map-f4_attr = if_bsp_wd_custom_f4_callback=>gc_key_ref.
        append ls_map to lt_inmap.
      endif.
      create object rv_valuehelp_descriptor
        type
          cl_bsp_wd_valuehelp_f4descr
        exporting
          iv_help_id                  = '(ZL_CRM_UIU_ZZORDERADM_H0201_G)'       
          iv_help_id_kind             = if_bsp_wd_valuehelp_f4descr=>help_id_kind_comp
          iv_input_mapping            = lt_inmap
          iv_output_mapping           = lt_outmap
          iv_trigger_submit           = abap_true.
    can you please help me??

    To Implement Search help for UI field same GET_V method need to implement, no need to implement GET_P method.
    Initially we must have one search help in SE11
      DATA:
    lv_index  TYPE string,
    ls_map    TYPE if_bsp_wd_valuehelp_f4descr=>gtype_param_mapping,
    lt_inmap  TYPE if_bsp_wd_valuehelp_f4descr=>gtype_param_mapping_tab,
    lt_outmap TYPE if_bsp_wd_valuehelp_f4descr=>gtype_param_mapping_tab.
    lv_index = iv_index.
    ls_map-context_attr ='STRUCT.YYSURVEY_ID' .               "#EC NOTEXT
    ls_map-f4_attr = 'SURVEYID'.                              "#EC NOTEXT
    APPEND ls_map TO: lt_inmap,lt_outmap.
    ls_map-context_attr = '\''BUS2000116\''' ."#EC NOTEXT
    ls_map-f4_attr = 'object_type'.                               "#EC NOTEXT
    APPEND ls_map TO: lt_inmap.
    CREATE OBJECT rv_valuehelp_descriptor
    TYPE
    cl_bsp_wd_valuehelp_f4descr
    EXPORTING
    iv_help_id                  = 'CRM_SURVEY_ID'      'SE111 search help name
    iv_help_id_kind             = if_bsp_wd_valuehelp_f4descr=>help_id_kind_name
    iv_input_mapping            = lt_inmap
    iv_output_mapping           = lt_outmap.

Maybe you are looking for