ABAP批量更改资产信息(AS02)

主要使用BAPI_FIXEDASSET_CHANGE,

同时用的根据表名动态创建模板和fielcat。

下面是结构名

ABAP批量更改资产信息(AS02)

 

 ABAP批量更改资产信息(AS02)

 

然后附上程序

ABAP批量更改资产信息(AS02)
*&---------------------------------------------------------------------*
*& Report ZFICOR025
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zficor025 MESSAGE-ID zhele.

INCLUDE zficor025_top.

INCLUDE zficor025_scr.

INCLUDE zficor025_frm.

INITIALIZATION.
  sscrfields-functxt_01 = '下载文档'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file2.
* 选择文件搜索帮助
  PERFORM frm_set_file_f4 USING p_file2 CHANGING p_file2.

AT SELECTION-SCREEN.
  CASE sscrfields-ucomm.
    WHEN 'FC01'.
      PERFORM frm_down_excel.
    WHEN OTHERS.
  ENDCASE.

START-OF-SELECTION.
*  IF r0 EQ 'X'.
    IF p_file2 IS INITIAL.
      MESSAGE '请输入文件名' TYPE 'S' DISPLAY LIKE 'E'.
      RETURN.
    ENDIF.
    PERFORM frm_get_data. "动态创建内表 <dyn_table>,并生成lt_alv_cat
    PERFORM frm_file_data2.
    PERFORM frm_check_data.
*    PERFORM frm_save_data.
*  ENDIF.
*  IF r1 EQ 'X'.
*    PERFORM frm_get_data. "动态创建内表 <dyn_table>,并生成lt_alv_cat
*    PERFORM frm_get_data2. "从表 zficos025 获取数据
*  ENDIF.

END-OF-SELECTION.
  PERFORM f_display_data.
View Code

包含文件ZFICOR025_TOP

ABAP批量更改资产信息(AS02)
*&---------------------------------------------------------------------*
*& 包含               ZFICOR025_TOP
*&---------------------------------------------------------------------*
TABLES:sscrfields.
DATA: d_ref      TYPE REF TO data,
      d_ref2     TYPE REF TO data,
      lt_alv_cat TYPE TABLE OF lvc_s_fcat,
      ls_alv_cat LIKE LINE OF lt_alv_cat.

DATA: lt_table LIKE TABLE OF dntab.
DATA: ls_table TYPE dntab.

DATA: dyn_table TYPE REF TO data.
DATA: dyn_wa TYPE REF TO data.
FIELD-SYMBOLS :<dyn_table> TYPE table,
               <dyn_wa>    TYPE any,
               <dyn_field> TYPE any,
               <fs_str>    TYPE any.


DATA: dyn_table2 TYPE REF TO data.
DATA: dyn_wa2 TYPE REF TO data.


FIELD-SYMBOLS :<dyn_table2> TYPE table,
               <dyn_wa2>    TYPE any,
               <dyn_field2> TYPE any,
               <fs_str2>    TYPE any.
DATA: go_excel    TYPE ole2_object,
      go_workbook TYPE ole2_object,
      go_sheet    TYPE ole2_object.
DATA: gs_layout   TYPE lvc_s_layo,
      gt_fieldcat TYPE lvc_t_fcat.

TYPES: BEGIN OF sy_output.
    INCLUDE STRUCTURE zficos025.
TYPES: zcolor(4),
       message   TYPE char200, "
       cellcolor TYPE lvc_t_scol,
       slbox,
       END OF sy_output.

DATA: gt_output TYPE TABLE OF sy_output,
      gs_output TYPE sy_output.
View Code 

包含文件ZFICOR025_SCR

ABAP批量更改资产信息(AS02)
*&---------------------------------------------------------------------*
*& 包含               ZFICOR025_SCR
*&---------------------------------------------------------------------*

SELECTION-SCREEN: BEGIN OF BLOCK b01 WITH FRAME TITLE TEXT-001.
*PARAMETERS: p_name TYPE dd03l-tabname OBLIGATORY.
PARAMETERS: p_file2 TYPE string MODIF ID m2.
*PARAMETERS: r0      RADIOBUTTON GROUP g1 USER-COMMAND u1.
*            r1      RADIOBUTTON GROUP g1.
SELECTION-SCREEN: FUNCTION KEY 1.
SELECTION-SCREEN: END OF BLOCK b01.
View Code

