Como inserir objetos em request via programa

 Neste post trago um exemplo de como salvar linhas de tabelas em uma request via programa. Apesar do código estar salvando linhas da RBKP o código pode ser útil para gravar registros de configuração customizadas que devem ser ser transportados ao invés de configurados diretamente no ambiente produtivo.

Observação: a função TR_ORDER_CHOICE_CORRECTION abre um popup pedindo ao usuário que informe a request. Neste caso deve ser indicada uma request de workbench.


DATA: wl_rbkp      TYPE rbkp,

      vl_position  TYPE ddposition,

      tl_e071      TYPE tr_objects,

      tl_e071k     TYPE TABLE OF e071k,

      el_e071      TYPE e071.


  FIELD-SYMBOLS:  <fl_e071k> TYPE e071k.


  LOOP AT tg_rbkp INTO wl_rbkp.


    APPEND INITIAL LINE TO tl_e071k ASSIGNING <fl_e071k>.


    ADD 1 TO vl_position.

    <fl_e071k>-pgmid      = 'R3TR'.

    <fl_e071k>-object     = 'TABU'.

    <fl_e071k>-objname    = 'RBKP'.

    <fl_e071k>-as4pos     = vl_position.

    <fl_e071k>-mastertype = 'TABU'.

    <fl_e071k>-mastername = 'RBKP'.


    CONCATENATE sy-mandt

                wl_rbkp-belnr

                wl_rbkp-gjahr

                INTO <fl_e071k>-tabkey RESPECTING BLANKS.

  ENDLOOP.


  REFRESH: tl_e071.

  el_e071-pgmid    = 'R3TR'.

  el_e071-object   = 'TABU'.

  el_e071-obj_name = 'RBKP'.

  el_e071-objfunc  = 'K'.


  APPEND el_e071 TO tl_e071.

  CLEAR el_e071.


  CALL FUNCTION 'TR_ORDER_CHOICE_CORRECTION'

    EXPORTING

      iv_category = 'SYST'

    IMPORTING

      ev_order    = vg_request

      ev_task     = vg_task

    EXCEPTIONS

      OTHERS      = 3.

  IF sy-subrc IS NOT INITIAL.

    EXIT.

  ENDIF.


  CALL FUNCTION 'TR_APPEND_TO_COMM_OBJS_KEYS'

    EXPORTING

      wi_simulation         = ' '

      wi_suppress_key_check = ' '

      wi_trkorr             = vg_task

    TABLES

      wt_e071               = tl_e071

      wt_e071k              = tl_e071k

    EXCEPTIONS

      OTHERS                = 68.


  IF sy-subrc IS NOT INITIAL.

    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.        

Comentários

Postar um comentário

Postagens mais visitadas deste blog

Incluir arquivo em DMS já existente

Um mesmo número de DMS pode corresponder a vários arquivos. Você pode inserir todos na criação, mas também pode incluir depois. Um exemplo do uso é quando um usuário precisa anexar mais um comprovante a algum tipo de solicitação. Para isso vamos usar a BAPI_DOCUMENT_CHANGE2:   wl_doc_file-documenttype      = wl_drat-dokar.  wl_doc_dt-documenttype        = wl_drat-dokar.    wl_doc_file-documentnumber    = wl_drat-doknr.  wl_doc_dt-documentnumber      = wl_drat-doknr.  wl_doc_file-documentpart      = wl_drat-doktl.  wl_doc_dt-documentpart        = wl_drat-doktl.  wl_doc_file-documentversion   = wl_drat-dokvr.  wl_doc_dt-documentversion     = wl_drat-dokvr.  wl_doc_file-originaltype      = wl_anexo-item.  wl_doc_file-description       = wl_anexo-descr.  wl_doc_file-ws...
Leia mais >>

Esconder elementos de Tela

Imagem
  Vamos esconder um checkbox da tela. Para isso vamos começar com as declarações das variáveis:  SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001. PARAMETERS: ch_rel AS CHECKBOX, ch_pr_lc AS CHECKBOX. SELECTION-SCREEN SKIP. SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN PUSHBUTTON (30) btn USER-COMMAND click1. PARAMETER: gd_ucomm LIKE sy-ucomm NO-DISPLAY. SELECTION-SCREEN END OF LINE. SELECTION-SCREEN END OF BLOCK b1. O comando "Skip" serve  para dar um espaçamento, como se fosse para pular uma linha.   Logo após temos a declaração do botão que irá nos auxiliar no "Hide"(esconder) do nosso objeto, neste tutorial, o checkbox.   No último parâmetro temos um pequeno truque: caso você queira mais de um botão poderá declará-lo como um parâmetro que não será exibido na tela. Além disso você também pode deixar um valor padrão no parâmetro. INITIALIZATION.   CONCATENATE '@02@' text-010 INTO btn. AT SELECTION-SCREEN.  ...
Leia mais >>