Segundo Día con SAP

[ximena251]

REPORT Z_ALV_2B.
TABLES: ZTABLA_PRUEBA

DATA :

TYPES: BEGIN OF tt_salida,
cod_empl type ztabla_prueba-cod_empl
nomb_emp type ztabla_prueba-nom_emp
std_emp type ztabla_prueba-std_emp
(aquí le puedes agregar los campos que quieras mostrar en el ALV)
END OF tt_salida.


DATA: BEGIN OF gt_prueba OCCURS 0,
cod_empl type ztabla_prueba-cod_empl
nomb_emp type ztabla_prueba-nom_emp
std_emp type ztabla_prueba-std_emp
END OF gt_prueba


DATA: gt_salida TYPE STANDARD TABLE OF tt_salida,
wa_salida TYPE tt_salida,
gt_prueba TYPE STANDARD TABLE OF tt_salida,
wa_prueba TYPE tt_salida,

lv_columns TYPE REF TO cl_salv_columns_table,
lv_column TYPE REF TO cl_salv_column,
lv_alv_object TYPE REF TO cl_salv_table,
g_functions TYPE REF TO cl_salv_functions,
gr_display type ref to cl_salv_display_settings.







Clear:
gt_prueba[],
gt_salida[].

SELECT

cod_empl
nomb_emp
std_emp
FROM ztabla_prueba
INTO CORRESPONDING FIELDS OF TABLE gt_prueba
WHERE cod_empl = 'valor' and nomb = 'valor2'.

IF gt_salida[] IS NOT INITIAL.

"CL_SALV_TABLE. Con ella podemos contruirnos un informe con tan solo llamar a un método el factory y luego al displa
cl_salv_table=>factory(
IMPORTING
r_salv_table = lv_alv_object
CHANGING
t_table = gt_salida
).

g_functions = lv_alv_object->get_functions( ).
g_functions->set_all( abap_true ).

lv_columns = lv_alv_object->get_columns( ).
lv_columns->set_optimize( 'X' ).

gr_display = lv_alv_object->get_display_settings( ).
gr_display->set_striped_pattern( cl_salv_display_settings=>true ).
gr_display->set_list_header( 'alv prueba' ).


** Visualizamos el ALV
lv_alv_object->display( ).
ELSE.
MESSAGE 'No tiene datos'

ENDIF.