ALV and checkbox display

Question

hi all, i have a few problems here.
Firstly, i need to display records in an ALV from an internal table.
Secondly, i need to include checkboxes beside each and every records for the user to choose which records he wants to see.
Thirdly, after the user has checked the fieldss that he wants, i need to display the details of all the records based on the ticked checkboxes in another screen.
please help me if anyone knows.
thx!

Answer 1

Hi Meei,
Thats very simple ....
1 . In the internal table where you are displaying declare some thing like below.
Data : begin of i_department occurs 0,
         vbeln  like ztmsh-vbeln,   "Sales and Distribution Docu No
         deprt  like ztmsh-deprt,   "Department
         meala  like ztmsd-meala,   "Meal Allowance
         sitea  like ztmsd-sitea,   "Site Allowance($)
         CHECKBOX(1) TYPE C,declare some thing here for creating check box
       end of i_department.
2. Build a field catlog for the check box something like below..
i_temp-fieldname = 'CHECKBOX'.
  i_temp-tabname = 'I_DEPARTMENT'.
  i_temp-col_pos = 1.
  i_temp-CHECKBOX = 'X'.
  i_temp-outputlen = 4.
  i_temp-seltext_l = 'Flag'.
  i_temp-input = 'X'.
  APPEND i_temp TO i_DEPART.
  CLEAR i_temp.
3. Now u can see the checkbox in the output once you select it will automatically flag in your internal table.and using the USer-command u can play around.
              I have pasted a entire coding here pls check the flow.
REPORT  Z_TIME_SHEET_REPT.
TABLES
Tables : ztmsh, "Time Sheet Header
         ztmsd, "Time Sheet Data
         zempy. "Employee
Data Definations
Internal Table for Employee input data
Data : begin of i_employee occurs 0,
         vbeln  like ztmsh-vbeln,   "Sales and Distribution Document Number
         deprt  like ztmsh-deprt,   "Department
         tmsdt  like ztmsh-tmsdt,   "Date
         jbcpl  like ztmsh-jbcpl,   "Job Complete
         empid  like zempy-empid,   "Employee ID
         empnam(50) type c ,        "Employee Name
         nmltm  like ztmsd-nmltm,   "Normal Time
         ovrtm  like ztmsd-ovrtm,   "Over Time
         meala  like ztmsd-meala,   "Meal Allowance
         sitea  like ztmsd-sitea,   "Site Allowance($)
       end of i_employee.
Internal Table For Department Input Data
Data : begin of i_department occurs 0,
         vbeln  like ztmsh-vbeln,   "Sales and Distribution Document Number
         deprt  like ztmsh-deprt,   "Department
         tmsdt  like ztmsh-tmsdt,   "Date
         jbcpl  like ztmsh-jbcpl,   "Job Complete
         nmltm  like ztmsd-nmltm,   "Normal Time
         ovrtm  like ztmsd-ovrtm,   "Over Time
         hlftm  like ztmsd-hlftm,                           "1.5 Time
         dbltm  like ztmsd-dbltm,   "Double Time
         meala  like ztmsd-meala,   "Meal Allowance
         sitea  like ztmsd-sitea,   "Site Allowance($)
         CHECKBOX(1) TYPE C,
       end of i_department.
Temp Internal tablee for holding department values
Data : begin of i_t_dept occurs 0,
        vbeln  like ztmsh-vbeln,   "Sales and Distribution Document Number
        deprt  like ztmsh-deprt,   "Department
        tmsdt  like ztmsh-tmsdt,   "Date
        jbcpl  like ztmsh-jbcpl,   "Job Complete
        nmltm  like ztmsd-nmltm,   "Normal Time
        ovrtm  like ztmsd-ovrtm,   "Over Time
      end of i_t_dept.
