*&---------------------------------------------------------------------**& NOME DO PROGRAMA : ZF_ZPARNR_QM*& TTULO DO PROGRAMA : REPORT DE PERFORMANCE*& PROGRAMADOR : BRUNO SANTOS (USURIO SAP)*& DATA : 16/08/2013*& LTIMA ATUALIZAO : 16/08/2013*&*& DESCRIO*&---------------------------------------------------------------------**& LISTA DE MODIFICAES: **& DATA AUTOR REQUEST # DESCRIO **& 16/08/2013 USUARIO SAP SPDK900013 CODIFICAO INICIAL **&---------------------------------------------------------------------*FUNCTION zf_zparnr_qm.*"----------------------------------------------------------------------*"*"Interface local:*" TABLES*" SHLP_TAB TYPE SHLP_DESCT*" RECORD_TAB STRUCTURE SEAHLPRES*" CHANGING*" VALUE(SHLP) TYPE SHLP_DESCR*" VALUE(CALLCONTROL) TYPE DDSHF4CTRL*"----------------------------------------------------------------------* EXIT immediately, if you do not want to handle this step IF callcontrol-step 'SELONE' AND callcontrol-step 'SELECT' AND callcontrol-step 'DISP'. EXIT. ENDIF.*"----------------------------------------------------------------------* STEP SELONE (Select one of the elementary searchhelps)*"----------------------------------------------------------------------* This step is only called for collective searchhelps. It may be used* to reduce the amount of elementary searchhelps given in SHLP_TAB.* The compound searchhelp is given in SHLP.* If you do not change CALLCONTROL-STEP, the next step is the* dialog, to select one of the elementary searchhelps.* If you want to skip this dialog, you have to return the selected* elementary searchhelp in SHLP and to change CALLCONTROL-STEP to* either to 'PRESEL' or to 'SELECT'. IF callcontrol-step = 'SELONE'.* PERFORM SELONE ......... EXIT. ENDIF.*"----------------------------------------------------------------------* STEP PRESEL (Enter selection conditions)*"----------------------------------------------------------------------* This step allows you, to influence the selection conditions either* before they are displayed or in order to skip the dialog completely.* If you want to skip the dialog, you should change CALLCONTROL-STEP* to 'SELECT'.* Normaly only SHLP-SELOPT should be changed in this step. IF callcontrol-step = 'PRESEL'.* PERFORM PRESEL .......... EXIT. ENDIF.*"----------------------------------------------------------------------* STEP SELECT (Select values)*"----------------------------------------------------------------------* This step may be used to overtake the data selection completely.* To skip the standard seletion, you should return 'DISP' as following* step in CALLCONTROL-STEP.* Normally RECORD_TAB should be filled after this step.* Standard function module F4UT_RESULTS_MAP may be very helpfull in this* step. IF callcontrol-step = 'SELECT'. SELECT parnr name_qmsm INTO TABLE ti_responsav FROM zqm_t_responsav WHERE parnr LIKE 'PRT%'. SORT ti_responsav BY parnr. DELETE ADJACENT DUPLICATES FROM ti_responsav COMPARING parnr. LOOP AT ti_responsav INTO wa_responsav. wa_value = wa_responsav-parnr. APPEND wa_value TO ti_value. wa_value = wa_responsav-name_qmsm. APPEND wa_value TO ti_value. ENDLOOP. SELECT stext mc_short INTO TABLE ti_hrp1000 FROM hrp1000 WHERE plvar = '01' AND otype = 'O' AND istat = '1' AND begda = sy-datum AND langu = sy-langu. SORT ti_hrp1000 BY mc_short. DELETE ADJACENT DUPLICATES FROM ti_hrp1000 COMPARING mc_short. LOOP AT ti_hrp1000 INTO wa_hrp1000. wa_value = wa_hrp1000-mc_short. APPEND wa_value TO ti_value. wa_value = wa_hrp1000-stext. APPEND wa_value TO ti_value. ENDLOOP. wa_field_tab-tabname = 'ZQM_E_COD_DESC'. wa_field_tab-fieldname = 'CODIGO'. APPEND wa_field_tab TO ti_field_tab. wa_field_tab-tabname = 'ZQM_E_COD_DESC'. wa_field_tab-fieldname = 'DESCRICAO'. APPEND wa_field_tab TO ti_field_tab.* wa_dynpfld_map-fldname = 'CODIGO'.* wa_dynpfld_map-dyfldname = 'VIQMEL-ZPARNR'.* APPEND wa_dynpfld_map TO ti_dynpfld_map. CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'ZPARNR' TABLES value_tab = ti_value field_tab = ti_field_tab return_tab = ti_return_tab* dynpfld_mapping = ti_dynpfld_map EXCEPTIONS parameter_error = 1 no_values_found = 2 OTHERS = 3. IF sy-subrc 0. callcontrol-step = 'EXIT'. ELSE. callcontrol-step = 'DISP'. ENDIF. ENDIF.ENDFUNCTION.++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++LZGF_EXT_ZPARNRTOPFUNCTION-POOL zgf_ext_zparnr. "MESSAGE-ID ..TYPE-POOLS: shlp.TYPES: BEGIN OF ty_hrp1000, stext TYPE hrp1000-stext, mc_short TYPE hrp1000-mc_short, END OF ty_hrp1000, BEGIN OF ty_zqm_t_responsav, parnr TYPE zqm_t_responsav-parnr, name_qmsm TYPE zqm_t_responsav-name_qmsm, END OF ty_zqm_t_responsav, BEGIN OF ty_swhactor. INCLUDE TYPE swhactor.TYPES: pernr TYPE pa0105-pernr, END OF ty_swhactor.DATA: wa_value TYPE text100, ti_value TYPE STANDARD TABLE OF text100, wa_responsav TYPE ty_zqm_t_responsav, ti_responsav TYPE STANDARD TABLE OF ty_zqm_t_responsav, wa_hrp1000 TYPE ty_hrp1000, ti_hrp1000 TYPE STANDARD TABLE OF ty_hrp1000.DATA: wa_field_tab TYPE dfies, ti_field_tab TYPE STANDARD TABLE OF dfies, wa_dynpfld_map TYPE dselc, ti_dynpfld_map TYPE STANDARD TABLE OF dselc, ti_result_tab TYPE STANDARD TABLE OF ty_swhactor, wa_result_tab TYPE ty_swhactor, wa_return_tab TYPE ddshretval, ti_return_tab TYPE STANDARD TABLE OF ddshretval.