Ver Mensaje Individual
  #6  
Viejo 21/01/08, 13:22:43
ibecerra
 
Mensajes: n/a
OK.. Mira te falta esto

* Inicializar el Layout
******************************************
CALL METHOD grid1->set_table_for_first_display
EXPORTING
i_structure_name = 'TI_ZTFACTRET'
is_layout = gs_layout
is_variant = gs_variant
i_save = ''
i_default = 'X'
it_toolbar_excluding = lt_toolbar_excluding
CHANGING
it_outtab = TI_ZTFACTRET[]
it_fieldcatalog = gt_fieldcat
************************************************
donde:
CHANGING
it_outtab = TI_ZTFACTRET[]
it_fieldcatalog = gt_fieldcat. ---> aqui es la estructura donde pones la cabecera

y asi es como llenas los datos de la cabecera
la declaracion es la siguiente
data: gt_fieldcat type lvc_t_fcat.
data: gs_fieldcat type lvc_s_fcat.

FORM fill_catalog.
DATA: l_tabname LIKE gs_fieldcat-tabname.
l_tabname = 'TI_ZTFACTRET'.
data ncol type i.
*-Presentacion de Detalle de la Compra
CLEAR gt_fieldcat. REFRESH gt_fieldcat.

CLEAR gt_fieldcat.
gs_fieldcat-row_pos = nrow.
gs_fieldcat-col_pos = ncol.
gs_fieldcat-tabname = CABECERA.
gs_fieldcat-fieldname = 'AUFNR'.
gs_fieldcat-seltext_l = 'xxxxxx' ---> aqui se cambia la cabecera
gs_fieldcat-seltext_m = 'xxxxxx' ---> o
gs_fieldcat-seltext_s = 'xxxxxx'.
gs_fieldcat-outputlen = 12.


APPEND gs_fieldcat TO gt_fieldcat.

CLEAR gs_fieldcat.
add 1 to ncol.
gs_fieldcat-fieldname = 'ICON'.
gs_fieldcat-tabname = l_tabname.
gs_fieldcat-coltext = 'Estado.'.
gs_fieldcat-col_pos = ncol.
gs_fieldcat-fix_column = 'X'.
gs_fieldcat-icon = 'X'.
APPEND gs_fieldcat TO gt_fieldcat.
CLEAR gs_fieldcat.
add 1 to ncol.
gs_fieldcat-tabname = l_tabname.
gs_fieldcat-col_pos = ncol.
gs_fieldcat-fix_column = 'X'.
gs_fieldcat-fieldname = 'GJAHR'.
gs_fieldcat-coltext = text-T02.
gs_fieldcat-ref_table = 'ZTFCONSTDET'.
APPEND gs_fieldcat TO gt_fieldcat.

Responder Con Cita