Z_SET_BEX_USER_TEMPLATE

Z_SET_BEX_USER_TEMPLATE


*&---------------------------------------------------------------------*
*& Report  Z_SET_BEX_USER_TEMPLATE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  Z_SET_BEX_USER_TEMPLATE.

**************************************************************************
* Type Pools
**************************************************************************
type-pools:
  rs, rsr, rspar, rssg.
**************************************************************************

selection-screen begin of block rad2 with frame title text-001.
parameters:
            p_usr    like usr01-BNAME,
            wbid     like rsrwbindex-workbookid,
            version(2)  type c,
            p_vers   as checkbox default rs_c_true.
selection-screen end of block rad2.

tables: rsrwbtemplate, usr01.
select * from usr01
where bname = p_usr.
rsrwbtemplate-templateuser = usr01-bname.
rsrwbtemplate-workbookid = wbid.
if p_vers = rs_c_true.
  rsrwbtemplate-LEAST_BEX_VERSIO = version.
endif.
update rsrwbtemplate.
if sy-subrc <> 0. insert rsrwbtemplate. endif.
endselect.