Code: Alles auswählen.
CALL FUNCTION 'ARCHIV_GET_CONNECTIONS'
EXPORTING
objecttype = 'VTTK'
object_id = l_object_id
TABLES
connections = lt_connections
EXCEPTIONS
nothing_found = 1
OTHERS = 2.
IF sy-subrc = 0.
READ TABLE lt_connections INTO lw_connections INDEX 1.
CALL FUNCTION 'ARCHIVOBJECT_GET_TABLE'
EXPORTING
archiv_id = lw_connections-archiv_id
document_type = lv_document_class
archiv_doc_id = lw_connections-arc_doc_id
signature = 'X'
compid = ifirstpage
IMPORTING
length = ilength
TABLES
archivobject = idoc
binarchivobject = idoc_binary
EXCEPTIONS
error_archiv = 1
error_communicationtable = 2
error_kernel = 3
OTHERS = 4.
CASE sy-subrc.
WHEN 0.
COMMIT WORK.
REFRESH itab.
CALL METHOD cl_rmps_general_functions=>convert_1024_to_255
EXPORTING
im_tab_1024 = idoc_binary[]
RECEIVING
re_tab_255 = itab[].
lv_filename_down = '\\C:\temp\frachtrief.tif'.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
* bin_filesize = bin_filesize
filename = lv_filename_down
* filename = '\\P1030.gruppe.local:\_Austausch\Factoring_ungarn\Download_Frachtbrief.TIF'
filetype = 'BIN'
IMPORTING
filelength = length
TABLES
data_tab = itab
* FORMAT_TAB =
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6.
Code: Alles auswählen.
compid = ifirstpage