Custom screen not displaying using BADI ME_GUI_PO_CUST

Hello Experts,
I was working on BAD ME_GUI_PO_CUST to add custom subscreen on header
I have created a subscreen ZNRD_SAPMEGUI_PO with number 9999.
I have created implementation of ME_GUI_PO_CUST as ZME_GUI_PO_CUST.
I have added screen details to the BADI.as follows
CALLPROGRAM = SAPLMEGUI.
Scr No = 1102
Subscreen area = TABSTRIPCONTROL2SUB
Program called = ZNRD_SAPMEGUI_PO
Scr no = 9999.
Now to the method SUBSCRIBE to the implemented BADI ZME_GUI_PO_CUST
I have wriiten the following codes.
method if_ex_me_gui_po_cust~subscribe.
data: ls_subscriber like line of re_subscribers.
if sy-tcode eq ' ME21N' or sy-tcode eq 'ME22N' or sy-tcode eq 'ME23N'.
check im_application = 'PO'.
check im_element = 'HEADER'.
* CLEAR re_subscribers[].
ls_subscriber-name = 'ZNRD_SAPMEGUI_PO'.
ls_subscriber-dynpro = '9999'.
ls_subscriber-program = 'SAPLMEGUI'.
*ls_subscriber-struct_name = 'MEPO_SUBSCRIBERS'.
ls_subscriber-label = 'Customer Data'.
ls_subscriber-position = 10.
ls_subscriber-height = 7.
append ls_subscriber to re_subscribers.
endif.
endmethod.
BADI is active
Now when irun ME21N i dont see the additional custom tab on header coming up.
Please guide will be appreciated.
Regards,
Ranjith

Hi
I have been through the documentation friends still I am unable to go ahead thats the I am seeking your help.
Please guide.
Shailaja could you please explain why do i need to use the user-exit MM06E005 when I am using the BADI.
Regards,
Ranjith N

Similar Messages

Added custom screen in PO using BADI ME_GUI_PO_CUST and ME_PROCESS_PO_CUST

Hi All,
I have added custom screen with two z fields at item level using BADI ME_GUI_PO_CUST and ME_PROCESS_PO_CUST i can see my screen in tcodes ME21N , ME22N , ME23N but I am not able to save data.
and also screen is coming in change mode even in ME23N .
thanks.

Hi,
I have added two xfields at item level.
This is the code i have added in zimplementation ZME_GUI_PO_CUST .
IN Zimplementation ME_PROCESS_PO_CUST I have added code only in method FIELDSELECTION_ITEM . after doing this I can see only screens in ME21N, ME22N, ME23N but when enter data in zfields and trying to save it is giving me message no data has changed.
method IF_EX_ME_GUI_PO_CUST~SUBSCRIBE.
DATA: ls_subscriber LIKE LINE OF re_subscribers.
we want to add a customer subscreen on the item detail tab
CHECK im_application = 'PO'.
CHECK im_element     = 'ITEM'.
each line in re_subscribers generates a subscreen. We add one subscreen in this example
CLEAR re_subscribers[].
the name is a unique identifier for the subscreen and defined in this class definition
ls_subscriber-name = subscreen1.
the dynpro number to use
ls_subscriber-dynpro = '0001'.
the program where the dynpro can be found
ls_subscriber-program = 'SAPLYMEPOBADIEX'.
each subscreen needs his own DDIC-Structure
ls_subscriber-struct_name = 'MEPO_BADI_STRUCT'.
a label can be defined
ls_subscriber-label = text-001.
the position within the tabstrib can be defined
ls_subscriber-position = 4.
the height of the screen can be defined here. Currently we suport two screen sizes:
value <= 7 a sevel line subscreen
value > 7 a 16 line subscreen
ls_subscriber-height = 7.
APPEND ls_subscriber TO re_subscribers.
ENDIF.
method IF_EX_ME_GUI_PO_CUST~TRANSPORT_FROM_MODEL.
DATA: l_item       TYPE REF TO if_purchase_order_item_mm,
        ls_mepoitem TYPE mepoitem,
        ls_customer TYPE mepo_badi_exampl.
system asks to transport data from the business logic into the view
CASE im_name.
    WHEN subscreen1.
