#1
|
|||
|
|||
Encabezado reporte ALV
hola necesito hacer un ALV_GRID y en un top of list que salga un titulo centrado, probe de muchas formas pero no lo puedo lograr este es el codigo del encabezado
FORM cabecera. * rutina que cumple la funcion de completar los datos del encabezado de cada pagina del reporte. DATA cabecera TYPE slis_t_listheader. DATA wa_cabecera TYPE slis_listheader. DATA var TYPE slis_listheader-info. data lv_pag(10) type c. data lv_npag(10) type c. data num_pages_c(10) type c. WRITE SY-PAGNO TO NUM_PAGES_C LEFT-JUSTIFIED. DO SY-PAGNO TIMES. READ LINE 2 OF PAGE SY-INDEX. REPLACE '*****' WITH NUM_PAGES_C INTO SY-LISEL. MODIFY LINE 2 OF PAGE SY-INDEX. ENDDO. CLEAR wa_cabecera. lv_pag = sy-pagno. lv_npag = num_pages_c. CONCATENATE lv_pag '/' lv_npag into var . wa_cabecera-key = ''. wa_cabecera-typ = 'S'. WRITE var TO wa_cabecera-info RIGHT-JUSTIFIED NO-GROUPING. APPEND wa_cabecera TO cabecera. CLEAR wa_cabecera. var = text-002. wa_cabecera-key = ''. wa_cabecera-typ = 'S'. WRITE var TO wa_cabecera-info CENTERED NO-GROUPING. APPEND wa_cabecera TO cabecera. CLEAR wa_cabecera. var = text-003. wa_cabecera-key = ''. wa_cabecera-typ = 'S'. WRITE var TO wa_cabecera-info CENTERED NO-GROUPING. APPEND wa_cabecera TO cabecera. CLEAR wa_cabecera. CONCATENATE text-004 ' ' gv_gjahr INTO var. wa_cabecera-key = ''. wa_cabecera-typ = 'S'. WRITE var TO wa_cabecera-info NO-GROUPING. APPEND wa_cabecera TO cabecera. CLEAR wa_cabecera. CONCATENATE text-005 ' ' gv_paval INTO var. wa_cabecera-key = ''. wa_cabecera-typ = 'S'. WRITE var TO wa_cabecera-info NO-GROUPING. APPEND wa_cabecera TO cabecera. CLEAR wa_cabecera. CONCATENATE text-006 ' ' gv_butxt INTO var. wa_cabecera-key = ''. wa_cabecera-typ = 'S'. WRITE var TO wa_cabecera-info NO-GROUPING. APPEND wa_cabecera TO cabecera. CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE' EXPORTING it_list_commentary = cabecera. ENDFORM. "cabecera |
Herramientas | Buscar en Tema |
Desplegado | |
|
|