Add check box before each line

Hi KE,

My field cat looks like this. where do you want me to add check box.

and also how should I declare it in the internal table.

Thanks

Veni

form alv_build_fieldcat using lt_output l_repid.

call function 'REUSE_ALV_FIELDCATALOG_MERGE'

exporting

i_program_name = l_repid

i_internal_tabname = lt_output

i_inclname = l_repid

changing

ct_fieldcat = it_alv_field_cat[]

exceptions

inconsistent_interface = 1

program_error = 2

others = 3.

if sy-subrc <> 0. "something went wrong...

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

exit.

endif.

endform. " ALV_BUILD_FIELDCAT

Hi,

Data: it_alv_field_cat type slis_fieldcat_alv occurs 0 with header line,

I declared

CBOX AS CHECKBOX in it_output.

I am getting this error.

"Unable to interpret "AS". Possible causes of error: Incorrect spelling or comma error."

I am using FM only.

Thanks

Veni.

Hi Naren,

I declared CBOX in it_output.

I made the following changes, please look at it.

Thanks

Veni.

<u>This is my previous code.</u>

Data: it_alv_field_cat type slis_fieldcat_alv occurs 0 with header line,

form alv_build_fieldcat using lt_output l_repid.

call function 'REUSE_ALV_FIELDCATALOG_MERGE'

exporting

i_program_name = l_repid

i_internal_tabname = lt_output

i_inclname = l_repid

changing

ct_fieldcat = it_alv_field_cat[]

exceptions

inconsistent_interface = 1

program_error = 2

others = 3.

if sy-subrc <> 0. "something went wrong...

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

exit.

endif.

endform. " ALV_BUILD_FIELDCAT

<u>I changed it to,</u>

DATA: S_FIELDCATALOG type SLIS_T_FIELDCAT_ALV.

form alv_build_fieldcat using lt_output l_repid.

s_fieldcatalog-checkbox = 'X'.

call function 'REUSE_ALV_FIELDCATALOG_MERGE'

exporting

i_program_name = l_repid

i_internal_tabname = lt_output

i_inclname = l_repid

changing

ct_fieldcat = s_fieldcatalog[]

exceptions

inconsistent_interface = 1

program_error = 2

others = 3.

if sy-subrc <> 0. "something went wrong...

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

exit.

endif.

endform. " ALV_BUILD_FIELDCAT

Thank you Naren,

I tried it with the changes. It is now giving me the error saying '"S_FIELDCATALOG" is a table without a header line and therefore has no component called "BOX_FIELDNAME". '

it is comming at

s_fieldcatalog-checkbox = 'X'.

Thank you

Veni.

Hi Naren,

I declared the data stmt but did not add 'with header line'. Now I added no syntax errors, but in the out put I donot see any check box.

Please help me.

Thanks

Veni.

Hi Naren,

I checked the sample program. I did not see much difference. I just added s_fieldcatalog-edit = 'X'.

Then I ran the program, no luck, no check box in out put.

I am sending my program and include, can you please check it.

Thanks

Veni.

REPORT ZSDR_DELIBLOCK
       no standard page heading line-size 255.

*TYPE-POOLS: slis.
TABLES: LIKP, TVLS.

include zfri_alv_grid_db.

data: g_repid like sy-repid.

DATA: Begin of IT_LIKP occurs 0,
      VBELN like LIKP-VBELN,
      LFDAT like LIKP-LFDAT,
      KUNNR like LIKP-KUNNR,
      KNKLI LIKE LIKP-KNKLI,
      NETWR like LIKP-NETWR,
      End of IT_LIKP.

DATA: Begin of IT_OUTPUT occurs 0,
      CHECK TYPE CHAR1,
      VBELN like LIKP-VBELN,
      LFDAT like LIKP-LFDAT,
      KUNNR like LIKP-KUNNR,
      KNKLI LIKE LIKP-KNKLI,
      NETWR like LIKP-NETWR,
      End of IT_OUTPUT.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: S_LFDAT FOR LIKP-LFDAT,
                S_LIFSK FOR LIKP-LIFSK,
                S_KUNNR FOR LIKP-KUNNR.
PARAMETERS: P_LIFSK TYPE LIKP-LIFSK DEFAULT '01'.

SELECTION-SCREEN END OF BLOCK b1.

at selection-screen output.

  loop at screen.
    if screen-name = 'P_LIFSK'.
      screen-input = 0.
      modify screen.
    endif.
  endloop.

start-of-selection.
  PERFORM get_data.
  PERFORM PROCESS_data.
  perform sub_alv_routines.
  perform comment_build  using t_list_top_of_page[].
  g_repid = sy-repid.
  perform alv_build_fieldcat using 'IT_OUTPUT' g_repid.
  perform sub_call_alv_grid tables it_output.

FORM get_data.
  SELECT VBELN LFDAT KUNNR KNKLI NETWR
                FROM LIKP
                INTO TABLE IT_LIKP
                WHERE LFDAT IN S_LFDAT
                  AND LIFSK IN S_LIFSK
                  AND KUNNR IN S_KUNNR
                  AND LIFSK = P_LIFSK.
ENDFORM.                    " get_data

FORM process_data.

  loop at it_LIKP.
    if sy-subrc = 0.
      move-corresponding it_LIKP to it_output.
      append it_output.
      clear it_output.
    endif.
  endloop.

ENDFORM.                    " process_data


