Calculation of revenue per employee

Question

hi gurus
I am facing a Porbrm in designing a report int hat report I have to calculate REVENUE PER EMPLOYEE.
the scenario is like this
I have a Project XFPB_BW  revenue for this project is known say 5000.00 INR
we have EMPLoyee they book TIme using timesheet and the cost rete is maintained in the time sheet.
say
      emp no    qty   cost
     1010         10     100
     1010          8      200
      1010          7      300
total                25      600
now I have to calculate rev per employee like this
rev/cost = (revenue/cost)*individual cost  = 8.33
rev / qty= (revenue/qty)*individual qty        = 200
<b>  project          employee    cost      qty     rev       rev/cost      rev/qty</b></b>
    XFPB_BW                          0          0       5000      0              0
                            1010           100      10      0         833                    2000 
                            1010           200      8        0        1666                   1600
                            1010           300      7        0         2499                    1400
total                                       600       25       5000   4998                    5000

Answer 1

I am writing this start routine for this
PROGRAM trans_routine.
      CLASS routine DEFINITION
CLASS lcl_transform DEFINITION.
  PUBLIC SECTION.
Attributs
    DATA:
      p_check_master_data_exist
            TYPE RSODSOCHECKONLY READ-ONLY,
*-    Instance for getting request runtime attributs;
    Available information: Refer to methods of
    interface 'if_rsbk_request_admintab_view'
      p_r_request
            TYPE REF TO if_rsbk_request_admintab_view READ-ONLY.
  PRIVATE SECTION.
    TYPE-POOLS: rsd, rstr.
  Rule specific types
    TYPES:
      BEGIN OF tys_SC_1,
     InfoObject: 0PROJECT Project Definition.
        PROJECT           TYPE /BI0/OIPROJECT,
     InfoObject: 0EMPLOYEE Employee.
        EMPLOYEE           TYPE /BI0/OIEMPLOYEE,
     InfoObject: 0FISCPER Fiscal year / period.
        FISCPER           TYPE /BI0/OIFISCPER,
     InfoObject: 0FISCVARNT Fiscal year variant.
        FISCVARNT           TYPE /BI0/OIFISCVARNT,
     InfoObject: 0CALDAY Calendar Day.
        CALDAY           TYPE /BI0/OICALDAY,
     InfoObject: 0VTYPE Value Type for Reporting.
        VTYPE           TYPE /BI0/OIVTYPE,
     InfoObject: 0CURTYPE Currency Type.
        CURTYPE           TYPE /BI0/OICURTYPE,
     InfoObject: 0AMOUNT Amount.
        AMOUNT           TYPE /BI0/OIAMOUNT,
     InfoObject: 0RECORDMODE BW Delta Process: Update Mode.
        RECORDMODE           TYPE RODMUPDMOD,
     InfoObject: 0CURRENCY Currency Key.
        CURRENCY           TYPE /BI0/OICURRENCY,
     InfoObject: ZMATERIAL Material (Role).
        /BIC/ZMATERIAL           TYPE /BIC/OIZMATERIAL,
     InfoObject: 0PRIORITY Priority.
        PRIORITY           TYPE /BI0/OIPRIORITY,
     InfoObject: 0CO_AREA Controlling area.
        CO_AREA           TYPE /BI0/OICO_AREA,
     InfoObject: 0WBS_ELEMT Work Breakdown Structure Element (WBS Elem
*ent).
        WBS_ELEMT           TYPE /BI0/OIWBS_ELEMT,
     InfoObject: 0UNIT Unit of Measure.
        UNIT           TYPE /BI0/OIUNIT,
     InfoObject: 0COSTELMNT Cost Element.
        COSTELMNT           TYPE /BI0/OICOSTELMNT,
     InfoObject: 0COMP_CODE Company code.
        COMP_CODE           TYPE /BI0/OICOMP_CODE,
     InfoObject: 0PROFIT_CTR Profit Center.
        PROFIT_CTR           TYPE /BI0/OIPROFIT_CTR,
     InfoObject: ZREV_CE1 revenue from cost element.
        /BIC/ZREV_CE1           TYPE /BIC/OIZREV_CE1,
     InfoObject: 0QUANTITY Quantity.
        QUANTITY           TYPE /BI0/OIQUANTITY,
     Field: RECORD.
        RECORD           TYPE RSARECORD,
      END   OF tys_SC_1.
    TYPES:
      tyt_SC_1        TYPE STANDARD TABLE OF tys_SC_1
                        WITH NON-UNIQUE DEFAULT KEY.