包含文件ZFICOR025_FRM

ABAP批量更改资产信息(AS02)
*&---------------------------------------------------------------------*
*& 包含               ZMMR091_01_FORM
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& FORM FRM_SET_FILE_F4
*&---------------------------------------------------------------------*
*& TEXT
*&---------------------------------------------------------------------*
*      -->P_P_FILE2  TEXT
*      <--P_P_FILE2  TEXT
*&---------------------------------------------------------------------*
FORM frm_set_file_f4  USING i_file CHANGING i_file2.
* 局部变量-文件名定义
  DATA l_filename TYPE rlgrap-filename.
* 选择文件搜索帮助
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_path         = i_file
      mask             = ',*.XLSX,*.XLSX,*.XLS,*.XLS.'
      mode             = '0'
      title            = TEXT-002
    IMPORTING
      filename         = l_filename
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.
* 如果选择了文件
  IF sy-subrc = 0 AND l_filename IS NOT INITIAL.
    i_file2 = l_filename.
  ENDIF.

ENDFORM.
FORM frm_down_excel .
  DATA: lv_selected_folder TYPE string,
        lv_fullpath        TYPE rlgrap-filename.
*  CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_BROWSE
*    CHANGING
*      SELECTED_FOLDER      = LV_SELECTED_FOLDER
*    EXCEPTIONS
*      CNTL_ERROR           = 1
*      ERROR_NO_GUI         = 2
*      NOT_SUPPORTED_BY_GUI = 3
*      OTHERS               = 4.
*  IF SY-SUBRC <> 0.
*  ENDIF.
*
*  LV_FULLPATH = LV_SELECTED_FOLDER && P_NAME && '.XLS'.

  SELECT COUNT(*) FROM dd03l WHERE tabname EQ 'ZFICOS025'.
  IF sy-subrc NE 0.
    MESSAGE '该表不存在' TYPE 'S' DISPLAY LIKE 'E'.
    RETURN.
  ENDIF.

*取出表结构的字段目录
  CALL FUNCTION 'NAMETAB_GET'
    EXPORTING
      langu          = sy-langu
      tabname        = 'ZFICOS025'
    TABLES
      nametab        = lt_table
    EXCEPTIONS
      no_texts_found = 1.
*根据取出的字段目录生成参考字段目录
  CLEAR lt_alv_cat.
  LOOP AT lt_table INTO ls_table.
    IF ls_table-fieldname NE 'MANDT'.
      ls_alv_cat-fieldname = ls_table-fieldname.
      ls_alv_cat-ref_table = 'ZFICOS025'.
      ls_alv_cat-ref_field = ls_table-fieldname.
      ls_alv_cat-seltext = ls_table-fieldtext.
      APPEND ls_alv_cat TO lt_alv_cat.
    ENDIF.
    CLEAR ls_alv_cat.
  ENDLOOP.

*内表创建

  CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = lt_alv_cat
    IMPORTING
      ep_table        = d_ref2.
*  BREAK-POINT.
*指定生成的内表到字段符号
  ASSIGN d_ref2->* TO <dyn_table2>.

*创建动态工作区结构
  CREATE DATA dyn_wa2 LIKE LINE OF <dyn_table2>.
  DATA: lt_zit0001 LIKE TABLE OF zit0001.
*创建动态工作区
  ASSIGN dyn_wa2->* TO <dyn_wa2>.

*  READ TABLE LT_ALV_CAT INTO LS_ALV_CAT INDEX 1.
*  IF SY-SUBRC EQ 0.
*    ASSIGN COMPONENT LS_ALV_CAT-FIELDNAME OF STRUCTURE <DYN_WA2> TO <FS_STR2>.
*    APPEND <DYN_WA2> TO <DYN_TABLE2>.
*  ENDIF.

*  BREAK-POINT.
*  <FS_STR> = '9998'.



  DATA: lv_destination  TYPE rlgrap-filename.
  DATA: ls_key          TYPE wwwdatatab.

*  SELECT * INTO CORRESPONDING FIELDS OF TABLE <DYN_TABLE> UP TO 1
*  ROWS FROM (P_NAME).

