[pedro43]

Hola

Otro sencillo programa para desbloquear usuarios en todos los mandantes.

Espero que os sea de utilidad.






REPORT ZBCUNLOCK .

TABLES: USR02, T000.
PARAMETERS: USER LIKE USR02-BNAME.

AUTHORITY-CHECK OBJECT 'S_ADMI_FCD'
ID 'S_ADMI_FCD' FIELD 'PADM'.
IF SY-subrc <> 0.
WRITE: / 'Este programa es sólo para administradores del Sistema '. EXIT
.
ENDIF.

SELECT SINGLE * FROM USR02 WHERE BNAME = USER.
IF SY-SUBRC <> 0.
WRITE: / USER, 'El usuario no existe!'. EXIT.
ENDIF.

WRITE: / 'El usuario ',USER, 'se ha desbloqueado en los mandantes:'.
SELECT * FROM T000 WHERE MANDT <> SY-MANDT.
SELECT * FROM USR02 CLIENT SPECIFIED WHERE MANDT = T000-MANDT AND
BNAME = USER.
IF USR02-UFLAG <> 0.
WRITE: / USR02-MANDT.
USR02-UFLAG = 0.
UPDATE USR02 CLIENT SPECIFIED.
ENDIF.

ENDSELECT.
ENDSELECT.

Saludos