$$ begin of global - insert your declaration only below this line  -
... "insert your code here
TYPES: BEGIN OF tt_revfac,
          projdef     TYPE /bic/cs8zods_mpp-project,
          FISCPER     TYPE /bic/cs8zods_mpp-FISCPER,
          amt         TYPE /bic/cs8zods_mpp-amount,
          revenue     TYPE /bic/cs8zods_mpp-/BIC/ZREV_CE1,
          "Add by Jatin
END OF tt_revfac.
TYPES: BEGIN OF tt_qtyfac,
           projdef     TYPE /bic/cs8zods_mpp-project,
           FISCPER     TYPE /bic/cs8zods_mpp-FISCPER,
           qty         TYPE /bic/cs8zods_mpp-quantity,
           revenue     TYPE /bic/cs8zods_mpp-/BIC/ZREV_CE1,
           "Add by Jatin
  END OF tt_qtyfac.
DATA:   ...
*DATA: g_t_revfac  TYPE STANDARD TABLE OF tt_revfac.
*DATA: g_t_qtyfac  TYPE STANDARD TABLE OF tt_qtyfac.
DATA: g_t_revfac  TYPE SORTED TABLE OF tt_revfac WITH UNIQUE KEY projdef
fiscper.
DATA: g_t_qtyfac  TYPE SORTED TABLE OF tt_qtyfac WITH UNIQUE KEY projdef
fiscper.
$$ end of global - insert your declaration only before this line   -
    METHODS
      start_routine
        IMPORTING
          request                  type rsrequest
          datapackid               type rsdatapid
        EXPORTING
          monitor                  type rstr_ty_t_monitors
        CHANGING
          SOURCE_PACKAGE              type tyt_SC_1
        RAISING
          cx_rsrout_abort.
    METHODS
      inverse_start_routine
        IMPORTING
          i_th_fields_outbound         TYPE rstran_t_field_inv
          i_r_selset_outbound          TYPE REF TO cl_rsmds_set
          i_is_main_selection          TYPE rs_bool
          i_r_selset_outbound_complete TYPE REF TO cl_rsmds_set
          i_r_universe_inbound         TYPE REF TO cl_rsmds_universe
        CHANGING
          c_th_fields_inbound          TYPE rstran_t_field_inv
          c_r_selset_inbound           TYPE REF TO cl_rsmds_set
          c_exact                      TYPE rs_bool.
ENDCLASS.                    "routine DEFINITION
$$ begin of 2nd part global - insert your code only below this line  *
... "insert your code here
$$ end of 2nd part global - insert your code only before this line   *
      CLASS routine IMPLEMENTATION
CLASS lcl_transform IMPLEMENTATION.
      Method start_routine
      Calculation of source package via start routine
  <-> source package
  METHOD start_routine.
*=== Segments ===
    FIELD-SYMBOLS:
      <SOURCE_FIELDS>    TYPE tys_SC_1.
    DATA:
      MONITOR_REC     TYPE rstmonitor.
*$*$ begin of routine - insert your code only below this line        *-*
... "insert your code here
DATA: lwa_datapackage  LIKE LINE OF  SOURCE_PACKAGE,
        lwa_revfac      TYPE  tt_revfac,
        lwa_qtyfac      TYPE tt_qtyfac.
  LOOP AT SOURCE_PACKAGE INTO lwa_datapackage.
     lwa_revfac-projdef = lwa_datapackage-project.
     lwa_revfac-FISCPER = lwa_datapackage-FISCPER.         "Add by Jatin
     lwa_revfac-amt     = lwa_datapackage-amount.
     lwa_revfac-revenue = lwa_datapackage-/BIC/ZREV_CE1.
     COLLECT lwa_revfac INTO g_t_revfac.
     lwa_qtyfac-projdef = lwa_datapackage-project.
      lwa_qtyfac-FISCPER = lwa_datapackage-FISCPER.      "Add by Jatin
     lwa_qtyfac-qty = lwa_datapackage-quantity.
     lwa_qtyfac-revenue = lwa_datapackage-/BIC/ZREV_CE1.
     COLLECT lwa_qtyfac INTO g_t_qtyfac.
  ENDLOOP.
