Call alv from screen painter

Question

hello all expert,
i have requirement display alv report in screen painter. select options and report display on same screen.
iam taking custom control for display alv report .but when i click on button alv not displayed in custom control.
plz help me anyone /
there is no hurry.
Thanks in advance,
   sandeep.
Edited by: Thomas Zloch on Jan 22, 2011 1:00 PM - urgency reduced

Answer 1

Thanks for reply ,
now i write my code in  pbo and pbi event but report not displayed yet.
now this is the code.
*& Report  ZTEST_SCREEN1                                               *
REPORT  ZTEST_SCREEN1                           .
DATA :
  gr_EBELN TYPE RANGE OF EKKO-EBELN,
  grs_EBELN LIKE LINE OF gr_EBELN.
DATA:
  gs_fieldcatalog TYPE lvc_s_fcat OCCURS 0,
  gv_fcat LIKE LINE OF gs_fieldcatalog,
  gs_layout TYPE lvc_s_layo.
TYPES :
  BEGIN OF gty_item,
    mandt LIKE EKKO-mandt,
    EBELN LIKE EKKO-EBELN,
    lifnr LIKE EKKO-lifnr,
    matnr LIKE EKPO-matnr,
   desc_text LIKE zEKPO-desc_text,
  END OF gty_item,
  BEGIN OF gty_EKKO,
    mandt LIKE EKKO-mandt,
    EBELN LIKE EKKO-EBELN,
    lifnr LIKE EKKO-lifnr,
  END OF gty_EKKO,
  BEGIN OF gty_EKPO,
    EBELN LIKE EKPO-EBELN,
    matnr LIKE EKPO-matnr,
  END OF gty_EKPO.
DATA :
  gs_item TYPE gty_item,
  gt_item TYPE TABLE OF gty_item.
DATA :
  gs_EKKO TYPE gty_EKKO,
  gt_EKKO TYPE TABLE OF gty_EKKO,
  gs_EKPO TYPE gty_EKPO,
  gt_EKPO TYPE TABLE OF gty_EKPO.
DATA :
  g_Container TYPE scrfname VALUE 'CC_CONTAINER_GRID',
  g_Custom_Container TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
  g_Grid TYPE REF TO CL_GUI_ALV_GRID.
DATA :
  OK_CODE LIKE sy-ucomm,
  SAVE_OK LIKE sy-ucomm.
START-OF-SELECTION.
call screen 100.
*&      Module  STATUS_0100  OUTPUT
      text
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'MAIN'.
  SET TITLEBAR 'TITLE'.
  IF g_Custom_Container IS INITIAL.
"Create CONTAINER object with reference to container name in the screen
    CREATE OBJECT g_Custom_Container EXPORTING CONTAINER_NAME =
    g_Container.
    " Create GRID object with reference to parent name
    CREATE OBJECT g_Grid EXPORTING I_PARENT = g_Custom_Container.
    PERFORM u_prepare_fieldcatalog.
    gs_layout-ZEBRA = 'X'.
    "gs_layout-edit = 'X'. " Makes all Grid editable
    " SET_TABLE_FOR_FIRST_DISPLAY
    CALL METHOD g_Grid->SET_TABLE_FOR_FIRST_DISPLAY
      EXPORTING
        is_layout = gs_layout
      CHANGING
        it_fieldcatalog = gs_fieldcatalog
        IT_OUTTAB = gt_item. " Data
  ELSE.
    CALL METHOD g_Grid->REFRESH_TABLE_DISPLAY.
  ENDIF.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
      text
MODULE USER_COMMAND_0100 INPUT.
CASE OK_CODE.
    WHEN 'EXIT' OR 'BACK' OR 'CNCL'.
      LEAVE PROGRAM.
    WHEN 'LIST'.
      PERFORM u_filter_EKKO.
    WHEN OTHERS.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Form  u_filter_EKKO
      text
-->  p1        text
<--  p2        text
FORM u_filter_EKKO .
     REFRESH gt_EKKO.
  Define Range Criteria
  grs_EBELN-SIGN   = 'I'.
  grs_EBELN-OPTION = 'EQ'.
grs_EBELN-low    = '6000000004'.
grs_EBELN-high   = ekko-ebeln.
  APPEND grs_EBELN to gr_EBELN.
CHECK gr_EBELN[] IS NOT INITIAL.
  SELECT mandt EBELN kunnr
    FROM EKKO INTO TABLE gt_EKKO
    WHERE EBELN IN gr_EBELN.
  CHECK gt_EKKO[] IS NOT INITIAL.
  SELECT EBELN matnr
    FROM EKPO INTO TABLE gt_EKPO
    FOR ALL ENTRIES IN gt_EKKO
    WHERE EBELN EQ gt_EKKO-EBELN.
  IF gt_EKKO[] IS NOT INITIAL.
    LOOP AT gt_EKPO INTO gs_EKPO.
      READ TABLE gt_EKKO INTO gs_EKKO WITH KEY EBELN = gs_EKPO-EBELN.
      gs_item-mandt = gs_EKKO-mandt.
      gs_item-EBELN = gs_EKKO-EBELN.
      APPEND gs_item TO gt_item.
      CLEAR gs_item.
      CLEAR gs_EKKO.
      CLEAR gs_EKPO.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " u_filter_EKKO
FORM U_PREPARE_FIELDCATALOG .
  CLEAR gv_fcat.
  gv_fcat-fieldname = 'MANDT'.
  gv_fcat-tabname = 'EKPO'.
  gv_fcat-col_pos = 0.
  gv_fcat-coltext = 'MANDT'.
  gv_fcat-no_out = 'X'. " Do not Display Column
  INSERT gv_fcat INTO TABLE gs_fieldcatalog.
  CLEAR gv_fcat.
  gv_fcat-fieldname = 'EBELN'.
  gv_fcat-tabname = 'EKPO'.
  gv_fcat-col_pos = 1.
  gv_fcat-coltext = 'EBELN'.
  INSERT gv_fcat INTO TABLE gs_fieldcatalog.
  CLEAR gv_fcat.
  gv_fcat-fieldname = 'ERDAT'.
  gv_fcat-tabname = 'EKPO'.
  gv_fcat-col_pos = 2.
  gv_fcat-coltext = 'ERDAT'.
  INSERT gv_fcat INTO TABLE gs_fieldcatalog.
  CLEAR gv_fcat.
  gv_fcat-fieldname = 'KUNNR'.
  gv_fcat-tabname = 'EKPO'.
  gv_fcat-col_pos = 3.
  gv_fcat-coltext = 'KUNNR'.
  INSERT gv_fcat INTO TABLE gs_fieldcatalog.
  CLEAR gv_fcat.
  gv_fcat-fieldname = 'MATNR'.
  gv_fcat-tabname = 'EKPO'.
  gv_fcat-col_pos = 5.
  gv_fcat-coltext = 'MATNR'.
  INSERT gv_fcat INTO TABLE gs_fieldcatalog.
ENDFORM. " U_PREPARE_FIELDCATALOG