-
Notifications
You must be signed in to change notification settings - Fork 0
/
PLANTILLA ALV.ABAP
53 lines (41 loc) · 1.34 KB
/
PLANTILLA ALV.ABAP
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
*&---------------------------------------------------------------------*
*& Report ZPLANTILLA_ALV
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zplantillas_alv.
type-pools slis.
DATA: wa_layout TYPE slis_layout_alv,
it_fieldcat TYPE slis_t_fieldcat_alv,
wa_fieldcat TYPE slis_fieldcat_alv.
wa_layout-zebra = 'X'.
wa_layout-colwidth_optimize = 'X'.
wa_layout-window_titlebar = ''.
wa_fieldcat-fieldname = ''.
wa_fieldcat-tabname = 'it_tabla'.
wa_fieldcat-ref_fieldname = ''.
wa_fieldcat-ref_tabname = ''.
wa_fieldcat-seltext_s = ''.
wa_fieldcat-seltext_m = ''.
wa_fieldcat-seltext_l = ''.
wa_fieldcat-outputlen = 100.
wa_fieldcat-just = ''.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = sy-repid
IS_LAYOUT = wa_layout
IT_FIELDCAT = it_fieldcat
TABLES
t_outtab = it_tabla
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.