Indirect Evaluation is a method to calculate the eligible amounts for some of the wage types. INVAL is the Indirect Evaluation Module used to meet the Indian specific business requirements. INVAL calculates the eligible amounts for certain wage types that are defaulted into the Basic Pay infotype (0008) or entered in the Recur. Payments/Deductions infotype (0014) and the Additional Payments infotype (0015)
Instead of, computing the eligibility as a currency value amount, INVAL can also calculate the eligibility in terms of numbers, if the wage type has been configured accordingly. For example, an employee can be eligible for 70 liters of petrol.
Following ABAP Code is purpose to get Indirect Wage Amount.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 |
REPORT zevaluate_indirectly. *----------------------------------------------------------------------* * Data declarations *----------------------------------------------------------------------* DATA: BEGIN OF tbindbw OCCURS 0, seqnr(3) TYPE c. INCLUDE STRUCTURE ptbindbw. DATA: END OF tbindbw. DATA: BEGIN OF wage, lgart TYPE p0008-lga01, betrg TYPE p0008-bet01, END OF wage, BEGIN OF indbw, indbw TYPE p0008-ind01, END OF indbw. DATA: p0001 TYPE TABLE OF p0001 WITH HEADER LINE, p0007 TYPE TABLE OF p0007 WITH HEADER LINE, p0008 TYPE TABLE OF p0008 WITH HEADER LINE, v_infty TYPE p0001-infty, v_number(2) TYPE p , v_seqnr(3) TYPE c, v_endda TYPE p0000-endda, v_molga TYPE t001p-molga. *--Selection screen PARAMETERS : p_pernr LIKE pa0001-pernr. *----------------------------------------------------------------------* * START OF SELECTION *----------------------------------------------------------------------* START-OF-SELECTION. *-- Get data PERFORM get_data. *-- Get Indirect wage type amounts PERFORM get_indirect. *----------------------------------------------------------------------* * END OF SELECTION *----------------------------------------------------------------------* END-OF-SELECTION. *-- Write data PERFORM write_data. *----------------------------------------------------------------------* * FORMS *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form GET_DATA *&---------------------------------------------------------------------* * Get data from PA0001 , PA0007 , PA0008 *----------------------------------------------------------------------* FORM get_data . v_infty = '0001'. CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p_pernr infty = v_infty begda = '18000101' endda = '99991231' TABLES infty_tab = p0001. v_infty = '0007'. CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p_pernr infty = v_infty begda = '18000101' endda = '99991231' TABLES infty_tab = p0007. v_infty = '0008'. CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p_pernr infty = v_infty begda = '18000101' endda = '99991231' TABLES infty_tab = p0008. ENDFORM. " GET_DATA *&---------------------------------------------------------------------* *& Form GET_INDIRECT *&---------------------------------------------------------------------* * Get Indirect wage type amounts *----------------------------------------------------------------------* FORM get_indirect . CLEAR tbindbw. REFRESH tbindbw. v_seqnr = 1. CALL FUNCTION 'RP_NUMBER_OF_WAGETYPES_0008' IMPORTING wt_count = v_number. DO v_number TIMES VARYING wage-lgart FROM p0008-lga01 NEXT p0008-lga02 VARYING indbw-indbw FROM p0008-ind01 NEXT p0008-ind02. IF wage-lgart NE space. MOVE v_seqnr TO tbindbw-seqnr. MOVE-CORRESPONDING wage TO tbindbw. MOVE-CORRESPONDING indbw TO tbindbw. APPEND tbindbw. v_seqnr = v_seqnr + 1. ELSE. EXIT. ENDIF. ENDDO. READ TABLE p0001 WITH KEY pernr = p_pernr. READ TABLE p0007 WITH KEY pernr = p_pernr. READ TABLE p0008 WITH KEY pernr = p_pernr. *-- Get Molga SELECT SINGLE molga FROM t001p INTO v_molga WHERE werks = p0001-werks AND btrtl = p0001-btrtl. CALL FUNCTION 'RP_EVALUATE_INDIRECTLY_P0008' EXPORTING ppernr = p_pernr pmolga = v_molga pbegda = p0008-begda pp0001 = p0001 pp0007 = p0007 pp0008 = p0008 IMPORTING pendda = v_endda TABLES ptbindbw = tbindbw EXCEPTIONS error_at_indirect_evaluation = 1. ENDFORM. " GET_INDIRECT *&---------------------------------------------------------------------* *& Form WRITE_DATA *&---------------------------------------------------------------------* * Write data *----------------------------------------------------------------------* FORM write_data . WRITE :/1 'Wage type' , 36 'Amount'. LOOP AT tbindbw WHERE indbw <> ''. WRITE :/1 tbindbw-lgart , 20 tbindbw-betrg . ENDLOOP. ENDFORM. " WRITE_DATA |