Code: Alles auswählen.
clear itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '1'.
wa_feldkatalog-fieldname = 'PSPID'.
wa_feldkatalog-ref_fieldname = 'PSPID'.
wa_feldkatalog-ref_tabname = 'PRPS'.
wa_feldkatalog-seltext_m = 'Projekt'.
wa_feldkatalog-fix_column = 'X'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '2'.
wa_feldkatalog-fieldname = 'POSID'.
wa_feldkatalog-ref_fieldname = 'POSID'.
wa_feldkatalog-ref_tabname = 'PRPS'.
wa_feldkatalog-seltext_m = 'PSP-Element'.
wa_feldkatalog-fix_column = 'X'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '3'.
wa_feldkatalog-fieldname = 'POST1'.
wa_feldkatalog-ref_fieldname = 'POST1'.
wa_feldkatalog-ref_tabname = 'PRPS'.
wa_feldkatalog-seltext_m = 'PSP-Element Bezeichnung'.
wa_feldkatalog-fix_column = 'X'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '4'.
wa_feldkatalog-fieldname = 'NPLNR'.
wa_feldkatalog-ref_fieldname = 'NPLNR'.
wa_feldkatalog-ref_tabname = 'EKKN'.
wa_feldkatalog-seltext_m = 'Netzplan'.
wa_feldkatalog-fix_column = 'X'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '5'.
wa_feldkatalog-fieldname = 'VORNR'.
wa_feldkatalog-ref_fieldname = 'VORNR'.
wa_feldkatalog-ref_tabname = 'AFVC'.
wa_feldkatalog-seltext_m = 'Vorgang'.
wa_feldkatalog-fix_column = 'X'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '6'.
wa_feldkatalog-fieldname = 'LIFNR'.
wa_feldkatalog-ref_fieldname = 'LIFNR'.
wa_feldkatalog-ref_tabname = 'EKKO'.
wa_feldkatalog-seltext_m = 'Kreditor-Nr.'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
* wa_feldkatalog-col_pos = '7'.
wa_feldkatalog-fieldname = 'NAME1'.
wa_feldkatalog-ref_fieldname = 'NAME1'.
wa_feldkatalog-ref_tabname = 'LFA1'.
wa_feldkatalog-seltext_m = 'Kreditor-Name'.
wa_feldkatalog-no_out = 'X'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
* wa_feldkatalog-col_pos = '8'.
wa_feldkatalog-fieldname = 'AEDAT'.
wa_feldkatalog-ref_fieldname = 'AEDAT'.
wa_feldkatalog-ref_tabname = 'EKKO'.
wa_feldkatalog-seltext_m = 'Datum'.
wa_feldkatalog-no_out = 'X'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '7'.
wa_feldkatalog-fieldname = 'EBELN'.
wa_feldkatalog-ref_fieldname = 'EBELN'.
wa_feldkatalog-ref_tabname = 'EKKO'.
wa_feldkatalog-seltext_m = 'Bestellung'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '8'.
wa_feldkatalog-fieldname = 'EBELP'.
wa_feldkatalog-ref_fieldname = 'EBELP'.
wa_feldkatalog-ref_tabname = 'EKPO'.
wa_feldkatalog-seltext_m = 'Bestellposition'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '9'.
wa_feldkatalog-fieldname = 'TXZ01'.
wa_feldkatalog-ref_fieldname = 'TXZ01'.
wa_feldkatalog-ref_tabname = 'EKPO'.
wa_feldkatalog-seltext_m = 'Kurztext'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '10'.
wa_feldkatalog-fieldname = 'MENGE'.
* wa_feldkatalog-ref_fieldname = 'MENGE'.
* wa_feldkatalog-ref_tabname = 'EKPO'.
wa_feldkatalog-seltext_m = 'Bestellmenge'.
wa_feldkatalog-do_sum = 'X'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '11'.
wa_feldkatalog-fieldname = 'MEINS'.
wa_feldkatalog-ref_fieldname = 'MEINS'.
wa_feldkatalog-ref_tabname = 'EKPO'.
wa_feldkatalog-seltext_m = 'ME'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '12'.
wa_feldkatalog-fieldname = 'WEMNG'.
* wa_feldkatalog-ref_fieldname = 'WEMNG'.
* wa_feldkatalog-ref_tabname = ' '.
wa_feldkatalog-seltext_m = 'WE-Menge'.
wa_feldkatalog-do_sum = 'X'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '13'.
wa_feldkatalog-fieldname = 'OMENG'.
* wa_feldkatalog-ref_fieldname = 'MENGE'.
* wa_feldkatalog-ref_tabname = 'EKPO'.
wa_feldkatalog-seltext_m = 'Offene Bestellmenge'.
wa_feldkatalog-do_sum = 'X'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '14'.
wa_feldkatalog-fieldname = 'MEINS'.
wa_feldkatalog-ref_fieldname = 'MEINS'.
wa_feldkatalog-ref_tabname = 'EKPO'.
wa_feldkatalog-seltext_m = 'ME'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '15'.
wa_feldkatalog-fieldname = 'NETWR'.
* wa_feldkatalog-ref_fieldname = 'NETWR'.
* wa_feldkatalog-ref_tabname = 'EKPO'.
wa_feldkatalog-seltext_m = 'Netto-Bestellwert'.
wa_feldkatalog-do_sum = 'X'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '16'.
wa_feldkatalog-fieldname = 'WAERS'.
wa_feldkatalog-ref_fieldname = 'WAERS'.
wa_feldkatalog-ref_tabname = 'EKKO'.
wa_feldkatalog-seltext_m = 'Währung'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '17'.
wa_feldkatalog-fieldname = 'WRBTR'.
* wa_feldkatalog-ref_fieldname = 'NETWR'.
* wa_feldkatalog-ref_tabname = 'EKPO'.
wa_feldkatalog-seltext_m = 'Abgerechnet'.
wa_feldkatalog-do_sum = 'X'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '18'.
wa_feldkatalog-fieldname = 'WAERR'.
wa_feldkatalog-ref_fieldname = 'WAERS'.
wa_feldkatalog-ref_tabname = 'EBEK'.
wa_feldkatalog-seltext_m = 'Währung'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '19'.
wa_feldkatalog-fieldname = 'ORBTR'.
* wa_feldkatalog-ref_fieldname = 'WRBTR'.
* wa_feldkatalog-ref_tabname = 'EBEK'.
wa_feldkatalog-seltext_m = 'Abzurechnen'.
wa_feldkatalog-do_sum = 'X'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '20'.
wa_feldkatalog-fieldname = 'WAERR'.
wa_feldkatalog-ref_fieldname = 'WAERS'.
wa_feldkatalog-ref_tabname = 'EBEK'.
wa_feldkatalog-seltext_m = 'Währung'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-fieldname = 'ELIKZ'.
wa_feldkatalog-ref_fieldname = 'ELIKZ'.
wa_feldkatalog-ref_tabname = 'EKPO'.
wa_feldkatalog-seltext_m = 'Endliefer-Kz.'.
wa_feldkatalog-no_out = 'X'.
append wa_feldkatalog to itab_feldkatalog.
clear wa_feldkatalog.
wa_feldkatalog-fieldname = 'EREKZ'.
wa_feldkatalog-ref_fieldname = 'EREKZ'.
wa_feldkatalog-ref_tabname = 'EKPO'.
wa_feldkatalog-seltext_m = 'Endrechn.-Kz.'.
wa_feldkatalog-no_out = 'X'.
append wa_feldkatalog to itab_feldkatalog.
gs_layout-zebra = 'X'.
gs_layout-colwidth_optimize = 'X'.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
IT_FIELDCAT = itab_feldkatalog
IS_LAYOUT = gs_layout
tables
t_outtab = itab_ausgabe.
ENDFORM. "ALV_GRID
Code: Alles auswählen.
clear wa_feldkatalog.
wa_feldkatalog-col_pos = '12'.
wa_feldkatalog-fieldname = 'WEMNG'.
* wa_feldkatalog-ref_fieldname = 'WEMNG'.
* wa_feldkatalog-ref_tabname = ' '.
wa_feldkatalog-seltext_m = 'WE-Menge'.
wa_feldkatalog-do_sum = 'X'.
wa_feldkatalog-qfieldname = 'MEINS'.
append wa_feldkatalog to itab_feldkatalog.