abap中TEXT_CONVERT_XLS_TO_SAP、CS_WHERE_USED_MAT的使用

*&---------------------------------------------------------------------*
*& REPORT  ZPP_BOM_BATCH_QUERY
*&
*& REPORTNAME   :BOM批量反查
*&---------------------------------------------------------------------*
*& CREATED BY   : LIUXINYUAN
*& CREATED DATE : 2016-03-01
*&---------------------------------------------------------------------*

REPORT  zpp_bom_batch_query.

TYPE-POOLS: slis.
TYPE-POOLS:icon.

TABLES:t001w,bseg,stpo,stas,mara,makt.

TYPE-POOLS : tpit.
DATA ls_bseg TYPE bseg." WITH HEADER LINE.
DATA it_buztab TYPE tpit_t_buztab WITH HEADER LINE.
DATA errtab TYPE tpit_t_errdoc WITH HEADER LINE.
DATA it_fldtab      TYPE tpit_t_fname       WITH HEADER LINE.

DATA it_tab TYPE truxs_t_text_data.
DATA: BEGIN OF itab OCCURS 0,
       werks LIKE t001w-werks, "工厂
       idnrk LIKE stpo-idnrk,  "组件编号
       maktx LIKE makt-maktx,  "组件描述
END OF itab.


DATA: BEGIN OF lt_itab OCCURS 0,
       werks LIKE t001w-werks, "工厂
       idnrk LIKE stpo-idnrk,  "组件编号
       maktx LIKE makt-maktx,  "组件描述
       matnr LIKE mara-matnr,  "父项编号
       maktx1 LIKE makt-maktx, "父项描述
       tdlnr(200),             "替代料编号
END OF lt_itab.



DATA : BEGIN OF itmatnr OCCURS 200,
       idnrk LIKE stpo-idnrk,
       END OF itmatnr.




DATA : BEGIN OF alttab OCCURS 200,
       matnr LIKE mast-matnr,
       menge LIKE stpo-menge,
       END OF alttab.

DATA : BEGIN OF top_code OCCURS 100,
       matnr(18),
       maktx(40),
       meins(3),
       menge LIKE stpo-menge,
       matkl(9),
       wrkst(14),
       END OF top_code.

DATA : BEGIN OF makr OCCURS 10,
       maker(7),
       idnlf(22),
       END OF makr.

DATA : BEGIN OF usedtab OCCURS 100.
        INCLUDE STRUCTURE stpov.
DATA : END OF usedtab.

DATA : BEGIN OF equicat OCCURS 100.
        INCLUDE STRUCTURE cscequi.
DATA : END OF equicat.

DATA : BEGIN OF kndcat OCCURS 100.
        INCLUDE STRUCTURE cscknd.
DATA : END OF kndcat.

DATA : BEGIN OF matcat OCCURS 100.
        INCLUDE STRUCTURE cscmat.
DATA : END OF matcat.

DATA : BEGIN OF stdcat OCCURS 100.
        INCLUDE STRUCTURE   cscstd.
DATA : END OF stdcat.

DATA : BEGIN OF tplcat OCCURS 100.
        INCLUDE STRUCTURE   csctpl.
DATA : END OF tplcat.

DATA : top_cnt(5) TYPE n,
       m_cnt(5) TYPE n,
       lin(5) TYPE n,
       line_cnt(5) TYPE n.



**ALV
DATA:gt_event_exit TYPE slis_t_event_exit.
DATA:gs_event_exit TYPE slis_event_exit.

DATA:gt_fieldcat TYPE lvc_t_fcat WITH HEADER LINE.
DATA:gc_glay TYPE lvc_s_glay.
DATA:gs_layout    TYPE lvc_s_layo,     "SLIS_LAYOUT_ALV,
     wk_repid     LIKE sy-repid.
DATA:gs_grid TYPE lvc_s_glay.
DATA:tem_grid TYPE REF TO cl_gui_alv_grid.
DATA:gt_events TYPE slis_t_event.
DATA:gs_events LIKE LINE OF gt_events.

*DATA: RESULT LIKE ITAB OCCURS 0 WITH HEADER LINE.
DATA: result LIKE bseg OCCURS 0 WITH HEADER LINE.
DATA: fieldcat  TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DATA:variant LIKE disvariant.
DATA lt_bseg LIKE TABLE OF bseg WITH HEADER LINE.


DATA:itstpo TYPE TABLE OF stpo WITH HEADER LINE,
     ttstpo TYPE TABLE OF stpo WITH HEADER LINE,
     itstko TYPE TABLE OF stko WITH HEADER LINE,
     itmast TYPE TABLE OF mast WITH HEADER LINE.



PARAMETER p_file LIKE rlgrap-filename DEFAULT 'C:\'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file. "类似上传附件时的那个浏览按钮

******************初始屏幕结束**********************************************************************

******************批量导入的BAPI**********************************************************************

  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_filename     = space
      def_path         = p_file
      mask             = text-001
      mode             = 'O'
    IMPORTING
      filename         = p_file
    EXCEPTIONS
      selection_cancel = 0.

START-OF-SELECTION.

  CLEAR:itab,result.
  CLEAR:itab[],result[].


