LLamar SmartForm desde Reporte

[jjeffer]

Buenas Tardes,

Lo que sucede es que cree un reporte AVL y solicitaron crear un SmartForm para imprimir los datos de este reporte, ya tengo creado el SmartForm, ya esta hecho el reporte y el FORM que llama la impresión, lo que no se es en que parte del código del reporte coloco el FORM.

Gracias por su ayuda

[luis999]

Solo te falta ponerle un botón a tu alv que llame al form, o tambien puedes ponerlo como un parámetro de entrada(si esta habilitado mostrar directamente el Smartform), depende de como te lo hayan pedido.

[XJerickX]

Como menciona Luis Si tu reporte lo hiciste con una dynpro create un boton
y como codigo de funcion ponle 'IMP'

Y en tu programa en el USER COMAND haces:
IF sy-subrc = 'IMP'
PERFORM imp_smartform. <-Aqui pones tu PERFORM que llama alsmartform.
ENDIF.

[jjeffer]

Muchas gracias a todos por su ayuda.

Dejo lo que hice por si alguien tiene la misma inquietud.

Lo que hice fue crear un Status GUI donde coloque el pulsador de impresión, luego cree dos rutinas

En esta subutina utilizo el Status GUI que cree, en este caso 'ALV'.

FORM pf_status_set USING gt_extab TYPE slis_t_extab.
SET PF-STATUS 'ALV'.
ENDFORM.

Luego esta subrutina es donde valido el evento de impresión como ven dice que cuando presione el pulsador de impirmir que cree valla a la subrutina de impresion

FORM user_command USING f_ucomm LIKE sy-ucomm
i_selfield TYPE slis_selfield.
CASE f_ucomm.
WHEN 'IMPR'.
PERFORM impresion.
ENDCASE.

ENDFORM.

Luego en la rutina donde llamo el ALV agrego los parametros i_callback_user_command donde llamo la rutina USER_COMMAND y i_callback_pf_status_set donde llamo la rutina PF_STATUS_SET

FORM llamar_funcion TABLES pt_fieldcat TYPE slis_t_fieldcat_alv
pt_sort TYPE slis_t_sortinfo_alv
pt_event TYPE slis_t_event
USING x_layout .

*
*CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' "12-07-2011
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
* is_layout_lvc = gd_layout
i_callback_user_command = 'USER_COMMAND'
i_callback_pf_status_set = 'PF_STATUS_SET'
is_layout = x_layout
it_fieldcat = pt_fieldcat[]
it_sort = pt_sort[]
it_events = pt_event[]
TABLES
t_outtab = t_salida
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.
ENDFORM.