is it an item? im_model can be header or item.
      mmpur_dynamic_cast l_item im_model.
      CHECK NOT l_item IS INITIAL.
transport standard fields
      ls_mepoitem = l_item->get_data( ).
transport customer fields
      CALL FUNCTION 'YMEPOBADIEX_GET_DATA'
        EXPORTING
          im_ebeln = ls_mepoitem-ebeln
          im_ebelp = ls_mepoitem-ebelp
        IMPORTING
          ex_data = ls_customer.
store info for later use
      MOVE-CORRESPONDING ls_mepoitem TO dynp_data_pbo.
      MOVE ls_customer-badi_bsgru TO dynp_data_pbo-badi_bsgru.
      MOVE ls_customer-badi_afnam TO dynp_data_pbo-badi_afnam.
    WHEN OTHERS.
ENDCASE.
endif.
method IF_EX_ME_GUI_PO_CUST~TRANSPORT_TO_DYNP.
CASE im_name.
    WHEN subscreen1.
      CALL FUNCTION 'YMEPOBADIEX_PUSH'
        EXPORTING
          im_dynp_data = dynp_data_pbo.
    WHEN OTHERS.
ENDCASE.
ENDIF.
endmethod.
method IF_EX_ME_GUI_PO_CUST~TRANSPORT_FROM_DYNP.
CASE im_name.
    WHEN subscreen1.
      CALL FUNCTION 'YMEPOBADIEX_POP'
        IMPORTING
          ex_dynp_data = dynp_data_pai.
      IF dynp_data_pai NE dynp_data_pbo.
something has changed therefor we have to notify the framework
to transport data to the model
        re_changed = mmpur_yes.
      ENDIF.
    WHEN OTHERS.
ENDCASE.
ENDIF.
endmethod.
method IF_EX_ME_GUI_PO_CUST~TRANSPORT_TO_MODEL.
DATA: l_item       TYPE REF TO if_purchase_order_item_mm,
        ls_mepoitem TYPE mepoitem,
        ls_customer TYPE mepo_badi_exampl.
data have to be transported to business logic
CASE im_name.
    WHEN subscreen1.
is it an item? im_model can be header or item.
      mmpur_dynamic_cast l_item im_model.
      CHECK NOT l_item IS INITIAL.
      ls_mepoitem = l_item->get_data( ).
standard fields changed?
     IF dynp_data_pbo-matkl NE dynp_data_pai-matkl OR
        dynp_data_pbo-plifz NE dynp_data_pai-plifz OR
        dynp_data_pbo-webaz NE dynp_data_pai-webaz.
update standard fields
       ls_mepoitem-matkl = dynp_data_pai-matkl.
       ls_mepoitem-plifz = dynp_data_pai-plifz.
       ls_mepoitem-webaz = dynp_data_pai-webaz.
        CALL METHOD l_item->set_data( ls_mepoitem ).
     ENDIF.
        CALL FUNCTION 'YMEPOBADIEX_GET_DATA'
          EXPORTING
            im_ebeln = ls_mepoitem-ebeln
            im_ebelp = ls_mepoitem-ebelp
          IMPORTING
            ex_data = ls_customer.
        ls_customer-badi_bsgru = dynp_data_pai-badi_bsgru.
        ls_customer-badi_afnam = dynp_data_pai-badi_afnam.
        CALL FUNCTION 'YMEPOBADIEX_SET_DATA'
          EXPORTING
            im_data = ls_customer.
     ENDIF.
    WHEN OTHERS.
ENDCASE.
ENDIF.
method IF_EX_ME_PROCESS_PO_CUST~FIELDSELECTION_ITEM.
DATA: l_persistent TYPE mmpur_bool.
CONSTANTS:
FIELD-SYMBOLS: <fs> LIKE LINE OF ch_fieldselection.
l_persistent = im_item->is_persistent( ).
*IF l_persistent EQ mmpur_yes.
READ TABLE ch_fieldselection ASSIGNING <fs> WITH TABLE KEY
                     metafield = MMMFD_YYMAN_NUM."fd_cust_01.
IF sy-subrc IS INITIAL.
<fs>-fieldstatus = '*'. " Display <-- this one was as per the sample code given.
<fs>-fieldstatus = '+'. " Input <-- this i added to make the field mandatory.
ENDIF.
READ TABLE ch_fieldselection ASSIGNING <fs> WITH TABLE KEY
                     metafield = MMMFD_YYMAN_DES."fd_cust_01.
