Ayuda de Búsqueda, tipo parameters en Dynpro

Ayuda de Búsqueda, tipo parameters en Dynpro

Lo primero es insertan en la Dynpro los elementos, en este caso

V_TRFAR [Campo], P_TRFAR [Botón con Icono] .

V_TRFGB [Campo], P_TRFGB [Botón con Icono] .

Visualmente quedará así.

La Función que utilizare es la siguiente: 'COMPLEX_SELECTIONS_DIALOG'

Ahora la Lógica:

Para no generar confusión, solo les mostrare para un caso.

*&---------------------------------------------------------------------*

*&  Include           DY0000

*&---------------------------------------------------------------------*

data : begin of it_dynpfields occurs 3.

        include structure dynpread.

data : end of it_dynpfields.

tables: p0008.

ranges: r_trfar for  p0008-trfar. “Range uso interno

data:   v_trfar like p0008-trfar. “Campo de la Dynpro

data:   p_trfar(30) type c.       “Boton de la Dynpro

*----------------------------------------------------------------------

module get_cursor_v_trfar input. “Para el Campo, HELP

  refresh it_dynpfields.

  clear   it_dynpfields.

  move 'V_TRFAR' to it_dynpfields-fieldname.

  append it_dynpfields.

  clear  it_dynpfields.

  call function 'DYNP_VALUES_READ'

    exporting

      dyname               = sy-cprog

      dynumb               = sy-dynnr

      translate_to_upper   = 'X'

    tables

      dynpfields           = it_dynpfields

    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 = 0.

    read table it_dynpfields with key fieldname = 'V_TFAR'.

    if sy-subrc = 0.

      v_trfar = it_dynpfields-fieldvalue.

    endif.

  endif.

  perform get_multiple_trfar.

endmodule.                    

*----------------------------------------------------------------------

form get_multiple_trfar . “Para el Campo, HELP con Range

* Dynamically holding Field name

  field-symbols: <fst> type standard table.

  if  r_trfar[] is initial.

    if not v_trfar is initial.

      r_trfar-sign = 'I'.

      r_trfar-option = 'EQ'.

      r_trfar-low = v_trfar.

      append r_trfar.

      clear  r_trfar.

    endif.

  endif.

*

  assign r_trfar[] to <fst>.

*

  call function 'COMPLEX_SELECTIONS_DIALOG'

   exporting

     title               = 'Select Multiple Value'(059)

     text                = 'Finish Group'(058)

     signed              = 'X'

     lower_case          = ' '

     no_interval_check   = ' ' "'X'

     just_display        = ' '

     just_incl           = ' ' "'X'

     EXCLUDED_OPTIONS    = ' ' 

     DESCRIPTION         = ' ' 

     HELP_FIELD          = ' ' 

     search_help         = 'ZH_T510G'    "Ayuda descrita en se11 (F4)

*    TAB_AND_FIELD       = tab_and_field "Ref.ocupa help de tabla-campo

   tables

     range               = <fst>

   exceptions

     no_range_tab        = 1

     cancelled           = 2

     internal_error      = 3

     invalid_fieldname   = 4

     others              = 5.

 *

  if sy-subrc = 0.

    read table r_trfar index 1.

    if sy-subrc = 0.

      v_trfar = r_trfar-low.

    else.

      refresh it_dynpfields.

      clear   it_dynpfields.

      move 'V_TRFAR' to it_dynpfields-fieldname.

      append it_dynpfields.

      clear  it_dynpfields.

      call function 'DYNP_VALUES_UPDATE' “Act. Directa a la Dynpro

        exporting

          dyname               = sy-cprog

          dynumb               = sy-dynnr

        tables

          dynpfields           = it_dynpfields

        exceptions

          invalid_abapworkarea = 1

          invalid_dynprofield  = 2

          invalid_dynproname   = 3

          invalid_dynpronummer = 4

          invalid_request      = 5

          no_fielddescription  = 6

          undefind_error       = 7

          others               = 8.

    endif.

  endif.

  perform set_icons. “Ajuste del icono

endform.                    

*----------------------------------------------------------------------