internal table for detailed data
data : begin of i_detail occurs 0 ,
         vbeln  like ztmsh-vbeln,   "Sales and Distribution Document Number
         deprt  like ztmsh-deprt,   "Department
         tmsdt  like ztmsh-tmsdt,   "Date
         jbcpl  like ztmsh-jbcpl,   "Job Complete
         nmltm  like ztmsd-nmltm,   "Normal Time
         ovrtm  like ztmsd-ovrtm,   "Over Time
         cadsv  like ztmsh-cadsv,   "CAD Services
         stsvy  like ztmsh-stsvy,   "SiteSurvey
         cstdw  like ztmsh-cstdw,   "Construction Drawing
         sppln  like ztmsh-sppln,   "Space Planning
         dsndw  like ztmsh-dsndw,   "Design Drawings
         drw3d  like ztmsh-drw3d,   "3D Drawings
         dwplt  like ztmsh-dwplt,   "Drawing Plots
         otamt  like ztmsh-otamt,   "Others
         inact  like ztmsh-inact,   "In store Activity type
         ictnq  like ztmsh-ictnq,   "In store Activity Quantity
         inctn  like ztmsh-inctn,   "In store Activity Loading
         mitim  like ztmsh-mitim,   "Movement Volume in Type
         mivlm  like ztmsh-mivlm,   "Movement Volume in Loading
         motim  like ztmsh-motim,   "Movement Volume Out Type
         movlm  like ztmsh-movlm,   "Movement Volume Out Loading
         outtm  like ztmsh-outtm,   "Out of Store Activity Type
         outact like ztmsh-outact,  "Out of Store Activity Loading
         frklft like ztmsh-frklft,  "Forklift
         strpt  like ztmsh-strpt,   "Storage Protection
         rbbsh  like ztmsh-rbbsh,   "Rubbish
         crtes  like ztmsh-crtes,   "Crates
         vhlhr  like ztmsh-vhlhr,   "Vechile
         toll   like ztmsh-toll,    "Toll
         park   like ztmsh-park,    "Parking
         hrdwr  like ztmsh-hrdwr,   "Hardware
         trlly  like ztmsh-trlly,   "# of Trollys
         dolly  like ztmsh-dolly,   "# of Dollies
         oepno  like ztmsh-oepno,   "# of Other Equipment
         oteqp  like ztmsh-oteqp,   "Other Eqipment
       end of i_detail.
ALV Field Catlog declaration
TYPE-POOLS : slis.
data : i_depart TYPE slis_t_fieldcat_alv,
       i_emp TYPE slis_t_fieldcat_alv,
       i_design TYPE slis_t_fieldcat_alv,
       i_warehouse TYPE slis_t_fieldcat_alv,
       i_transport TYPE slis_t_fieldcat_alv,
       i_install TYPE slis_t_fieldcat_alv,
       i_temp TYPE slis_fieldcat_alv,
       l_layout TYPE slis_layout_alv.
Events
DATA: v_events TYPE slis_t_event,
      wa_event TYPE slis_alv_event.
Tempary Variables
data: wa_nmltm type p decimals 2,
      wa_ovrtm type p decimals 2,
      wa_meala type p decimals 2,
      wa_sitea type p decimals 2,
      wa_HLFTM type p decimals 2,
      wa_DBLTM type p decimals 2,
      w_nmltm(5) type c,
      w_ovrtm(5) type c,
      w_meala(5) type c,
      w_sitea(5) type c,
      wa_first(25) type c,
      wa_last(25)  type c.
data : repid type sy-repid.
Selection Screen
*Select options
selection-screen begin of block blk1.
select-options :  s_vbeln for ztmsh-vbeln,
                  s_tmsdt for ztmsh-tmsdt.
selection-screen end of block blk1.
Radio Buttons
selection-screen begin of block blk2 WITH FRAME TITLE TLT1.
Parameters: dept radiobutton GROUP SX,
  emp radiobutton GROUP SX.
selection-screen end of block blk2.
Intialization
INITIALIZATION.
  TLT1 = 'Time Sheet Summary Report'.
  repid = sy-repid.
  s_tmsdt-low = sy-datum.
  s_tmsdt-high = sy-datum.
  append s_tmsdt.
START-OF-SELECTION.
START-OF-SELECTION.
  if dept = 'X'.
    perform 100_time_sheet.
    perform 200_build_field_catlog.
    perform 400_ALV_Display.
  elseif emp = 'X'.
    perform 100_time_sheet.
    perform 500_build_field_catlog.
    Perform 600_ALV_display.
  endif.
*&      Form  100_time_sheet
     text
FORM 100_time_sheet.
  select * from ztmsh
       where vbeln in s_vbeln
         and tmsdt in s_tmsdt.
    if ztmsh-vbeln ne space.
      perform empl_calcuation .
      if emp = 'X'.
        clear i_employee.
      elseif dept = 'X'.
        clear i_department.
      endif.
    ENDIF.
  endselect.