IF sy-subrc IS INITIAL.
<fs>-fieldstatus = '*'. " Display <-- this one was as per the sample code given.
<fs>-fieldstatus = '+'. " Input <-- this i added to make the field mandatory.
ENDIF.
*ENDIF.
ENDIF.
endmethod.

Unable to add custom tab in ME21N using BADI ME_GUI_PO_CUST

Dear All,
I need one extra tab in Item Details of ME21N.
This extra tab should have two fields of my own.
I have put the coding in the SUBSCRIBE method of the implementation of the BADI ME_GUI_PO_POST as follows:
data: ls_subscriber like line of re_subscribers.
we want to add a customer subscreen on the item detail tab
check im_application = 'PO'.
check im_element = 'ITEM'.
each line in re_subscribers generates a subscreen. We add one subscreen in this example
clear re_subscribers[].
the name is a unique identifier for the subscreen and defined in this class definition
ls_subscriber-name = 'Event Details'.
the dynpro number to use
ls_subscriber-dynpro = '0001'.
the program where the dynpro can be found
ls_subscriber-program = 'SAPLMEPOBADIEX'.
each subscreen needs his own DDIC-Structure
ls_subscriber-struct_name = 'ZSM_PO_STRUC'.
a label can be defined
ls_subscriber-label = 'Event ID'.
the position within the tabstrib can be defined
ls_subscriber-position = 5.
the height of the screen can be defined here. Currently we suport two screen sizes:
value <= 7 a sevel line subscreen
value > 7 a 16 line subscreen
ls_subscriber-height = 7.
append ls_subscriber to re_subscribers.
I put breakpoints in the implementation of the method, and it is going into it, yet the extra tab is not getting displayed on the screen.
Please give your suggestions on this.
Regards,
Prosenjit.

Hi Prosengit,
I am not aure about u r BADI,
BUt last week i have custom tab in the PO header data using this enahncement 'MM06E005'.
IN thi senhancement u have thrre screen exits.In this enhancement
SAPMM06E 0111 CUSTSCR1 SAPLXM06 0111 Subscreen: PO item
u can add subscreen and u can add u r own fields here .
and u can write u r code in 'EXIT_SAPMM06E_006'.
if u want to change the title of the program.
Go to program SAPLXM06 then go to text element give text symbol no as '111' and u can change the title of u r tab.
I hope this solves u r problem.

Screen not displaying correctly. It keeps moving as the mouse moves

Screen not displaying correctly. It keeps moving as the mouse moves

Your problem is not the same as that of the original poster of this thread, and it can be very confusing for everybody if we try to answer more than one question in each thread.
In order for us to give your problem our undivided attention to try to solve it, would you kindly start your own thread, describing the trouble you are having in the fullest detail, including completing your details to show what Mac or iDevice you are using, what operating system, and what version of the application in question. Please remember to post in the forum relevant to your hardware or version of OS X.

The padlock icon shown when entering secure sites using Firefox 3.x is not displayed using Firefox 4. How can this be restored? Is it indicating another problem?

The padlock icon shown when entering secure sites using Firefox 3.x is not displayed using Firefox 4.

It has been changed. Please read this article:
https://support.mozilla.com/en-US/kb/Site%20Identity%20Button
You can use this add-on to get the classic icon back:
https://addons.mozilla.org/en-US/firefox/addon/padlock-icon/

My screen not display propely

i have problem wth my iPad2.the screen not display propely.pls help me

Try a reset. Hold the Sleep and Home button down for about 10 seconds until you see the Apple logo. Ignore the red slider.

Customer screen using BADI : ME_GUI_PO_CUST

Hi
I am implementing BADI : ME_GUI_PO_CUST to create custom screen at item level.
Pls tell me the steps to be followed to get custom screen using BADI
Thanks
Vinay.

Hi Vinay,
go to transaction SE18, then enter your BADI.The in menu go to Goto -> Sample Code -> Display. You will see example of implementation of this BADI. All these examples are very well commented. Basically you will have to create your own function group with your new screen and call this screen from methods of BADI.
Cheers

Custom Infotype not displaying locked records in the list screen (3000)

