顯示具有 upload 標籤的文章。 顯示所有文章
顯示具有 upload 標籤的文章。 顯示所有文章

2013年3月14日 星期四

Excel自本機上傳SAP server

  TYPE-POOLS : truxs.
  DATA: file_str TYPE string.
  DATA: lv_raw_data TYPE truxs_t_text_data.

  DATA: BEGIN OF lt_tab1 OCCURS 0,    "上傳暫存
          lifnr TYPE string,
          descr TYPE string,
          matnr TYPE string,
          ekorg TYPE string,
          esokz TYPE string,
          ekgrp TYPE string,
          netpr TYPE string,
          peinh TYPE string,
          meins TYPE string,
          waers TYPE string,
          minbm TYPE string,
          aplfz TYPE string,
          datab TYPE string,
          datbi TYPE string,
        END OF lt_tab1.

  file_str = p_file.


  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
*   I_FIELD_SEPERATOR          =
*   I_LINE_HEADER              =
      i_tab_raw_data             = lv_raw_data
      i_filename                 = p_file
    TABLES
      i_tab_converted_data       = lt_tab1
* EXCEPTIONS
*   CONVERSION_FAILED          = 1
*   OTHERS                     = 2
            .
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.