ENDFORM.                    " 100_time_sheet
*&      Form  200_build_field_catlog
     Department Wise Summary Report
FORM 200_build_field_catlog .
  refresh i_depart.
  i_temp-fieldname = 'CHECKBOX'.
  i_temp-tabname = 'I_DEPARTMENT'.
  i_temp-col_pos = 1.
i_temp-fix_column = 'X'.
  i_temp-CHECKBOX = 'X'.
  i_temp-outputlen = 4.
  i_temp-seltext_l = 'Flag'.
  i_temp-input = 'X'.
  APPEND i_temp TO i_DEPART.
  CLEAR i_temp.
i_temp-ref_fieldname = 'VBELN'.
i_temp-ref_tabname = 'ZTMSH'.
  i_temp-fieldname = 'VBELN'.
  i_temp-tabname = 'I_DEPARTMENT'.
  i_temp-seltext_l = 'Work Order No'.
  i_temp-col_pos = 2.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_DEPART.
  CLEAR i_temp.
i_temp-ref_fieldname = 'DEPRT'.
i_temp-ref_tabname = 'ZTMSH'.
  i_temp-fieldname = 'DEPRT'.
  i_temp-tabname = 'I_DEPARTMENT'.
  i_temp-seltext_l = 'Department'.
  i_temp-col_pos = 3.
  i_temp-outputlen = 15.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_DEPART.
  CLEAR i_temp.
i_temp-ref_fieldname = 'TMSDT'.
i_temp-ref_tabname = 'ZTMSH'.
  i_temp-fieldname = 'TMSDT'.
  i_temp-tabname = 'I_DEPARTMENT'.
  i_temp-seltext_l = 'Time Sheet Date'.
  i_temp-col_pos = 4.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_DEPART.
  CLEAR i_temp.
i_temp-ref_fieldname = 'JBCPL'.
i_temp-ref_tabname = 'ZTMSH'.
  i_temp-fieldname = 'JBCPL'.
  i_temp-tabname = 'I_DEPARTMENT'.
  i_temp-seltext_l = 'Time Sheet Status'.
  i_temp-col_pos = 5.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_DEPART.
  CLEAR i_temp.
i_temp-ref_fieldname = 'NMLTM'.
i_temp-ref_tabname = 'ZTMSD'.
  i_temp-fieldname = 'NMLTM'.
  i_temp-tabname = 'I_DEPARTMENT'.
  i_temp-seltext_l = 'Total NH'.
  i_temp-col_pos = 6.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_DEPART.
  CLEAR i_temp.
i_temp-ref_fieldname = 'OVRTM'.
i_temp-ref_tabname = 'ZTMSD'.
  i_temp-fieldname = 'OVRTM'.
  i_temp-tabname = 'I_DEPARTMENT'.
  i_temp-seltext_l = 'Total AH'.
  i_temp-col_pos = 7.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_DEPART.
  CLEAR i_temp.
i_temp-ref_fieldname = 'HLFTM'.
i_temp-ref_tabname = 'ZTMSD'.
  i_temp-fieldname = 'HLFTM'.
  i_temp-tabname = 'I_DEPARTMENT'.
  i_temp-seltext_l = 'Total 1.5 Time'.
  i_temp-col_pos = 8.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_DEPART.
  CLEAR i_temp.
i_temp-ref_fieldname = 'DBLTM'.
i_temp-ref_tabname = 'ZTMSD'.
  i_temp-fieldname = 'DBLTM'.
  i_temp-tabname = 'I_DEPARTMENT'.
  i_temp-seltext_l = 'Total 2.0 Time'.
  i_temp-col_pos = 9.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_DEPART.
  CLEAR i_temp.
i_temp-ref_fieldname = 'MEALA'.
i_temp-ref_tabname = 'ZTMSD'.
  i_temp-fieldname = 'MEALA'.
  i_temp-tabname = 'I_DEPARTMENT'.
  i_temp-seltext_l = 'Tot Meal Allowence'.
  i_temp-col_pos = 10.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_DEPART.
  CLEAR i_temp.
i_temp-ref_fieldname = 'SITEA'.
i_temp-ref_tabname = 'ZTMSD'.
  i_temp-fieldname = 'SITEA'.
  i_temp-tabname = 'I_DEPARTMENT'.
  i_temp-seltext_l = 'Tot Site Allowence($)'.
  i_temp-col_pos = 11.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_DEPART.
  CLEAR i_temp.