I have a custom infotype (9xxx) that will not display the locked records (locked indicator (sprps) is set to X) in the list screen (3000) in PA20 and PA30.
Any ideas on what may be causing the records to not display in the list screen?
Thanks,
Ted

Hi,
for creating both employee and appliciant infotype you must check 'Both' in PM01 IT tab.
Regards.

Custom fonts not displayed when PDF is generated using 10g Report builder

Hi
I have two fonts , abc.ttf and def.ttf which I have placed under C:\Windows\fonts. One of these displays a logo and the other displays barcode
I have added the environment variable REPORTS_PATH which has value C:\Windows\fonts. I have also added entries for PDF Subset in uifont.ali.
But still when I run the report and out to a PDF file, the fonts are not displayed. They are remapped to some other fonts.
When I check PDF document properties in Adobe reader, under fonts tab it says
abc
   Type:Type1
   Encoding:ANSI
   Actual Font: Adobe Sans MM
   Actual Font Type : Type 1
def
   Type:Type1
   Encoding:ANSI
   Actual Font: Adobe Sans MM
   Actual Font Type : Type 1
uifont.ali entries
[ PDF:Subset ]
# This example shows how to subset Arial True Type font into the PDF file
# Arial = "Arial.ttf"
# The True Type font files must exist in any one of the folders specified in
# REPORTS_PATH.
abc= "abc.ttf"
def="def.ttf"
In Oracle reports builder, I am able see these fonts and select them in my report layout
I am able to see the fonts in Preview/screen output while running RDFs in my reports builder, but PDF output doesnt display these fonts
Is there anything else which is required to do ? Do I need to restart the machine after environment variable is added ?

In one PC were Report Builder is installed, we see "COURIER NEW - WESTERN" font and the RDF created / saved in that font works fine on server. I don't know if this helps!

Screen not displayed correctly using InteractiveViewer

I have created a report that prompts the User for Start and End dates. When the Prompt dialogue box is displayed using interactiveViewer the images are not displayed correctly.
Does anybody have a fix for this problem ??
Example attached.
Ron Smith
DBA

My guess is that the toolbars don't show up when you view the reports either.
There should be a virtual directory called 'crystalreportviewers' on your webserver. This is where you will find all the images supplied by the viewer.
Right click on the image that is having problems and select properties. This should give you location of the viewer.
You should be able to trouble shoot this way be comparing the actual path with the real path of the missing images.
Hopefully this will help.
<a href="/blog/10">Rob's blog - http://diamond.businessobjects.com/robhorne</a>

Add new screen in ME23N with BADI ME_GUI_PO_CUST

Hi folks, I have used the BADI ME_GUI_PO_CUST to add a custom tab in transaction ME23N.
So good, sor far, I know how to used BADI and it works very well. I had to subscribe my own subscreen in the method subscribe of the interface, but something is boring me and I don't know if it's possible.
Let's say I want to display my new tab according to the purchasing document type. Right now, my custom tab is always display. There is no method to unsubscribe a screen in the interface. What I could do is to used the get parameter id 'BES' in the subscribe method to get the current purchasing document display, then from there I could decide if I subscribe or not my own screen. The thing with the subscribe method is that it's only called once, when you enter in the transaction, if you stay in the transaction and select another purchasing document, this method will not be called.
thanks
Alex

Hi Alexandre,
First get the current Purchase Order Number using parameter ID 'BES' in the PBO of the custom subscreen.
Then based on validation checks set SCREEN-INVISIBLE = 1 and SCREEN-ACTIVE = 0 and MODIFY SCREEN for all the screen fields.
This will hide all the fields and eventually the tab may also disappear. This works for Screen Exits (i.e., if all the fields of a tab are made to disppear then the tab also disapears if is the tab is defined using Screen Exit). But I have never tried it out in a BADI.
Try this, it might work.
Hope it helps.
Regards,
Abhisek.

Custom fields not display in SRM5.5 Basic Data Frame

Hello Everybody,
      I am working on SRM5.5 Server which i have to add two custom fields in Basic Data Frame..
     No field is display in basic data frame After I added those fields in INCL_EEW_PD_ITEM_CSF_SC and INCL_EEW_PD_ITEM_CSF.
    I added these fields by help of 672960 OSS notes..
   Add also when i execute the program BBP_DYNPROS_GENERATE where I entered the program name as SAPLBBP_PDH_CUF and execute but non of them is working fine..
