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-wsapplication     = wl_anexo-tp_ext.

 wl_doc_file-docfile           = wl_anexo-path.


 wl_doc_file-storagecategory   = 'DMS_C1_ST'.

 wl_doc_file-sourcedatacarrier = 'DEFAULT'.


 wl_doc_file-checkedin         = abap_true.

 wl_doc_file-created_at        = sy-uzeit.

 wl_doc_file-created_by        = sy-uname.


 APPEND wl_doc_file TO tl_doc_files.


 CALL FUNCTION 'BAPI_DOCUMENT_CHANGE2'

    EXPORTING

      documenttype    = wl_doc_dt-documenttype

      documentnumber  = wl_doc_dt-documentnumber

      documentpart    = wl_doc_dt-documentpart

      documentversion = wl_doc_dt-documentversion

      documentdata    = wl_doc_dt

      documentdatax   = wl_doc_dtx

    IMPORTING

      return          = wl_bapiret2

    TABLES

      documentfiles   = tl_doc_files.


IF wl_bapiret2-TYPE NE 'E'.


   CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

      EXPORTING

        wait = abap_true.

ELSE.

  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .

ENDIF.

Comentários

Postar um comentário

Postagens mais visitadas deste blog

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 >>

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...
Leia mais >>