* 首先下载模版
*    SELECT SINGLE RELID OBJID FROM WWWDATA INTO CORRESPONDING FIELDS OF LS_KEY WHERE RELID = 'MI' AND OBJID = 'ZFICO049'.
*    CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
*      EXPORTING
*        KEY         = LS_KEY
*        DESTINATION = LV_DESTINATION.

* 打开模版
  CREATE OBJECT go_excel 'EXCEL.APPLICATION'.
  IF sy-subrc NE 0.
  ENDIF.
  SET PROPERTY OF go_excel 'DISPLAYALERTS' = 0.
  SET PROPERTY OF go_excel 'VISIBLE' = 1.
  CALL METHOD OF go_excel 'WORKBOOKS' = go_workbook.
  SET PROPERTY OF go_excel 'SHEETSINNEWWORKBOOK' = 1.
  CALL METHOD OF go_workbook 'ADD'.

*  CALL METHOD OF GO_WORKBOOK 'OPEN'
*    EXPORTING
*      #1 = LV_FULLPATH.
  CALL METHOD OF go_excel 'SHEETS' = go_sheet
      EXPORTING
          #1 = 1.
  CALL METHOD OF go_sheet 'ACTIVATE'.
*填值
  PERFORM excel_row_insert USING go_sheet 3 1 1. "复制并插入一行
  LOOP AT lt_alv_cat INTO ls_alv_cat.
    PERFORM fill_range USING 1 sy-tabix ls_alv_cat-seltext.
  ENDLOOP.
*关闭
  GET PROPERTY OF go_excel 'ACTIVESHEET' = go_sheet. "获取活动SHEET
  FREE OBJECT go_sheet.
  FREE OBJECT go_workbook.

  GET PROPERTY OF go_excel 'ACTIVEWORKBOOK' = go_workbook.


*  SET PROPERTY OF GO_EXCEL 'VISIBLE' = 0.  "是否显示EXCEL 此处显示不退出
  CALL METHOD OF go_workbook 'SAVES'.
*  CALL METHOD OF GO_WORKBOOK 'SAVES'
*    EXPORTING
*      #1 = LV_FULLPATH
*      #2 = 1.
*  CALL METHOD OF GO_WORKBOOK 'CLOSE'.
  CALL METHOD OF go_excel 'QUIT'.


  FREE OBJECT go_sheet.
  FREE OBJECT go_workbook.
  FREE OBJECT go_excel.
ENDFORM.

FORM excel_row_insert  USING lcobj_sheet
                            lc_row
                            lc_count
                            lv_rowcopy.
  DATA lc_range TYPE ole2_object.
  DATA h_borders  TYPE ole2_object.
  DO lc_count TIMES.
    CALL METHOD OF lcobj_sheet 'ROWS' = lc_range
      EXPORTING #1 = lv_rowcopy.
    CALL METHOD OF lc_range 'COPY'. "COPY第10行插入一个新行
    CALL METHOD OF lcobj_sheet 'ROWS' = lc_range
      EXPORTING #1 = lc_row.
    CALL METHOD OF lc_range 'INSERT'.
    CALL METHOD OF lc_range 'CLEARCONTENTS'. "是否需要清空CELL
  ENDDO.
ENDFORM.

FORM fill_range  USING   VALUE(f_row)
                         VALUE(f_col)
                         VALUE(f_value).

  DATA: row     TYPE i,
        col     TYPE i,
        lo_cell TYPE ole2_object.
  row = f_row.
  col = f_col.
  CALL METHOD OF go_excel 'CELLS' = lo_cell
    EXPORTING
    #1 = row
    #2 = col.
  SET PROPERTY OF lo_cell 'VALUE' = f_value.

ENDFORM.
*&---------------------------------------------------------------------*
*& FORM FRM_GET_DATA
*&---------------------------------------------------------------------*
*& TEXT
*&---------------------------------------------------------------------*
*& -->  P1        TEXT
*& <--  P2        TEXT
*&---------------------------------------------------------------------*
FORM frm_get_data .
*取出表结构的字段目录

  CALL FUNCTION 'NAMETAB_GET'
    EXPORTING
      langu          = sy-langu
      tabname        = 'ZFICOS025'
    TABLES
      nametab        = lt_table
    EXCEPTIONS
      no_texts_found = 1.
