Open Jpg, Excel, word, pdf files from SAP screen.

Question

Hi SAP Fans,
We have built a customer screen with some fields at top and ALV grid at bottom (using Container and ABAP 00). In this ALV grid display, we show list of files uploaded into SAP using WS_UPLOAD and stored in cluster table. When user double clicks on any file, we should be able to open file in a pop-up and show its contents. If User double clicks on Excel, it should show Excel file, if user double clicks on Pdf, it should show in Acrobat reader. How is this done ? Do I have to code for each document type ?
Any help is appreciated.
Niranjan

Answer 1

hi,
use WS_EXECUTE FM..
REPORT ZWSEXECUTE.
DATA: BEGIN OF ITAB OCCURS 3,
      LINE(50),
      END OF ITAB.
PARAMETERS: PROG(70) DEFAULT
            'C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE'.
PARAMETERS: FILE1(70) DEFAULT 'C:TEMPTEST.TXT'.
* Tick to print the Text file after saving from MS
WORDS
PARAMETERS: S_UP  AS CHECKBOX.
* Tick to create new or overwrite Text file
PARAMETERS: S_NEW AS CHECKBOX.
IF S_UP = 'X'.
   CALL FUNCTION 'GUI_UPLOAD'
        EXPORTING
             FILENAME        = 'FILE1'
        TABLES
             DATA_TAB        = ITAB
        EXCEPTIONS
             FILE_OPEN_ERROR = 1.
   IF SY-SUBRC = 0.
     LOOP AT ITAB.
       WRITE: / ITAB.
     ENDLOOP.
   ELSE.
     WRITE: / 'File open error.'.
   ENDIF.
ELSE.
IF S_NEW = 'X'.
   CALL FUNCTION 'GUI_DOWNLOAD'
        EXPORTING
             FILENAME = 'FILE1'
        TABLES
             DATA_TAB = ITAB
        EXCEPTIONS
             FILE_WRITE_ERROR              = 1
             NO_BATCH                      = 2
             GUI_REFUSE_FILETRANSFER       = 3
             INVALID_TYPE                  = 4
             OTHERS                        = 5.
ENDIF.
CASE SY-SUBRC.
     WHEN 1.
          WRITE: / 'GUI DOWNLOAD FILE WRITE ERROR'.
     WHEN 2.
          WRITE: / 'GUI DOWNLOAD NO BATCH'.
     WHEN 3.
          WRITE: / 'GUI DOWNLOAD GUI REFUSE
FILETRANSFER'.
     WHEN 4.
          WRITE: / 'GUI DOWNLOAD INVALID TYPE'.
     WHEN 5.
          WRITE: / 'GUI DOWNLOAD OTHERS'.
ENDCASE.
CALL FUNCTION <b>'WS_EXECUTE'</b>
  EXPORTING
     PROGRAM       = PROG
     COMMANDLINE   = 'FILE1'
     INFORM        = ' '
  EXCEPTIONS
     FRONTEND_ERROR           = 1
     NO_BATCH                 = 2
     PROG_NOT_FOUND           = 3
     ILLEGAL_OPTION           = 4
     GUI_REFUSE_EXECUTE       = 5
     OTHERS                   = 6.
CASE SY-SUBRC.
   WHEN 1.
     WRITE: / 'FRONTEND ERROR'.
   WHEN 2.
     WRITE: / 'NO BATCH'.
   WHEN 3.
     WRITE: / 'PROGRAM NOT FOUND'.
   WHEN 4.
     WRITE: / 'ILLEGA OPTION'.
   WHEN 5.
     WRITE: / 'GUI REFUSE EXECUTE'.
   WHEN 6.
     WRITE: / 'OTHERS'.
ENDCASE.
ENDIF.