主要使用BAPI_FIXEDASSET_CHANGE，
同时用的根据表名动态创建模板和fielcat。
下面是结构名
然后附上程序
*&---------------------------------------------------------------------*
*& 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
*&---------------------------------------------------------------------*
*& 包含 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
*&---------------------------------------------------------------------* *& 包含 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
*&---------------------------------------------------------------------*
*& 包含 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