Chinaunix首页 | 论坛 | 博客
  • 博客访问: 153616
  • 博文数量: 26
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 219
  • 用 户 组: 普通用户
  • 注册时间: 2015-02-15 19:14
文章分类

全部博文(26)

文章存档

2017年(1)

2016年(1)

2015年(24)

我的朋友

分类: IT职场

2015-07-15 17:06:12

*&---------------------------------------------------------------------*
*& Report  ZR_SAL016
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZR_SAL016.

TYPE-POOLS: SLIS.
TYPE-POOLS: VRM.

DATA  LV_TABLENAME TYPE DD02L-TABNAME.

FIELD-SYMBOLS : TYPE ANY TABLE,
                TYPE            ANY,
                TYPE            ANY.

SELECTION-SCREEN BEGIN OF BLOCK SO_DOCUMENT WITH FRAME TITLE IIT.
PARAMETERS:
            P_TABLE LIKE LV_TABLENAME OBLIGATORY,
            P_FILE LIKE RLGRAP-FILENAME OBLIGATORY.
SELECTION-SCREEN END OF BLOCK SO_DOCUMENT.

INITIALIZATION.
  IIT = '动态更新表数据'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
  PERFORM SELECT_FILE.


START-OF-SELECTION.
  IF SY-UNAME <> 'IBM_02'.
    MESSAGE  '禁止使用更新数据库表操作!' TYPE 'E'.
    EXIT.
  ENDIF.

  PERFORM LOAD_DATA.
  PERFORM PRINT_OUT.

*&---------------------------------------------------------------------*
*&      Form  select_file
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM SELECT_FILE .
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      MASK             = ',Excel Files,*.xls,*.xlsx,All Files,*.*.'(101)
      TITLE            = '选择文件'(100)
    IMPORTING
      FILENAME         = P_FILE
    EXCEPTIONS
      INV_WINSYS       = 1
      NO_BATCH         = 2
      SELECTION_CANCEL = 3
      SELECTION_ERROR  = 4
      OTHERS           = 5.
  IF SY-SUBRC <> 0 AND SY-SUBRC <> 3.
*    MESSAGE e100(zdev) WITH '#######'(007).
  ENDIF.
ENDFORM.                    " SELECT_FILE

*&---------------------------------------------------------------------*
*&      Form  LOAD_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM LOAD_DATA.
  DATA: TAB_ZYFYB TYPE ZSSAL003 OCCURS 0 WITH HEADER LINE.
  DATA: TAB_HEAD TYPE ZSSAL003 OCCURS 0 WITH HEADER LINE.
  CALL FUNCTION 'ZALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      FILENAME                = P_FILE
      I_BEGIN_COL             = '1'
      I_BEGIN_ROW             = '1'
      I_END_COL               = '25'
      I_END_ROW               = '50000'
    TABLES
      INTERN                  = TAB_ZYFYB
    EXCEPTIONS
      INCONSISTENT_PARAMETERS = 1
      UPLOAD_OLE              = 2
      OTHERS                  = 3.

  IF SY-SUBRC <> 0 .

    EXIT.

  ENDIF.

  DATA: IT_FCAT TYPE         SLIS_T_FIELDCAT_ALV,
        IS_FCAT LIKE LINE OF IT_FCAT.
  DATA: IT_FIELDCAT TYPE         LVC_T_FCAT,
        IS_FIELDCAT LIKE LINE OF IT_FIELDCAT.

  DATA : LS_TABLE TYPE REF TO DATA ,
         LT_TABLE TYPE REF TO DATA .

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_STRUCTURE_NAME       = P_TABLE
    CHANGING
      CT_FIELDCAT            = IT_FCAT[]
    EXCEPTIONS
      INCONSISTENT_INTERFACE = 1
      PROGRAM_ERROR          = 2.

  IF SY-SUBRC <> 0.

    EXIT.

  ENDIF.

  LOOP AT IT_FCAT INTO IS_FCAT .
    MOVE-CORRESPONDING IS_FCAT TO IS_FIELDCAT.
    IS_FIELDCAT-FIELDNAME = IS_FCAT-FIELDNAME.
    IS_FIELDCAT-REF_FIELD = IS_FCAT-FIELDNAME.
    IS_FIELDCAT-REF_TABLE = IS_FCAT-REF_TABNAME.
    APPEND IS_FIELDCAT TO IT_FIELDCAT.
  ENDLOOP.

  CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG = IT_FIELDCAT
    IMPORTING
      EP_TABLE        = LT_TABLE.

  ASSIGN LT_TABLE->* TO .
  CREATE DATA LS_TABLE LIKE LINE OF .
  ASSIGN LS_TABLE->* TO .

  LOOP AT TAB_ZYFYB.

    IF TAB_ZYFYB-ROW = 1.

      APPEND TAB_ZYFYB TO TAB_HEAD.

      CONTINUE.

    ENDIF.

    READ TABLE TAB_HEAD WITH KEY COL = TAB_ZYFYB-COL.
    IF SY-SUBRC <> 0.
      CONTINUE.
    ENDIF.

    TRANSLATE TAB_HEAD-VALUE TO UPPER CASE.

    ASSIGN COMPONENT TAB_HEAD-VALUE OF STRUCTURE TO .

    IF SY-SUBRC <> 0.
      CONTINUE.
    ENDIF.

    = TAB_ZYFYB-VALUE.

    AT END OF ROW.

      MODIFY (P_TABLE) FROM .
      INSERT INTO TABLE .
      CLEAR .

    ENDAT.

  ENDLOOP.

  DATA LV_LENGHT TYPE I.

  LOOP AT TAB_HEAD .
    WRITE :  TAB_HEAD-VALUE(11) RIGHT-JUSTIFIED.
  ENDLOOP.

ENDFORM.                    "LOAD_DATA

*&---------------------------------------------------------------------*
*&      Form  print_out
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM PRINT_OUT.

  LOOP AT INTO .
    WRITE /.
    DO .

      ASSIGN COMPONENT SY-INDEX OF STRUCTURE TO .
      IF SY-SUBRC <> 0.
        EXIT.
      ENDIF.
      WRITE : .

    ENDDO.

  ENDLOOP.


ENDFORM.                    " PRINT_OUT
阅读(974) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~