Matchcode con lista

Colapsar
X
 
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
  • Jarpi
    Senior Member
    • abr
    • 453

    #1

    Matchcode con lista

    Buenas tardes,

    Los molesto en esta oportunidad porque estoy queriendo generar un matchcode con una lista de valores pero no se como hacerlo. Es viable esto?

    Mi campo apunta a una tabla que creé y quisiera que como matchcode aparezcan solo 2 valores a elegir, pero cuando pongo la tabla como método de selección en la se11, en el reporte me aparecen estos 2 valores tantas veces como entradas haya en la tabla, se entiende?

    Si alguno sabe, le agradeceré cualquier información.

    Muchas gracias,
    Saludos.
  • caralbgro
    Senior Member
    • sep
    • 478

    #2
    mira este ejmplo

    este ejmplo lee 4 campos de una tabla z mia, por ejemplo es 4 de mi tabla y los muestra en el matchcode espero que te sirva

    slds.

    'ZCONDCOMPRA_H-ZEBELN'.
    'ZCONDCOMPRA_H-ZLIFNR'.
    'ZCONDCOMPRA_H-NAME1'.
    'ZCONDCOMPRA_H-ZERNAM'.

    ************************************************** ****
    DATA : BEGIN OF list_of_fields OCCURS 10,
    fieldname LIKE dd03l-fieldname,
    END OF list_of_fields.

    DATA : indice LIKE sy-tabix,
    fieldname LIKE dd03l-fieldname,
    fields LIKE help_value OCCURS 10 WITH HEADER LINE,
    shrinkfields LIKE dynpread OCCURS 0 WITH HEADER LINE,
    dynpfields LIKE dynpread OCCURS 0 WITH HEADER LINE.

    SELECTION-SCREEN BEGIN OF BLOCK blk03 WITH FRAME TITLE text-000.
    SELECT-OPTIONS: p_ebeln for ekko-ebeln NO-EXTENSION NO INTERVALS.
    SELECTION-SCREEN END OF BLOCK blk03.

    AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_ebeln-low.
    REFRESH: t_pedido, list_of_fields, fields, shrinkfields.
    CLEAR: t_pedido, list_of_fields, fields, shrinkfields.

    select * from zcondcompra_h
    into corresponding fields of table t_pedido
    where estado = 'L'

    list_of_fields-fieldname = 'ZCONDCOMPRA_H-ZEBELN'.
    APPEND list_of_fields.
    list_of_fields-fieldname = 'ZCONDCOMPRA_H-ZLIFNR'.
    APPEND list_of_fields.
    list_of_fields-fieldname = 'ZCONDCOMPRA_H-NAME1'.
    APPEND list_of_fields.
    list_of_fields-fieldname = 'ZCONDCOMPRA_H-ZERNAM'.
    APPEND list_of_fields.

    fieldname = 'P_EBELN'.

    CALL FUNCTION 'TRANSFER_NAMES_TO_FIELDS'
    EXPORTING
    selectfield = fieldname
    TABLES
    fields = fields
    namelist = list_of_fields
    EXCEPTIONS
    wrong_format_given = 01.

    CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME'
    EXPORTING
    selectfield = fieldname
    titel = 'Notas de pedido Liberadas sin envio'
    use_user_selections = 'S'
    IMPORTING
    ind = indice
    TABLES
    fields = fields
    full_table = t_pedido
    user_sel_fields = shrinkfields
    EXCEPTIONS
    full_table_empty = 01
    no_tablestructure_given = 02
    no_tablefields_in_dictionary = 03
    more_than_one_selectfield = 04
    no_electfield = 05.

    READ TABLE t_pedido INDEX indice.
    p_ebeln-low = t_pedido-zebeln .
    Consultor FI-CO

    Comentario

    • Jarpi
      Senior Member
      • abr
      • 453

      #3
      Hola Caralbgro!

      Muchas gracias!! Me sirvió a la perfección!!

      Nuevamente gracias!
      Saludos.

      Comentario

      Trabajando...