RESETANDO SENHA DE USUARIO

Este report é uma dica para resetar senha de usuario, foi criado uma simples tela somente para exemplificar, vc pode utilizar a chamada do perform in program conforme sua necessidades. Este post facilita quando é necessario alterar senhas em massa.

 REPORT ZRESETPASS.
   TABLES: USR02.
   TYPE-POOLS: VRM.

   DATA: IT_LIST TYPE VRM_VALUES,
         LIST_VALUE TYPE VRM_VALUE.

   DATA: MDT TYPE SY-MANDT.

   DATA: BEGIN OF USUARIO OCCURS 0,
          BNAME LIKE USR02-BNAME,
           END OF USUARIO.

   DATA: CLIENT LIKE SY-MANDT,
         USER LIKE SY-UNAME,
         MESSAGE LIKE SM04DIC-POPUPMSG.

SELECTION-SCREEN BEGIN OF BLOCK BY1 WITH FRAME.
     PARAMETERS: P_USER TYPE USR02-BNAME AS LISTBOX VISIBLE LENGTH 20.
SELECTION-SCREEN END OF BLOCK BY1.

***********************************************************************
* INICIALIZAÇÃO
***********************************************************************

INITIALIZATION.
  PERFORM SELECIONA_DADOS.
  PERFORM CARREGA_COMBO.

START-OF-SELECTION.
  PERFORM   RESET USING P_USER.
END–OF-SELECTION.

*&#######################*
*& Form SELECIONA_DADOS
*&#######################*
* text
*#######################-*
* #> p1 text
* <# p2 text
*#######################-*
FORM SELECIONA_DADOS .
  SELECT BNAME FROM USR02 INTO TABLE USUARIO.
ENDFORM.

*&#######################*
*& Form CARREGA_COMBO
*&#######################*
* text
*#######################-*
* #> p1 text
* <# p2 text
*#######################-*

FORM CARREGA_COMBO .
  LOOP AT USUARIO.
    LIST_VALUE-KEY = USUARIO-BNAME.
    LIST_VALUE-TEXT = USUARIO-BNAME.
    APPEND LIST_VALUE TO IT_LIST.
    ENDLOOP.

    CALL FUNCTION ‘VRM_SET_VALUES’
        EXPORTING
          ID = ‘P_USER’
          VALUES = IT_LIST.

ENDFORM.

*&#######################*
*& Form reset
*&#######################*
* text
*#######################-*
* #> p1 text
* <# p2 text
*#######################-*
FORM RESET USING P_USER.

  DATA: CODE(8) VALUE ‘initpass’.
  PERFORM SET_NEW_PASS IN PROGRAM SAPMS01J USING P_USER CODE CODE.

ENDFORM.

 

Está chamada é a parte mas importante, pois estamos usando um programa STANDARD para resetar as senhas.

PERFORM SET_NEW_PASS IN PROGRAM SAPMS01J USING P_USER CODE CODE.

Este programa permite, alterar, resetar senhas, deletar usuario, etc, basta examinalo

Criando Usuario no R/3

Este artigo descreve a criação e alteração de usuário dentro do R/3, este artigo não cobre os assuntos a respeitos de permissão. Somente descreve a criação de usuário inseridos os dados necessário para o usuário logar no sistema.

Tipo do Arquivo: PDF

Baixar: criando-um-usuario.pdf