Ver Mensaje Individual
  #1  
Viejo 13/06/06, 14:41:00
tniaboc tniaboc is offline
Member
 
Fecha de Ingreso: abr 2006
Mensajes: 58
Como se aņaden botones al status de una alv??

He probado copiandome el status standard y modificandolo y aņadiendo esto
, pero no me visualiza los nuevos botones que me creo en el status nuevo
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = 'X'
I_CALLBACK_PROGRAM = g_repid
I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
* I_STRUCTURE_NAME =
IS_LAYOUT = gs_layout
IT_FIELDCAT = gt_fieldcat[]




FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
DATA: li_count TYPE I.
IF r_ucomm EQ '%ADD'.
* LOOP AT %g00 WHERE mark EQ 'X'.
* ADD 1 TO li_count.
* ENDLOOP.
* IF li_count GT 0.
* gc_delete_flag = 'X'.
* r_ucomm = '&F03'. "Back arraow
* ELSE.
* MESSAGE W000 WITH 'Please highlight the rows to be deleted!'.
* ENDIF.
ENDIF.
ENDFORM. "User_command

*****************************************
FORM set_pf_status USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZSTANDARD' excluding rt_extab.
ENDFORM. "Set_pf_status
Responder Con Cita