REPORT Z_MP_CHANGETIMEZONEFORUSER .
*---------------------------------------------------------------------*
*       REPORT Z_MP_CHANGETIMEZONEFORUSER                             *
*---------------------------------------------------------------------*
*       Отчет служит для изменения часового пояса (зоны) для          *
*       для пользователей: масс. изменение  (usr02-tzone)             *
*---------------------------------------------------------------------*
*       Created : 20/01/2003                                          *
*       Author  : Mikhail Puzankov ( mikeip@mail.ru )                 *
*---------------------------------------------------------------------*

TABLES: USR02, TTZZ.
data: counter type i value '0'.
selection-screen begin of block main with frame.
selection-screen skip.
select-options:
           p_user for usr02-bname.
selection-screen skip.
* часовая зона для изменения
parameters prevzone like ttzz-tzone default 'CET'.
selection-screen skip.
* Новая часовая зона
parameters newzone like ttzz-tzone default 'EET'.
* iftest - для тестового выполнения отчета, данные не изменяяются
parameters iftest as checkbox default 'X'.
selection-screen end of block main.
IF IFTEST EQ 'X'.
  select * from usr02 where bname in p_user and tzone = prevzone.
    write: / usr02-bname color 4.
    add 1 to counter.
  endselect.
  write: / ' Total :',counter.
ENDIF.
counter = 0.
IF IFTEST EQ ' '.
  update usr02 set tzone = newzone where bname in p_user and
  tzone = prevzone.
* select bname from usr02 where bname in p_user and tzone in prevzone.
  write: /  ' - update complete' color 4.
ENDIF.