ENDFORM.                    " 200_build_field_catlog
*&      Form  300_populate_events
      Top Of Page Events for Warehouse Report
FORM 300_populate_events .
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = v_events.
  READ TABLE v_events
          INTO wa_event
          WITH KEY name = 'TOP_OF_PAGE'.
  IF sy-subrc EQ 0.
    wa_event-form = 'TOP_OF_PAGE'.
    MODIFY v_events
    FROM wa_event TRANSPORTING form
          WHERE name = wa_event-form.
  endif.
ENDFORM.                    " 300_populate_events
*&      Form  400_ALV_Display
      Department ALV Display
FORM 400_ALV_Display .
  sort i_department by vbeln deprt tmsdt.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
     I_CALLBACK_PROGRAM             = repid
     I_CALLBACK_PF_STATUS_SET       = 'PO_STATUS '
     I_CALLBACK_USER_COMMAND        = 'USER_COMMAND'
     I_STRUCTURE_NAME               = 'i_department'
     IS_LAYOUT                      = l_layout
     IT_FIELDCAT                    = i_depart
    IT_EVENTS                      = v_events
    TABLES
      T_OUTTAB                       = i_department
   EXCEPTIONS
     PROGRAM_ERROR                  = 1
     OTHERS                         = 2
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " 400_ALV_Display
*&      Form  500_build_field_catlog
      Employee wise Summary Report
FORM 500_build_field_catlog .
  refresh i_depart.
i_temp-ref_fieldname = 'VBELN'.
i_temp-ref_tabname = 'ZTMSH'.
  i_temp-fieldname = 'VBELN'.
  i_temp-tabname = 'I_EMPLOYEE'.
  i_temp-seltext_l = 'Work Order No'.
  i_temp-col_pos = 1.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_emp.
  CLEAR i_temp.
i_temp-ref_fieldname = 'DEPRT'.
i_temp-ref_tabname = 'ZTMSH'.
  i_temp-fieldname = 'DEPRT'.
  i_temp-tabname = 'I_EMPLOYEE'.
  i_temp-seltext_l = 'Department'.
  i_temp-col_pos = 2.
  i_temp-outputlen = 15.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_emp.
  CLEAR i_temp.
i_temp-ref_fieldname = 'TMSDT'.
i_temp-ref_tabname = 'ZTMSH'.
  i_temp-fieldname = 'TMSDT'.
  i_temp-tabname = 'I_EMPLOYEE'.
  i_temp-seltext_l = 'Time Sheet Date'.
  i_temp-col_pos = 3.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_emp.
  CLEAR i_temp.
i_temp-ref_fieldname = 'JBCPL'.
i_temp-ref_tabname = 'ZTMSH'.
  i_temp-fieldname = 'JBCPL'.
  i_temp-tabname = 'I_EMPLOYEE'.
  i_temp-seltext_l = 'Time Sheet Status'.
  i_temp-col_pos = 4.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_emp.
  CLEAR i_temp.
i_temp-ref_fieldname = 'EMPID'.
i_temp-ref_tabname = 'ZEMPY'.
  i_temp-fieldname = 'EMPID'.
  i_temp-tabname = 'I_EMPLOYEE'.
  i_temp-seltext_l = 'Employee ID'.
  i_temp-col_pos = 5.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_emp.
  CLEAR i_temp.
i_temp-ref_fieldname = 'JBCPL'.
i_temp-ref_tabname = 'ZTMSH'.
  i_temp-fieldname = 'EMPNAM'.
  i_temp-tabname = 'I_EMPLOYEE'.
  i_temp-seltext_l = 'Employee Name'.
  i_temp-col_pos = 6.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_emp.
  CLEAR i_temp.
i_temp-ref_fieldname = 'NMLTM'.
i_temp-ref_tabname = 'ZTMSD'.
  i_temp-fieldname = 'NMLTM'.
  i_temp-tabname = 'I_EMPLOYEE'.
  i_temp-seltext_l = 'Total NH'.
  i_temp-col_pos = 7.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_emp.
  CLEAR i_temp.
i_temp-ref_fieldname = 'OVRTM'.
i_temp-ref_tabname = 'ZTMSD'.
  i_temp-fieldname = 'OVRTM'.
  i_temp-tabname = 'I_EMPLOYEE'.
  i_temp-seltext_l = 'Total AH'.
  i_temp-col_pos = 8.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_emp.
  CLEAR i_temp.