Is there anything else do i need to display custom fields in basic data frame??
I have one more question..
When you logon through SAPGUI and goto BBPSC01 t.code where you see lots of fields in basic data frame such as unloading point and all.. But those all fields does not display when you logon through WebURL..
I checked is there any BAdi such CUF or Screenvarient or some Badi has been actived but non of the Badi has been implemented..
To display all the fields which are display in GUI Mode also should display in URL..
To bring this functionality , What do i need to do?
I appreciate if you answer these questions..
Thanks,
John.

Hi Disha,
We are trying to add custom fields to the Shopping Cart Header. We are using SRM 5.0. We added the fields to the structures "INCL_EEW_PD_HEADER_CSF_SC" & "INCL_EEW_PD_HEADER_CSF". We are able to see the custom fields. But the issue is , we are able to see the custom fields in the Shopping Cart one step shop scenario. Whereas when we run the wizard which is a 3 step scenario, we are not able to see the custom fields.
Technically speaking, the custom fields are visible for the ITS BBPSC01 & BBPSC03 , where as these custom fields are not visible for the ITS BBPSC02.
Please let me know, if we need to append the fields to some other structure to be able to see them in the Shopping cart wizard also.
I will be gald to provide any kind of info.
Thanks in advance...

Output is not displaying using FM:REUSE_ALV_GRID_DISPLAY

Hi,
We have copied the standard transaction code(ME2L) to custom tcode(ZMM_ME2L).the custom tcode is working good in development system but not displaying data in the output screen eventhough the output internal table conatins data and fieldcatalog as well.
Could you please let me know why the function module:REUSE_ALV_GRID_DISPLAY is not displaying any output.
Regards
RPN

Hi,
I have passed all import and export parameters to FM.pls see the below function module which i have used in my program.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program                = 'ZMM_RM06EL00'
      i_callback_pf_status_set          = 'SET_PF_STATUS'
      i_callback_user_command           = 'USER_COMMAND'
    i_callback_top_of_page            = 'TOP_OF_PAGE'
      is_layout                         = gs_layout
      it_fieldcat                       = gt_field_cat
      i_default                         = 'X'
      i_save                            = 'A'
      it_events                         = gt_events
      IT_EVENT_EXIT
    IMPORTING
      es_exit_caused_by_user            = ls_exit_by_user
    TABLES
      t_outtab                          = gt_rpt
    EXCEPTIONS
      program_error                     = 1
      OTHERS                            = 2.
IF sy-subrc NE 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
Regards,
RPN

Interactive report: third screen not displaying

Hi Experts,
I am doing a interactive report in ALV grid...and my requirement is
when the user clicks on SPMON which is displayed on the initial screen the first screen
should display and in first screen when the user clicks LIFNR second screen should display..
I am able to display initial and first screen but second screen is not displaying...I am
pasting a pinch of my code please have a look and advice me..
FORM USER_COMM USING P_UCOMM LIKE SY-UCOMM
                           R_SELFIELD TYPE SLIS_SELFIELD.
DATA : OK_CODE TYPE SY-UCOMM.
OK_CODE = P_UCOMM.
CASE OK_CODE.
    WHEN '&IC1'.
      IF R_SELFIELD-FIELDNAME = 'SPMON'.
        READ TABLE IT_TAB INDEX R_SELFIELD-TABINDEX.
        REFRESH IT_TAB_1[].
        CLEAR IT_TAB_1.
        LOOP AT IT_FIRST WHERE WERK EQ IT_TAB-WERK AND SPMON EQ IT_TAB-SPMON
                           AND ART = IT_TAB-ART.
          MOVE IT_FIRST-WERK       TO IT_TAB_1-WERK.
          MOVE IT_FIRST-LIFNR      TO IT_TAB_1-LIFNR.
          MOVE IT_FIRST-MEANQ      TO IT_TAB_1-MEANQ.
          MOVE IT_FIRST-BASME_QM   TO IT_TAB_1-BASME_QM.
           APPEND IT_TAB_1.
          CLEAR: IT_FIRST, IT_TAB_1.
        ENDLOOP.
        REFRESH IT_FIELDCAT1[].
        S_LAYOUT-ZEBRA = 'X' .
        S_LAYOUT-COLWIDTH_OPTIMIZE = 'X' .
        PERFORM FIELD_CATALOG1 TABLES IT_FIELDCAT1
        USING:
          'IT_TAB_1' 'WERK' ' ' 'PLANT' ' ' ' ',
          'IT_TAB_1' 'LIFNR' ' ' 'VENDOR NUMBER' ' ' ' ',
          'IT_TAB_1' 'MEANQ' ' ' 'MEANQSCORE' ' ' ' ',
          'IT_TAB_1' 'BASME_QM' ' ' 'BuM' ' ' ' ',
        CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
         EXPORTING
           I_CALLBACK_PROGRAM                = SY-CPROG
           I_CALLBACK_USER_COMMAND             = 'USER_COMM_1'
           IS_LAYOUT                         = S_LAYOUT
           IT_FIELDCAT                       = IT_FIELDCAT1[]
         TABLES
            T_OUTTAB                          = IT_TAB_1[]
      ENDIF.
