Ver la Versión Completa : 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
23/11/10, 16:27:17
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 .
Hola Caralbgro!
Muchas gracias!! Me sirvió a la perfección!!
Nuevamente gracias!
Saludos.
www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web