TIFF-Datei über Button öffnen

Code: Alles auswählen.

    WHEN 'OPENTIFF'.

      CALL METHOD grid1->get_selected_rows
        IMPORTING
          et_row_no = lt_row_no.

      LOOP AT lt_row_no
        INTO ls_test.

        READ TABLE gt_zebghprot ASSIGNING <ls_test> INDEX ls_test-row_id.

        IF sy-subrc = 0.
          LOOP AT lt_filename INTO ls_filename.
            ls_filename-fileintern = <ls_test>-dokid.
          ENDLOOP.

          CALL FUNCTION 'FILE_GET_NAME'
            EXPORTING
              logical_filename = 'ZE_ABLESUNG'
              parameter_1      = 'SER_Documente'
              parameter_2      = <ls_test>-dokid
            IMPORTING
              emergency_flag   = lv_emergency_flag
              file_format      = lv_file_format
              file_name        = lv_file_name
            EXCEPTIONS
              file_not_found   = 1
              OTHERS           = 2.

          OPEN DATASET lv_file_name FOR INPUT IN BINARY MODE.

*          READ DATASET lv_file_name INTO ld_xstring.

*          IF ld_xstring IS NOT INITIAL.
*            CLOSE DATASET lv_file_name.
*          ELSE.
*            sy-subrc = 4.
*          ENDIF.
        ENDIF.
      ENDLOOP.