#1
|
|||
|
|||
No inserta registro en infotipo
Hola ,
He creado un nuevo infotipo de PA (9004), lo que quiero realizar es una rutina que carge la misma cantidad de registros que existen en el infotipo 0001 en el 9004, el codigo que utilizo es el siguiente: CLEAR p9004. MOVE-CORRESPONDING p0001 TO p9004. p9004-objid = gt_data-servi. p9004-descripcion = gt_data-sertx. " llamamos a la funcion que bloquea al empleado para poder guardar los datos "en el infotipo 9006 CALL FUNCTION 'ENQUEUE_EPPRELE' EXPORTING pernr = p0001-pernr EXCEPTIONS foreign_lock = 1 system_failure = 2. "llamamos a la funcion que realiza la operacion de insertar datos en el infotipo CLEAR i_return. CALL FUNCTION 'HR_INFOTYPE_OPERATION' EXPORTING infty = '9004' number = p9004-pernr subtype = p0001-subty objectid = p0001-objps lockindicator = p0001-sprps validityend = p9004-endda validitybegin = p9004-begda recordnumber = p0001-seqnr record =p9004 operation = 'INS' tclas = 'A' dialog_mode = '0' IMPORTING return = i_return key = l_key. "llamamos a la funcion que desbloquea al empleado CALL FUNCTION 'DEQUEUE_EPPRELE' EXPORTING pernr = p0001-pernr. "si la tabla de retorno no devuelve ningun mensaje tipo 'E' mensaje de todo OK IF i_return-type EQ 'E'. CLEAR l_err . CONCATENATE i_return-message ' EMPLEADO-> ' p0001-pernr INTO l_err SEPARATED BY space. WRITE l_err. "si hay algun mensaje 'E' lanzamos un mensaje informando del empleado con el "que se ha producido el error. ENDIF. El problema es que al ejecutar la funcion 'HR_INFOTYPE_OPERATION' da la sensacion que entra en bucle infinito y no crea el registro ¿cualquier ayuda sera agradecida? Gracias |
Herramientas | Buscar en Tema |
Desplegado | |
|
|