PDA

Ver la Versión Completa : Matchcode con lista


Jarpi
23/11/10, 15:27:01
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 .

Jarpi
24/11/10, 17:27:03
Hola Caralbgro!

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

Nuevamente gracias!
Saludos.