#14
|
|||
|
|||
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|