QA12更改使用决策时自动转至长文本并报错上载附件 Word2007template.dotm

sapcsw / 2023-05-10 / 原文

*&---------------------------------------------------------------------*
*& Report Z_SCR_WORD_UPLOAD
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z_scr_word_upload LINE-SIZE 141
                         NO STANDARD PAGE HEADING MESSAGE-ID td.
* V2.1
DATA: dummy(80),
      f_ext(4).
PARAMETERS: Path LIKE dummy DEFAULT 'C:\Word2007template.dotm' LOWER CASE,
            ext  LIKE f_ext DEFAULT 'dotm' LOWER CASE.

DATA: bds_instance    TYPE REF TO cl_bds_document_set,
      bds_classname   TYPE sbdst_classname  VALUE
                         'SAPSCRIPTWORDINTEGRATION',
      bds_classtype   TYPE sbdst_classtype  VALUE 'OT',
      bds_objectkey   TYPE sbdst_object_key VALUE 'WORDTEMPLATE',
      doc_id_700      TYPE sbdst_doc_id     VALUE
                         'BDS_LOC2  A83FD83F732D5D1EE10000000A1550A7',
      doc_id_640      TYPE sbdst_doc_id     VALUE
                         'BDS_LOC2  B91FC640B91E325CE10000000A1551F7',
      doc_id_620      TYPE sbdst_doc_id     VALUE
                         'BDS_LOC2  40C0B062D5C34C4CE10000000A1145AB',
      bds_classname_7 TYPE sbdst_classname  VALUE
                         'SAPSCRIPTWORDINTEGRATION2',
      doc_id_7        TYPE sbdst_doc_id     VALUE
                         'BDS_LOC2  473BA296286672C0E10000000A1146E7',

      l_doc_id        TYPE sbdst_doc_id,
      l_doc_ver_no    TYPE sbdst_doc_ver_no,
      l_doc_var_id    TYPE sbdst_doc_var_id,

      l_files_line    TYPE bapifiles,
      l_files         TYPE TABLE OF bapifiles,

      filename        LIKE rlgrap-filename,
      dir             TYPE string,
      file            TYPE string,
      rel_i           TYPE i,
      rel(4),
      extt(1),
      rc              LIKE sy-subrc.

DATA: true   TYPE tdbool VALUE 'X',
      false  TYPE tdbool VALUE space,
      cancel.

filename = path.

* Check extension dot|dotm

IF NOT ( ext EQ 'dotm' OR ext EQ 'dot' ).
  PERFORM bd_textbox_err(rstxpdft) USING 80
       'Wrong file extension'(003).
  EXIT.
ENDIF.

PERFORM check_data.

PERFORM upload_file CHANGING filename
                             ext
                             dir
                             file
                             cancel.
IF cancel EQ true.
  EXIT.
ENDIF.

PERFORM init_file_line USING dir
                             file.
PERFORM init.
PERFORM upload CHANGING rc.

IF rc = 1.
  PERFORM bd_textbox_err(rstxpdft) USING 80
    'Error in Upload'(003).
ELSE.
  PERFORM bd_textbox_msg(rstxpdft) USING 80
    'The upload of Wordtemplate is done'(001).
ENDIF.

FORM init.
* init for 2003 Upload

* release

  rel = sy-saprl.
  rel_i = rel(2).

  IF     rel_i GE 70.
    l_doc_id = doc_id_700.
  ELSEIF rel_i EQ 64.
    l_doc_id = doc_id_640.
  ELSEIF rel_i EQ 62.
    l_doc_id = doc_id_620.
  ELSE.
    EXIT.
  ENDIF.

ENDFORM.

FORM init_file_line USING dir  TYPE string
                          file TYPE string.
* BDS file line
  DATA: file_up TYPE string.

  CLEAR l_files_line.
  file_up = file.
  TRANSLATE file_up TO UPPER CASE.
  CLEAR l_files_line.
*  l_files_line-comp_id   = 'WORDTEMPLATE.DOT'.
  l_files_line-comp_id   = 'Word2007template.dotm'.
  l_files_line-directory = dir.
  l_files_line-filename  = file_up.
  l_files_line-mimetype  = 'APPLICATION/MSWORD'.
  CLEAR l_files[].
  APPEND l_files_line TO l_files[].
ENDFORM.

FORM check_data.
  IF rel_i GE 70.
    PERFORM delete_rel USING 62.
    PERFORM delete_rel USING 64.
  ELSEIF rel_i EQ 64.
    PERFORM delete_rel USING 62.
    PERFORM delete_rel USING 70.
  ELSEIF rel_i EQ 62.
    PERFORM delete_rel USING 64.
    PERFORM delete_rel USING 70.
  ELSE.
    EXIT.
  ENDIF.
ENDFORM.

FORM delete_rel USING p_rel TYPE i.

  DATA: signature_line TYPE bapisignat,
        signature      TYPE TABLE OF bapisignat,
        pp_cancel      VALUE 'A',
        pp_replace_all VALUE 'R',
        pp_enter       VALUE 'E',
        pp_yes         VALUE 'J',
        pp_no          VALUE 'N',
        pp_leave.

  IF     p_rel EQ 62.
    MOVE: doc_id_620 TO signature_line-doc_id.
  ELSEIF p_rel EQ 64.
    MOVE: doc_id_640 TO signature_line-doc_id.
  ELSEIF p_rel EQ 70.
    MOVE: doc_id_700 TO signature_line-doc_id.
  ELSE.
    EXIT.
  ENDIF.

  APPEND signature_line TO signature[].

  CALL FUNCTION 'BDS_BUSINESSDOCUMENT_GET_INFO'
    EXPORTING
      classname       = bds_classname
      classtype       = bds_classtype
      object_key      = bds_objectkey
    TABLES
      signature