form top_of_page .
  call function 'REUSE_ALV_COMMENTARY_WRITE'
           exporting
             i_logo             = 'HTMLCNTL_TESTHTM2_SAPLOGO'
*              i_logo             = 'ENJOYSAP_LOGO'
                it_list_commentary = t_list_top_of_page.

endform.                    "top_of_page

form comment_build using lt_top_of_page type slis_t_listheader.
  data:
      ls_line type slis_listheader.
*  Company code
  clear ls_line.
  ls_line-typ  = 'S'.
  ls_line-key  = 'customer'.
  ls_line-info = s_kunnr.
  append ls_line to lt_top_of_page.
endform.                    " comment_build

-

data:
  g_variant              like  disvariant.          "variants

type-pools:  slis.                                "Global types

data: s_alv_layout_cat          type slis_layout_alv.
data: s_alv_print_cat           type slis_print_alv.

data: it_alv_field_cat type slis_fieldcat_alv occurs 0 with header line,
      S_FIELDCATALOG type slis_fieldcat_alv occurs 0 with header line,
      i_fieldcat type slis_fieldcat_alv occurs 0 with header line,
      w_fieldcat like line of i_fieldcat.        "ALV FieldCat WorkArea
* ALV sort catalog
data: it_alv_sort_cat type slis_sortinfo_alv occurs 0 with header line.
* ALV event catalog
data: it_alv_event_cat type slis_alv_event occurs 0 with header line.
data: t_list_top_of_page type slis_t_listheader.

form sub_alv_routines.
* Populate the layout catalog for alv
  perform alv_layout.
* Populate the event catalog for alv
  perform alv_events.
* Populate the print catalog for alv
  perform alv_print.
endform.                 "sub_alv_routines

form sub_call_alv_grid tables lt_output.

* Call ALV display
  call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = sy-cprog
            is_layout               = s_alv_layout_cat
            i_callback_user_command = 'USER_COMMAND'
            it_fieldcat             = it_alv_field_cat[]
*           it_sort                 = it_alv_sort_cat[]
            i_save                  = 'A'
            is_variant              = g_variant
            it_events               = it_alv_event_cat[]
            is_print                = s_alv_print_cat
            i_grid_title            = text-t01
       tables
            t_outtab                = lt_output
       exceptions
            program_error           = 1
            others                  = 2.


*  if sy-subrc <> 0.
*    message e048. "Error executing func. module REUSE_ALV_LIST_DISPLAY
*  endif.


endform.                    " sub_call_alv_grid

form alv_layout.

* Enable striped output display if user wants
  s_alv_layout_cat-zebra                = 'X'.
* Optimize column width if user wants
  s_alv_layout_cat-colwidth_optimize    = 'X'.
  s_alv_layout_cat-box_fieldname        = space.
  s_alv_layout_cat-no_input             = 'X'.
*  if p_lines = 'X'.
*    s_alv_layout_cat-no_vline           = ' '.
*  else.
*    s_alv_layout_cat-no_vline           = 'X'.
*  endif.
  s_alv_layout_cat-no_colhead           = ' '.
  s_alv_layout_cat-lights_condense      = 'X'.
  s_alv_layout_cat-info_fieldname       = 'ALV_COLOR'.
  s_alv_layout_cat-confirmation_prompt  = 'X'.
  s_alv_layout_cat-detail_popup         = 'X'.
  s_alv_layout_cat-detail_initial_lines = 'X'.

endform.                    " alv_layout

form alv_events.
* Declare event catalog for page headers
  clear it_alv_event_cat.
  it_alv_event_cat-name = 'TOP_OF_PAGE'.
  it_alv_event_cat-form = 'TOP_OF_PAGE'.
  append it_alv_event_cat.

* Declare event catalog for report footers
  clear it_alv_event_cat.
  it_alv_event_cat-name = 'END_OF_LIST'.
  it_alv_event_cat-form = 'END_OF_LIST'.
*  append it_alv_event_cat.


endform.                    " alv_events

form alv_print.
* Declare print catalog for statistics page
  s_alv_print_cat-no_print_listinfos = 'X'.

endform.                    " alv_print


form alv_build_fieldcat  using lt_output  l_repid.
* This function module will build the bulk of the field catalog,
* but apparently there is still need for some changes...
* cannot use sy-repid for i_program_name
* i_inclname must be hardcoded for this to work
* i_internal_tabname must be in capital letters

*DATA: S_FIELDCATALOG type SLIS_T_FIELDCAT_ALV occurs 0.

  call function 'REUSE_ALV_FIELDCATALOG_MERGE'
       exporting
          i_program_name         = l_repid
          i_internal_tabname     = lt_output
*         I_CLIENT_NEVER_DISPLAY = 'X'
          i_inclname             = l_repid
       changing
          ct_fieldcat            = it_alv_field_cat[]
      exceptions
           inconsistent_interface = 1
           program_error          = 2
           others                 = 3.

  if sy-subrc <> 0.                    "something went wrong...
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    exit.
  endif.

  s_fieldcatalog-checkbox = 'X'.
  s_fieldcatalog-edit = 'X'.

  MODIFY it_alv_field_cat from s_fieldcatalog
  transporting checkbox
  where fieldname = 'CHECK'.

endform.                    " ALV_BUILD_FIELDCAT

Thank you very much Naren.

I dont know how I ignored that. Now I have the check boxes in column1. But these are disabled. How can I make these enable, so that I can check the required deliveries for processing.

Thanks

Veni.