ALV display custom columns

Question

Hello experts,
I am currently working on the report to display ACQUISITION PRICE and RENEWAL PRICE of some equipments. The renewal price will be calculated according to CPI, the CPI value should be entered by user. Based on this CPI the report should display renewal price of the equipments in Specific Column. I don't understand how to get Custom Column and how to display values in it. The formula for the renewal price will be
                              New Price = Acquisition Price + (Acquisition Price * (CPI/100))
I have defined the column with Data Type I. But i dont know weather it is correct or not. If anybody have any idea regarding this issue please share it with me.
Thanks,
Avadhut

Answer 1

I have created own report its TYPE 1. I have used ALV in it. I am able to display all the other values but RENEWAL PRICE. There is CHECKBOX on selection screen, when selected report should display renewal prices automatically according to CPI. But i dont understand how to display it in custom column. The code is as below.
*& Report  ZIE_EQUIP_RENEWAL_COST
REPORT  zie_equip_renewal_cost.
types: begin of g_outtab,
         EQUNR TYPE EQUNR,
         EQKTX TYPE KTX01,
         ANSDT TYPE ANSDT,
         ANSWT TYPE ANSWT,
         INVNR TYPE INVNR,
       end of g_outtab.
TABLES: v_equi,                     "Equipments
        equi,                       "Equipment Master
        eqkt.                       "Equipment Text
TYPE-pools: slis.
DATA:
       alv_container   TYPE REF TO cl_gui_custom_container,
       alv_grid        TYPE REF TO cl_gui_alv_grid,
*       event_receiver  TYPE REF TO lcl_event_receiver,
       str_outtab      TYPE g_outtab,
       gr_table   type ref to cl_salv_table.
DATA: it_data TYPE TABLE OF v_equi,
      it_equi TYPE STANDARD TABLE OF equi,
      it_eqkt TYPE STANDARD TABLE OF eqkt,
      str_data TYPE v_equi.
DATA: ok_code LIKE sy-ucomm,
      save_ok LIKE ok_code.
**              Selection Screen                                      **
SELECTION-SCREEN BEGIN OF BLOCK rammi WITH FRAME TITLE text-010.
SELECT-OPTIONS:
  s_equnr  FOR equi-equnr,                                   "Equipment Number
  s_eqtyp  FOR equi-eqtyp,                                   "Equipment Type
  s_invnr  FOR equi-invnr,                                   "Inventory Number
  s_ansdt  FOR equi-ansdt,                                   "Acquisition date
  s_answt  FOR equi-answt.                                   "Acquisition Value
*PARAMETERS: p_waers TYPE v_equi-waers DEFAULT 'ISK',         "Currency Key
PARAMETERS: p_cpi   TYPE i,
            p_test AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK rammi.
**              Start of Selection                                    **
START-OF-SELECTION.
  CLEAR: it_data, it_equi, it_eqkt.
  PERFORM read_data.
  CALL SCREEN 100.
*&      Form  read_data
FORM read_data.
  SELECT a~equnr b~eqktx a~ansdt a~answt
    FROM equi AS a
    INNER JOIN eqkt AS b ON a~mandt = b~mandt
    AND a~equnr = b~equnr
*    AND spras = sy-langu
  INTO CORRESPONDING FIELDS OF TABLE it_data
    WHERE a~equnr   IN s_equnr
      AND a~eqtyp   IN s_eqtyp
      AND a~ansdt   IN s_ansdt
      AND a~answt   IN s_answt.
ENDFORM.                    " read_data
INCLUDE zie_equip_renewal_cost_stato01.
INCLUDE ZIE_EQUIP_RENEWAL_COST_USERI01.
*&      Form  set_columns_technical
*       text
form set_columns_technical using ir_columns type ref to cl_salv_columns.
    data: lr_column1 type ref to cl_salv_column_table,
          lr_column type ref to cl_salv_column.
  try.
      lr_column1 ?= ir_columns->get_column( 'EQUI-EQUNR' ).
      lr_column1->set_F4( if_salv_c_bool_sap=>FALSE ).
    catch cx_salv_not_found.                            "#EC NO_HANDLER
  endtry.
  try.
      lr_column = ir_columns->get_column( 'EQKT-eqktx' ).
      lr_column->set_technical( if_salv_c_bool_sap=>true ).
    catch cx_salv_not_found.                            "#EC NO_HANDLER
  endtry.
  try.
      lr_column = ir_columns->get_column( 'EQUI-ansdt' ).
      lr_column->set_technical( if_salv_c_bool_sap=>true ).
    catch cx_salv_not_found.                            "#EC NO_HANDLER
  endtry.
  try.
      lr_column = ir_columns->get_column( 'EQUI-answt' ).
      lr_column->set_technical( if_salv_c_bool_sap=>true ).
    catch cx_salv_not_found.                            "#EC NO_HANDLER
  endtry.
endform.                    " set_columns_technical(