Some 'Help' for Search help

Question

Hi all! this time i need a simple thing. I have two parameters p_vblnr and p_chect.The firstone has a Search help that i did with se11 and the second one has a standard search help for chects. I want to create a search help for p_chect that only visualice the values related to p_vblnr parameter and <b>replace the standard search help for that field</b>.
Ej: if p_vblnr is '10021562' i want the search help to visualice the chects related to that vblnr.
is this possible??????
i promise rewards points for help!!!!
thank in advance!

Answer 1

Andrew,
Try following sample code.
  CLEAR: t_dynp_flds,
         t_dynp_flds[].
  t_dynp_flds-fieldname = 'LFA1-STCD1'. " ur first parameter
  APPEND t_dynp_flds.
  CLEAR  t_dynp_flds.
*---  Read screen field values before PAI field transport
  CALL FUNCTION 'DYNP_VALUES_READ'
       EXPORTING
            dyname               = 'ZFFI'
            dynumb               = '1000'
       TABLES
            dynpfields           = t_dynp_flds
       EXCEPTIONS
            invalid_abapworkarea = 1
            invalid_dynprofield  = 2
            invalid_dynproname   = 3
            invalid_dynpronummer = 4
            invalid_request      = 5
            no_fielddescription  = 6
            invalid_parameter    = 7
            undefind_error       = 8
            double_conversion    = 9
            stepl_not_found      = 10
            OTHERS               = 11.
  IF sy-subrc EQ 0.
    READ TABLE t_dynp_flds WITH KEY fieldname = 'LFA1-STCD1'.
    IF sy-subrc EQ 0.
      MOVE t_dynp_flds-fieldvalue TO lfa1-stcd1.
    ENDIF.
  ENDIF.
  IF NOT lfa1-stcd1 IS INITIAL.
    g_stcd = lfa1-stcd1.
Clear fields
    CLEAR : t_taxid1,
            t_taxid1[].
    t_taxid1-gap2 = space.
Select vendor and taxids from Vendor Master table
    SELECT lifnr
           name1
      FROM lfa1
      INTO (t_taxid1-lifnr, t_taxid1-name1)
      WHERE stcd1 <> g_stcd AND
            stcd2 <> g_stcd AND
            stcd3 <> g_stcd.
      APPEND t_taxid1.
      CLEAR  t_taxid1.
    ENDSELECT.
    IF sy-subrc NE 0.
  No table entries found
      MESSAGE s001(zffi).
      EXIT.
    ENDIF.
    SORT t_taxid1 BY lifnr.
    DELETE ADJACENT DUPLICATES FROM t_taxid1 COMPARING lifnr.
    CLEAR : g_pop_idx.
Function module to get Tax code values
    CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'
         EXPORTING
              endpos_col   = 85
              endpos_row   = 20
              startpos_col = 20
              startpos_row = 10
              titletext    = 'List of Assign Vendors'(t11)
         IMPORTING
              choise       = g_pop_idx
         TABLES
              valuetab     = t_taxid1
         EXCEPTIONS
              break_off    = 1
              OTHERS       = 2.
    IF sy-subrc EQ 0.
      READ TABLE t_taxid1 INDEX g_pop_idx.
      IF sy-subrc EQ 0.
        CLEAR : t_dynp_flds,
                t_dynp_flds[].
    Append screen values
        t_dynp_flds-fieldname = 'G_LIFNR'.
        t_dynp_flds-fieldvalue = t_taxid1-lifnr.
        APPEND t_dynp_flds.
        CLEAR  t_dynp_flds.
    Change screen field contents w/o PBO
        CALL FUNCTION 'DYNP_VALUES_UPDATE'
             EXPORTING
                  dyname               = 'ZFFI'
                  dynumb               = '1000'
             TABLES
                  dynpfields           = t_dynp_flds
             EXCEPTIONS
                  invalid_abapworkarea = 1
                  invalid_dynprofield  = 2
                  invalid_dynproname   = 3
                  invalid_dynpronummer = 4
                  invalid_request      = 5
                  no_fielddescription  = 6
                  undefind_error       = 7
                  OTHERS               = 8.
        IF sy-subrc NE 0.
          CLEAR : t_dynp_flds,
                  t_dynp_flds[],
                  lfa1-lifnr,
                  lfa1-stcd1,
                  lfa1-name1.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDIF.
-Anu