Enviar parametros a una Ayuda de Busqueda

Colapsar
X
 
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
  • luise32
    Member
    • oct
    • 71

    #1

    Enviar parametros a una Ayuda de Busqueda

    Buenas tardes, necesito enviar parametros a una ayuda de busqueda ya que por defecto esta se carga con ciertos valores por los cuales no deseo filtrar.

    La ayuda de busqueda es la PLOM en la cual el Tipo Op. siempre me esta mostrando la S pero para mi requerimiento necesito ponerle la O.

    Muchas gracias!
    Consultor SAP ABAP
  • JoNhNaTaN
    Member
    • ene
    • 70

    #2
    por que no haces tu ayuda de busqueda personalizada, te envio un ejemplo, tanvez te pueda ayudar:
    Código:
    *&---------------------------------------------------------------------*
    *&programa: ZJOMS_PROBANDOMATCH
    *&paquete: ZJOMS_UTILIDADES
    *&---------------------------------------------------------------------*
    REPORT  ZJOMS_PROBANDOMATCH.
    
    TABLES: zjonmu_emp, ddshretval.
    
    DATA: BEGIN OF gt_empleados OCCURS 0,
          codemp  TYPE zjonmu_emp-codemp,
          nomemp  TYPE zjonmu_emp-nomemp,
          codung  TYPE zjonmu_emp-codung,
    END OF gt_empleados.
    DATA lt_return_tab TYPE TABLE OF ddshretval WITH HEADER LINE.
    DATA   DYFIELDS LIKE DYNPREAD OCCURS 1 WITH HEADER LINE.
    
    SELECTION-SCREEN BEGIN OF BLOCK bloque1 WITH FRAME TITLE text-001.
    
    PARAMETERS: p_codung LIKE zjonmu_emp-codung.
    PARAMETERS: p_codemp LIKE zjonmu_emp-codemp.
    
    SELECTION-SCREEN END OF BLOCK bloque1.
    
    *obtener el dato para buscar en la segunda
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_codung.
    
    *CLEAR: DYFIELDS[], DYFIELDS.
    "--esta funcion te hace una ayuda de busqueda de una tabla y el dato seleccionado te lo devuelve en una variable, en este caso p_codung
      CALL FUNCTION 'HELP_VALUES_GET'
        EXPORTING
          fieldname    = 'CODUNG'
          tabname      = 'zjonmu_emp'
        IMPORTING
          select_value = p_codung.
    
    
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_codemp.
    
      REFRESH: gt_empleados, lt_return_tab.
    
      SELECT codemp nomemp codung FROM zjonmu_emp
        APPENDING CORRESPONDING FIELDS OF TABLE gt_empleados
        WHERE codung EQ p_codung.
    "--esta funcion te hace una ayuda de busqueda con el resultado del select
      CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
        EXPORTING
          retfield        = 'CODEMP'
          window_title    = 'EMPLEADOS'
          value_org       = 'S'
        TABLES
          value_tab       = gt_empleados
          return_tab      = lt_return_tab
        EXCEPTIONS
          parameter_error = 1
          no_values_found = 2
          OTHERS          = 3.
    
      IF sy-subrc = 0.
        READ TABLE lt_return_tab INDEX 1.
        MOVE lt_return_tab-fieldval TO p_codemp.
      ENDIF.
    Suerte

    Comentario

    Trabajando...