i_temp-ref_fieldname = 'MEALA'.
i_temp-ref_tabname = 'ZTMSD'.
  i_temp-fieldname = 'MEALA'.
  i_temp-tabname = 'I_EMPLOYEE'.
  i_temp-seltext_l = 'Tot Meal Allowence'.
  i_temp-col_pos = 9.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_emp.
  CLEAR i_temp.
i_temp-ref_fieldname = 'SITEA'.
i_temp-ref_tabname = 'ZTMSD'.
  i_temp-fieldname = 'SITEA'.
  i_temp-tabname = 'I_EMPLOYEE'.
  i_temp-seltext_l = 'Tot Site Allowence($)'.
  i_temp-col_pos = 10.
i_temp-fix_column = 'X'.
  APPEND i_temp TO i_emp.
  CLEAR i_temp.
ENDFORM.                    " 500_build_field_catlog
*&      Form  600_ALV_display
      Employee Wise ALV Display
FORM 600_ALV_display .
  sort i_employee by vbeln deprt tmsdt.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
     EXPORTING
       I_CALLBACK_PROGRAM             = repid
    I_CALLBACK_PF_STATUS_SET       = 'PO_STATUS '
    I_CALLBACK_USER_COMMAND        = 'USER_COMMAND'
       I_STRUCTURE_NAME               = 'i_employee'
       IS_LAYOUT                      = l_layout
       IT_FIELDCAT                    = i_emp
    IT_EVENTS                      = v_events
      TABLES
        T_OUTTAB                       = i_employee
     EXCEPTIONS
       PROGRAM_ERROR                  = 1
       OTHERS                         = 2
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " 600_ALV_display
*&      Form Po-Status.
FORM po_status  USING rt_extab TYPE slis_t_extab.
  SET PF-STATUS 'ZBUTTON' EXCLUDING rt_extab.
ENDFORM.                    "po_status
*&      Form User_command.
FORM user_command USING ucomm LIKE sy-ucomm
                            selfield TYPE slis_selfield.
  data : valid type i,
         cnt like ztmsh-deprt.
  clear i_department.
  loop at i_department where CHECKBOX = 'X'.
    on change of i_department-deprt.
if cnt ne space.
      if valid ne 0.
        message 'Please select same department' type 'I'.
        valid = 2.
        exit.
        cnt = i_department-deprt.
      endif.
    endon.
    valid = 1.
  endloop.
  if valid = 1.
    case ucomm.
      when 'DESIGN'  .
        perform transfer_table.
        perform design_report.
        perform des_build_field_catlog.
        Perform design_ALV_display.
      when 'WAREHOUSE'.
        perform transfer_table.
        perform design_report.
        perform war_build_field_catlog.
        perform 300_populate_events.
        perform warehouse_ALV_display.
      when 'TRANSPORT'.
        perform transfer_table.
        perform design_report.
        perform tran_build_field_catlog.
     perform top_of_page.
        perform Transport_ALV_display.
      when 'INSTALLAT'.
        perform transfer_table.
        perform design_report.
        perform inst_build_field_catlog.
        perform Install_ALV_display.
    endcase.
  elseif valid = 0.
    message 'Please select a department' type 'I'  .
  endif.
endform.                    "user_command
*&      Form  empl_calcuation
     Employee total hours calculation
FORM empl_calcuation  .
  data : w_hours(3)   type C,
         w_min(3)     type c,
         w_hours1(3)  type c,
         w_min1(3)    type c,
         w_hours2(3)  type c,
         w_min2(3)    type c,
         w_hours3(3)  type c,
         w_min3(3)    type c,
         w_hours4(3)  type c,
         w_min4(3)    type c,
         t_nmltm(5)   type c,
         t_ovrtm(5)   type c,
         t_meala(5)   type c,
         t_sitea(5)   type c,
         t_HLFTM(5)   type c,
         t_DBLTM(5)   type c,
         temp         type i.
  clear :wa_nmltm,
         wa_ovrtm,
         wa_meala,
         wa_sitea,
         wa_HLFTM,
         wa_DBLTM.
To convert into Minutes
  select * from ztmsd
           where vbeln = ztmsh-vbeln
             and tmsdt = ztmsh-tmsdt
             and deprt = ztmsh-deprt.
