|
#1
|
||||
|
||||
Hola Carlanga,
Bienvenida a nuestra comunidad sap . Te adjunto un programa muy útil que busca las exits de una determinada transacción que introduces en los parámetros de selección report z_find_user_exit no standard page heading. tables: tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir, tstct. data : jtab like tadir occurs 0 with header line. data : hotspot(30). parameters : p_tcode like tstc-tcode obligatory. at line-selection. get cursor field hotspot. check hotspot(4) eq 'JTAB'. set parameter id 'MON' field sy-lisel+1(10). call transaction 'SMOD' and skip first screen. start-of-selection. perform get_data. perform write_list. *---------------------------------------------------------------------* * FORM get_data * *---------------------------------------------------------------------* form get_data. select single * from tstc where tcode eq p_tcode. check sy-subrc eq 0. select single * from tadir where pgmid = 'R3TR' and object = 'PROG' and obj_name = tstc-pgmna. if sy-subrc ne 0. select single * from trdir where name = tstc-pgmna. if trdir-subc eq 'F'. select single * from tfdir where pname = tstc-pgmna. select single * from enlfdir where funcname = tfdir-funcname. select single * from tadir where pgmid = 'R3TR' and object = 'FUGR' and obj_name eq enlfdir-area. endif. endif. select * from tadir into table jtab where pgmid = 'R3TR' and object = 'SMOD' and devclass = tadir-devclass. select single * from tstct where sprsl eq sy-langu and tcode eq p_tcode. endform. *---------------------------------------------------------------------* * FORM write_list * *---------------------------------------------------------------------* form write_list. format color col_positive intensified off. write:/(19) 'Transaction Code - ', 20(20) p_tcode, 45(50) tstct-ttext. skip. if not jtab[] is initial. write:/(95) sy-uline. format color col_heading intensified on. write:/1 sy-vline, 2 'Exit Name', 21 sy-vline , 22 'Description', 95 sy-vline. write:/(95) sy-uline. loop at jtab. select single * from modsapt where sprsl = sy-langu and name = jtab-obj_name. format color col_normal intensified off. write:/1 sy-vline, 2 jtab-obj_name hotspot on, 21 sy-vline , 22 modsapt-modtext, 95 sy-vline. endloop. write:/(95) sy-uline. describe table jtab. skip. format color col_total intensified on. write:/ 'No of Exits:' , sy-tfill. else. format color col_negative intensified on. write:/(95) 'No User Exit exists'. endif. endform. Espero te sea útil. Un saludo .
__________________
Si precisas una mano, recuerda que yo tengo dos. |
#2
|
|||
|
|||
Exit Me41
Si, el programa report z_find_user_exit, lo conozco y ya e buscado en el, ese es el gran problema pero de todos modos te agradezco la intención.
Help my !!! |
#3
|
||||
|
||||
Hola Carlanga,
Ok , Creo que para peticiones de oferta se puede usar la BADI ME_PROCESS_PO_CUST y el método PROCESS_ITEM. Un saludo.
__________________
Si precisas una mano, recuerda que yo tengo dos. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|