ENDCASE.
ENDFORM.                    "USER_COMM
For second screen : which is not working
FORM USER_COMM_1 USING P_UCOMM LIKE SY-UCOMM
                           R_SELFIELD TYPE SLIS_SELFIELD.
DATA : OK_CODE TYPE SY-UCOMM.
OK_CODE = P_UCOMM.
CASE OK_CODE.
    WHEN '&IC2'.
      IF R_SELFIELD-FIELDNAME = 'LIFNR'.
        READ TABLE IT_TAB_1 INDEX R_SELFIELD-TABINDEX.
        REFRESH IT_TAB_2[].
        CLEAR IT_TAB_2.
        LOOP AT IT_SECOND WHERE WERK EQ IT_TAB_1-WERK AND
SPMON EQ IT_TAB_1-SPMON AND ART = IT_TAB_1-ART AND LIFNR = IT_TAB_1-LIFNR.
          MOVE IT_SECOND-ART        TO IT_TAB_2-ART.
          MOVE IT_SECOND-SPMON      TO IT_TAB_2-SPMON.
          MOVE IT_SECOND-MATNR      TO IT_TAB_2-MATNR.
               APPEND IT_TAB_2.
          CLEAR: IT_SECOND, IT_TAB_2.
        ENDLOOP.
        REFRESH IT_FIELDCAT2[].
        S_LAYOUT-ZEBRA = 'X' .
        S_LAYOUT-COLWIDTH_OPTIMIZE = 'X' .
        PERFORM FIELD_CATALOG1 TABLES IT_FIELDCAT2
                USING:
                  'IT_TAB_2' 'MATNR' ' ' 'MATERIAL NUMBER' ' ' ' ',
                  'IT_TAB_2' 'MEANQ' ' ' 'MEANQSCORE' ' ' ' ',
                  'IT_TAB_2' 'BASME_QM' ' ' 'BuM' ' ' ' ',
        CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
         EXPORTING
           I_CALLBACK_PROGRAM                = SY-CPROG
           IS_LAYOUT                         = S_LAYOUT
           IT_FIELDCAT                       = IT_FIELDCAT2[]
          TABLES
            T_OUTTAB                          = IT_TAB_2[]
      ENDIF.
ENDCASE.
ENDFORM.                    "USER_COMM_1
Please advice
Karthik
Edited by: Karthik R on Apr 29, 2009 12:22 PM

Use both conditions in USER_COMM.
FORM USER_COMM USING P_UCOMM LIKE SY-UCOMM
                           R_SELFIELD TYPE SLIS_SELFIELD.
