hola te anexo el codigo porque el modify no funciona
gracias por tu ayuda
FORM EMPLOYEE_NATIO_DISABLED USING P_EMPLOYEE_TABLE LIKE EMPLOYEE
P_MONTH_NUMBER LIKE C_MONTH_NUMBER1
CHANGING P_CLASS1 LIKE EMPLOYEE-CLASS1
P_CLASS2 LIKE EMPLOYEE-CLASS2
P_CLASS3 LIKE EMPLOYEE-CLASS3
P_NACIONAL LIKE EMPLOYEE-NATIO
P_MEN LIKE WHITE_C
P_NATIO LIKE NATIO.
DATA: T_DATA0002 LIKE PA0002.
SELECT * FROM PA0002
INTO T_DATA0002
WHERE PERNR = P_EMPLOYEE_TABLE-PERNR.
ENDSELECT.
P_NACIONAL = T_DATA0002-NATIO.
IF P_NACIONAL NE 'VE'.
CASE P_MONTH_NUMBER.
WHEN C_MONTH_NUMBER1.
P_CLASS1 = 'I'.
EMPLOYEE-CLASS1 = P_CLASS1.
WHEN C_MONTH_NUMBER2.
P_CLASS2 = 'I'.
EMPLOYEE-CLASS2 = P_CLASS2.
WHEN C_MONTH_NUMBER3.
P_CLASS3 = 'I'.
EMPLOYEE-CLASS3 = P_CLASS3.
ENDCASE.
ENDIF.
IF EMPLOYEE-CLASS1 = 'I'.
P_NATIO-MEN1 = P_NATIO-MEN1 + 1.
P_NATIO-WOMEN1 = P_NATIO-WOMEN1 + 1.
" WHEN C_MONTH_NUMBER2.
" P_NATIO-MEN2 = P_NATIO-MEN2 + 1.
" P_NATIO-WOMEN2 = P_NATIO-WOMEN2 + 1.
" WHEN C_MONTH_NUMBER3.
" P_NATIO-MEN3 = P_NATIO-MEN3 + 1.
" P_NATIO-WOMEN3 = P_NATIO-WOMEN3 + 1.
* ENDCASE.
ENDIF.
ENDFORM.
|