Download de arquivo DMS

 DATA: tl_doc_files   TYPE TABLE OF bapi_doc_files2,

      tl_comp        TYPE TABLE OF sdokcomprp,

      tl_bad_obj     TYPE TABLE OF sdokerrkey,

      tl_dms_comp    TYPE dms_tbl_comp,

      tl_content     TYPE TABLE OF drao.


DATA: wl_comp      TYPE sdokcomprp,

      wl_prop      TYPE sdokfilepr,

      wl_phio      TYPE sdokobject.


DATA: vl_filep       TYPE draw-filep,

      vl_comp_get(1) TYPE c.


  CALL FUNCTION 'BAPI_DOCUMENT_GETDETAIL2'

     EXPORTING

       documenttype    = wl_drat-dokar

       documentnumber  = wl_drat-doknr

       documentpart    = wl_drat-doktl

       documentversion = wl_drat-dokvr

     TABLES

       documentfiles   = tl_doc_files.

  

  READ TABLE tl_doc_files INTO wl_doc_file INDEX 1.

  CHECK sy-subrc IS INITIAL.


  wl_comp-class = 'DMS_PCD1'.

  wl_phio-class = 'DMS_PCD1'.

  wl_comp-objid = wl_doc_file-file_id.

  wl_phio-objid = wl_doc_file-file_id.


  APPEND wl_comp TO tl_comp.


  CALL FUNCTION 'SDOK_PHIOS_FILE_PROPERTIES_GET'

     TABLES

       components  = tl_comp

       bad_objects = tl_bad_obj.


 READ TABLE tl_comp INTO wl_comp INDEX 1.


 CALL FUNCTION 'CV120_DOC_GET_FILE'

    EXPORTING

      pf_file    = wl_comp-file_name

      pf_mode    = 'S'

   IMPORTING

      pfx_file   = vl_filep

   EXCEPTIONS

      wrong_appl = 1

      error      = 2

      OTHERS     = 3.


  CHECK sy-subrc IS INITIAL.

  CHECK NOT vl_filep IS INITIAL.


  CALL FUNCTION 'CV120_KPRO_CHECKOUT_TO_TABLE'

    EXPORTING

       ps_phio_id    = wl_phio

       pf_comp_get   = vl_comp_get

    TABLES  

       pt_components = tl_dms_comp

       ptx_content   = tl_content

    EXCEPTIONS

       error         = 1

       no_content    = 2

       OTHERS        = 3.


  IF sy-subrc IS NOT INITIAL.

      "MESSAGE...

       EXIT.

  ENDIF.


  CALL FUNCTION 'CV120_TRANSFER_DATA2CLIENT'

    EXPORTING

      pf_batchmode       = ''

      pf_mode            = 'GUI'

      pf_file            = vl_filep

    TABLES

      pt_drao            = tl_content

    EXCEPTIONS

      error             = 1

      OTHERS            = 2.

   

  IF sy-subrc IS NOT INITIAL.

      "MESSAGE...

      EXIT.

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

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