Ver Mensaje Individual
  #1  
Viejo 26/05/17, 10:18:10
darkeu darkeu is offline
Junior Member
 
Fecha de Ingreso: mar 2016
Mensajes: 10
Error funcion HR_INFOTYPE_OPERATION

Buenas,

Tengo un problema al usar la funcion HR_INFOTYPE_OPERATION, estoy intentando modificar el infotipo 9001 y 9002, y lo que ocurre es que parece que el parametro nocommit no esta funcionando, tanto si lo marco con 'X' como si lo dejo vacio modifica el registro.. no sé por qué

he probado tambien usando la funcion con el infotipo 0001 y en este caso cuando marco el nocommit funciona y no modifica el registro..

este es el codigo:

CONSTANTS: lc_oper_mod TYPE actio VALUE 'INS',
lc_begda TYPE begda VALUE '20160701',
lc_endda TYPE endda VALUE '20160731',
lc_pernr TYPE persno VALUE '39629',
lc_nocommit TYPE c VALUE 'X',
lc_dmode_0 TYPE c VALUE '0'.

lv_dmode = lc_dmode_0.
CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
pernr = lc_pernr
infty = '9001'
begda = lc_begda
endda = lc_endda
TABLES
infty_tab = li_0001
EXCEPTIONS
infty_not_found = 1
OTHERS = 2.
IF sy-subrc EQ 0.
LOOP AT li_0001 INTO lw_0001 WHERE subty EQ '2'.
lw_0001-qua02 = '160'.

CALL FUNCTION 'HR_EMPLOYEE_ENQUEUE'
EXPORTING
number = lw_0001-pernr
IMPORTING
return = lw_return.

CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
infty = '9001'
number = lw_0001-pernr
subtype = lw_0001-subty
validityend = lw_0001-endda
validitybegin = lw_0001-begda
record = lw_0001
operation = lc_oper_mod
dialog_mode = lv_dmode
nocommit = lc_nocommit
IMPORTING
return = lw_return.

IF lw_return IS NOT INITIAL.
WRITE: lw_return-message.
ENDIF.

CALL FUNCTION 'HR_EMPLOYEE_DEQUEUE'
EXPORTING
number = lw_0001-pernr.
ENDLOOP.

alguien tiene idea de porque puede estar fallando con el IT9001??

muchas gracias
saludos

Úlima edición por darkeu fecha: 26/05/17 a las 10:34:24.
Responder Con Cita