Brincando com SET, não é filmagem é SAP

Usando SET GS01 GS02 GS03

 

http://help.sap.com/saphelp_46c/helpdata/pt/5b/d2297e43c611d182b30000e829fbfe/frameset.htm

 

Tela GS01 – Criar set

 

Como descobrir onde um SET É USADO

 

EWK1

 

 

Resultado

 

No código

 CALL FUNCTION 'G_SET_TREE_IMPORT'
    EXPORTING
      client          = client
      setid           = loc_setid
      tabname         = table
      fieldname       = fieldname
      no_descriptions = no_descriptions
      no_rw_info      = no_rw_info
      date_from       = date_from
      date_to         = date_to
    TABLES
      set_hierarchy   = loc_sethier
      set_values      = loc_setvalues
    EXCEPTIONS
      set_not_found   = 1
      OTHERS          = 3.

  IF sy-subrc <> 0.
    PERFORM send_message_gs004 USING loc_setid '3'.
  ENDIF.

 

Módulo de função:

 

 

Programa na Miro: SAPLMR1M

Para o include na miro: ZRGGBS000

form u102 using zlspr.

  data: vc_setname type sethier-shortname,
        vc_setid   type sethier-setid,
        v_zlspr    type bseg-zlspr.

  data: rg_user type zibkk_r_hkont occurs 0.

* Efetua query

  select single zlspr from bseg into v_zlspr.

  if bseg-zlspr is initial and sy-subrc ne 0.
    bseg-zlspr = 'M'.

  elseif bseg-zlspr <> v_zlspr and sy-subrc = 0.

    if v_zlspr = 'M' and bseg-wrbtr le '50.000,00'.

      vc_setname = 'Nome_do_set_1'.

      perform busca_setid using vc_setname changing vc_setid.

      perform busca_intervalo tables rg_user using vc_setid.

      if sy-uname in rg_user.
        bseg-zlspr = ' '.
      else.
        message e001(zfi) with text-001.
      endif.

    elseif v_zlspr = 'M' and bseg-wrbtr between '50.000,00' and '150.000,00'.

      vc_setname = 'Nome_do_set_2'.

      perform busca_setid using vc_setname changing vc_setid.
      perform busca_intervalo tables rg_user using vc_setid.

      if sy-uname in rg_user.
        bseg-zlspr = ' '.
      else.
        message e001(zfi) with text-001. "usuário não tem permissão para
      endif.

    elseif v_zlspr = 'M' and bseg-wrbtr gt '150.000,01'.

      vc_setname = 'Nome_do_set_3'.

      perform busca_setid using vc_setname changing vc_setid.
      perform busca_intervalo tables rg_user using vc_setid.

      if sy-uname in rg_user.
        bseg-zlspr = ' '.
      else.
        message e001(zfi) with text-001. "usuário não tem permissão para
      endif.

    endif.

 

How to use GS01, GS02, GS03

 

 

P Antes de imprimir pense em seu compromisso com o Meio ambiente.