*根据取出的字段目录生成参考字段目录

  CLEAR lt_alv_cat.
  LOOP AT lt_table INTO ls_table.
*    IF LS_TABLE-FIELDNAME NE 'MANDT'.
    ls_alv_cat-fieldname = ls_table-fieldname.
    ls_alv_cat-ref_table = 'ZFICOS025'.
    ls_alv_cat-ref_field = ls_table-fieldname.
    IF ls_table-fieldname EQ 'MEINS'.
      ls_alv_cat-no_convext = 'X'.
*      CLEAR: ls_alv_cat-ref_field,ls_alv_cat-ref_table.
    ENDIF.
    ls_alv_cat-seltext   = ls_table-fieldtext.
    ls_alv_cat-scrtext_l = ls_table-fieldtext.
    ls_alv_cat-scrtext_m = ls_table-fieldtext.
    ls_alv_cat-scrtext_s = ls_table-fieldtext.
    APPEND ls_alv_cat TO lt_alv_cat.
*    ENDIF.
    CLEAR ls_alv_cat.
  ENDLOOP.

*内表创建

  CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = lt_alv_cat
    IMPORTING
      ep_table        = d_ref.


*指定生成的内表到字段符号
  ASSIGN d_ref->* TO <dyn_table>.

*创建动态工作区结构
  CREATE DATA dyn_wa LIKE LINE OF <dyn_table>.

*创建动态工作区
  ASSIGN dyn_wa->* TO <dyn_wa>.

* zcolor
  DELETE lt_alv_cat[] WHERE fieldname EQ 'MANDT'.
  ls_alv_cat-fieldname = 'ZCOLOR'.
*  ls_alv_cat-ref_table = 'ZFICOS025'.
*  ls_alv_cat-ref_field = 'ZCOLOR'.
  ls_alv_cat-seltext   = '更新结果'.
  ls_alv_cat-scrtext_l = '更新结果'.
  ls_alv_cat-scrtext_m = '更新结果'.
  ls_alv_cat-scrtext_s = '更新结果'.
  APPEND ls_alv_cat TO lt_alv_cat.
  ls_alv_cat-fieldname = 'MESSAGE'.
*  ls_alv_cat-ref_table = 'ZFICOS025'.
*  ls_alv_cat-ref_field = 'MESSAGE'.
  ls_alv_cat-seltext   = '更新信息'.
  ls_alv_cat-scrtext_l = '更新信息'.
  ls_alv_cat-scrtext_m = '更新信息'.
  ls_alv_cat-scrtext_s = '更新信息'.
  APPEND ls_alv_cat TO lt_alv_cat.

ENDFORM.
*&---------------------------------------------------------------------*
*& FORM FRM_FILE_DATA2
*&---------------------------------------------------------------------*
*& TEXT
*&---------------------------------------------------------------------*
*& -->  P1        TEXT
*& <--  P2        TEXT
*&---------------------------------------------------------------------*
FORM frm_file_data2 .
  DATA: lv_end TYPE c.
  DATA: lt_data  TYPE alsmex_tabline OCCURS 0 WITH HEADER LINE.
  DATA  lv_filename TYPE rlgrap-filename.
  DATA lv_tabix TYPE sy-tabix.
  lv_filename = p_file2.


  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'    "读取EXCEL文件中的内容
    EXPORTING
      filename                = lv_filename
      i_begin_col             = '1'
      i_begin_row             = '2'
      i_end_col               = '25'
      i_end_row               = '99999'
    TABLES
      intern                  = lt_data
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.

  LOOP AT lt_data.
*    CLEAR LV_END.
*    AT END OF ROW.
*      LV_END = 'X'.
*    ENDAT.
    lv_tabix = lt_data-col.
*    ADD 1 TO LV_TABIX.
    READ TABLE lt_alv_cat INTO ls_alv_cat INDEX lv_tabix.
    IF sy-subrc EQ 0.
      ASSIGN COMPONENT ls_alv_cat-fieldname OF STRUCTURE <dyn_wa> TO <fs_str>.
      <fs_str> = lt_data-value.


    ENDIF.

    AT END OF row.
