FDTA Control de descarga

[zhibys]

Hola a todos,

Tengo un problema que no soy capaz de solucionar. Debido a una auditoria, se necesita controlar que la descarga de los ficheros en la FDTA sólo se pueda realizar en una determinda carpeta. Sólo encuentro la EXIT_SAPMFDTA_001 pero es después de la descarga.

Sabeis si hay alguna otra forma de controlar la descarga.

Gracias anticipadas y saludos.

[Fer23]

me interesa

hola, me interesa este tema

justamente me están pidiendo la forma de que el archivo baje sin intervención del user. alguna alternativa?

gracias,

[zhibys]

Hola,


te contesto yo mismo.
Despues de pelearme mucho con ello, ya lo he conseguido, pero no se si te servirá. Yo lo que hecho ha sido copiar el standard. NO sé si esto te servirá, porque sólo conseguí que me descargue a PC, la descarga offline a UNIX no he sido capaz de realizarla. Construye una tabla xtring, que al descargar a UNIX queda mal.

Te copio el código que he utilizado para descargar a PC.


PERFORM read_data(saplfpaym05)
TABLES li_conten[]
USING space
i_regut-tsnam
CHANGING result
hlp_rsts_rc
hlp_rsts_msg
hlp_fbhandle
hlp_tab_temse_laenge.


PERFORM convert_data TABLES li_conten[]
USING '1100'
'1100'.

CONCATENATE p_path l_fich INTO l_path.

DESCRIBE TABLE li_conten LINES lines.

IF l_existe = space.


LOOP AT li_conten INTO wa_xfile.
CLEAR last_length.
linesize = XSTRLEN( wa_xfile ).
filesize = filesize + linesize.
length = linesize.
WHILE length > 0.
fill_length = lc_sizeline - last_length.
IF length >= fill_length.
CONCATENATE wa_x wa_xfile(fill_length) INTO wa_x IN BYTE MODE.
* CONCATENATE wa_x lcrlf INTO wa_x.
APPEND wa_x TO tab_x.
SHIFT wa_xfile BY fill_length PLACES IN BYTE MODE.
length = length - fill_length.
last_length = 0.
CLEAR wa_x.
ELSE.
CONCATENATE wa_x wa_xfile(length) INTO wa_x IN BYTE MODE.
SHIFT wa_xfile BY length PLACES IN BYTE MODE.
last_length = last_length + length.
IF lines = 1.
* CONCATENATE wa_x lcrlf INTO wa_x.
APPEND wa_x TO tab_x.
CLEAR wa_x.
ENDIF.
length = 0.
ENDIF.
ENDWHILE.
lines = lines - 1.
ENDLOOP.


ENDIF.



DATA l_file TYPE string.

l_file = l_filename.

CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
bin_filesize = l_filesize
filename = l_file
filetype = 'BIN'
* APPEND = ' '
* WRITE_FIELD_SEPARATOR = ' '
* HEADER = '00'
* TRUNC_TRAILING_BLANKS = ' '
* WRITE_LF = 'X'
* COL_SELECT = ' '
* COL_SELECT_MASK = ' '
* DAT_MODE = ' '
* CONFIRM_OVERWRITE = ' '
* NO_AUTH_CHECK = ' '
* CODEPAGE = ' '
* IGNORE_CERR = ABAP_TRUE
* REPLACEMENT = '#'
* WRITE_BOM = ' '
* TRUNC_TRAILING_BLANKS_EOL = 'X'
* IMPORTING
* FILELENGTH =
TABLES
data_tab = li_lines
* FIELDNAMES =
* EXCEPTIONS
* FILE_WRITE_ERROR = 1
* NO_BATCH = 2
* GUI_REFUSE_FILETRANSFER = 3
* INVALID_TYPE = 4
* NO_AUTHORITY = 5
* UNKNOWN_ERROR = 6
* HEADER_NOT_ALLOWED = 7
* SEPARATOR_NOT_ALLOWED = 8
* FILESIZE_NOT_ALLOWED = 9
* HEADER_TOO_LONG = 10
* DP_ERROR_CREATE = 11
* DP_ERROR_SEND = 12
* DP_ERROR_WRITE = 13
* UNKNOWN_DP_ERROR = 14
* ACCESS_DENIED = 15
* DP_OUT_OF_MEMORY = 16
* DISK_FULL = 17
* DP_TIMEOUT = 18
* FILE_NOT_FOUND = 19
* DATAPROVIDER_EXCEPTION = 20
* CONTROL_FLUSH_ERROR = 21
* OTHERS = 22
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

[alefar1973]

FDTA Control de descarga

Hola,
DOnde trabaje yo (Soy funcional), teniamos el mismo caso, y el archivo se generaba en la PC, pero instantaneamente era movido al servidor.
Entiendo que solo podes crearlo en el server, pero a continuacion, via FTP o el software que utilicen para pasaje de archivos entre server y PCs pueden moverlo a continuacion de la creacion del archivo y de este modo se soluciona sencillamente el problema.

Espero haber servido en algo.

Saludos,
Alejandro