SORT g_t_revfac BY projdef.
SORT g_t_qtyfac BY projdef.
*--  fill table "MONITOR" with values of structure "MONITOR_REC"
*-   to make monitor entries
... "to cancel the update process
   raise exception type CX_RSROUT_ABORT.
$$ end of routine - insert your code only before this line         -
  ENDMETHOD.                    "start_routine
      Method inverse_start_routine
      This subroutine needs to be implemented only for direct access
      (for better performance) and for the Report/Report Interface
      (drill through).
      The inverse routine should transform a projection and
      a selection for the target to a projection and a selection
      for the source, respectively.
      If the implementation remains empty all fields are filled and
      all values are selected.
  METHOD inverse_start_routine.
$$ begin of inverse routine - insert your code only below this line-
... "insert your code here
$$ end of inverse routine - insert your code only before this line -
  ENDMETHOD.                    "inverse_start_routine
ENDCLASS.                    "routine IMPLEMENTATION
(REV by quantity)
      CLASS routine IMPLEMENTATION
CLASS lcl_transform IMPLEMENTATION.
  METHOD compute_ZRFEV_QTY.
  IMPORTING
    request     type rsrequest
    datapackid  type rsdatapid
    SOURCE_FIELDS-PROJECT TYPE /BI0/OIPROJECT
    SOURCE_FIELDS-EMPLOYEE TYPE /BI0/OIEMPLOYEE
    SOURCE_FIELDS-FISCPER TYPE /BI0/OIFISCPER
    SOURCE_FIELDS-CURRENCY TYPE /BI0/OICURRENCY
    SOURCE_FIELDS-UNIT TYPE /BI0/OIUNIT
    SOURCE_FIELDS-QUANTITY TYPE /BI0/OIQUANTITY
   EXPORTING
     RESULT type tys_TG_1-/BIC/ZRFEV_QTY
     CURRENCY type tys_TG_1-CURRENCY
    DATA:
      MONITOR_REC    TYPE rsmonitor.
*$*$ begin of routine - insert your code only below this line        *-*
... "insert your code here
DATA: lwa_qtyfac TYPE tt_qtyfac,
        l_avg  TYPE tt_qtyfac-qty.
  READ TABLE g_t_qtyfac INTO lwa_qtyfac
                        WITH KEY projdef = SOURCE_FIELDS-PROJECT
                                 FISCPER = SOURCE_FIELDS-FISCPER
                       BINARY SEARCH.
Collect entries for fical year
  IF sy-subrc = 0.
    IF lwa_qtyfac-qty <> 0.
      l_avg = lwa_qtyfac-revenue / lwa_qtyfac-qty.
    ELSE.
      l_avg = 0.
    ENDIF.
ENDIF.
*--  fill table "MONITOR" with values of structure "MONITOR_REC"
*-   to make monitor entries
... "to cancel the update process
   raise exception type CX_RSROUT_ABORT.
... "to skip a record
   raise exception type CX_RSROUT_SKIP_RECORD.
... "to clear target fields
   raise exception type CX_RSROUT_SKIP_VAL.
     RESULT = l_avg * SOURCE_FIELDS-quantity .
     CURRENCY = SOURCE_FIELDS-CURRENCY .
$$ end of routine - insert your code only before this line         -
  ENDMETHOD.                    "compute_ZRFEV_QTY
      Method invert_ZRFEV_QTY
      This subroutine needs to be implemented only for direct access
      (for better performance) and for the Report/Report Interface
      (drill through).
      The inverse routine should transform a projection and
      a selection for the target to a projection and a selection
      for the source, respectively.
      If the implementation remains empty all fields are filled and
      all values are selected.
  METHOD invert_ZRFEV_QTY.
$$ begin of inverse routine - insert your code only below this line-
... "insert your code here
$$ end of inverse routine - insert your code only before this line -
  ENDMETHOD.                    "invert_ZRFEV_QTY
ENDCLASS.                    "routine IMPLEMENTATION
the problem with this is that I can not filter at the Query levele NOw I want to know Can I write it at query level if possible how
Please help its urgent and challenging also.