*uncommenting the below code between the select and endselect will work
*for normal time scenario (eg: 2.55+3.55 =6.50)                                                                     *
Normal Time
    t_nmltm = ztmsd-nmltm.
   SPLIT t_nmltm at '.' into w_hours w_min.
   temp = w_hours.
   w_hours = temp.
   w_hours = w_hours * 60.
    wa_nmltm = wa_nmltm + t_nmltm.
Over Time
    t_ovrtm = ztmsd-ovrtm.
   SPLIT t_ovrtm at '.' into w_hours1 w_min1.
   temp = w_hours1.
   w_hours1 = temp.
   w_hours1 = w_hours1 * 60.
    wa_ovrtm = wa_ovrtm + t_ovrtm.
Meal Allowence
    t_meala = ztmsd-meala.
   SPLIT t_meala at '.' into w_hours2 w_min2.
   temp = w_hours2.
   w_hours2 = temp.
   w_hours2 = w_hours2 * 60.
    wa_meala = wa_meala + t_meala .
Site Allowence
    t_sitea = ztmsd-sitea.
    wa_sitea = wa_sitea + t_sitea.
    if dept = 'X'.
1.5 Time
      t_HLFTM = ztmsd-HLFTM.
   SPLIT t_HLFTM at '.' into w_hours3 w_min3.
   temp = w_hours3.
   w_hours3 = temp.
   w_hours3 = w_hours3 * 60.
      wa_HLFTM = wa_HLFTM +  t_hlftm.
Double Time
      t_DBLTM = ztmsd-DBLTM.
   SPLIT t_DBLTM at '.' into w_hours4 w_min4.
   temp = w_hours4.
   w_hours4 = temp.
   w_hours4 = w_hours4 * 60.
      wa_DBLTM = wa_DBLTM +  t_dbltm.
    endif.
  endselect.
  if sy-subrc = 0.
uncommenting the below will work for normal time scenario
      (eg: 2.55+3.55 =6.50)
and change in the appending coloum wa_ to t_
  to convert into Hours
   perform min_to_hrs_nmltm using wa_nmltm changing t_nmltm.
   perform min_to_hrs_ovrtm using wa_ovrtm changing t_ovrtm.
   perform min_to_hrs_meala using wa_meala changing t_meala.
   perform min_to_hrs_sitea using wa_sitea changing t_sitea.
    if emp = 'X'.  "Report By Employee
    Employee Id
      select single empid deprt into ztmsd
         from ztmsd
         where vbeln = ztmsh-vbeln.
      if sy-subrc = 0.
    Employee Name
        select single empye_f empye_l
         into (wa_first,wa_last )
          from zempy
           where empid = ztmsd-empid.
        if sy-subrc = 0 .
          concatenate wa_first
                      wa_last
                      into i_employee-empnam.
          Appending To internal Table
          i_employee-empid = ztmsd-empid.
          i_employee-deprt = ztmsh-deprt.
          i_employee-nmltm = wa_nmltm.
          i_employee-ovrtm = wa_ovrtm.
          i_employee-meala = wa_meala.
          i_employee-sitea = wa_sitea.
          i_employee-vbeln = ztmsh-vbeln.
          i_employee-tmsdt = ztmsh-tmsdt.
          i_employee-jbcpl = ztmsh-jbcpl.
          APPEND i_employee.
        endif.
      endif.
    elseif dept = 'X'.    "Report By  Department
uncommenting the below will work for normal time scenario
      (eg: 2.55+3.55 =6.50)
and change in the appending coloum wa_ to t_
      perform min_to_hrs_HLFTM using wa_HLFTM changing t_HLFTM.
      perform min_to_hrs_DBLTM using wa_DBLTM changing t_DBLTM.
          Appending To internal Table
      i_department-deprt = ztmsh-deprt.
      i_department-nmltm = wa_nmltm.
      i_department-ovrtm = wa_ovrtm.
      i_department-meala = wa_meala.
      i_department-sitea = wa_sitea.
      i_department-vbeln = ztmsh-vbeln.
      i_department-tmsdt = ztmsh-tmsdt.
      i_department-jbcpl = ztmsh-jbcpl.
      i_department-hlftm = t_hlftm.
      i_department-dbltm = t_dbltm.
      APPEND i_department.
    endif.
  endif.
