|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Exce, Gui_upload-necesitado de ayuda, por favor.
Buenas tardes,
Estoy adentrándome en el mundosap y poco a poco voy avanzando, despues de mucho leer por el foro, videos etc...actualmente me encuentro atascado en un problema y del cual os pido ayuda para seguir adelante. Tengo que crear un programa que permita la carga de equipos desde un fichero local, habrá una pantalla de selección donde se indicará la ruta del fichero a cargar en local y mostrará un alv con los resultados del proceso de carga. Actualmente tengo declarada estas variables: *** Estructura que recibirá datos del fichero *** TYPES: BEGIN OF ty_equipo, fecha_validez TYPE datab, tipo_equipo TYPE eqtyp, cod_equipo TYPE equnr, num_serie TYPE serge, fecha_servicio TYPE ilom_datab, fecha_adq TYPE andti , denominacion TYPE ktx01, material TYPE matnr, centro TYPE werks_d, emplazamiento TYPE stort, proveedor TYPE elief , trans TYPE char10, END OF ty_equipo. TYPES: ty_t_equipo TYPE STANDARD TABLE OF ty_equipo. DATA : it_equipo TYPE STANDARD TABLE OF ty_equipo, wa_equipo TYPE ty_equipo, it_resultado TYPE STANDARD TABLE OF bapiret2, wa_resultado LIKE LINE OF it_resultado, it_equipo2 TYPE ty_t_equipo, gt_file_table TYPE filetable, gv_filename TYPE file_table, gv_rc TYPE i, gv_save_9000 TYPE sy-ucomm, gv_ok_9000 TYPE sy-ucomm. Sé que alguna variable de aqui me sobra porque ya he hecho varias pruebas y no consigo que me cargue bien el excell. Este tiene 113 filas y 12 columnas pero en la tabla it_equipo, cuando debugeo solo veo 2x12, no lo entiendo. Estoy utilizando la clase y metodo file upload y gui_upload. Tengo en la pantalla de seleccion: SELECTION-SCREEN BEGIN OF BLOCK bloque1 with frame TITLE text-001. PARAMETERS: p_file type string OBLIGATORY. "Parametro para el fichero" SELECTION-SCREEN end of BLOCK bloque1 . FORM obtener_fichero CHANGING p_p_file. *** Aparecerá el cuadro para poder seleccionar el fichero *** CALL METHOD cl_gui_frontend_services=>file_open_dialog( EXPORTING window_title = gc_nofile CHANGING file_table = gt_file_table "Tipo filetable" rc = gv_rc "Tipo i" ). READ TABLE gt_file_table INTO gv_filename INDEX 1. IF sy-subrc = 0. MOVE gv_filename TO p_p_file. ELSE. MESSAGE gc_nodata TYPE 'S' DISPLAY LIKE 'E'. ENDIF. FORM upload_file . CALL METHOD cl_gui_frontend_services=>gui_upload( EXPORTING filename = p_file has_field_separator = abap_true CHANGING data_tab = it_equipo EXCEPTIONS file_open_error = 1 file_read_error = 2 no_batch = 3 gui_refuse_filetransfer = 4 invalid_type = 5 no_authority = 6 unknown_error = 7 bad_data_format = 8 header_not_allowed = 9 separator_not_allowed = 10 header_too_long = 11 unknown_dp_error = 12 access_denied = 13 dp_out_of_memory = 14 disk_full = 15 dp_timeout = 16 not_supported_by_gui = 17 error_no_gui = 18 OTHERS = 19 ). IF sy-subrc <> 0. ENDIF. No entiendo donde estoy cometiendo el error la verdad, y no se por donde tirar mas, disculpar tanto texto, lo siento mucho. Gracias de antemano. Úlima edición por quihe fecha: 09/05/23 a las 11:57:09. |
#2
|
|||
|
|||
Re: Exce, Gui_upload necesitado de ayuda, por favor.
Buenas a todos,
Le he dado otra vuelta de nuevo y finalmente, me llega a leer el excell al seleccionarlo, pero claro entiendo que estos datos tienen que volcarse en una tabla interna y posteriormente mostrarlos en el alv. Asi tengo actualmente el código: FORM obtener_fichero CHANGING p_p_file. *** Aparecerá el cuadro para poder seleccionar el fichero *** CALL FUNCTION 'F4_FILENAME' IMPORTING file_name = p_file. "Tiene que ser del tipo rlgrap-filename para que pueda leerlo". IF sy-subrc <> 0. MESSAGE gc_nodata TYPE 'S' DISPLAY LIKE 'E'. ENDIF. ENDFORM. FORM upload_file . *** Cargaremos el fichero,leerá los datos a través de esta función *** DATA: lt_raw_data TYPE truxs_t_text_data, lv_filename TYPE string. *** Con los datos obtenidos tras gui_upload convertirá estos datos a la estructura definida de la tabla internta*** CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP' EXPORTING i_line_header = abap_true "Indicará que tiene encabezado" i_tab_raw_data = lt_raw_data "Puse esta antes gt_file_table pero necesita tener necesita una tabla tipo truxs_t_text_data " i_filename = p_file TABLES i_tab_converted_data = it_equipo2 EXCEPTIONS conversion_failed = 1 OTHERS = 2. IF sy-subrc <> 0. * Implement suitable error handling here else. LOOP AT it_equipo2 into . ENDLOOP. ENDIF. ENDFORM. ¿como podria seguir? Gracias |
Herramientas | Buscar en Tema |
Desplegado | |
|
|