Ver Mensaje Individual
  #2  
Viejo 14/09/07, 13:52:31
conrad10ar conrad10ar is offline
Banned
 
Fecha de Ingreso: mar 2006
Mensajes: 296
Hola Miguel,

aca te paso un ejemplo para llamar a la fb03, no variará en mucho lo que tengas que hacer:


CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = vl_repid
is_layout = w_layout
i_callback_top_of_page = 'FRM_TOP_OF_PAGE'
it_fieldcat = t_fieldcat[]
i_default = 'X'
i_save = 'A'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND_ALV'
* IT_EVENTS =
TABLES
t_outtab = it_doc2[]
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.


FORM user_command_alv USING p_ucomm LIKE sy-ucomm
ps_selfield TYPE slis_selfield.

CASE p_ucomm.
WHEN '&IC1'. " es el ucomm que corresponde al doble-click

READ TABLE it_doc2 INDEX ps_selfield-tabindex.

SET PARAMETER ID 'BLN' FIELD it_doc2-belnr.
SET PARAMETER ID 'BUK' FIELD it_doc2-bukrs.
SET PARAMETER ID 'GJR' FIELD it_doc2-gjahr.

CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
endcase.

ENDFORM.

Saludos!
Responder Con Cita