|
Me pillas q tengo poca cosa q hacer, y q lo q estás haciendo lo he hecho más o menos, porque yo llevo poco tiempo con SAP.
Eso de la AL11 lo hice yo y es subirlo al servidor de SAP, te pongo el código q yo usé:
* Tabla interna donde guardaremos el fichero txt
DATA: i_txt TYPE ty_tab_txt.
DATA: w_ruta TYPE localfile.
PERFORM f_subir_txt_a_servidor USING i_txt
w_ruta.
*&---------------------------------------------------------------------*
*& Form F_SUBIR_TXT_A_SERVIDOR
*&---------------------------------------------------------------------*
* Subimos el fichero txt al servidor
*----------------------------------------------------------------------*
* -->PI_TXT Tabla que contiene todas las líneas a subir
* -->PI_RUTA Ruta donde guardar el fichero txt
*----------------------------------------------------------------------*
FORM f_subir_txt_a_servidor USING pi_txt TYPE ty_tab_txt
pi_ruta TYPE localfile.
FIELD-SYMBOLS: <fs_txt> TYPE ty_tyl_txt.
* si el fichero no existe lo crea
* con el appending añadimos al fichero más líneas, es decir
* la 1ª vez se meten 50 líneas,
* la 2ª vez habría 100 (50 + 50)
* no crea otro fichero nuevo, ni machaca al q ya existe
OPEN DATASET pi_ruta FOR APPENDING IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc = 0.
LOOP AT pi_txt ASSIGNING <fs_txt>.
TRANSFER <fs_txt> TO pi_ruta.
ENDLOOP.
CLOSE DATASET pi_ruta.
IF sy-subrc <> 0.
MESSAGE e999(pp) WITH text-003 pi_ruta. "mal cerrado
ENDIF.
ELSE.
MESSAGE e999(pp) WITH text-002 pi_ruta. "mal abierto
ENDIF.
ENDFORM. " F_SUBIR_TXT_A_SERVIDOR
|