|
#1
|
|||
|
|||
LLamar SmartForm desde Reporte
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 |
#2
|
||||
|
||||
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.
__________________
Luis Lipa
|
#3
|
|||
|
|||
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. |
#4
|
|||
|
|||
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. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|