form set_icons. “Ajuste del icono

  refresh it_dynpfields.

  clear   it_dynpfields.

* defino el icono

* Esto funciona si el botón está definido solo como salida

*   '@1F@' "ICON_ENTER_MORE

*   '@1E@' "ICON_DISPLAY_MORE

  describe table  r_trfar lines sy-tfill.

  if ( sy-tfill > 1 ).

    p_trfar = '@1E@'. "ICON_DISPLAY_MORE

  else.

    p_trfar = '@1F@'. "ICON_ENTER_MORE

  endif.

  move 'P_TRFAR' to it_dynpfields-fieldname.

  move  p_trfar  to it_dynpfields-fieldvalue.

  append it_dynpfields.

  clear  it_dynpfields.

*

  call function 'DYNP_VALUES_UPDATE' “Act. Directa a la Dynpro

    exporting

      dyname               = sy-cprog

      dynumb               = sy-dynnr

    tables

      dynpfields           = it_dynpfields

    exceptions

      invalid_abapworkarea = 1

      invalid_dynprofield  = 2

      invalid_dynproname   = 3

      invalid_dynpronummer = 4

      invalid_request      = 5

      no_fielddescription  = 6

      undefind_error       = 7

      others               = 8.

endform.                    "set_icons

*&---------------------------------------------------------------------*

*&      Module  STATUS_0000  OUTPUT

*&---------------------------------------------------------------------*

module convert_trfar output.

* Se procede a componer los ranges r_trfar

* ya que están guardados como string

* mido el largo del texto para setear el do().

  data: l_leng type i, l_regi type i, l_seg type i.

  data: l_trfar type string.

*

  clear: r_trfar.    refresh: r_trfar.

  clear: l_trfar.

    l_leng  = l_regi = l_seg = 0.

* TRFAR

    l_trfar = [Tabla]-d_trfar. “donde se guarda el range como texto

    l_leng  = strlen( l_trfar ).

    l_regi  = l_leng / 7. " ABBCCDD,...

    do l_regi times.

      r_trfar-sign   = l_trfar+l_seg(1). add 1 to l_seg.

      r_trfar-option = l_trfar+l_seg(2). add 2 to l_seg.

      r_trfar-low    = l_trfar+l_seg(2). add 2 to l_seg.

      if ( l_leng > l_seg ).

        r_trfar-high = l_trfar+l_seg(2). add 2 to l_seg.

      endif.

      append r_trfar. “restauro el range

    enddo.

* defino el icono

  perform set_icons.

endmodule.                    

*&---------------------------------------------------------------------*

*&      Module  USER_COMMAND_0000  INPUT

*&---------------------------------------------------------------------*

module uc_trfar_trfgb input. “convierto el Range en texto

  data: t_dynpfields type table of dynpread,

        r_dynpfields type dynpread.

  data:  l_str01 type string .

  clear: l_str01.

*  if ( ok_code eq 'SAVE' ). 

* Se procede a descomponer el range r_trfar.

* ya que deberan ser guardados como string

  if not ( r_trfar is initial ).

    loop at r_trfar.

      concatenate l_str01

                  r_trfar-sign                              "# 1 X

                  r_trfar-option                            "# 2 XX

                  r_trfar-low                               "# 2 XX

                  r_trfar-high                              "# 2 XX

             into l_str01 respecting blanks.

    endloop.

    [Tabla]-d_trfar = l_str01.

  else.

    [Tabla]-d_trfar = ''.

    v_trfar = ''.

  endif.

*

case ok_code. “ Para el Push del botón

    when 'P_TRFAR'.

      perform get_multiple_trfar .

endcase.

endmodule.                    

*&---------------------------------------------------------------------*

Dympro 0000

*&---------------------------------------------------------------------*

process before output.

…

  module convert_trfar_trfgb.

 …

process after input.

…

module uc_trfar_trfgb.

…

process on value-request .

  field v_trfar module get_cursor_v_trfar. 

  field v_trfgb module get_cursor_v_trfgb. 

…

*&---------------------------------------------------------------------*

Estoy consciente de que no se ve muy fácil, pero les recomiendo que intenten implementarlo, es de mucha utilidad.