*      APPEND <DYN_WA> TO <DYN_TABLE>.
      MOVE-CORRESPONDING <dyn_wa> TO gs_output.
      APPEND gs_output TO gt_output.
      CLEAR: <dyn_wa>,gs_output.
    ENDAT.

  ENDLOOP.
ENDFORM.

FORM frm_add_zero USING lc_char1 CHANGING lc_char2.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = lc_char1
    IMPORTING
      output = lc_char2.

ENDFORM.

*&---------------------------------------------------------------------*
*& FORM FRM_CHECK_DATA
*&---------------------------------------------------------------------*
*& TEXT
*&---------------------------------------------------------------------*
*& -->  P1        TEXT
*& <--  P2        TEXT
*&---------------------------------------------------------------------*
FORM frm_check_data .
  DATA: lv_leng   TYPE i,
        lv_tabix  TYPE sy-tabix,
        lv_tabix2 TYPE sy-tabix,
        lv_value1 TYPE char18,
        lv_value2 TYPE char18,
        lv_zcheck TYPE sy-tabix.

  LOOP AT gt_output INTO gs_output.
*    lv_leng = strlen( gs_output-ewbez ).
*    CLEAR: lv_tabix,lv_zcheck,lv_value2,lv_value1,lv_tabix2.
*
*    DO lv_leng TIMES.
*      ADD 1 TO lv_tabix2.
*      IF gs_output-matkl+lv_tabix(1) EQ '*' OR lv_tabix2 EQ lv_leng.
*        gs_output-zvalue1 = lv_value1.
*      ELSE.
*        ADD 1 TO lv_zcheck.
*        lv_value1 = |{ lv_value1 }{ gs_output-matkl+lv_tabix(1) }|.
*        IF lv_tabix EQ 0.
*          gs_output-zstart1 = lv_tabix.
*        ENDIF.
*        gs_output-zcheck1 = lv_zcheck.
*      ENDIF.
*      ADD 1 TO lv_tabix.
*    ENDDO.

    PERFORM frm_add_zero USING gs_output-anln1 CHANGING gs_output-anln1.
    PERFORM frm_add_zero USING gs_output-anln2 CHANGING gs_output-anln2.
    IF gs_output-anln2 EQ ''.
      gs_output-anln2 = '0000'.
    ENDIF.

    MOVE-CORRESPONDING gs_output  TO <dyn_wa>.
    APPEND <dyn_wa> TO <dyn_table>.
    MODIFY gt_output FROM gs_output TRANSPORTING anln1 anln2.
    CLEAR: gs_output.
  ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& FORM FRM_SAVE_DATA
*&---------------------------------------------------------------------*
*& TEXT
*&---------------------------------------------------------------------*
*& -->  P1        TEXT
*& <--  P2        TEXT
*&---------------------------------------------------------------------*
FORM frm_save_data .
*  IF <dyn_table>[] IS NOT INITIAL.
*    MODIFY ZFICOS025 FROM TABLE <dyn_table>.
*    IF sy-subrc EQ 0.
*      COMMIT WORK AND WAIT.
*    ELSE.
*      ROLLBACK WORK.
*    ENDIF.
*  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& FORM FRM_GET_DATA2
*&---------------------------------------------------------------------*
*& TEXT
*&---------------------------------------------------------------------*
*& -->  P1        TEXT
*& <--  P2        TEXT
*&---------------------------------------------------------------------*
*FORM frm_get_data2 .
*  SELECT *
*    INTO CORRESPONDING FIELDS OF TABLE @gt_output
*    FROM ZFICOS025.
*ENDFORM.

FORM f_display_data .
  PERFORM f_set_layout.
*  PERFORM F_SET_FIELDCAT.
  PERFORM f_alv_display TABLES gt_output.
ENDFORM.
FORM f_set_layout.
  CLEAR: gs_layout.
  gs_layout-box_fname = 'SLBOX'.
  gs_layout-zebra = 'X'.
  gs_layout-cwidth_opt = 'X'.
  gs_layout-ctab_fname = 'CELLCOLOR'.
