ALV buttons

Question

Hi all
I need to add a button/icon at the end of each row of an ALV. When the user clicks on a button it will send a mail.
Can you help me? Specially on the first issue.
Many thanks.

Answer 1

hi check this code this is also works as same except the mail part,this will trigger a workflow log .plz go trought he code below and revert back to me for any clarifications.
*& Report yi_amra_yiamraber                                            *
report yi_amra_yiamraber no standard page heading.
tables: yiamra_ber,SWW_WI2OBJ.
include <icon>.
include <symbol>.
type-pools: slis.
class cl_gui_resources definition load.
constants: con_true     type char1 value 'X',
           con_on       type char1 value '1',
           con_off      type char1 value '0',
           con_exit like sy-ucomm value 'EXIT',
           con_back like sy-ucomm value 'BACK',
           con_canc like sy-ucomm value 'CANC'.
data: g_okcode                 type sy-ucomm,
      g_container_d0100        type ref to cl_gui_custom_container,
      g_container_name_d0100   type scrfname value 'D0100_CONTAINER',
      g_grid_d0100             type ref to cl_gui_alv_grid.
DATA: objkey LIKE sweinstcou-objkey.
DATA: ls_ibfobject TYPE  sibflporb.
data : v_WI_ID type SWW_WI2OBJ-WI_ID.
DATA BEGIN OF GT_yiamra_ber OCCURS 0 .
        INCLUDE STRUCTURE yiamra_ber .
DATA cellstyles TYPE lvc_t_styl.
DATA text(28) TYPE c.
DATA printer(10)   TYPE c.
DATA workflow(13)  TYPE c.
DATA END OF GT_yiamra_ber .
DATA  ls_style     TYPE lvc_s_styl.
DATA:  X_FIELDCAT  TYPE LVC_S_FCAT.
DATA:L_POS TYPE I VALUE 1.
data: gs_layout TYPE lvc_s_layo.
SELECT-OPTIONS LFDNR FOR yiamra_ber-LFDNR.
SELECT-OPTIONS POSNR FOR yiamra_ber-POSNR.
SELECT-OPTIONS UNAME FOR yiamra_ber-UNAME.
SELECT-OPTIONS ROLLE FOR yiamra_ber-ROLLE.
SELECT-OPTIONS PRCTR FOR yiamra_ber-PRCTR.
SELECT-OPTIONS PRCTRGRP FOR yiamra_ber-PRCTRGRP.
SELECT-OPTIONS KOSTL FOR yiamra_ber-KOSTL.
SELECT-OPTIONS KOSTLGRP FOR yiamra_ber-KOSTLGRP.
SELECT-OPTIONS ABREC FOR yiamra_ber-ABRECHNST.
SELECT-OPTIONS ANFORD FOR yiamra_ber-ANFORDERER.
SELECT-OPTIONS DATUMU FOR yiamra_ber-DATUMNEU.
SELECT-OPTIONS DATUMA FOR yiamra_ber-DATUMANF.
SELECT-OPTIONS STATUS FOR yiamra_ber-STATUS.
SELECT-OPTIONS DATUM FOR yiamra_ber-DATUMADM.
SELECT-OPTIONS DATUMB FOR yiamra_ber-DATUMBEG.
SELECT-OPTIONS DATUME FOR yiamra_ber-DATUMEND.
class Definition.
CLASS lcl_event_handler DEFINITION .
  PUBLIC SECTION .
    METHODS:
*To control button clicks
    handle_button_click
    FOR EVENT button_click OF cl_gui_alv_grid
    IMPORTING es_col_id
              es_row_no.
*PRIVATE SECTION.
   METHODS:
     perform_copy_checks
        IMPORTING
           er_data_changed TYPE REF TO cl_alv_changed_data_protocol.
ENDCLASS.                    "lcl_event_handler DEFINITION
*&       Class (Implementation)  lcl_event_handler
       Text
CLASS lcl_event_handler IMPLEMENTATION.
METHOD handle_button_click .
    PERFORM handle_button_click USING es_col_id
                                      es_row_no.
  ENDMETHOD.
