A ver si te puedo ayudar.
Después de cargar el catálogo:
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
.......
.
lo recorres:
* Para recorrer el catálogo
FIELD-SYMBOLS: <fs_catalogo> TYPE lvc_s_fcat.
*/ ESCRIBIMOS LOS TÍTULOS EN LAS COLUMNAS
LOOP AT po_catalogo ASSIGNING <fs_catalogo>.
CASE <fs_catalogo>-fieldname.
WHEN 'NOMBRE_COLUMNA_1'.
<fs_catalogo>-coltext = text-001. "texto de la columna
WHEN 'NOMBRE_COLUMNA_2'.
<fs_catalogo>-coltext = text-002. "texto de la columna
...
WHEN 'NOMBRE_COLUMNA_X'.
<fs_catalogo>-coltext = text-00X. "texto de la columna
ENDCASE.
ENDLOOP.
---------------------
Lo del COLTEXT lo descubrí hace poco.
Antes usaba esto otro, pero en el mismo sitio.
* PARA CADA COLUMNA las 4 filas
<fs_catalogo>-scrtext_s = text-001. "texto de la columna1
<fs_catalogo>-scrtext_l = text-001. "texto de la columna1
<fs_catalogo>-scrtext_m = text-001. "texto de la columna1
<fs_catalogo>-reptext = text-001. "texto de la columna1
A mí las dos cosas me funcionan.
Ya dirás si te funcionó.
Saludos
|