ENDFORM.
*FORM F_SET_FIELDCAT.
*  CLEAR: GT_FIELDCAT[].
*  DATA: LS_FIELDCAT TYPE LVC_S_FCAT.
*  DEFINE SET_FIELDCAT.
*    CLEAR: LS_FIELDCAT.
*    LS_FIELDCAT-FIELDNAME = &1.
*    LS_FIELDCAT-REF_FIELD = &2.
*    LS_FIELDCAT-REF_TABLE = &3.
*    LS_FIELDCAT-CONVEXIT  = &4.
*    LS_FIELDCAT-DO_SUM    = &5.
*    LS_FIELDCAT-SELTEXT   = &6.
*    LS_FIELDCAT-SCRTEXT_L = &6.
*    LS_FIELDCAT-SCRTEXT_M = &6.
*    LS_FIELDCAT-SCRTEXT_S = &6.
*    LS_FIELDCAT-COLTEXT   = &6.
*    APPEND LS_FIELDCAT TO GT_FIELDCAT.
*  END-OF-DEFINITION.
**显示内容
*  SET_FIELDCAT 'RBUKRS' 'RBUKRS' 'ACDOCA' '' ''  '公司代码'.
*  SET_FIELDCAT 'GJAHR'  'GJAHR'  'ACDOCA' '' ''  '会计年度'.
*  SET_FIELDCAT 'BUDAT'  'BUDAT'  'ACDOCA' '' ''  '过账日期'.
*ENDFORM.
FORM f_alv_display TABLES it_table.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'F_SET_PF_STATUS'
      i_callback_user_command  = 'F_USER_COMMAND'
      is_layout_lvc            = gs_layout
      it_fieldcat_lvc          = lt_alv_cat
      i_save                   = 'U'
    TABLES
      t_outtab                 = it_table
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
  IF sy-subrc <> 0.
  ENDIF.
ENDFORM.
*-----------------------------------------------------------------------* *
*-----------------------------------------------------------------------*
FORM f_set_pf_status USING rt_extab TYPE slis_t_extab.
  SET PF-STATUS 'STD'.
ENDFORM.
*-----------------------------------------------------------------------* *
*-----------------------------------------------------------------------*
FORM f_user_command USING r_ucomm LIKE sy-ucomm
 rs_selfield TYPE slis_selfield.
  PERFORM f_check_change_data.
  CASE r_ucomm.
    WHEN 'ZCHANGE'.
      PERFORM frm_save_zchange. "保存资产更改数据
    WHEN '&IC1'."双击事件
      READ TABLE gt_output INTO DATA(gs_output) INDEX rs_selfield-tabindex.
      IF sy-subrc EQ 0.
        SET PARAMETER ID 'BUK' FIELD gs_output-bukrs.
        SET PARAMETER ID 'AN1' FIELD gs_output-anln1.
        SET PARAMETER ID 'AN2' FIELD gs_output-anln2.
        CALL TRANSACTION 'AS03' AND SKIP FIRST SCREEN.
      ENDIF.
  ENDCASE.
  PERFORM f_refresh_alv.
ENDFORM.
*-----------------------------------------------------------------------* *
*-----------------------------------------------------------------------*
FORM f_check_change_data.
  DATA: lo_grid TYPE REF TO cl_gui_alv_grid.
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = lo_grid.
  lo_grid->check_changed_data( ).
ENDFORM.
*-----------------------------------------------------------------------* *
*-----------------------------------------------------------------------*
FORM f_refresh_alv.
  DATA: lo_grid      TYPE REF TO cl_gui_alv_grid,
        ls_is_stable TYPE lvc_s_stbl.
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = lo_grid.
  ls_is_stable-col = 'X'.
  ls_is_stable-row = 'X'.
  lo_grid->refresh_table_display(
  EXPORTING
  is_stable = ls_is_stable
  EXCEPTIONS
  finished = 1
  OTHERS = 2 ).
  IF sy-subrc <> 0.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SAVE_ZCHANGE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_save_zchange .
  DATA: ls_generaldata  TYPE bapi1022_feglg001,
        ls_generaldatax TYPE bapi1022_feglg001x,
        ls_postingin    TYPE bapi1022_feglg002,
        ls_postinginx   TYPE bapi1022_feglg002x,
        ls_timedepend   TYPE bapi1022_feglg003,
        ls_timedependx  TYPE bapi1022_feglg003x,
        ls_allocations  TYPE bapi1022_feglg004,
        ls_allocationsx TYPE bapi1022_feglg004x,
        ls_return       TYPE bapiret2.
  DATA: lv_meins TYPE mara-meins.
  "前台事务码 AS02
  LOOP AT gt_output INTO DATA(ls_output).

    AUTHORITY-CHECK OBJECT 'ZHL_AUTHOR'
               ID 'ZBUKRS' FIELD ls_output-bukrs.
    IF sy-subrc NE 0.
      ls_output-zcolor = '@0A@'.
      ls_output-message = |无公司{ ls_output-bukrs }权限!|.
      MODIFY gt_output FROM ls_output.
      CONTINUE.
    ENDIF.

    IF ls_output-deakt CA '.-' OR ls_output-adatu CA '.-'.
      ls_output-zcolor = '@0A@'.
      ls_output-message = |日期格式请使用YYYYMMDD|.
      MODIFY gt_output FROM ls_output.
      CONTINUE.
    ENDIF.