ENDCLASS.               "lcl_event_handler
Display Data
start-of-selection.
end-of-selection.
call screen 0100.
*&      Module  d0100_set_status  OUTPUT
      text
module d0100_set_status output.
  perform d0100_set_status.
endmodule.                             " d0100_set_status  OUTPUT
*&      Module  d0100_prepare_container  OUTPUT
      text
module d0100_prepare_container output.
  perform d0100_prepare_container.
endmodule.                             " d0100_prepare_container  OUTPUT
*&      Module  d0100_exit  INPUT
      text
module d0100_exit input.
  perform d0100_exit changing g_okcode.
endmodule.                             " d0100_exit  INPUT
*&      Module  d0100_fcode  INPUT
      text
module d0100_fcode input.
  perform d0100_fcode changing g_okcode.
endmodule.                             " d0100_fcode  INPUT
*&      Form  d0100_set_status
      text
form d0100_set_status.
  set pf-status 'D0100' .
  set titlebar 'D0100'.
  SELECT * FROM yiamra_ber
  INTO corresponding fields of TABLE GT_yiamra_ber
  WHERE  LFDNR IN LFDNR
  AND POSNR   IN POSNR
  AND UNAME  IN UNAME
  AND ROLLE In ROLLE
  AND PRCTR IN PRCTR
  AND PRCTRGRP IN PRCTRGRP
  AND KOSTL IN KOSTL
  AND KOSTLGRP IN KOSTLGRP
  AND ABRECHNST  IN ABREC
  AND  ANFORDERER IN  ANFORD
  AND   DATUMNEU  IN DATUMU
  AND  DATUMANF IN  DATUMA
  AND  STATUS IN  STATUS
  AND   DATUMADM IN DATUM
  AND   DATUMBEG IN  DATUMB
  AND   DATUMEND IN  DATUME.
  loop at gt_yiamra_ber.
  CONCATENATE GT_yiamra_ber-lfdnr GT_yiamra_ber-posnr INTO objkey.
        ls_ibfobject-catid = 'BO'.
        ls_ibfobject-typeid = 'YIAMRAROLL'.
        ls_ibfobject-instid = objkey.
clear v_WI_ID.
select single WI_ID from SWW_WI2OBJ into v_WI_ID where INSTID = objkey.
       IF sy-subrc = 0.
    ls_style-fieldname = 'WORKFLOW'.
    ls_style-style = cl_gui_alv_grid=>mc_style_button.
    INSERT ls_style INTO TABLE GT_yiamra_ber-cellstyles.
GT_yiamra_ber-anfordern = icon_workflow_event_producer.
GT_yiamra_ber-printer = icon_print.
    GT_yiamra_ber-workflow = ICON_HISTORY.
    endif.
     ls_style-fieldname = 'TEXT' .
    ls_style-style = cl_gui_alv_grid=>mc_style_button .
    INSERT ls_style INTO TABLE gt_yiamra_ber-cellstyles.
    GT_yiamra_ber-text = ICON_DISPLAY_TEXT.
    MODIFY GT_yiamra_ber
      INDEX sy-tabix
      TRANSPORTING cellstyles Text workflow.
endloop.
endform.                               " d0100_set_status
*&      Form  d0100_prepare_container
      text
form d0100_prepare_container.
  data: ls_vari type disvariant,
        lt_fcat type lvc_t_fcat.
  DATA gr_event_handler TYPE REF TO lcl_event_handler .
DATA IT_UI_FUNCTIONS TYPE UI_FUNCTIONS.
APPEND '&DETAIL' TO IT_UI_FUNCTIONS.
  if g_container_d0100 is initial.
    create object g_container_d0100
                  exporting container_name = g_container_name_d0100.
    create object g_grid_d0100
                  exporting i_parent = g_container_d0100.
    CREATE OBJECT gr_event_handler .
    SET HANDLER gr_event_handler->handle_button_click FOR g_grid_d0100 .
    perform d0100_set_grid_vari changing ls_vari.
    perform d0100_set_grid_fcat changing lt_fcat.
   perform d0100_set_grid_fcat1 changing lt_fcat.
  call method g_grid_d0100->INIT_TOOLBAR
    EXPORTING
      IT_TOOLBAR_EXCLUDING = IT_UI_FUNCTIONS.
    call method g_grid_d0100->set_table_for_first_display
      EXPORTING
        is_layout       = gs_layout
        IT_TOOLBAR_EXCLUDING = IT_UI_FUNCTIONS
      CHANGING
        it_outtab       = gt_yiamra_ber[]
        it_fieldcatalog = lt_fcat.
    call method cl_gui_control=>set_focus
      EXPORTING
        control = g_grid_d0100.
  endif.
