‎2007 Sep 18 3:48 PM
Hi,
Client mentioned " the data must be filtered by vendor/po order and material document" to the alv grid display. what should I do for filters?
Regards,
Subbu
‎2007 Sep 18 3:52 PM
in the function module 'REUSE_ALV_LIST_DISPLY'
there is a parameter it_filter.. u can use this to filter
see the following code
DATA: FILTER_1 TYPE SLIS_T_FILTER_ALV.
DATA: BEGIN OF ITEM_ALL OCCURS 0,
KUNNR LIKE KNA1-KUNNR,
VBELN LIKE VBAP-VBELN,
POSNR LIKE VBAP-POSNR,
MATNR LIKE VBAP-MATNR,
MATKL LIKE MARA-MATKL,
MAKTX LIKE MAKT-MAKTX,
KWMENG LIKE VBAP-KWMENG, "Menge Auftrag
VRKME LIKE VBAP-VRKME,
RFMNGJ LIKE VBFA-RFMNG, "Menge Lieferung
RFMNGR LIKE VBFA-RFMNG, "Menge Warenbewegung
RFMNGM LIKE VBFA-RFMNG, "Menge Faktura
END OF ITEM_ALL.
Filter für detail setzen
WA_FILTER-TABNAME = 'ITEM_ALL'.
WA_FILTER-FIELDNAME = 'KUNNR'.
WA_FILTER-SIGN0 = 'I'.
WA_FILTER-OPTIO = 'BT'.
WA_FILTER-VALUF_INT = KUNNR. "From Kunnr
WA_FILTER-VALUT_INT = KUNNR. "TO Kunnr
APPEND WA_FILTER TO FILTER_1.
*
WA_FILTER-TABNAME = 'ITEM_ALL'.
WA_FILTER-FIELDNAME = 'MATNR'.
WA_FILTER-SIGN0 = 'I'.
WA_FILTER-OPTIO = 'BT'.
WA_FILTER-VALUF_INT = MATNR. "From Matnr
WA_FILTER-VALUT_INT = MATNR. "To Matnr
APPEND WA_FILTER TO FILTER_1.
*
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = PROGNAME
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IT_FIELDCAT = FIELDCAT_1
IT_FILTER = FILTER_1
IT_EVENTS = EVENTS
IT_EVENT_EXIT = EVENT_EXIT
I_SCREEN_START_COLUMN = 20
I_SCREEN_START_LINE = 05
I_SCREEN_END_COLUMN = 100
I_SCREEN_END_LINE = 30
TABLES
T_OUTTAB = ITEM_ALL
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
Reghards
vasu
‎2007 Sep 18 3:52 PM
in the function module 'REUSE_ALV_LIST_DISPLY'
there is a parameter it_filter.. u can use this to filter
see the following code
DATA: FILTER_1 TYPE SLIS_T_FILTER_ALV.
DATA: BEGIN OF ITEM_ALL OCCURS 0,
KUNNR LIKE KNA1-KUNNR,
VBELN LIKE VBAP-VBELN,
POSNR LIKE VBAP-POSNR,
MATNR LIKE VBAP-MATNR,
MATKL LIKE MARA-MATKL,
MAKTX LIKE MAKT-MAKTX,
KWMENG LIKE VBAP-KWMENG, "Menge Auftrag
VRKME LIKE VBAP-VRKME,
RFMNGJ LIKE VBFA-RFMNG, "Menge Lieferung
RFMNGR LIKE VBFA-RFMNG, "Menge Warenbewegung
RFMNGM LIKE VBFA-RFMNG, "Menge Faktura
END OF ITEM_ALL.
Filter für detail setzen
WA_FILTER-TABNAME = 'ITEM_ALL'.
WA_FILTER-FIELDNAME = 'KUNNR'.
WA_FILTER-SIGN0 = 'I'.
WA_FILTER-OPTIO = 'BT'.
WA_FILTER-VALUF_INT = KUNNR. "From Kunnr
WA_FILTER-VALUT_INT = KUNNR. "TO Kunnr
APPEND WA_FILTER TO FILTER_1.
*
WA_FILTER-TABNAME = 'ITEM_ALL'.
WA_FILTER-FIELDNAME = 'MATNR'.
WA_FILTER-SIGN0 = 'I'.
WA_FILTER-OPTIO = 'BT'.
WA_FILTER-VALUF_INT = MATNR. "From Matnr
WA_FILTER-VALUT_INT = MATNR. "To Matnr
APPEND WA_FILTER TO FILTER_1.
*
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = PROGNAME
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IT_FIELDCAT = FIELDCAT_1
IT_FILTER = FILTER_1
IT_EVENTS = EVENTS
IT_EVENT_EXIT = EVENT_EXIT
I_SCREEN_START_COLUMN = 20
I_SCREEN_START_LINE = 05
I_SCREEN_END_COLUMN = 100
I_SCREEN_END_LINE = 30
TABLES
T_OUTTAB = ITEM_ALL
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
Reghards
vasu