Te paso el código. Es un update directo a la LFA1, quizás podrían probar de hacer un batch a la FK05.
Posiblemente no tengas creado el código 99, ponele el código que desees.
DATA: lifnr type lfa1-lifnr.
IF i_activity = 'H'.
SELECT SINGLE lifnr INTO lifnr FROM lfa1
WHERE lifnr = i_lifnr.
IF sy-subrc NE 0.
COMMIT WORK.
WAIT UP TO 1 SECONDS.
UPDATE lfa1
SET sperq = '99'
sperm = 'X'
SPERR = 'X'
WHERE lifnr = i_lifnr.
ENDIF.
ENDIF.
Espero te sirva.
Saludos.
|