*excel 数据导入
  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
      i_tab_raw_data       = it_tab
      i_filename           = p_file
    TABLES
      i_tab_converted_data = itab
    EXCEPTIONS
      conversion_failed    = 1
      OTHERS               = 2.
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ELSE.
    DELETE itab INDEX 1.
  ENDIF.

  REFRESH lt_itab.
  CLEAR lt_itab.

  LOOP AT itab.
    REFRESH usedtab.
    CLEAR usedtab.
    CALL FUNCTION 'CS_WHERE_USED_MAT'
      EXPORTING
        datub                      = '99991231'
        datuv                      = sy-datum
        matnr                      = itab-idnrk
        werks                      = itab-werks
      TABLES
        wultb                      = usedtab
        equicat                    = equicat
        kndcat                     = kndcat
        matcat                     = matcat
        stdcat                     = stdcat
        tplcat                     = tplcat
      EXCEPTIONS
        call_invalid               = 1
        material_not_found         = 2
        no_where_used_rec_found    = 3
        no_where_used_rec_selected = 4
        no_where_used_rec_valid    = 5
        OTHERS                     = 6.

    LOOP AT usedtab WHERE stlan = '1' AND stlst = '1'.
      lt_itab-werks = usedtab-werks.
      lt_itab-idnrk = usedtab-idnrk.
      SELECT SINGLE
             maktx
             INTO lt_itab-maktx
             FROM makt
             WHERE matnr = lt_itab-idnrk
               AND spras = sy-langu.

      lt_itab-matnr = usedtab-matnr.
      SELECT SINGLE
             maktx
             INTO lt_itab-maktx1
             FROM makt
             WHERE matnr = lt_itab-matnr
               AND spras = sy-langu.


      IF usedtab-alpgr <> ''.
        REFRESH itmatnr.
        CLEAR itmatnr.

        SELECT idnrk INTO TABLE itmatnr
          FROM stpo
          WHERE stlnr = usedtab-stlnr
            AND idnrk <> usedtab-idnrk
            AND alpgr = usedtab-alpgr.
        IF itmatnr[] IS NOT INITIAL.
          SORT itmatnr BY idnrk.
          DELETE ADJACENT DUPLICATES FROM itmatnr.
          LOOP AT itmatnr.
            IF lt_itab-tdlnr = ''.
              lt_itab-tdlnr = itmatnr-idnrk.
            ELSE.
              CONCATENATE lt_itab-tdlnr ',' itmatnr-idnrk INTO lt_itab-tdlnr.
            ENDIF.

          ENDLOOP.
          APPEND lt_itab.
          CLEAR lt_itab.
        ELSE.
          APPEND lt_itab.
          CLEAR lt_itab.
        ENDIF.
      ELSE.
        APPEND lt_itab.
        CLEAR lt_itab.
      ENDIF.


    ENDLOOP.
  ENDLOOP.
  SORT lt_itab BY werks idnrk matnr tdlnr DESCENDING.
  DELETE ADJACENT DUPLICATES FROM lt_itab COMPARING werks idnrk matnr." TDLNR.

  PERFORM frm_display.


*&---------------------------------------------------------------------*
*&      FORM  DISPLAY_DATA
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM frm_display .
  REFRESH gt_fieldcat.
  CLEAR gt_fieldcat.
  REFRESH gt_events.
  CLEAR gt_events.
  CLEAR gs_layout.
  CLEAR gs_grid.

  DEFINE fill_alv.
    clear gt_fieldcat.
    gt_fieldcat-fieldname  = &1.
    gt_fieldcat-scrtext_m  = &2 .
    gt_fieldcat-outputlen  = &3.
    if gt_fieldcat-fieldname <> 'SHLV'.
      gt_fieldcat-decimals_o = &4.
    endif.
    append gt_fieldcat.
  END-OF-DEFINITION.


  fill_alv 'WERKS' '工厂    '  '12' ''.
  fill_alv 'IDNRK' '组件编号    '  '18' ''.
  fill_alv 'MAKTX' '组件描述    '  '40' ''.
  fill_alv 'MATNR' '父项编号    '  '18' ''.
  fill_alv 'MAKTX1' '父项描述    '  '40' ''.
  fill_alv 'TDLNR' '替代料编号    '  '60' ''.

  gs_layout-stylefname   = 'FSTYLE'.
  gs_layout-zebra        = 'X'.
*  GS_LAYOUT-CWIDTH_OPT   = 'X'.
*  GS_LAYOUT-BOX_FNAME = 'CHK'.
  gs_grid-edt_cll_cb = 'X'.

*  **************定义事件FORM名称*********************
  gs_events-name = 'CALLER_EXIT'.
  gs_events-form = 'CALLER_EXIT'.
  APPEND gs_events TO gt_events.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program       = sy-repid
      i_callback_user_command  = 'USER_COMMAND'
*     I_CALLBACK_TOP_OF_PAGE   = 'TOP_OF_PAGE'
      i_callback_pf_status_set = 'SET_PF'
      it_fieldcat_lvc          = gt_fieldcat[]
      i_grid_settings          = gs_grid
      is_layout_lvc            = gs_layout
      i_save                   = 'X'
*     IT_EVENTS                = GT_EVENTS
    TABLES
      t_outtab                 = lt_itab.

ENDFORM.                    " DISPLAY_DATA

*&---------------------------------------------------------------------*
*&      FORM  STANDARD_FULLSCREEN
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
FORM set_pf USING rt_extab TYPE slis_t_extab.

  DATA:BEGIN OF ex_tab OCCURS 0,
           fcode LIKE sy-ucomm,
        END OF ex_tab.

  SET PF-STATUS 'STANDARD_FULLSCREEN'.

ENDFORM.                    "SET_STATUS