DATA : OK_CODE TYPE SY-UCOMM.
OK_CODE = P_UCOMM.
CASE OK_CODE.
    WHEN '&IC1'.
      IF R_SELFIELD-FIELDNAME = 'SPMON'.                      " Field name SPMON
        READ TABLE IT_TAB INDEX R_SELFIELD-TABINDEX.
        REFRESH IT_TAB_1[].
        CLEAR IT_TAB_1.
        LOOP AT IT_FIRST WHERE WERK EQ IT_TAB-WERK AND SPMON EQ IT_TAB-SPMON
                           AND ART = IT_TAB-ART.
          MOVE IT_FIRST-WERK       TO IT_TAB_1-WERK.
          MOVE IT_FIRST-LIFNR      TO IT_TAB_1-LIFNR.
          MOVE IT_FIRST-MEANQ      TO IT_TAB_1-MEANQ.
          MOVE IT_FIRST-BASME_QM   TO IT_TAB_1-BASME_QM.
           APPEND IT_TAB_1.
          CLEAR: IT_FIRST, IT_TAB_1.
        ENDLOOP.
        REFRESH IT_FIELDCAT1[].
        S_LAYOUT-ZEBRA = 'X' .
        S_LAYOUT-COLWIDTH_OPTIMIZE = 'X' .
        PERFORM FIELD_CATALOG1 TABLES IT_FIELDCAT1
        USING:
          'IT_TAB_1' 'WERK' ' ' 'PLANT' ' ' ' ',
          'IT_TAB_1' 'LIFNR' ' ' 'VENDOR NUMBER' ' ' ' ',
          'IT_TAB_1' 'MEANQ' ' ' 'MEANQSCORE' ' ' ' ',
          'IT_TAB_1' 'BASME_QM' ' ' 'BuM' ' ' ' ',
        CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
         EXPORTING
           I_CALLBACK_PROGRAM                = SY-CPROG
           I_CALLBACK_USER_COMMAND             = 'USER_COMM_1'
           IS_LAYOUT                         = S_LAYOUT
           IT_FIELDCAT                       = IT_FIELDCAT1[]
         TABLES
            T_OUTTAB                          = IT_TAB_1[]
      ELSEIF R_SELFIELD-FIELDNAME = 'LIFNR'.              " ELSE FIELDNAME LIFNR
        READ TABLE IT_TAB_1 INDEX R_SELFIELD-TABINDEX.
        REFRESH IT_TAB_2[].
        CLEAR IT_TAB_2.
        LOOP AT IT_SECOND WHERE WERK EQ IT_TAB_1-WERK AND
        SPMON EQ IT_TAB_1-SPMON AND ART = IT_TAB_1-ART AND LIFNR = IT_TAB_1-LIFNR.
          MOVE IT_SECOND-ART        TO IT_TAB_2-ART.
          MOVE IT_SECOND-SPMON      TO IT_TAB_2-SPMON.
          MOVE IT_SECOND-MATNR      TO IT_TAB_2-MATNR.
               APPEND IT_TAB_2.
          CLEAR: IT_SECOND, IT_TAB_2.
        ENDLOOP.
        REFRESH IT_FIELDCAT2[].
        S_LAYOUT-ZEBRA = 'X' .
        S_LAYOUT-COLWIDTH_OPTIMIZE = 'X' .
        PERFORM FIELD_CATALOG1 TABLES IT_FIELDCAT2
                USING:
                  'IT_TAB_2' 'MATNR' ' ' 'MATERIAL NUMBER' ' ' ' ',
                  'IT_TAB_2' 'MEANQ' ' ' 'MEANQSCORE' ' ' ' ',
                  'IT_TAB_2' 'BASME_QM' ' ' 'BuM' ' ' ' ',
        CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
         EXPORTING
           I_CALLBACK_PROGRAM                = SY-CPROG
           IS_LAYOUT                         = S_LAYOUT
           IT_FIELDCAT                       = IT_FIELDCAT2[]
          TABLES
            T_OUTTAB                          = IT_TAB_2[]
      ENDIF.
ENDCASE.
ENDFORM.                    "USER_COMM
Regards,
Gurpreet

Variable Screen not display in Web

Hi all
When i execute the Query ZBP02_Q001 in Web, the Variable Input Screen of the Query is not display first,but display the content of the ZBP02_Q001 directly in the Web. All of the Varibale is not mandatory;
i am using BI 7.0;
Anyone can give a help!
Thanks in advance.

Hi Cao,
May be your infoobject are holding constants, which led to direct execution without the selection screen.
Inorder to get the selection screen, select the infoobject and make its settings as optional and it will be displayed in your selection screen.
So whenever you use optional for an infoobject, that specific infoobject alone will appear on the selection screen.
Regards
Thenmuga Selvan

Custom screen not displaying using BADI ME_GUI_PO_CUST

Similar Messages

Maybe you are looking for