*常规
    ls_generaldata-descript    = ls_output-txt50. "资产描述
    ls_generaldatax-descript   = ls_output-txt50x.
    ls_generaldata-descript2   = ls_output-txa50. "附加资产描述
    ls_generaldatax-descript2  = ls_output-txa50x.
    ls_generaldata-quantity    = ls_output-menge. "数量
    ls_generaldatax-quantity   = ls_output-mengex.

    CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'
      EXPORTING
        input          = ls_output-meins
*       LANGUAGE       = SY-LANGU
      IMPORTING
        output         = lv_meins
      EXCEPTIONS
        unit_not_found = 1
        OTHERS         = 2.


    ls_generaldata-base_uom    = lv_meins. "基本计量单位
    ls_generaldatax-base_uom   = ls_output-meinsx.

*过账信息
    ls_postingin-deact_date    = ls_output-deakt. "不激活的日期
    ls_postinginx-deact_date   = ls_output-deaktx.

*与时间相关
    ls_timedepend-from_date    = ls_output-adatu. "有效期起始日期
    ls_timedependx-from_date   = ls_output-adatux.
*    ls_timedepend-location     = ls_output-stort. "资产地点
*    ls_timedependx-location    = ls_output-stortx.
    ls_timedepend-room         = ls_output-raumn. "房间
    ls_timedependx-room        = ls_output-raumnx.
    ls_timedepend-costcenter   = ls_output-kostl. "成本中心
    ls_timedependx-costcenter  = ls_output-kostlx.

*分配
    ls_allocations-evalgroup1  = ls_output-ord41. "资产状态
    ls_allocationsx-evalgroup1 = ls_output-ord41x.
    ls_allocations-evalgroup4  = ls_output-ord41. "保管人
    ls_allocationsx-evalgroup4 = ls_output-ord41x.

    CALL FUNCTION 'BAPI_FIXEDASSET_CHANGE'
      EXPORTING
        companycode         = ls_output-bukrs
        asset               = ls_output-anln1
        subnumber           = ls_output-anln2
        generaldata         = ls_generaldata
        generaldatax        = ls_generaldatax
        postinginformation  = ls_postingin
        postinginformationx = ls_postinginx
        timedependentdata   = ls_timedepend
        timedependentdatax  = ls_timedependx
        allocations         = ls_allocations
        allocationsx        = ls_allocationsx
      IMPORTING
        return              = ls_return.
    IF ls_return-type = 'S'.
      COMMIT WORK AND WAIT.
      ls_output-zcolor = '@09@'.
    ELSE.
      ROLLBACK WORK.
      ls_output-zcolor = '@0A@'.
    ENDIF.
    ls_output-message = |{ ls_return-message }{ ls_return-message_v1 }{ ls_return-message_v2 }{ ls_return-message_v3 }{ ls_return-message_v4 }|.
    MODIFY gt_output FROM ls_output.
    CLEAR: ls_return,ls_allocationsx,ls_allocations,ls_timedepend,ls_timedependx,
           ls_postingin,ls_postinginx,ls_generaldata,ls_generaldatax,ls_output.
  ENDLOOP.

ENDFORM.
View Code

 

上一篇:搭建Java开发环境


下一篇:秘密的牛奶运输 题解