endform.                               " d0100_prepare_container
*&      Form  d0100_exit
      text
form d0100_exit changing c_okcode type sy-ucomm.
  data: l_okcode like sy-ucomm.
  l_okcode = c_okcode.
  clear c_okcode.
  case l_okcode.
    when con_exit or con_back or con_canc.
      call method g_grid_d0100->free.
      call method g_container_d0100->free.
      call method cl_gui_cfw=>flush.
      clear g_container_d0100.
      clear g_grid_d0100.
      set screen 0.
      leave screen.
  endcase.
endform.                               " d0100_exit
*&      Form  d0100_fcode
      text
form d0100_fcode changing c_okcode type sy-ucomm.
  data: l_okcode like sy-ucomm.
  l_okcode = c_okcode.
  clear c_okcode.
  call method cl_gui_cfw=>dispatch.
  case l_okcode.
    when con_exit or con_back or con_canc.
      call method g_container_d0100->free.
      call method cl_gui_cfw=>flush.
      clear g_container_d0100.
      clear g_grid_d0100.
      set screen 0.
      leave screen.
  endcase.
endform.                               " d0100_fcode
*&      Form  d0100_set_grid_fcat
      text
form d0100_set_grid_fcat changing ct_fcat type lvc_t_fcat.
  data: ls_fcat type lvc_s_fcat.
  gs_layout-stylefname = 'CELLSTYLES'.
*+++ STEP 1: retrieve the fieldcatalog
call function 'LVC_FIELDCATALOG_MERGE'
   EXPORTING
     i_structure_name       = 'YIAMRA_BER'
   CHANGING
     ct_fieldcat            = ct_fcat[]
   EXCEPTIONS
     inconsistent_interface = 1
     program_error          = 2
     others                 = 3.
if sy-subrc eq 0.
*+++ STEP 2: modify the fieldcatalog.
   loop at ct_fcat into ls_fcat.
  clear ls_fcat.
  ls_fcat-fieldname = 'LFDNR' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'LFDNR' .
  APPEND LS_FCAT TO CT_FCAT.