ENDFORM.                    " empl_calcuation
*&      Form  min_to_hrs_nmltm
      text
     -->P_WA_NMLTM  text
FORM min_to_hrs_nmltm  USING    P_WA_NMLTM
                       CHANGING P_T_nmltm.
  data : hours(2)     type c,
         minutes_n(2) type c,
         nmltm(10)    type c.
  if p_wa_nmltm >= 60.
    hours = P_WA_NMLTM / 60.
  endif.
  minutes_n = P_WA_NMLTM MOD 60.
  concatenate hours
               minutes_n
               into P_T_nmltm.
ENDFORM.                    " min_to_hrs_nmltm
*&      Form  min_to_hrs_ovrtm
      text
FORM min_to_hrs_ovrtm  USING    P_WA_OVRTM
                       CHANGING P_T_OVRTM.
  data : hours(2)     type c,
         minutes_n(2) type c.
  if p_wa_ovrtm >= 60.
    hours = P_WA_OVRTM / 60.
  endif.
  minutes_n = P_WA_OVRTM MOD 60.
  concatenate hours
               minutes_n
               into P_T_OVRTM.
ENDFORM.                    " min_to_hrs_ovrtm
*&      Form  min_to_hrs_meala
FORM min_to_hrs_meala  USING    P_WA_meala
                       CHANGING P_T_MEALA.
  data : hours(2)     type c,
         minutes_n(2) type c.
  if p_wa_meala >= 60.
    hours = P_WA_meala / 60.
  endif.
  minutes_n = P_WA_meala MOD 60.
  concatenate hours
              minutes_n
              into P_T_meala.
ENDFORM.                    " min_to_hrs_meala
*&      Form  min_to_hrs_sitea
FORM min_to_hrs_sitea  USING    P_WA_sitea
                       CHANGING P_T_SITEA.
  data : hours(2)     type c,
         minutes_n(2) type c.
  if p_wa_sitea >= 60.
    hours = P_WA_sitea / 60.
  endif.
  minutes_n = P_WA_sitea MOD 60.
  concatenate hours
              minutes_n
              into P_T_sitea.
ENDFORM.                    " min_to_hrs_sitea
*&      Form  min_to_hrs_HLFTM
FORM min_to_hrs_HLFTM  USING    P_WA_HLFTM
                       CHANGING P_T_HLFTM.
  data : hours(2)     type c,
         minutes_n(2) type c.
  if p_wa_hlftm >= 60.
    hours = P_WA_HLFTM / 60.
  endif.
  minutes_n = P_WA_HLFTM MOD 60.
  concatenate hours
              minutes_n
              into P_T_HLFTM.
ENDFORM.                    " min_to_hrs_HLFTM
*&      Form  min_to_hrs_DBLTM
FORM min_to_hrs_DBLTM  USING    P_WA_DBLTM
                       CHANGING P_T_DBLTM.
  data : hours(2)     type c,
         minutes_n(2) type c.
  if p_wa_dbltm >= 60.
    hours = P_WA_DBLTM / 60.
  endif.
  minutes_n = P_WA_DBLTM MOD 60.
  concatenate hours
              minutes_n
              into P_T_DBLTM.
ENDFORM.                    " min_to_hrs_DBLTM
*&      Form  design_report
FORM design_report .
  select * into corresponding fields of table i_detail
        from ztmsh for all entries in i_t_dept
        where vbeln = i_t_dept-vbeln
          and deprt = i_t_dept-deprt
          and tmsdt = i_t_dept-tmsdt .
  loop at i_detail.
    read table i_t_dept with key vbeln = i_detail-vbeln
                                 deprt = i_detail-deprt
                                 tmsdt = i_detail-tmsdt .
    if sy-subrc = 0.
      i_detail-nmltm = i_t_dept-nmltm.
      i_detail-ovrtm = i_t_dept-ovrtm.
      modify i_detail.
    endif.
  endloop.
ENDFORM.                    " design_report
*&      Form  transfer_table
Doin some operation using the checkbox
FORM transfer_table .
  clear i_t_dept[].
  loop at i_department where checkbox = 'X'.
    move-corresponding : i_department to i_t_dept.
    append i_t_dept.
  endloop.
ENDFORM.                    " transfer_table
Regards,
karthik.
Edited by: karthikeyan sukumar on Jan 3, 2008 9:46 AM