usa lo siguiente
en el campo del catalogo pone
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = g_repit
I_INTERNAL_TABNAME = 'MCATALOGO'
I_INCLNAME = g_repit
CHANGING
CT_FIELDCAT = LISTADO[]
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3.
LOOP AT LISTADO.
CASE LISTADO-FIELDNAME.
WHEN 'ORT01'.
LISTADO-outputlen = 11.
ENDCASE
MODIFY LISTADO.
ENDLOOP.
slds.
|