MP006240 SAP ABAP INCLUDE - Module pool for infotype P0062 - form routines for common part
MP006240 is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.
If you would like to execute this report or see the full code listing simply enter MP006240 into the relevant SAP transactions such as SE38 or SE80
ABAP code to call this SAP report using the submit statement
This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.
SUBMIT MP006240. "Basic submit
SUBMIT MP006240 AND RETURN. "Return to original report after report execution complete
SUBMIT MP006240 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Module pool for infotype P0062 - form routines for common part
INCLUDES used within this REPORT MP006240
No INCLUDES are used within this REPORT code!
TABLES used within REPORT and the associated SELECT statement:
No SAP DATABASE tables are accessed within this REPORT code!
Function Modules used within report and the associated call statement:
HR_E_CONVERT_PERID_IN_CODIM CALL FUNCTION 'HR_E_CONVERT_PERID_IN_CODIM' EXPORTING perid = p0002-perid IMPORTING codim = p0062-codim pertr = p0062-pertr.
HR_ES_CHECK_NIF_CIF CALL FUNCTION 'HR_ES_CHECK_NIF_CIF' EXPORTING p_valor = p0062-codim p_check_nif = 'X' p_check_cif = 'X' p_check_nie = 'X' IMPORTING p_symsg = l_symsg p_subrc = l_subrc * P_TIPO = EXCEPTIONS * PROGRAM_ERROR = 1 OTHERS = 0.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = lv_pernr infty = '0006' begda = p0062-begda endda = p0062-endda TABLES infty_tab = t0006 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
HR_E_GET_REDUCC_MINUSV CALL FUNCTION 'HR_E_GET_REDUCC_MINUSV' EXPORTING p_totbi = totbi "tipo CURR p_fecha = p0062-begda p_grmin = p0062-famnu p_codau = p0062-codau IMPORTING p_reducc = por_reducc EXCEPTIONS error = 1.
HR_READ_INFOTYPE * CALL FUNCTION 'HR_READ_INFOTYPE' * EXPORTING ** TCLAS = 'A' * pernr = p0062-pernr * infty = '0062' * begda = fecha_prev * ENDDA = fecha_prev * IMPORTING * SUBRC = err_cod * tables * infty_tab = temp_p0062 * EXCEPTIONS * INFTY_NOT_FOUND = 1 * OTHERS = 2 * .
HR_E_GET_TIPO_IRPF_1 CALL FUNCTION 'HR_E_GET_TIPO_IRPF_1' EXPORTING p_regfi = p0062-codau p_waers = currency p_begda = p0062-begda p_endda = p0062-endda p_infbe = p0062-begda p_basel = q0062-summe p_summe = p_ret_int p_alime = p0062-alime p_regrt = p0062-regrt p_regbr = p0062-regbr p_stper = q0062-sitper p_nohij = l_nohij p_clave = p0062-cper1 p_mipag = p0062-mipag p_pernr = p0062-pernr p_basel_result = g_basel_result p_wa_0062 = p0062 * p_wa_0062 = wa_prev_0062 IMPORTING p_porce = p_porcl p_tipo_irpf_1_result = l_tipo_irpf_1_result EXCEPTIONS error = 1 OTHERS = 2.
HR_E_GET_CONTRACT_DURATION CALL FUNCTION 'HR_E_GET_CONTRACT_DURATION' EXPORTING p_pernr = pernr p_date = fecha P_LESS_EXCLUDING_YEAR = 'X' IMPORTING p_less_one_year = less_one_year EXCEPTIONS error = 1 OTHERS = 2.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = pernr infty = '0000' IMPORTING subrc = retorno TABLES infty_tab = t0000 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = pernr infty = '0016' IMPORTING subrc = retorno TABLES infty_tab = t0016 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = pernr infty = '0061' IMPORTING subrc = retorno TABLES infty_tab = t0061 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
COMPUTE_YEARS_BETWEEN_DATES CALL FUNCTION 'COMPUTE_YEARS_BETWEEN_DATES' EXPORTING first_date = selec_date second_date = i0016-ctedt modify_interval = ' ' IMPORTING years_between_dates = duracion EXCEPTIONS sequence_of_dates_not_valid = 4.
COMPUTE_YEARS_BETWEEN_DATES CALL FUNCTION 'COMPUTE_YEARS_BETWEEN_DATES' EXPORTING first_date = i0061-begda second_date = current_date modify_interval = ' ' IMPORTING years_between_dates = duracion EXCEPTIONS sequence_of_dates_not_valid = 4.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = lv_pernr infty = '0006' begda = p_begda endda = p_begda TABLES infty_tab = i0006 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
HR_ES_GET_RFC_DEST_FI CALL FUNCTION 'HR_ES_GET_RFC_DEST_FI' EXPORTING company_code = fi_company IMPORTING destination = fi_destination EXCEPTIONS error_in_filterobjects = 1 error_in_ale_customizing = 2 not_unique_receiver = 3 no_rfc_destination_maintained = 4 OTHERS = 5.
BF_READ_QLAND CALL FUNCTION 'BF_READ_QLAND' DESTINATION fi_destination-rfc_dest EXPORTING i_spras = sy-langu i_land1 = spain * i_land1 = p_pland i_qland = p0062-qland IMPORTING e_qltxt = qland_txt EXCEPTIONS not_found = 1 OTHERS = 2.
RP_GET_CURRENCY CALL FUNCTION 'RP_GET_CURRENCY' EXPORTING molga = calcmolga begda = p0062-begda endda = p0062-endda IMPORTING waers = currency "segun p0062-begda valid_endda = h_endda return = retorno TABLES currency_table = h_currency_table EXCEPTIONS OTHERS = 1.
HR_ES_GET_RFC_DEST_FI CALL FUNCTION 'HR_ES_GET_RFC_DEST_FI' EXPORTING company_code = fi_company IMPORTING destination = fi_destination EXCEPTIONS error_in_filterobjects = 1 error_in_ale_customizing = 2 not_unique_receiver = 3 no_rfc_destination_maintained = 4 OTHERS = 5.
BF_READ_QLAND_SET CALL FUNCTION 'BF_READ_QLAND_SET' DESTINATION fi_destination-rfc_dest EXPORTING i_spras = sy-langu i_land1 = spain TABLES t_qland = itab2 EXCEPTIONS not_found = 1 OTHERS = 2.
CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME' EXPORTING cucol = cucol curow = curow display = ' ' selectfield = 'QLAND' titel = ' ' no_pers_help_select = ' ' title_in_values_list = ' ' show_all_values_at_first_time = ' ' use_user_selections = 'S' write_selectfield_in_colours = 'X' IMPORTING ind = ind select_value = sel_val TABLES fields = fields full_table = itab2 EXCEPTIONS full_table_empty = 1 no_tablestructure_given = 2 no_tablefields_in_dictionary = 3 more_then_one_selectfield = 4 no_selectfield = 5 OTHERS = 6.
VRM_SET_VALUES CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = 'P0062-QLAND' values = values[].
HR_E_GET_WAY_OF_COMP_IRPF CALL FUNCTION 'HR_E_GET_WAY_OF_COMP_IRPF' EXPORTING date = p_date codau = p_codau IMPORTING tipo_calc_irpf = p_tramo_irpf begda = date_begin endda = date_end EXCEPTIONS error = 1 OTHERS = 2.
HR_E_GET_REG_CANARIO CALL FUNCTION 'HR_E_GET_REG_CANARIO' EXPORTING p_werks = p0001-werks p_btrtl = p0001-btrtl p_begda = p0062-begda p_endda = p0062-endda IMPORTING p_yes = bonca EXCEPTIONS error = 1 OTHERS = 2.
HR_E_GET_BASE_LIQUIDABLE CALL FUNCTION 'HR_E_GET_BASE_LIQUIDABLE' EXPORTING p_sbrut = p0062-sbrut p_vesfi = p0062-vesfi p_vesvr = p0062-vesvr p_pgees = p0062-pgees p_pecom = p0062-pecom p_cotiz = p0062-cotiz p_alime = p0062-alime p_renir = p0062-renir p_begda = p0062-begda p_endda = p0062-endda p_pernr = p0062-pernr p_grami = p0062-famnu p_stper = q0062-sitper p_clave = p0062-cper1 p_bonca = bonca p_ffrmg = p0062-ffrmg p_mipag = p0062-mipag p_reni2 = p0062-reni2 p_wertx = p0062-wertx IMPORTING p_basel_result = g_basel_result p_lt65years = lv_lt65years p_stat2ne3 = lv_stat2ne3 TABLES t0002 = it0002 EXCEPTIONS error = 1 OTHERS = 2.
HR_E_GET_MIN_FAM CALL FUNCTION 'HR_E_GET_MIN_FAM' EXPORTING par_begda = p0062-begda par_endda = p0062-endda par_pernr = p0062-pernr par_stper = p0062-famst par_codau = p0062-codau IMPORTING num_ascendientes = s_asc num_hijos_0_2 = no_des_0_2 num_hijos_3_16 = no_des_3_16 num_hijos_17_24 = no_des_16_25 num_suma_descendientes = s_des num_min33 = no_des_min_33 num_min65 = no_des_min_65 p_nif_cony = g_nif_cony p_not_found = not_found p_familiares = g_familiares EXCEPTIONS read_i0021_error = 1 read_i0062_error = 2 error = 3 OTHERS = 4.
DD_DOMVALUE_TEXT_GET CALL FUNCTION 'DD_DOMVALUE_TEXT_GET' EXPORTING domname = p_domain value = value IMPORTING dd07v_wa = values EXCEPTIONS OTHERS = 1.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p0062-pernr infty = '0006' begda = p0062-begda endda = p0062-begda TABLES infty_tab = i0006 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p0062-pernr infty = '0006' begda = p0062-begda endda = p0062-endda * IMPORTING * SUBRC = TABLES infty_tab = l_p0006 EXCEPTIONS infty_not_found = 1 OTHERS = 2 .
RP_LAST_DAY_OF_MONTHS CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS' EXPORTING day_in = p0062-begda IMPORTING last_day_of_month = endDate EXCEPTIONS day_in_no_date = 1 OTHERS = 2.
HR_E_GET_PERIOD_FOR_DATE CALL FUNCTION 'HR_E_GET_PERIOD_FOR_DATE' EXPORTING p_abkrs = p_abkrs p_fecha = l_prev_endda IMPORTING p_period = l_pabrp p_year = l_pabrj EXCEPTIONS error = 1 OTHERS = 2.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p0062-pernr infty = '0062' begda = fecha endda = fecha IMPORTING subrc = ret_code TABLES infty_tab = l_p0062 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
T005_SINGLE_READ CALL FUNCTION 'T005_SINGLE_READ' EXPORTING kzrfb = ' ' t005_land1 = p_country IMPORTING wt005 = wa_t005 EXCEPTIONS not_found = 1 OTHERS = 2.
HRCA_PA03_PCR_READ CALL FUNCTION 'HRCA_PA03_PCR_READ' EXPORTING abkrs = p_abkrs IMPORTING state = l_state current_period = l_current_period current_year = l_current_year EXCEPTIONS pcr_does_not_exist = 1 abkrs_does_not_exist = 2 period_does_not_exist = 3 system_failure = 4 communication_failure = 5 error_in_filterobjects = 6 error_in_ale_customizing = 7 not_unique_receiver = 8 no_rfc_destination_maintained = 9 OTHERS = 10.
HR_E_GET_PERIOD_FOR_DATE CALL FUNCTION 'HR_E_GET_PERIOD_FOR_DATE' EXPORTING p_abkrs = p_abkrs p_fecha = p0062-begda IMPORTING p_period = l_infty_period p_year = l_infty_year EXCEPTIONS error = 1 OTHERS = 2.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING * TCLAS = 'A' pernr = p0062-pernr infty = '0001' begda = p_fecha endda = p_fecha * BYPASS_BUFFER = ' ' * LEGACY_MODE = ' ' * IMPORTING * SUBRC = TABLES infty_tab = l_p0001 EXCEPTIONS infty_not_found = 1 OTHERS = 2 .
HR_99S_GET_PERMO CALL FUNCTION 'HR_99S_GET_PERMO' EXPORTING p_abkrs = p_abkrs IMPORTING p_return_code = returncode p_t549a = ls_t549a.
HR_GET_PAYROLL_RESULTS CALL FUNCTION 'HR_GET_PAYROLL_RESULTS' EXPORTING pernr = p_pernr permo = ls_t549a-permo pabrj = p_pabrj pabrp = p_pabrp * pabrj_end = p_pabrj_end * pabrp_end = p_pabrp_end actual = 'A' " SPACE ... with retros
HR_ES_GET_CUSTOMER_DECISION CALL FUNCTION 'HR_ES_GET_CUSTOMER_DECISION' EXPORTING p_swnam = 'IRF09' p_date = p_date IMPORTING P_CUSTOMER_CHOICE = p_option p_customer_wins = l_op_regularization EXCEPTIONS error = 1 multiple_options = 2 OTHERS = 3 .
HR_ES_GET_CUSTOMER_DECISION CALL FUNCTION 'HR_ES_GET_CUSTOMER_DECISION' EXPORTING p_swnam = 'WERTX' p_date = pv_date IMPORTING p_customer_wins = cv_option EXCEPTIONS error = 1 multiple_options = 2 OTHERS = 3 .
HR_ES_GET_CUSTOMER_DECISION CALL FUNCTION 'HR_ES_GET_CUSTOMER_DECISION' EXPORTING p_swnam = 'NOHIJ' p_date = pv_begda IMPORTING p_customer_choice = lv_nohij_auto EXCEPTIONS OTHERS = 1.
Contribute (Add Comments)
Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.
The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.
This will then be available for everyone to easily find by simply searching on the report name MP006240 or its description.
MP006240 - Module pool for infotype P0062 - form routines for common part MP006230 - Module pool for infotype P0062 - PAI modules MP006220 - Module pool for infotype P0062 - PBO modules MP006210 - Module pool for infotype P0062 - Data definitions MP006200 - Module Pool Infotype P0062 (Tax E) MP006200 - Module Pool Infotype P0062 (Tax E)