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

*&---------------------------------------------------------------------*
*& 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       = signature
    EXCEPTIONS
      nothing_found   = 1
      parameter_error = 2
      not_allowed     = 3
      error_kpro      = 4
      internal_error  = 5
      not_authorized  = 6
      OTHERS          = 9.

  IF sy-subrc EQ 0.
    CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
      EXPORTING
        titel         = 'Template delete'
        textline1     =
                        'The system contains Wordtemplate.dot from old Basis release.'
        textline2     = 'Do you want to delete this Object?'
        defaultoption = pp_no
      IMPORTING
        answer        = pp_leave.
    IF pp_leave = pp_yes.
      CALL FUNCTION 'BDS_BUSINESSDOCUMENT_DELETE'
        EXPORTING
          classname       = bds_classname
          classtype       = bds_classtype
          object_key      = bds_objectkey
        TABLES
          signature       = signature
        EXCEPTIONS
          nothing_found   = 1
          parameter_error = 2
          not_allowed     = 3
          error_kpro      = 4
          internal_error  = 5
          not_authorized  = 6
          OTHERS          = 7.
    ENDIF.

* To do: Transport create on case of Yes answer.

  ENDIF.
ENDFORM.

FORM upload CHANGING rc LIKE sy-subrc.
  DATA: l_bds_classname TYPE sbdst_classname.

  IF ext EQ 'dotm'.
    l_bds_classname = bds_classname_7.
    l_doc_id        = doc_id_7.
  ELSE.
    l_bds_classname = bds_classname.
  ENDIF.

  CALL FUNCTION 'BDS_BUSINESSDOCUMENT_UPD_F'
    EXPORTING
      classname       = l_bds_classname
      classtype       = bds_classtype
      object_key      = bds_objectkey
      doc_id          = l_doc_id
      doc_ver_no      = l_doc_ver_no
      doc_var_id      = l_doc_var_id
    TABLES
      files           = l_files
    EXCEPTIONS
      nothing_found   = 1
      parameter_error = 2
      not_allowed     = 3
      error_kpro      = 4
      internal_error  = 5      not_authorized  
= 6      
OTHERS          = 7.  rc 

= sy-subrc.

ENDFORM.

FORM upload_file CHANGING                 p_filename     
LIKE rlgrap-filename                 p_ext          
LIKE ext                 p_dir          
TYPE string                 p_file         
TYPE string                 p_cancel       
TYPE c.  

DATA: name      TYPE string,        filetable 
TYPE filetable,        filter    
TYPE string,        rc        
TYPE i,        uact      
TYPE i,        result    
TYPE tdbool,        l_res     
TYPE i,        l_str     
TYPE i,        l_res2    
TYPE i,        l_find    
LIKE sy-subrc,        l_name    
TYPE string.

* condense filename no-gaps.  name     
= p_filename.  
CLEAR p_cancel.  
CLEAR p_dir.  
CLEAR p_file.  
IF p_ext EQ 'dotm'.    filter 
= '(Word2007template.dotm)|Word2007template.dotm|'.  
ELSE.    filter 
= '(Wordtemplate.dot)|Wordtemplate.dot|'.    " '(*.*)|*.*|)'.  
ENDIF.  
WHILE result EQ false.       " Search the file    
CALL METHOD cl_gui_frontend_services=>file_exist      
EXPORTING        file            
= name      RECEIVING        result          

= result      
EXCEPTIONS        cntl_error      
= 1        error_no_gui    
= 2        wrong_parameter 
= 3        
OTHERS          = 5.    
IF result EQ true.      
EXIT.    
ENDIF.    

CALL METHOD cl_gui_frontend_services=>file_open_dialog      
EXPORTING        window_title            
= 'Template Upload'
*       default_filename        = name        file_filter             
= filter      
CHANGING        file_table              
= filetable        rc                      
= rc        user_action             
= uact      
EXCEPTIONS        file_open_dialog_failed 
= 1        cntl_error              
= 2        error_no_gui            
= 3.    
CHECK sy-subrc = 0.    
IF rc < 0 OR uact EQ 9.      p_cancel 
= true.      
EXIT.    
ENDIF.    

READ TABLE filetable INDEX 1 INTO name.    
CHECK sy-subrc = 0.  
ENDWHILE.  

IF p_cancel NE 'X'.    l_name 

= name.    l_str 
= strlen( name ).    

WHILE l_find EQ 0 AND          l_res2 
LT l_str.      l_name 
= l_name+l_res.      
FIND '\' IN l_name MATCH OFFSET l_res.      l_find 
= sy-subrc.      
IF l_find EQ 0.        l_res 
= l_res + 1.        l_res2 
= l_res2 + l_res.      
ENDIF.    
ENDWHILE.    
IF l_res2 EQ 0.      p_cancel 
= 'X'.      
EXIT.    
ENDIF.    p_file 
= name+l_res2.    p_dir  
= name(l_res2).    p_filename 
= name.  
ELSE.    
EXIT.  
ENDIF.

ENDFORM.