Regarding the Custom screen

Question

hai friends,
            how to dispaly the ouput of ALV  in Custom screen.
Regards,
selvamuthukumar

Answer 1

Hi,
Following Sample Code will help you in this way, i am using SCREEN 1 and SCREEN 2
Screen one there is a field where user enter the Number of Records he want to show from KNA1
than on SCREEN 2 there is CONTAINER where Record show as ALV
Flow Logic SCREEN 1
process before output.
  module status_0001.
process after input.
  module exit_command_0001 at exit-command.
  chain.
    field: tf_rec_no.
    module user_command_0001.
  endchain.
Flow Logic SCREEN 2
process before output.
  module status_0002.
  module display_alv.
process after input.
  module exit_command_0002 at exit-command.
  module user_command_0002.
report  zfsl_rget_from_kna1_scr_class.
tables: kna1, zsdo.
data: tf_rec_no(10).
*PARAMETERS: ptablen(10).
data: git_kna1 like standard table of kna1 with header line,
      wa_git_kna1 like kna1,
      go_grid type ref to cl_gui_alv_grid,
      go_custom_container type ref to cl_gui_custom_container.
call screen 1.
*&      Module  STATUS_0001  OUTPUT
*       text
module status_0001 output.
  set pf-status 'ZFSL_KNA1_SCR_CLASS'.
*  SET TITLEBAR 'xxx'.
endmodule.                 " STATUS_0001  OUTPUT
*&      Module  USER_COMMAND_0001  INPUT
*       text
module user_command_0001 input.
  if tf_rec_no ca 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-'.
    message 'Please enter the Valid Number' type 'E'.
  elseif tf_rec_no = 0 and tf_rec_no <> space.
    message 'Please enter the Number other than 0 (ZERO)' type 'I'.
  elseif tf_rec_no <> space.
    clear: git_kna1[], git_kna1.
    select * from kna1 up to tf_rec_no rows
      into corresponding fields of table git_kna1.
    if sy-subrc = 0.
      modify screen .
      call screen 2.
    endif.
  endif.
endmodule.                 " USER_COMMAND_0001  INPUT
*&      Module  exit_command  INPUT
*       text
module exit_command_0001 input.
  data: ok_bt1 type sy-ucomm.
*        ok_bt2 TYPE sy-ucomm.
  case ok_bt1.
    when 'BACK'.
      clear ok_bt1.
      leave to screen 0.
    when 'EXIT'.
      clear ok_bt1.
      leave program.
    when 'CANCEL'.
      clear ok_bt1.
      leave to transaction 'ZFSLSCB'.
  endcase.
endmodule.                 " exit_command  INPUT
*&      Module  STATUS_0002  OUTPUT
*       text
module status_0002 output.
  set pf-status 'ZFSL_KNA1_SCR_CLASS'.
*  SET TITLEBAR 'xxx'.
*clear: go_custom_container.
*  CALL METHOD go_grid->refresh_table_display.
  if go_custom_container is initial.
    create object go_custom_container
      exporting
        container_name = 'ALV_CONTAINER'.
    create object go_grid
      exporting
        i_parent = go_custom_container.
  endif.
  perform load_data_into_grid.
endmodule.                 " STATUS_0002  OUTPUT
*  MODULE exit_command_0002 INPUT
module exit_command_0002 input.
  data: ok_bt2 type sy-ucomm.
*        ok_bt2 TYPE sy-ucomm.
  case ok_bt2.
    when 'BACK'.
      clear ok_bt1.
      leave to screen 0.
    when 'EXIT'.
      clear ok_bt2.
      leave program.
    when 'CANCEL'.
      clear ok_bt2.
      leave to transaction 'ZFSLSCB'.
  endcase.
endmodule.                 " exit_command  INPUT
*&      Module  USER_COMMAND_0002  INPUT
*       text
module user_command_0002 input.
endmodule.                 " USER_COMMAND_0002  INPUT
*&      Form  load_data_into_grid
*       text
form load_data_into_grid.
*    SELECT * FROM kna1 UP TO tf_rec_no ROWS
*      INTO CORRESPONDING FIELDS OF TABLE git_kna1.
  call method go_grid->set_table_for_first_display
    exporting
      i_structure_name = 'KNA1'
    changing
      it_outtab        = git_kna1[].
endform.                    "load_data_into_grid
Please Reply if any Issue.
Kind Regards,
Faisal
Edited by: Faisal Altaf on Feb 17, 2009 7:28 PM