#1
|
||||
|
||||
Programa para desbloquear un usuario en todos los mandantes
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 |
#2
|
||||
|
||||
Muy buen programa y muy muy util!!!
Muchas gracias pedro43!!! Un saludo.
__________________
Persigue tu objetivo, nunca te rindas! |
Herramientas | Buscar en Tema |
Desplegado | |
|
|