clear ls_fcat.
  ls_fcat-fieldname = 'POSNR' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'POSNR' .
  APPEND LS_FCAT TO CT_FCAT.
   clear ls_fcat.
  ls_fcat-fieldname = 'UNAME' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'UNAME' .
  APPEND LS_FCAT TO CT_FCAT.
    clear ls_fcat.
  ls_fcat-fieldname = 'ROLLE' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'ROLLE' .
  APPEND LS_FCAT TO CT_FCAT.
      clear ls_fcat.
  ls_fcat-fieldname = 'PRCTR' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'PRCTR' .
  APPEND LS_FCAT TO CT_FCAT.
        clear ls_fcat.
  ls_fcat-fieldname = 'PRCTRGRP' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'PRCTRGRP' .
  APPEND LS_FCAT TO CT_FCAT.
          clear ls_fcat.
  ls_fcat-fieldname = 'KOSTL' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'KOSTL' .
  APPEND LS_FCAT TO CT_FCAT.
            clear ls_fcat.
  ls_fcat-fieldname = 'KOSTLGRP' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'KOSTLGRP' .
  APPEND LS_FCAT TO CT_FCAT.
          clear ls_fcat.
  ls_fcat-fieldname = 'ABRECHNST' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'ABRECHNST' .
  APPEND LS_FCAT TO CT_FCAT.
          clear ls_fcat.
  ls_fcat-fieldname = 'ANFORDERER' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'ANFORDERER' .
  APPEND LS_FCAT TO CT_FCAT.
          clear ls_fcat.
  ls_fcat-fieldname = 'DATUMNEU' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'DATUMNEU' .
  APPEND LS_FCAT TO CT_FCAT.
          clear ls_fcat.
  ls_fcat-fieldname = 'DATUMANF' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'DATUMANF' .
  APPEND LS_FCAT TO CT_FCAT.
          clear ls_fcat.
  ls_fcat-fieldname = 'STATUS' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'STATUS' .
  APPEND LS_FCAT TO CT_FCAT.
          clear ls_fcat.
  ls_fcat-fieldname = 'DATUMADM' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'DATUMADM' .
  APPEND LS_FCAT TO CT_FCAT.
          clear ls_fcat.
  ls_fcat-fieldname = 'DATUMBEG' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'DATUMBEG' .
  APPEND LS_FCAT TO CT_FCAT.
            clear ls_fcat.
  ls_fcat-fieldname = 'DATUMEND' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'DATUMEND' .
  APPEND LS_FCAT TO CT_FCAT.
  clear ls_fcat.
  ls_fcat-fieldname = 'WORKFLOW' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'WORKFLOW'.
  ls_fcat-icon = 'X'.
  APPEND LS_FCAT TO CT_FCAT.
    clear ls_fcat.
  ls_fcat-fieldname = 'TEXT' .
  ls_fcat-outputlen = '10' .
  ls_fcat-coltext = 'TEXT' .
  ls_fcat-icon = 'X'.
  APPEND LS_FCAT TO CT_FCAT.
     modify ct_fcat from ls_fcat.
   endloop.
endif.
endform.                               " d0100_set_grid_fcat
*&      Form  d0100_set_grid_vari
      text
form d0100_set_grid_vari changing cs_vari type disvariant.
*+++ allow layout maintenance
*+++ note report is compelling
cs_vari-report      = .
cs_vari-handle      = .
cs_vari-log_group   = .
cs_vari-username    = .
cs_vari-variant     = .
cs_vari-text        = .
cs_vari-dependvars  = .
endform.                               " d0100_set_grid_vari
*&      Form  handle_button_click
      text
     -->P_ES_COL_ID  text
     -->P_ES_ROW_NO  text
FORM handle_button_click  USING    P_ES_COL_ID TYPE lvc_s_col
                                   P_ES_ROW_NO TYPE lvc_s_roid.
DATA: objkey LIKE sweinstcou-objkey.
  DATA: ls_ibfobject TYPE  sibflporb.
  DATA:  BEGIN OF ls_output OCCURS 0 .
        INCLUDE STRUCTURE yiamra_ber .
DATA cellstyles TYPE lvc_t_styl.
DATA text(28) TYPE c.
DATA printer(10)   TYPE c.
DATA workflow(13)  TYPE c.
DATA END OF ls_output.
  READ TABLE GT_yiamra_ber INDEX p_es_row_no-row_id INTO ls_output.
  IF sy-subrc <> 0.
    RETURN.
  ENDIF.
  case  P_ES_COL_ID-fieldname.
    when 'TEXT'.
      IF GT_yiamra_ber-rolle IS NOT INITIAL.
        CALL FUNCTION 'Y_I_AMRA_ROLLE_TEXT'
          EXPORTING
            i_rolle = GT_yiamra_ber-rolle.
      endif.
    when 'WORKFLOW'.
      clear: objkey.
      IF sy-subrc = 0 AND p_es_col_id-fieldname = 'WORKFLOW'.
        CONCATENATE ls_output-lfdnr ls_output-posnr INTO objkey.
        ls_ibfobject-catid = 'BO'.
        ls_ibfobject-typeid = 'YIAMRAROLL'.
        ls_ibfobject-instid = objkey.
        CALL FUNCTION 'SWI_WF_CONNECTIONS_DISPLAY'
          EXPORTING
            ibf_object         = ls_ibfobject
          EXCEPTIONS
            not_found          = 1
            no_authority       = 2
            no_workflows_found = 3
            OTHERS             = 4.
        IF sy-subrc <> 0.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        ENDIF.
      endif.
  endcase.
ENDFORM.                    " handle_button_click