前情提要

仅列出常用的BAPI，大家可以到具体的函数组中发现更多用法；角色可以创建的时候直接维护，或者单独维护；找不到BAPI的，比如公司代码，使用API来维护。

BAPI清单

创建BP
BAPI_BUPA_CREATE_FROM_DATA 创建BP, 包括中心数据、地址等
BAPI_BUPA_FS_CREATE_FROM_DATA2 功能同上，多一个角色分配功能
————————————————————————————————————
角色维护
BAPI_BUPA_ROLES_GET_2 获取分配的Role（按日期）
BAPI_BUPA_ROLE_ADD_2 添加Role
BAPI_BUPA_ROLE_CHANGE 修改已存在的Role属性
BAPI_BUPA_ROLE_EXIST_CHECK_2 校验Role是否存在
BAPI_BUPA_ROLE_REMOVE 删除已分配的Role
————————————————————————————————————
中心数据维护
BAPI_BUPA_CENTRAL_GETDETAIL 获取中心数据
BAPI_BUPA_CENTRAL_CHANGE 修改中心数据
————————————————————————————————————
地址信息维护
BAPI_BUPA_ADDRESSES_GET 获取所有地址信息
BAPI_BUPA_ADDRESS_ADD 添加地址信息
BAPI_BUPA_ADDRESS_CHANGE 修改已存在的地址信息
BAPI_BUPA_ADDRESS_GETDETAIL 获取某个地址的详细信息
BAPI_BUPA_ADDRESS_GET_NUMBERS 获取地址对应的address number
BAPI_BUPA_ADDRESS_REMOVE 删除地址信息
————————————————————————————————————
银行信息维护
BAPI_BUPA_BANKDETAILS_GET 获取所有的银行信息
BAPI_BUPA_BANKDETAIL_ADD 添加银行信息
BAPI_BUPA_BANKDETAIL_CHANGE 修改银行信息
BAPI_BUPA_BANKDETAIL_GETDETAIL 获取单个银行的详细信息
BAPI_BUPA_BANKDETAIL_NUMBERS 获取银行ID
BAPI_BUPA_BANKDETAIL_REMOVE 删除银行信息
————————————————————————————————————
Identification Number（标识号/证件号码）
BAPI_IDENTIFICATIONDETAILS_GET 获取所有标识号
BAPI_IDENTIFICATION_GET_DETAIL 获取单个标识号的详细信息
BAPI_IDENTIFICATION_ADD 新增标识号
BAPI_IDENTIFICATION_CHANGE 修改标识号
BAPI_IDENTIFICATION_REMOVE 删除标识号
————————————————————————————————————
API
CMD_EI_API_EXTRACT 读取BP客户信息
VMD_EI_API_EXTRACT 读取BP供应商信息
VMD_EI_API 维护BP供应商
CMD_EI_API 维护BP客户
————————————————————————————————————
增强
PARTNER_UPDATE BP创建或修改
ADDRESS_UPDATE BP地址（通信）数据维护
————————————————————————————————————
API示例代码（维护公司代码）
维护客户

form maintain_cust_company using u_bp_basic type zsmdg_bp_input_basic_req u_bp_comp_tab type zmdg_bp_input_company_req_t changing c_return_table type bapiret2_tab. "获取BP关联的客户编码，默认1对1 select single partner, b~partner_guid, customer from but000 as b inner join cvi_cust_link as c on c~partner_guid eq b~partner_guid where partner eq @u_bp_basic-bp_header into @data(ls_bp_cust). data:ls_master_data type cmds_ei_main, ls_customer type cmds_ei_extern, ls_central type cmds_ei_cmd_central, ls_company type cmds_ei_company, lt_company type cmds_ei_company_t, ls_message type cvis_message. clear ls_master_data. clear ls_customer. loop at u_bp_comp_tab into data(ls_bp_comp). ls_company-task = 'M'. ls_company-data_key-bukrs = ls_bp_comp-company. ls_company-data-akont = '1122010000'. ls_company-data-loevm = ls_bp_comp-loevm_b. ls_company-datax-akont = abap_true. ls_company-datax-loevm = abap_true. append ls_company to lt_company. endloop. ls_central-data-ktokd = 'DEBI'. ls_central-datax-ktokd = abap_true. ls_customer = value #( header = value #( object_instance = value #( kunnr = ls_bp_cust-customer ) object_task = 'M' ) central_data = value #( central = ls_central address = value #( postal = value #( data = value #( name = u_bp_basic-zzbpnm city = u_bp_basic-zzcity country = u_bp_basic-ref_posta langu = '1' ) datax = value #( name = abap_true city = abap_true country = abap_true langu = abap_true ) ) ) ) company_data = value #( company = lt_company current_state = abap_true ) ). append ls_customer to ls_master_data-customers. cmd_ei_api=>initialize( ). cmd_ei_api=>lock( iv_kunnr = ls_bp_cust-customer ). cmd_ei_api=>maintain( exporting is_master_data = ls_master_data importing es_error = ls_message ). cmd_ei_api=>unlock( iv_kunnr = ls_bp_cust-customer ). read table ls_message-messages transporting no fields with key type = 'E'. if sy-subrc ne 0. call function 'BAPI_TRANSACTION_COMMIT' exporting wait = abap_true. else. call function 'BAPI_TRANSACTION_ROLLBACK'. endif. append lines of ls_message-messages to c_return_table. endform.

维护供应商

form maintain_ven_company using u_bp_basic type zsmdg_bp_input_basic_req u_bp_comp_tab type zmdg_bp_input_company_req_t changing c_return_table type bapiret2_tab. "获取BP关联的供应商编码，默认1对1 select single partner, b~partner_guid, vendor from but000 as b inner join cvi_vend_link as v on v~partner_guid eq b~partner_guid where partner eq @u_bp_basic-bp_header into @data(ls_bp_vend). data:ls_master_data type vmds_ei_main, ls_vendor type vmds_ei_extern, ls_company type vmds_ei_company, lt_company type vmds_ei_company_t, ls_central type vmds_ei_vmd_central, ls_message type cvis_message. clear ls_master_data. clear ls_vendor. loop at u_bp_comp_tab into data(ls_bp_comp). ls_company-task = 'M'. ls_company-data_key-bukrs = ls_bp_comp-company. ls_company-data-akont = '2202020000'. ls_company-data-loevm = ls_bp_comp-loevm_b. ls_company-datax-akont = abap_true. ls_company-datax-loevm = abap_true. append ls_company to lt_company. endloop. ls_central-data-ktokk = 'KRED'. ls_central-datax-ktokk = abap_true. ls_vendor = value #( header = value #( object_instance = value #( lifnr = ls_bp_vend-vendor ) object_task = 'M' ) central_data = value #( central = ls_central address = value #( postal = value #( data = value #( name = u_bp_basic-zzbpnm city = u_bp_basic-zzcity country = u_bp_basic-ref_posta langu = '1' ) datax = value #( name = abap_true city = abap_true country = abap_true langu = abap_true ) ) ) ) company_data = value #( company = lt_company current_state = abap_true ) ). append ls_vendor to ls_master_data-vendors. vmd_ei_api=>initialize( ). vmd_ei_api=>lock( iv_lifnr = ls_bp_vend-vendor ). vmd_ei_api=>maintain( exporting is_master_data = ls_master_data importing es_error = ls_message ). vmd_ei_api=>unlock( iv_lifnr = ls_bp_vend-vendor ). read table ls_message-messages transporting no fields with key type = 'E'. if sy-subrc ne 0. call function 'BAPI_TRANSACTION_COMMIT' exporting wait = abap_true. else. call function 'BAPI_TRANSACTION_ROLLBACK'. endif. append lines of ls_message-messages to c_return_table. endform.

RFC DD_SHLP_SINGLE_STEP
c82dce2f-0ab5-4b90-9e9a-8799aa006109-image.png 

PERFORM f4proz_step_select
 TABLES shlp_tab
 record_tab
 CHANGING shlp_curr
 callcontrol ocxinterface cursor. *增加公司代码搜索帮助权限控制 
IF SHLP-SHLPNAME = 'H_T001'.
 data:lv_str type char10.
 LOOP AT RECORD_TAB ASSIGNING FIELD-SYMBOL(<fs_h_t001>).
 lv_str = <fs_h_t001>-string+0(7).
 CONDENSE lv_str NO-GAPS.
 AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
 吧ID 'BUKRS' FIELD lv_str.
 IF sy-subrc ne 0.
 delete RECORD_TAB.
 ENDIF.
 ENDLOOP.
ENDIF.

REPORT zfytypcfg. *&---------------------------------------------------------------------* *& Responsibility *&---------------------------------------------------------------------* * Program Name:ZFI_RPT_079 * Date written: 2017/2/27 * Author's name:醉逍遥 * Last update:2017/2/27 * Program title:费控-大类-细类-审批规则明细表 * Version:1.0 *&---------------------------------------------------------------------* * Description: (Incl. Related Function Area and System) *&---------------------------------------------------------------------* * *&---------------------------------------------------------------------* * CHANGING History *&---------------------------------------------------------------------* * Date | Programmer | Corr. # | Description * | | | * | | | *&---------------------------------------------------------------------* TABLES:ztprocess. TYPE-POOLS:slis,icon. *&---------------------------------------------------------------------* *& DATA *&---------------------------------------------------------------------* TYPES:BEGIN OF ty_xstd, fytyp TYPE ztfytyp-fytyp, END OF ty_xstd. DATA:gt_xstd TYPE TABLE OF ty_xstd, gs_xstd TYPE ty_xstd. *&--------------------------ALV----------------------------------------* DATA: gt_fieldcat TYPE TABLE OF lvc_s_fcat , "字段清单内表 gs_fieldcat LIKE lvc_s_fcat , "字段工作区 gs_layout TYPE lvc_s_layo. *&---------------------------------------------------------------------* *SELECT-OPTIONS *&---------------------------------------------------------------------* SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001. PARAMETERS: p_a1 RADIOBUTTON GROUP g1 USER-COMMAND uc DEFAULT 'X', p_a2 RADIOBUTTON GROUP g1, p_a3 RADIOBUTTON GROUP g1, p_a4 RADIOBUTTON GROUP g1, p_a5 RADIOBUTTON GROUP g1. SELECTION-SCREEN END OF BLOCK b1. *&---------------------------------------------------------------------* *INITIALIZATION *&---------------------------------------------------------------------* INITIALIZATION. *&---------------------------------------------------------------------* *AT SELECTION-SCREEN OUTPUT *&---------------------------------------------------------------------* AT SELECTION-SCREEN OUTPUT. *&---------------------------------------------------------------------* *SQL *&---------------------------------------------------------------------* START-OF-SELECTION. *Check PERFORM frm_check_selection. * 取数据 PERFORM frm_select_data. * 循环处理 PERFORM frm_process_data. END-OF-SELECTION. * ALV显示 PERFORM frm_output_alv. *&---------------------------------------------------------------------* *& Form FRM_CHECK_SELECTION *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_check_selection . ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_SELECT_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_select_data . ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_PROCESS_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_process_data . ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_OUTPUT_ALV *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_output_alv . PERFORM get_field USING:'ZCIRCNO' '保监牌照编码', 'ZCIRCNOT' '保监牌照名称', 'ZXSTD' '销售团队', 'ZXSTD_TXT50' '销售团队描述', 'KOSTL' '成本中心', 'LTEXT' '成本中心描述', 'TYDATE' '停用日期'. PERFORM alv_out TABLES gt_xstd . ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_OUTPUT_ALV *&---------------------------------------------------------------------* FORM alv_out TABLES pitab . gs_layout-cwidth_opt = 'X'.. " 自动调整列 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING i_callback_program = sy-repid i_callback_pf_status_set = 'FRM_SET_STATUS' i_callback_user_command = 'FRM_SET_COMMAND' i_callback_html_top_of_page = 'HTML_TOP_OF_PAGE' is_layout_lvc = gs_layout it_fieldcat_lvc = gt_fieldcat[] i_default = 'X' i_save = 'A' i_html_height_top = 16 TABLES t_outtab = pitab EXCEPTIONS program_error = 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. ENDFORM. " alv_out FORM get_field USING p1 p2 . gs_fieldcat-fieldname = p1 . gs_fieldcat-scrtext_l = p2 . APPEND gs_fieldcat TO gt_fieldcat. ENDFORM. " get_field *&---------------------------------------------------------------------* *& FRM_SET_STATUS *&---------------------------------------------------------------------* * 自定义状态栏 *----------------------------------------------------------------------* FORM frm_set_status CHANGING excluding . SET PF-STATUS 'STANDARD'. ENDFORM. "FRM_SET_STATUS *&---------------------------------------------------------------------* *& Form FRM_SET_COMMAND *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_UCOMM text * -->ps_selfield text *----------------------------------------------------------------------* FORM frm_set_command CHANGING pv_ucomm TYPE sy-ucomm ps_selfield TYPE slis_selfield. DATA: lc_grid TYPE REF TO cl_gui_alv_grid. DATA: lv_index TYPE i. CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPORTING e_grid = lc_grid. CALL METHOD lc_grid->check_changed_data. ps_selfield-refresh = 'X'. "自动刷新 CASE pv_ucomm. WHEN '&IC1'."双击事件 * IF ps_selfield-fieldname = 'BELNR'. "判断是否选中 * READ TABLE gt_yj INTO gs_yj INDEX ps_selfield-tabindex. "取出当前鼠标 * IF sy-subrc EQ 0. * SET PARAMETER ID: 'BUK' FIELD gs_yj-bukrs, * 'GJR' FIELD gs_yj-gjahr, * 'BLN' FIELD gs_yj-belnr. * CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN. * * ENDIF. * ENDIF. ENDCASE. " CALL METHOD lc_grid->REFRESH_TABLE_DISPLAY. ps_selfield-col_stable = 'X'. ps_selfield-row_stable = 'X'. ENDFORM. "FRM_SET_COMMAND *&---------------------------------------------------------------------* *& Form html_top_of_page *&---------------------------------------------------------------------* FORM html_top_of_page USING document TYPE REF TO cl_dd_document. DATA: text TYPE sdydo_text_element. DATA: m_p TYPE i, m_buffer TYPE string. text = '团财保费记账明细'. CONCATENATE '<HTML><CENTER><H1>' text '</H1></CENTER></HTML>' INTO m_buffer. " 居中 <H1>设置字体格式 CALL METHOD document->html_insert EXPORTING contents = m_buffer CHANGING position = m_p. text = '保监牌照名称:'. CALL METHOD document->add_text EXPORTING text = text sap_emphasis = 'Strong'. CALL METHOD document->add_text EXPORTING text = text sap_style = 'Key'. CALL METHOD document->new_line. text = '查询截至期间:'. CALL METHOD document->add_text EXPORTING text = text sap_emphasis = 'Strong'. CALL METHOD document->add_text EXPORTING text = text sap_style = 'Key'. CALL METHOD document->add_gap EXPORTING width = 2. ENDFORM. "HTML_TOP_OF_PAGE

"替换字符串中的某一个字符

DATA:lv_char TYPE c VALUE ‘C01’ LENGTH 10.

lv_char+0(1) = ‘B’.

WRITE:lv_char.

OVERLAY lv_char WITH ‘B’ ONLY lv_char.

WRITE: / lv_char.

REPLACE FIRST OCCURRENCE OF ‘C’ IN LV_CHAR WITH ‘B’.

WRITE: / lv_char.

此三种方法均能将C01转变成B01.

此处的类型是char如果是字符串则不能用第一种方法

要用replace来实现

DATA:lv_str TYPE string VALUE ‘D01’.

REPLACE SECTION OFFSET 0 LENGTH 1 OF LV_STR WITH ‘B’.

WRITE:/ lv_str.

写法一：

DATA: STR(20),STR2(20),N.

STR = ‘ abcade‘.

WRITE STR.

IF SUBSTRING( VAL = STR OFF = STRLEN( STR ) – 1 LEN = 1 ) = ‘‘.

STR = SUBSTRING( VAL = STR LEN = STRLEN( STR ) – 1 ) .

ENDIF.

WRITE / STR.

写法二：

DATA v_res TYPE string.

v_res = shift_right( val = str places = 0 ).

WRITE : v_res.

v_res = shift_right( val = str sub = |*| ).

使用sap的标准函数CHANGEDOCUMENT_READ_HEADERS 和CHANGEDOCUMENT_READ_POSITIONS CALL FUNCTION 'CHANGEDOCUMENT_READ_POSITIONS' "Change document: Read change document items EXPORTING * archive_handle = 0 " sy-tabix Handle on Open Archive Files changenumber = " cdpos-changenr Change document number * tablekey = SPACE " cdpos-tabkey Object class table key * tablename = SPACE " cdpos-tabname Object class table name * tablekey254 = SPACE " cdpos_uid-tabkey Table Key for CDPOS in Character 254 * keyguid = SPACE " cdpos_uid-keyguid UUID in Character Format * keyguid_str = SPACE " cdpos_str-keyguid UUID in Character Format IMPORTING header = " cdhdr Change document header (structure CDHDR) et_cdred_str = " cdred_str_tab Additional Change Document - Table for STRINGs * TABLES * editpos = " cdshw Table with edited change document items EDITPOS_WITH_HEADER = "CDRED 更改文档,显示结构 EXCEPTIONS NO_POSITION_FOUND = 1 " No item foun WRONG_ACCESS_TO_ARCHIVE = 2 " incorrect access to archive

2)使用select语
句直接从表中读取。

直接使用SELECT语句读取数据的示例：

*提取信用额度字段修改的抬头信息 select cdhdr~changenr cdhdr~udate cdhdr~utime into corresponding fields of table p_cdhdr from cdhdr where cdhdr~objectclas = 'KLIM' and cdhdr~objectid = wa_customerinfo-kunnr. if sy-subrc = 0. *提取信用额度字段修改的字段值 select cdpos~changenr cdpos~value_old cdpos~value_new into corresponding fields of table p_cdpos from cdpos for all entries in p_cdhdr where cdpos~objectclas = 'KLIM' and cdpos~objectid = wa_customerinfo-kunnr and cdpos~changenr = p_cdhdr-changenr and cdpos~tabname = 'KNKK' and cdpos~fname = 'KLIMK'. if sy-subrc = 0. endif. endif.

可以在CHANGEDOCUMENT_READ_HEADERS 中设置中断获得对象类型。

提取有变动的 Acc. changes

SELECT SINGLE tabkey value_new INTO (cdpos-tabkey,ikoinh) FROM cdpos WHERE objectclas = 'KRED' AND objectid = itab-lifnr AND changenr = itab-changenr AND tabname = 'LFBK' AND fname = 'KOINH'.

提取有变动的vendor最新日期

SELECT MAX( udate ) INTO itab-cndate FROM cdhdr WHERE objectclas = 'KRED' AND objectid = itab-lifnr.

抓取所有有变动的程序

report ztest001. TYPE-POOLS slis. DATA : cdhdr TYPE cdhdr. SELECT-OPTIONS : s_objcls FOR cdhdr-objectclas OBLIGATORY, s_objtid FOR cdhdr-objectid, s_chngnr FOR cdhdr-changenr, s_usrnam FOR cdhdr-username DEFAULT sy-uname, s_udate FOR cdhdr-udate DEFAULT sy-datum, s_time FOR cdhdr-utime, s_tcode FOR cdhdr-tcode, s_plncnr FOR cdhdr-planchngnr, s_chngno FOR cdhdr-act_chngno, s_wsplnd FOR cdhdr-was_plannd, s_chngid FOR cdhdr-change_ind. SELECTION-SCREEN SKIP. PARAMETERS p_max TYPE numc3 OBLIGATORY DEFAULT '200'. *---------------------------------------------------------------------* TYPES : BEGIN OF ty_s_cdhdr. INCLUDE STRUCTURE cdhdr. TYPES : checkbox, END OF ty_s_cdhdr, BEGIN OF ty_s_cdpos. INCLUDE STRUCTURE cdpos. TYPES : checkbox, END OF ty_s_cdpos. *---------------------------------------------------------------------* DATA : * Layout for ALV gs_layout TYPE slis_layout_alv, * Change document header t_cdhdr TYPE TABLE OF ty_s_cdhdr. *---------------------------------------------------------------------* START-OF-SELECTION. * Read Change document header SELECT * INTO TABLE t_cdhdr UP TO p_max ROWS FROM cdhdr WHERE objectclas IN s_objcls and objectid in s_objtid and changenr in s_chngnr AND username IN s_usrnam AND udate IN s_udate AND utime IN s_time AND tcode IN s_tcode AND planchngnr IN s_plncnr AND act_chngno IN s_chngno AND was_plannd IN s_wsplnd AND change_ind IN s_chngid. gs_layout-zebra = 'X'. gs_layout-colwidth_optimize = 'X'. gs_layout-box_fieldname = 'CHECKBOX'. * Display ALV CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_callback_program = sy-cprog i_callback_user_command = 'USER_COMMAND' i_structure_name = 'CDHDR' is_layout = gs_layout TABLES t_outtab = t_cdhdr. *---------------------------------------------------------------------* * FORM USER_COMMAND * *---------------------------------------------------------------------* FORM user_command USING u_ucomm TYPE syucomm us_selfield TYPE slis_selfield. "#EC CALLED * Macro definition DEFINE m_sort. add 1 to ls_sort-spos. ls_sort-fieldname = &1. ls_sort-up = 'X'. append ls_sort to lt_sort. END-OF-DEFINITION. DATA : ls_cdhdr TYPE ty_s_cdhdr, ls_sort TYPE slis_sortinfo_alv, lt_sort TYPE slis_t_sortinfo_alv, * Change document items lt_cdpos TYPE TABLE OF ty_s_cdpos. CASE u_ucomm. WHEN '&IC1'. PERFORM check_marked USING us_selfield. * Read Change document items LOOP AT t_cdhdr INTO ls_cdhdr WHERE checkbox = 'X'. SELECT * APPENDING TABLE lt_cdpos FROM cdpos WHERE objectclas = ls_cdhdr-objectclas AND objectid = ls_cdhdr-objectid AND changenr = ls_cdhdr-changenr. ENDLOOP. m_sort 'CHANGENR'. * Display ALV CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_structure_name = 'CDPOS' is_layout = gs_layout it_sort = lt_sort TABLES t_outtab = lt_cdpos. ENDCASE. ENDFORM. " USER_COMMAND *--------------------------------------------------------------------FORM check_marked USING us_selfield TYPE slis_selfield. FIELD-SYMBOLS : TYPE ty_s_cdhdr. READ TABLE t_cdhdr TRANSPORTING NO FIELDS WITH KEY checkbox = 'X'. IF NOT sy-subrc IS INITIAL AND NOT us_selfield-tabindex IS INITIAL. READ TABLE t_cdhdr INDEX us_selfield-tabindex ASSIGNING . -checkbox = 'X'. ENDIF. ENDFORM.

*&---------------------------------------------------------------------* *& Report ZTEST1 *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT ztest1. TABLES:spfli. ***"可编辑 ****----------------------------------------------------------------------* **** Define the Local class inheriting from the CL_SALV_MODEL_LIST **** to get an access of the model, controller and adapter which inturn **** provides the Grid Object ****----------------------------------------------------------------------* ***CLASS lcl_salv_model DEFINITION INHERITING FROM cl_salv_model_list. *** *** PUBLIC SECTION. *** DATA: o_control TYPE REF TO cl_salv_controller_model, *** o_adapter TYPE REF TO cl_salv_adapter. *** *** METHODS: *** grabe_model *** IMPORTING *** io_model TYPE REF TO cl_salv_model, *** *** grabe_controller, *** *** grabe_adapter. *** *** *** PRIVATE SECTION. *** DATA: lo_model TYPE REF TO cl_salv_model. *** ***ENDCLASS. "LCL_SALV_MODEL DEFINITION ****----------------------------------------------------------------------* **** LCL_SALV_MODEL implementation ****----------------------------------------------------------------------* ***CLASS lcl_salv_model IMPLEMENTATION. *** *** METHOD grabe_model. *** **** save the model *** lo_model = io_model. *** *** ENDMETHOD. "grabe_model *** *** METHOD grabe_controller. *** **** save the controller *** o_control = lo_model->r_controller. *** *** ENDMETHOD. "grabe_controller *** *** METHOD grabe_adapter. *** **** save the adapter from controller *** o_adapter ?= lo_model->r_controller->r_adapter. *** *** ENDMETHOD. "grabe_adapter *** ***ENDCLASS. "LCL_SALV_MODEL IMPLEMENTATION CLASS l_cl_handle_events DEFINITION. PUBLIC SECTION. METHODS: on_user_command FOR EVENT added_function OF cl_salv_events_table"新加按钮 IMPORTING e_salv_function. METHODS: on_after_func FOR EVENT after_salv_function OF cl_salv_events_table"标准按钮操作后 IMPORTING e_salv_function. METHODS: on_double_click FOR EVENT double_click OF cl_salv_events_table"双击 IMPORTING row "事件触发所在的行号 column."事件触发所在的列名 ENDCLASS. CLASS l_cl_handle_events IMPLEMENTATION. METHOD on_user_command. PERFORM handle_user_command USING e_salv_function. ENDMETHOD. METHOD on_after_func. PERFORM handle_after_func USING e_salv_function. ENDMETHOD. METHOD on_double_click. PERFORM dbclick_user_command USING row column. ENDMETHOD. ENDCLASS. DATA: gt_itab LIKE TABLE OF spfli WITH HEADER LINE. DATA: gt_table TYPE REF TO cl_salv_table, gr_function TYPE REF TO cl_salv_functions_list, gr_display TYPE REF TO cl_salv_display_settings, gr_layout TYPE REF TO cl_salv_layout, gs_program TYPE salv_s_layout_key, "该结构包含了布局变式所属程序名 gr_columns TYPE REF TO cl_salv_columns_table, gr_column TYPE REF TO cl_salv_column, gr_selection TYPE REF TO cl_salv_selections, lr_events TYPE REF TO cl_salv_events_table. ***"可编辑 ***DATA: o_salv_model TYPE REF TO lcl_salv_model. PARAMETERS : l_connid LIKE spfli-connid. START-OF-SELECTION. IF l_connid = space. SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE gt_itab. ELSE. SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE gt_itab WHERE connid = l_connid. ENDIF. "全屏ALV cl_salv_table=>factory( IMPORTING r_salv_table = gt_table CHANGING t_table = gt_itab[] ). gr_function = gt_table->get_functions( )."使用所有按钮function gr_function->set_all( 'X' ). " * gt_table->set_screen_status( * EXPORTING * report = sy-repid * pfstatus = 'STANDARD' "GUI状态，添加了ZTEST按钮 * set_functions = gt_table->c_functions_all )."显示所有通用的预设按钮 "set_functions = gt_table->c_functions_default )."显示基本默认选择性的预设按钮 "set_functions = gt_table->c_functions_none )."所有预设按钮都将不会显示 gr_display = gt_table->get_display_settings( ). gr_display->set_striped_pattern( cl_salv_display_settings=>true ). gr_display->set_list_header('Header Test'). gr_layout = gt_table->get_layout( ). gs_program-report = sy-repid. gr_layout->set_key( gs_program )."设置布局保存为变式时，这些变式应属性此Key（本程序名） gr_layout->set_save_restriction( cl_salv_layout=>restrict_none )."允许保存布局为变式 "=====获取事件对象 DATA: lr_event TYPE REF TO cl_salv_events_table. lr_event = gt_table->get_event( ). * lr_event->RAISE_AFTER_SALV_FUNCTION( '&OAD' ). "=====事件注册 DATA: lr_handle_event TYPE REF TO l_cl_handle_events. CREATE OBJECT lr_handle_event. SET HANDLER lr_handle_event->on_user_command FOR lr_event."新按钮 SET HANDLER lr_handle_event->on_double_click FOR lr_event."标准按钮操作后 SET HANDLER lr_handle_event->on_after_func FOR lr_event."双击 * gr_function->add_function( * name = 'PRING' * TEXT = '打印' * TOOLTIP = 'haha' * POSITION = if_salv_c_function_position=>right_of_salv_functions )."只适用与可控模式 * gt_table->set_screen_popup( "以弹出框显示SALV 可控模式（利用控制器的模式）的SALV是不能以弹出框来显示的 * start_column = 1 * end_column = 500 * start_line = 1 * end_line = 50 ). gr_columns = gt_table->get_columns( )."字段标签 gr_columns->set_optimize( 'X' ). gr_column ?= gr_columns->get_column( 'CONNID' ). gr_column->set_long_text( '列名222'). "SALV行列选择模式 gr_selection = gt_table->get_selections( ). gr_selection->set_selection_mode( if_salv_c_selection_mode=>row_column )."可以以行、列的方式进行选择 ***"可编辑 ****...Get Model Object ............................................... *** DATA: lo_alv_mod TYPE REF TO cl_salv_model. *** **** Narrow casting *** lo_alv_mod ?= gt_table. *** **** object for the local inherited class from the CL_SALV_MODEL_LIST *** CREATE OBJECT o_salv_model. *** **** grabe model to use it later *** CALL METHOD o_salv_model->grabe_model *** EXPORTING *** io_model = lo_alv_mod. gt_table->display( ). *&---------------------------------------------------------------------* *& Form HANDLE_USER_COMMAND *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_E_SALV_FUNCTION text *----------------------------------------------------------------------* FORM handle_user_command USING p_e_salv_function. CASE p_e_salv_function. WHEN 'ZTEST'. MESSAGE '按钮测试i' TYPE 'I'. ENDCASE. gt_table->refresh( ). ENDFORM. " HANDLE_USER_COMMAND *&---------------------------------------------------------------------* *& Form HANDLE_AFTER_FUNC *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_E_SALV_FUNCTION text *----------------------------------------------------------------------* FORM handle_after_func USING p_e_salv_function. CASE p_e_salv_function. WHEN '&OAD'. MESSAGE '按钮测试i' TYPE 'I'. ENDCASE. ENDFORM. " HANDLE_AFTER_FUNC *&---------------------------------------------------------------------* *& Form DBCLICK_USER_COMMAND *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_E_SALV_FUNCTION text *----------------------------------------------------------------------* FORM dbclick_user_command USING p_row TYPE i p_column TYPE lvc_fname. DATA: l_row TYPE char10, p_text TYPE string. WRITE p_row TO l_row LEFT-JUSTIFIED. CONCATENATE l_row '行,' '列名：' p_column p_text INTO p_text SEPARATED BY space. MESSAGE p_text TYPE 'I'. *** "可编辑 *** DATA: lo_grid TYPE REF TO cl_gui_alv_grid, *** lo_full_adap TYPE REF TO cl_salv_fullscreen_adapter. *** *** DATA: ls_layout TYPE lvc_s_layo. *** **** Contorller **** CALL METHOD lo_report-> *** o_salv_model->grabe_controller( ). *** **** Adapter **** CALL METHOD lo_report-> *** o_salv_model->grabe_adapter( ). *** **** Fullscreen Adapter (Down Casting) *** lo_full_adap ?= o_salv_model->o_adapter. *** **** Get the Grid *** lo_grid = lo_full_adap->get_grid( ). *** **** Got the Grid .. ? *** IF lo_grid IS BOUND. *** **** Editable ALV *** ls_layout-edit = 'X'. *** **** Set the front layout of ALV *** CALL METHOD lo_grid->set_frontend_layout *** EXPORTING *** is_layout = ls_layout. *** **** refresh the table *** CALL METHOD lo_grid->refresh_table_display. *** *** ENDIF. ENDFORM. " DBCLICK_USER_COMMAND

一、创建锁事务码：SE11 锁名称：EZTAR_T001

二、程序锁应用

1、加锁

CALL FUNCTION 'ENQUEUE_EZTAR_T001' EXPORTING mode_ztar_t001 = 'E' mandt = sy-mandt bukrs = p_bukrs gjahr = p_gjahr monat = p_monat zar_type = p_rtype * X_BUKRS = ' ' * X_GJAHR = ' ' * X_MONAT = ' ' * X_ZAR_TYPE = ' ' * _SCOPE = '2' * _WAIT = ' ' * _COLLECT = ' ' EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3.

2、获取被锁定用户

IF sy-subrc <> 0. CALL FUNCTION 'ENQUE_READ2' EXPORTING gclient = sy-mandt gname = 'ZTAR_T001' * GARG = ' ' guname = '*' * OPCODE2 = 1 * IMPORTING * NUMBER = * SUBRC = TABLES enq = lt_enq. LOOP AT lt_enq ASSIGNING FIELD-SYMBOL(). lv_uname = -guname. ENDLOOP. lv_str = '当前操作数据已被' && lv_uname && '锁定！'. MESSAGE lv_str TYPE 'S' DISPLAY LIKE 'E'. LEAVE LIST-PROCESSING.

3、解锁

CALL FUNCTION 'DEQUEUE_EZTAR_T001' EXPORTING mode_ztar_t001 = 'E' mandt = sy-mandt bukrs = p_bukrs gjahr = p_gjahr monat = p_monat zar_type = p_rtype * X_BUKRS = ' ' * X_GJAHR = ' ' * X_MONAT = ' ' * X_ZAR_TYPE = ' ' * _SCOPE = '3' * _SYNCHRON = ' ' * _COLLECT = ' ' .

783ebf0a-ebd0-45ce-a8a9-38052550d741-image.png
核心代码如下：

1、主程序

*&---------------------------------------------------------------------* *& Report ZFIR0037 *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT zfir0037. INCLUDE zfir0037_top. *----------------------------------------------------------------------* *INITIALIZATION *----------------------------------------------------------------------* INITIALIZATION. *********************************************************************** *AT SELECTION-SCREEN OUTPUT *********************************************************************** AT SELECTION-SCREEN OUTPUT. *Setting default inquiry condition *----------------------------------------------------------------------* * AT SELECTION-SCREEN *----------------------------------------------------------------------* AT SELECTION-SCREEN. "公司代码权限检查 CLEAR:l_bukrs,l_buk_str. SELECT * INTO CORRESPONDING FIELDS OF TABLE it_t001 FROM t001 WHERE bukrs IN s_bukrs. LOOP AT it_t001. AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS' FIELD it_t001-bukrs. IF sy-subrc NE 0. l_bukrs = it_t001-bukrs. CONCATENATE '您无权对公司' l_bukrs '进行操作' INTO l_buk_str. MESSAGE l_buk_str TYPE 'E'. ENDIF. CLEAR: l_buk_str. ENDLOOP. *&---------------------------------------------------------------------* *SQL *&---------------------------------------------------------------------* START-OF-SELECTION. * 处理数据 PERFORM frm_select_data. * 定义内表的结构 PERFORM frm_output_alv. PERFORM create_table. END-OF-SELECTION. * ALV显示 PERFORM alv_out. INCLUDE zfir0037_frm.

2、zfir0037_top

*&---------------------------------------------------------------------* *& 包含 ZFIR0037_TOP *&---------------------------------------------------------------------* TABLES:ztmcontrol,ztmtarget. TYPE-POOLS:slis,icon. *&---------------------------------------------------------------------* *& DATA *&---------------------------------------------------------------------* DATA:it_t001 TYPE TABLE OF t001 WITH HEADER LINE. DATA:it_ztmcontrol TYPE TABLE OF ztmcontrol WITH HEADER LINE. DATA: l_bukrs LIKE t001-bukrs, l_buk_str TYPE string. TYPES:BEGIN OF ty_mx."延期明细表 INCLUDE STRUCTURE ztmdapply. TYPES:name TYPE char20, "名称 flag_txt TYPE char10. TYPES:END OF ty_mx. DATA:lt_ztmdapply TYPE TABLE OF ty_mx WITH HEADER LINE. TYPES: BEGIN OF ty_alv, gjahr TYPE gjahr, "年度 monat TYPE monat, "期间 zmid TYPE zmid, "月结指标编号 text TYPE zmtext, "月结指标描述 zpdate TYPE zpdate, "计划月结日期 zdelay TYPE p DECIMALS 2, "平均延期天数 bukday TYPE zdelay, "延期天数 "cellcolor TYPE lvc_t_scol, "单元格颜色 END OF ty_alv. DATA: it_alv TYPE TABLE OF ty_alv WITH HEADER LINE, is_alv LIKE LINE OF it_alv. *&--------------------------ALV----------------------------------------* FIELD-SYMBOLS: TYPE STANDARD TABLE, TYPE any, TYPE any, TYPE any, TYPE lvc_t_scol, TYPE any. DATA: dy_table TYPE REF TO data, dy_line TYPE REF TO data, gt_fieldcat TYPE TABLE OF lvc_s_fcat , "字段清单内表 gs_fieldcat LIKE lvc_s_fcat , "字段工作区 gs_layout TYPE lvc_s_layo, gs_layout_tem TYPE lvc_s_layo, struct_type TYPE REF TO cl_abap_structdescr, comp_tab TYPE cl_abap_structdescr=>component_table WITH HEADER LINE, itab_type TYPE REF TO cl_abap_tabledescr. *&---------------------------------------------------------------------* *SELECT-OPTIONS *&---------------------------------------------------------------------* SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001. PARAMETERS:p_gjahr TYPE ztmcontrol-gjahr OBLIGATORY DEFAULT sy-datum(4). SELECT-OPTIONS:s_bukrs FOR ztmcontrol-bukrs OBLIGATORY, s_monat FOR ztmcontrol-monat OBLIGATORY , s_zmid FOR ztmtarget-zmid. SELECTION-SCREEN END OF BLOCK b1.

3、ZFIR0037_FRM

----------------------------------------------------------------------* ***INCLUDE ZFIR0037_FRM. *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form FRM_SELECT_DATA *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM frm_select_data . SELECT * INTO CORRESPONDING FIELDS OF TABLE it_ztmcontrol FROM ztmcontrol WHERE gjahr = p_gjahr AND monat IN s_monat AND bukrs IN s_bukrs AND zmid IN s_zmid AND conflag = 'Y'. SORT it_ztmcontrol BY gjahr monat zmid bukrs. LOOP AT it_ztmcontrol. MOVE-CORRESPONDING it_ztmcontrol TO is_alv. COLLECT is_alv INTO it_alv. CLEAR is_alv. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form CREATE_DYNAMIC_TABLE *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM create_dynamic_table . * 根据it_fact生成动态表 CALL METHOD cl_alv_table_create=>create_dynamic_table EXPORTING it_fieldcatalog = gt_fieldcat IMPORTING ep_table = dy_table. IF dy_table IS BOUND. ASSIGN dy_table->* TO . itab_type ?= cl_abap_tabledescr=>describe_by_data( ). struct_type ?= itab_type->get_table_line_type( ). comp_tab[] = struct_type->get_components( ). comp_tab-name = 'COLOR'. struct_type ?= cl_abap_typedescr=>describe_by_name( 'LVC_S_SCOL' ). comp_tab-type = cl_abap_tabledescr=>create( struct_type ). INSERT comp_tab INTO comp_tab INDEX 1. struct_type = cl_abap_structdescr=>create( comp_tab[] ). itab_type = cl_abap_tabledescr=>create( struct_type ). CREATE DATA dy_table TYPE HANDLE itab_type. ASSIGN dy_table->* TO . CREATE DATA dy_line LIKE LINE OF . ASSIGN dy_line->* TO . ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form WRITE_DATA_TO_DYNTABLE *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM write_data_to_dyntable . DATA:wa_new_line TYPE REF TO data, cellcolor TYPE lvc_t_scol, wa_cellcolor TYPE lvc_s_scol, c_field(20), c_color(30), lv_n TYPE i VALUE '0'. FIELD-SYMBOLS: TYPE lvc_t_scol, TYPE lvc_s_scol. "DESCRIBE TABLE it_t001 LINES lv_n. CREATE DATA wa_new_line LIKE LINE OF . ASSIGN wa_new_line->* TO ." 用指针指向该结构 LOOP AT it_alv . LOOP AT it_ztmcontrol WHERE gjahr = it_alv-gjahr AND monat = it_alv-monat AND zmid = it_alv-zmid. CONCATENATE '-BUK' it_ztmcontrol-bukrs INTO c_field. ASSIGN (c_field) TO . = it_ztmcontrol-zdelay. CONDENSE . "颜色列 CONCATENATE 'BUK' it_ztmcontrol-bukrs INTO c_color. IF = '0'. CLEAR:wa_cellcolor. wa_cellcolor-fname = c_color. wa_cellcolor-color-col = '5'."绿色 wa_cellcolor-color-int = '1'. APPEND wa_cellcolor TO cellcolor. ELSEIF = '1' OR = '2'. lv_n = lv_n + 1. CLEAR:wa_cellcolor. wa_cellcolor-fname = c_color. wa_cellcolor-color-col = '3'."黄色 wa_cellcolor-color-int = '1'. APPEND wa_cellcolor TO cellcolor. ELSEIF GT 2. lv_n = lv_n + 1. CLEAR:wa_cellcolor. wa_cellcolor-fname = c_color. wa_cellcolor-color-col = '6'."红色 wa_cellcolor-color-int = '1'. APPEND wa_cellcolor TO cellcolor. ENDIF. c_color = '-COLOR'. ASSIGN (c_color) TO . = cellcolor. ENDLOOP. it_alv-zdelay = it_alv-zdelay / lv_n. MOVE-CORRESPONDING it_alv TO . APPEND TO . CLEAR:,cellcolor,lv_n. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_OUTPUT_ALV *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM frm_output_alv . DATA lv_colname(10). PERFORM get_field USING:'GJAHR' '年度', 'MONAT' '期间' , 'ZMID' '月结指标编号', 'TEXT' '月结指标描述' , 'ZPDATE' '计划月结日期', 'ZDELAY' '平均延期天数'. SORT it_t001 BY bukrs. LOOP AT it_t001. CONCATENATE 'BUK' it_t001-bukrs INTO lv_colname. PERFORM get_field USING:lv_colname it_t001-bukrs. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form GET_FIELD *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* FORM get_field USING p1 p2. gs_fieldcat-fieldname = p1 . gs_fieldcat-scrtext_l = p2 . APPEND gs_fieldcat TO gt_fieldcat. ENDFORM. *&---------------------------------------------------------------------* *& Form ALV_OUT *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* * -->P_IT_ALV text *&---------------------------------------------------------------------* FORM alv_out . gs_layout-cwidth_opt = 'X'. " 自动调整列 gs_layout-ctab_fname = 'COLOR'. " 颜色列 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING i_callback_program = sy-repid i_callback_user_command = 'FRM_SET_COMMAND' is_layout_lvc = gs_layout it_fieldcat_lvc = gt_fieldcat[] TABLES t_outtab = EXCEPTIONS program_error = 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. ENDFORM. *&---------------------------------------------------------------------* *& Form CREATE_TABLE *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM create_table . PERFORM create_dynamic_table." 按照定义的内表结构，产生一个内表 PERFORM write_data_to_dyntable." 向动态内表中写数 ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_SET_COMMAND *&---------------------------------------------------------------------* FORM frm_set_command CHANGING pv_ucomm TYPE sy-ucomm ps_selfield TYPE slis_selfield. DATA: lc_grid TYPE REF TO cl_gui_alv_grid. DATA: lv_index TYPE i. DATA e_fullname TYPE ad_namtext. CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPORTING e_grid = lc_grid. CALL METHOD lc_grid->check_changed_data. ps_selfield-refresh = 'X'. "自动刷新 CASE pv_ucomm. WHEN '&IC1'."双击事件 IF ps_selfield-fieldname CS 'BUK'. "判断是否选中 READ TABLE ASSIGNING FIELD-SYMBOL() INDEX ps_selfield-tabindex. "取出当前鼠标 IF sy-subrc EQ 0. MOVE-CORRESPONDING TO is_alv. SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_ztmdapply FROM ztmdapply WHERE gjahr = is_alv-gjahr AND monat = is_alv-monat AND zmid = is_alv-zmid AND bukrs = ps_selfield-fieldname+3(4). SELECT * INTO TABLE @DATA(lt_dd07t) FROM dd07t WHERE domname = 'ZAPPROFLAG'. LOOP AT lt_ztmdapply ASSIGNING FIELD-SYMBOL(). "申请人描述 CALL FUNCTION 'FDM_CUST_USER_NAME_READ_SINGLE' EXPORTING i_user_id = -zapplyer IMPORTING * E_FIRSTNAME = * E_LASTNAME = e_fullname = e_fullname. IF sy-subrc = 0. -name = e_fullname. ENDIF. "审批状态描述 READ TABLE lt_dd07t ASSIGNING FIELD-SYMBOL() WITH KEY domvalue_l = -approflag. IF sy-subrc = 0. -flag_txt = -ddtext. ENDIF. ENDLOOP. IF lt_ztmdapply[] IS NOT INITIAL. PERFORM frm_fieldcat_alv . ELSE. MESSAGE '未查询到数据' TYPE 'S' DISPLAY LIKE 'E'. ENDIF. ENDIF. ENDIF. ENDCASE. " CALL METHOD lc_grid->REFRESH_TABLE_DISPLAY. ps_selfield-col_stable = 'X'. ps_selfield-row_stable = 'X'. ENDFORM. "FRM_SET_COMMAND *&---------------------------------------------------------------------* *& Form ALV_OUT_TEM *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* * -->P_LT_ZTMDAPPLY text *&---------------------------------------------------------------------* FORM alv_out_tem TABLES pitab . gs_layout_tem-cwidth_opt = 'X'. " 自动调整列 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING i_callback_program = sy-repid i_grid_title = '延期申请记录表' i_callback_pf_status_set = 'FRM_SET_STATUS' "i_callback_user_command = 'FRM_SET_COMMAND' "i_callback_html_top_of_page = 'HTML_TOP_OF_PAGE' is_layout_lvc = gs_layout_tem it_fieldcat_lvc = gt_fieldcat[] i_default = 'X' i_save = 'A' i_html_height_top = 16 TABLES t_outtab = pitab EXCEPTIONS program_error = 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. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_FIELDCAT_ALV *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM frm_fieldcat_alv . CLEAR:gt_fieldcat,gt_fieldcat[]. PERFORM get_field USING:'ZNUMBER' '序号', 'ZAPPLYER' '申请人' , 'NAME' '姓名' , 'ZSUBDATE' '申请日期', 'ZSREASON' '申请原因' , 'ZAPPRODATE' '审批日期', 'APPROFLAG' '审批状态', 'FLAG_TXT' '状态描述', 'ZDELAY' '延期天数'. PERFORM alv_out_tem TABLES lt_ztmdapply. ENDFORM.

ABAP 对字符串公式进行计算

参考代码:
DATA:formula TYPE string,
l_value TYPE f,
l_dmbtr TYPE mseg-dmbtr.
formula = '12.344 + 32.333 + ( 1 4 -32)'.
CALL FUNCTION 'EVAL_FORMULA'
EXPORTING
formula = formula
IMPORTING
value = l_value.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

l_dmbtr = l_value.

WRITE:l_dmbtr.

在abap的开发过程中，用到div、/、mod的时候并不是很多，除非要进行数据处理的时候才有可能用到它们了，下面介绍一下他们之间的用法与区别：

1、div

div是用于取两数相除的商的，c = a div b，得到的c的值就是a除b的商。

2、/

/ 是用于取两数相除的结果的。c = a / b，如果c是i数据类型的，这个语法会进行四舍五入的。

3、mod

mod 是用于取两数相除的余数，c = a mod b，得到的c的值的就是a除b的余数。

REPORT ztest_p33. TYPE-POOLS: slis, icon. TABLES: sflight, spfli, scarr, sbook. * Define okcode DATA: ok_code TYPE sy-ucomm. * Define objects used in screen DATA: go_split_container TYPE REF TO cl_gui_splitter_container. DATA: go_container TYPE REF TO cl_gui_custom_container. DATA: go_container1 TYPE REF TO cl_gui_container. DATA: go_container2 TYPE REF TO cl_gui_container. DATA: go_container3 TYPE REF TO cl_gui_container. DATA: go_container4 TYPE REF TO cl_gui_container. DATA: go_alv_control1 TYPE REF TO cl_gui_alv_grid. DATA: go_alv_control2 TYPE REF TO cl_gui_alv_grid. DATA: go_alv_control3 TYPE REF TO cl_gui_alv_grid. DATA: go_alv_control4 TYPE REF TO cl_gui_alv_grid. * Define internal tables and structures DATA: BEGIN OF gs_sflight, carrid TYPE sflight-carrid, connid TYPE sflight-connid, fldate TYPE sflight-fldate, price TYPE sflight-price, END OF gs_sflight. DATA: BEGIN OF gs_spfli, carrid TYPE spfli-carrid, connid TYPE spfli-connid, cityfrom TYPE spfli-cityfrom, cityto TYPE spfli-cityto, END OF gs_spfli. DATA: BEGIN OF gs_scarr, carrid TYPE scarr-carrid, carrname TYPE scarr-carrname, END OF gs_scarr. DATA: BEGIN OF gs_sbook, carrid TYPE sbook-carrid, connid TYPE sbook-connid, bookid TYPE sbook-bookid, customid TYPE sbook-customid, END OF gs_sbook. * Define alv components DATA: gs_field_cat1 TYPE lvc_s_fcat. DATA: gs_field_cat2 TYPE lvc_s_fcat. DATA: gs_field_cat3 TYPE lvc_s_fcat. DATA: gs_field_cat4 TYPE lvc_s_fcat. DATA: gt_field_cat1 TYPE lvc_t_fcat. DATA: gt_field_cat2 TYPE lvc_t_fcat. DATA: gt_field_cat3 TYPE lvc_t_fcat. DATA: gt_field_cat4 TYPE lvc_t_fcat. * Define displayed data DATA: gt_sflight LIKE STANDARD TABLE OF gs_sflight, gt_spfli LIKE STANDARD TABLE OF gs_spfli, gt_scarr LIKE STANDARD TABLE OF gs_scarr, gt_sbook LIKE STANDARD TABLE OF gs_sbook. START-OF-SELECTION. PERFORM sub_retrieve_data. PERFORM sub_alv_data. CALL SCREEN 9100. *&---------------------------------------------------------------------* *& Form SUB_RETRIEVE_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM sub_retrieve_data . SELECT carrid connid fldate price INTO CORRESPONDING FIELDS OF TABLE gt_sflight FROM sflight. SELECT carrid connid cityfrom cityto INTO CORRESPONDING FIELDS OF TABLE gt_spfli FROM spfli. SELECT carrid carrname INTO CORRESPONDING FIELDS OF TABLE gt_scarr FROM scarr. SELECT carrid connid bookid customid INTO CORRESPONDING FIELDS OF TABLE gt_sbook FROM sbook. ENDFORM. " SUB_RETRIEVE_DATA *&---------------------------------------------------------------------* *& Form SUB_ALV_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM sub_alv_data . * Build field catelog 1 gs_field_cat1-col_pos = 1. gs_field_cat1-fieldname = 'CARRID'. gs_field_cat1-scrtext_m = 'airline code'. APPEND gs_field_cat1 TO gt_field_cat1. gs_field_cat1-col_pos = 2. gs_field_cat1-fieldname = 'CONNID'. gs_field_cat1-scrtext_m = 'connection number'. APPEND gs_field_cat1 TO gt_field_cat1. gs_field_cat1-col_pos = 3. gs_field_cat1-fieldname = 'FLDATE'. gs_field_cat1-scrtext_m = 'flight date'. APPEND gs_field_cat1 TO gt_field_cat1. gs_field_cat1-col_pos = 4. gs_field_cat1-fieldname = 'PRICE'. gs_field_cat1-scrtext_m = 'flight price'. APPEND gs_field_cat1 TO gt_field_cat1. * Build field catelog 2 gs_field_cat2-col_pos = 1. gs_field_cat2-fieldname = 'CARRID'. gs_field_cat2-scrtext_m = 'airline code'. APPEND gs_field_cat2 TO gt_field_cat2. gs_field_cat2-col_pos = 2. gs_field_cat2-fieldname = 'CONNID'. gs_field_cat2-scrtext_m = 'connection number'. APPEND gs_field_cat2 TO gt_field_cat2. gs_field_cat2-col_pos = 3. gs_field_cat2-fieldname = 'CITYFROM'. gs_field_cat2-scrtext_m = 'city from'. APPEND gs_field_cat2 TO gt_field_cat2. gs_field_cat2-col_pos = 4. gs_field_cat2-fieldname = 'CITYTO'. gs_field_cat2-scrtext_m = 'city to'. APPEND gs_field_cat2 TO gt_field_cat2. * Build field catelog 3 gs_field_cat3-col_pos = 1. gs_field_cat3-fieldname = 'CARRID'. gs_field_cat3-scrtext_m = 'airline code'. APPEND gs_field_cat3 TO gt_field_cat3. gs_field_cat3-col_pos = 2. gs_field_cat3-fieldname = 'CONNID'. gs_field_cat3-scrtext_m = 'connection number'. APPEND gs_field_cat3 TO gt_field_cat3. * Build field catelog 4 gs_field_cat4-col_pos = 1. gs_field_cat4-fieldname = 'CARRID'. gs_field_cat4-scrtext_m = 'airline code'. APPEND gs_field_cat4 TO gt_field_cat4. gs_field_cat4-col_pos = 2. gs_field_cat4-fieldname = 'CONNID'. gs_field_cat4-scrtext_m = 'connection number'. APPEND gs_field_cat4 TO gt_field_cat4. gs_field_cat4-col_pos = 3. gs_field_cat4-fieldname = 'BOOKID'. gs_field_cat4-scrtext_m = 'book id'. APPEND gs_field_cat4 TO gt_field_cat4. gs_field_cat4-col_pos = 4. gs_field_cat4-fieldname = 'CUSTOMID'. gs_field_cat4-scrtext_m = 'custom id'. APPEND gs_field_cat4 TO gt_field_cat4. ENDFORM. " SUB_ALV_DATA *&---------------------------------------------------------------------* *& Module ALV_DISPLAY OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE alv_display OUTPUT. IF go_split_container IS INITIAL. CREATE OBJECT go_container EXPORTING container_name = 'GO_CONTAINER'. CREATE OBJECT go_split_container EXPORTING link_dynnr = sy-dynnr link_repid = sy-repid parent = go_container rows = 2 columns = 2 name = 'GO_SPLIT_CONTAINER'. CALL METHOD go_split_container->get_container EXPORTING row = 1 column = 1 RECEIVING container = go_container1. CALL METHOD go_split_container->get_container EXPORTING row = 1 column = 2 RECEIVING container = go_container2. CALL METHOD go_split_container->get_container EXPORTING row = 2 column = 1 RECEIVING container = go_container3. CALL METHOD go_split_container->get_container EXPORTING row = 2 column = 2 RECEIVING container = go_container4. CREATE OBJECT go_alv_control1 EXPORTING i_parent = go_container1. CREATE OBJECT go_alv_control2 EXPORTING i_parent = go_container2. CREATE OBJECT go_alv_control3 EXPORTING i_parent = go_container3. CREATE OBJECT go_alv_control4 EXPORTING i_parent = go_container4. CALL METHOD go_alv_control1->set_table_for_first_display CHANGING it_outtab = gt_sflight it_fieldcatalog = gt_field_cat1. CALL METHOD go_alv_control2->set_table_for_first_display CHANGING it_outtab = gt_spfli it_fieldcatalog = gt_field_cat2. CALL METHOD go_alv_control3->set_table_for_first_display CHANGING it_outtab = gt_scarr it_fieldcatalog = gt_field_cat3. CALL METHOD go_alv_control4->set_table_for_first_display CHANGING it_outtab = gt_sbook it_fieldcatalog = gt_field_cat4. ELSE. CALL METHOD go_alv_control1->refresh_table_display. CALL METHOD go_alv_control2->refresh_table_display. CALL METHOD go_alv_control3->refresh_table_display. CALL METHOD go_alv_control4->refresh_table_display. ENDIF. ENDMODULE. " ALV_DISPLAY OUTPUT *&---------------------------------------------------------------------* *& Module STATUS_9100 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE status_9100 OUTPUT. SET PF-STATUS 'STATUS9100'. ENDMODULE. " STATUS_9100 OUTPUT *&---------------------------------------------------------------------* *& Module USER_COMMAND_9100 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE user_command_9100 INPUT. CASE ok_code. WHEN 'PBAK'. CALL METHOD go_alv_control1->free. CALL METHOD go_alv_control2->free. CALL METHOD go_alv_control3->free. CALL METHOD go_alv_control4->free. CALL METHOD go_container1->free. CALL METHOD go_container2->free. CALL METHOD go_container3->free. CALL METHOD go_container4->free. CALL METHOD go_split_container->free. CALL METHOD go_container->free. LEAVE PROGRAM. WHEN OTHERS. ENDCASE. ENDMODULE. " USER_COMMAND_9100 INPUT

lv_budat = gs_ztintfacea-yearmonth && '28'. DATA:lv_date_month TYPE n LENGTH 2. IF lv_budat+4(2) = '12'. lv_budat = |{ lv_budat+0(4) + 1 }01{ lv_budat+6(2) }|. ELSE. lv_date_month = lv_budat+4(2) + 1. lv_budat = |{ lv_budat+0(4) }{ lv_date_month }{ lv_budat+6(2) }|. ENDIF.

*&---------------------------------------------------------------------* *& Report ZFIR0031 *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT zfir0031. TABLES:anla,anlp,anlz,t093c,t001,t095. DATA:lt_t093c LIKE TABLE OF t093c WITH HEADER LINE. DATA lt_anlb LIKE TABLE OF anlb WITH HEADER LINE. DATA lt_anlp LIKE TABLE OF anlp WITH HEADER LINE. DATA lt_anlc LIKE TABLE OF anlc WITH HEADER LINE. DATA lt_anlh LIKE TABLE OF anlh WITH HEADER LINE. *--文本表 DATA lt_cepct LIKE TABLE OF cepct WITH HEADER LINE. DATA lt_t095b LIKE TABLE OF t095b WITH HEADER LINE. DATA lt_t095 LIKE TABLE OF t095 WITH HEADER LINE. DATA ls_datum TYPE t093c-datum. * DATA: BEGIN OF ty_main OCCURS 0, bukrs LIKE anla-bukrs, kostl LIKE anlz-kostl, "使用部门 kostlv LIKE anlz-kostlv, "管理部门 adatu LIKE anlz-adatu, "有效期始于 bdatu LIKE anlz-bdatu, "有效至 anlkl LIKE anla-anlkl, "资产类别 invnr LIKE anla-invnr, "存货号 anln1 LIKE anla-anln1, "资产编号 anln2 LIKE anla-anln2, "资产子编号 txt50 LIKE anla-txt50, "资产描述 txa50 like anla-txa50, "附加资产描述 erdat LIKE anla-erdat, "创建日期 ernam LIKE anla-ernam, "创建者 ord41 LIKE anla-ord41, "使用状态 ord42 LIKE anla-ord42, "权属状态 ord43 LIKE anla-ord43, "资产来源 aktiv LIKE anla-aktiv, "资本化日期 xspeb LIKE anla-xspeb, "资本冻结标识 deakt LIKE anla-deakt, "报废日期 menge LIKE anla-menge, "数量(BL) meins LIKE anla-meins, "单位 aibn1 LIKE anla-aibn1, "原始资产 aibn2 LIKE anla-aibn2, "原始资产子号 ktogr LIKE anla-ktogr, "科目确定 END OF ty_main. DATA lt_main LIKE TABLE OF ty_main WITH HEADER LINE. DATA ls_main LIKE LINE OF lt_main. DATA: BEGIN OF ty_bcp OCCURS 0, bukrs LIKE anlb-bukrs, anln1 LIKE anlb-anln1, "资产编号 anln2 LIKE anlb-anln2, "资产子编号 gjahr LIKE anlc-gjahr, "会计年度 afasl LIKE anlb-afasl, "折旧码 afabg LIKE anlb-afabg, "折旧起始日期 ndjar LIKE anlb-ndjar, "计划年使用期-----折旧期限（月） ndper LIKE anlb-ndper, "计划使用期间-----折旧期限（月）=NDJAR*12+NDPER schrw_proz LIKE anlb-schrw_proz, "残值率(%) schrw LIKE anlb-schrw, "预计残值 knafa LIKE anlc-knafa, "累计正常折旧--已过账累计折旧 kansw LIKE anlc-kansw, "累积购置和生产费用--资产原值(当前累计) ndabj LIKE anlc-ndabj, "截至屏幕录入年度已使用年--已折旧期限(月) ndabp LIKE anlc-ndabp, "截至屏幕录入年度已使用月--已折旧期限(月) kaafa LIKE anlc-kaafa, "累积计划外折旧--累计过账资产减值 END OF ty_bcp. DATA lt_bcp LIKE TABLE OF ty_bcp WITH HEADER LINE. DATA:BEGIN OF lt_anlpsum OCCURS 0, bukrs LIKE anlp-bukrs, anln1 LIKE anlp-anln1, "资产编号 anln2 LIKE anlp-anln2, "资产子编号 gjahr LIKE anlp-gjahr, "会计年度 peraf LIKE anlp-peraf, "会计年度 aafaz LIKE anlp-aafaz, "计划外折旧--本年过账资产减值 nafaz LIKE anlp-nafaz, "记帐的正常折旧--已过账本年累计折旧 END OF lt_anlpsum. DATA lt_anlpmonth LIKE TABLE OF lt_anlpsum WITH HEADER LINE . DATA:BEGIN OF ty_anek OCCURS 0, bukrs LIKE anek-bukrs, anln1 LIKE anek-anln1, "资产编号 anln2 LIKE anek-anln2, "资产子编号 gjahr LIKE anek-gjahr, "会计年度 belnr LIKE anek-belnr, "参考凭证 aworg LIKE anek-aworg, "参考组织单位 bzdat LIKE anek-bzdat, "资产价值日 monat LIKE anek-monat, "资产价值日 lnran LIKE anek-lnran, "会计年资产行项目的序号 vorgn LIKE anek-vorgn, awtyp LIKE anek-awtyp, ldgrp LIKE anek-ldgrp, END OF ty_anek. DATA lt_anek LIKE TABLE OF ty_anek WITH HEADER LINE. DATA lt_anek01 LIKE TABLE OF ty_anek WITH HEADER LINE. DATA:BEGIN OF lt_anep OCCURS 0, bukrs LIKE anep-bukrs, anln1 LIKE anep-anln1, anln2 LIKE anep-anln2, gjahr LIKE anep-gjahr, bzdat LIKE anep-bzdat, bwasl LIKE anep-bwasl, anbtr LIKE anep-anbtr, lnran LIKE anep-lnran, END OF lt_anep. DATA lt_anepone LIKE TABLE OF lt_anep WITH HEADER LINE. DATA:BEGIN OF lt_belnr OCCURS 0, awkey LIKE bkpf-awkey, anln1 LIKE bseg-anln1, anln2 LIKE bseg-anln2, shkzg LIKE bseg-shkzg, dmbtr LIKE bseg-dmbtr, END OF lt_belnr. DATA:BEGIN OF lt_cskt OCCURS 0, kostl LIKE cskt-kostl, ktext LIKE cskt-ktext, prctr LIKE csks-prctr, "利润中心 bukrs LIKE csks-bukrs, func_area LIKE csks-func_area, "功能范围=2000 END OF lt_cskt. DATA:BEGIN OF lt_out OCCURS 0, bukrs LIKE anla-bukrs, "公司代码 anlkl LIKE anla-anlkl, "资产类别 invnr LIKE anla-invnr, "存货号 anln1 LIKE anla-anln1, "资产编号 anln2 LIKE anla-anln2, "资产子编号 txt50 LIKE anla-txt50, "资产描述 txa50 LIKE anla-txa50, "资产附加描述 anlhtxt LIKE anlh-anlhtxt, "资产主号文本 erdat LIKE anla-erdat, "创建日期 ernam LIKE anla-ernam, "创建者 ord41 LIKE anla-ord41, "使用状态 ord42 LIKE anla-ord42, "权属状态 ord43 LIKE anla-ord43, "资产来源 aktiv LIKE anla-aktiv, "资本化日期 afabg LIKE anlb-afabg, "折旧起始日期 deakt LIKE anla-deakt, "报废日期 menge LIKE anla-menge, "数量(BL) meins LIKE anla-meins, "单位 kostl LIKE anlz-kostl, "使用部门 ktext LIKE cskt-ktext, "使用部门描述 kostlv LIKE anlz-kostlv, "管理部门 ktextv LIKE cskt-ktext, "管理部门描述 prctr LIKE csks-prctr, "利润中心 txt LIKE cepct-ktext, "利润中心描述 aibn1 LIKE anla-aibn1, "原始资产 aibn2 LIKE anla-aibn2, "原始资产子号 afasl LIKE anlb-afasl, "折旧码 ndjap LIKE anlb-ndper, "折旧期限（月）count edjap LIKE anlb-ndper, "已折旧期限(月)count schrw_proz LIKE anlb-schrw, "残值率(%) ktansw LIKE t095-ktansw, "资产原值科目 anbtr LIKE anep-anbtr, "资产原值(本年调整) kanbtr LIKE anep-anbtr, "资产原值(当前累计)count ktnafb LIKE t095b-ktnafb, "累计折旧科目 ktnafg LIKE t095b-ktnafg, "折旧费用科目 ygzbnlj LIKE anlc-knafa, "已过账本年累计折旧 count ygzlj LIKE anlc-knafa, "已过账累计折旧 count ktaafb LIKE t095b-ktaafb, "资产减值准备科目 ktaafg LIKE t095b-ktaafg, "资产减值损失科目 bngzjz LIKE anlp-aafaz, "本年过账资产减值 count ljgzjz LIKE anlc-kaafa, "累计过账资产减值 zmjz LIKE anlc-knafa, "账面净值(当前) count yjzjby LIKE anlp-nafaz, "已记折旧(本月) schrw LIKE anlb-schrw, "预计残值 END OF lt_out. DATA:BEGIN OF lt_anea OCCURS 0, bukrs LIKE anea-bukrs, anln1 LIKE anea-anln1, "资产编号 anln2 LIKE anea-anln2, "资产子编号 gjahr LIKE anea-gjahr, "会计年度 lnran LIKE anea-lnran, afabe LIKE anea-afabe, nafav LIKE anea-nafav, aafav LIKE anea-aafav, nafal LIKE anea-nafal, aafal LIKE anea-aafal, END OF lt_anea. DATA lt_aneaone LIKE TABLE OF lt_anea WITH HEADER LINE. DATA lt_aneatwo LIKE TABLE OF lt_anea WITH HEADER LINE. *ALV TYPE-POOLS: slis. DATA: ps_layout TYPE slis_layout_alv. DATA: fieldcat TYPE slis_t_fieldcat_alv, fieldcat_ln LIKE LINE OF fieldcat, sortcat TYPE slis_t_sortinfo_alv, sortcat_ln LIKE LINE OF sortcat, eventcat TYPE slis_t_event, gs_event TYPE slis_alv_event.. DATA: g_variant LIKE disvariant. DATA: g_layout TYPE slis_layout_alv. DATA: it_alv TYPE slis_t_fieldcat_alv WITH HEADER LINE, it_alv_sec TYPE slis_t_fieldcat_alv WITH HEADER LINE. *&---------------------------------------------------------------------* *& selection-screen *&---------------------------------------------------------------------* SELECTION-SCREEN BEGIN OF BLOCK b01 WITH FRAME TITLE TEXT-001. SELECT-OPTIONS: s_bukrs FOR anla-bukrs OBLIGATORY MEMORY ID buk. "公司代码 PARAMETERS: p_gjahr LIKE anlp-gjahr DEFAULT sy-datum+0(4) OBLIGATORY, "会计年度 p_peraf LIKE anlp-peraf DEFAULT sy-datum+4(2) OBLIGATORY. "期间 SELECT-OPTIONS: s_anlkl FOR anla-anlkl, "资产类别 s_anln1 FOR anla-anln1, "资产编码 s_anln2 FOR anla-anln2, "资产子号 s_kostl FOR anlp-kostl. "使用部门 " SELECTION-SCREEN END OF BLOCK b01. AT SELECTION-SCREEN. DATA mess TYPE string. *--检查年度+期间 CONCATENATE p_gjahr p_peraf+1(2) INTO ls_datum. SELECT * FROM t093c INTO TABLE lt_t093c WHERE bukrs IN s_bukrs. LOOP AT lt_t093c. CLEAR mess. IF p_gjahr > lt_t093c-lgjahr. CONCATENATE '公司代码' lt_t093c-bukrs '报表执行日期超过资产打开当前年度！' INTO mess. MESSAGE mess TYPE 'E'. ELSEIF ls_datum <= lt_t093c-datum+0(6). CONCATENATE '报表执行期间早于系统切换时间' lt_t093c-datum INTO mess. MESSAGE mess TYPE 'E'. ENDIF. ENDLOOP. *--授权检查: 公司代码 SELECT * FROM t001 WHERE bukrs IN s_bukrs. AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS' FIELD t001-bukrs. IF sy-subrc <> 0. MESSAGE '您无&屏幕输入公司代码&权限！' TYPE 'E'. ENDIF. ENDSELECT. START-OF-SELECTION. PERFORM read_table. PERFORM collect_data. END-OF-SELECTION. IF lt_out[] IS NOT INITIAL. PERFORM alv_display. ELSE. MESSAGE '无数据！' TYPE 'I'. ENDIF. *&---------------------------------------------------------------------* *& Form READ_TABLE *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM read_table . DATA ls_num TYPE i. DATA s_datum TYPE sy-datum. DATA lv_peraf TYPE n LENGTH 2. SELECT * FROM anla AS a INNER JOIN anlz AS b ON a~bukrs = b~bukrs AND a~anln1 = b~anln1 AND a~anln2 = b~anln2 INTO CORRESPONDING FIELDS OF TABLE lt_main WHERE a~bukrs IN s_bukrs AND b~kostl IN s_kostl AND "使用部门 a~anln1 IN s_anln1 AND a~anln2 IN s_anln2 AND a~anlkl IN s_anlkl AND a~aktiv <> 0 AND a~xspeb <> 'X'. CONCATENATE p_gjahr p_peraf+1(2) INTO s_datum. DELETE lt_main WHERE deakt <> 0 AND deakt+0(4) < p_gjahr."删除报废日期不在本年的 DELETE lt_main WHERE aktiv+0(6) > s_datum."删除资本化日期>屏幕录入期间 SORT lt_main BY bukrs anln1 anln2. lv_peraf = p_peraf+1(2). IF lt_main[] IS NOT INITIAL. SELECT * FROM anlp INTO CORRESPONDING FIELDS OF TABLE lt_anlp FOR ALL ENTRIES IN lt_main WHERE bukrs = lt_main-bukrs AND gjahr = p_gjahr AND peraf <= lv_peraf AND kostl IN s_kostl AND afaber = '01' "折旧范围 AND afbnr <> '00' "期间顺序号 AND anln1 = lt_main-anln1 AND anln2 = lt_main-anln2. SELECT * FROM anlb INTO CORRESPONDING FIELDS OF TABLE lt_anlb FOR ALL ENTRIES IN lt_main WHERE bukrs = lt_main-bukrs AND "公司代码 anln1 = lt_main-anln1 AND anln2 = lt_main-anln2. SELECT * FROM anlc INTO CORRESPONDING FIELDS OF TABLE lt_anlc FOR ALL ENTRIES IN lt_main WHERE bukrs = lt_main-bukrs AND "公司代码 gjahr = p_gjahr AND "会计年度 anln1 = lt_main-anln1 AND anln2 = lt_main-anln2. LOOP AT lt_anlp. lt_anlpsum-bukrs = lt_anlp-bukrs. lt_anlpsum-anln1 = lt_anlp-anln1. lt_anlpsum-anln2 = lt_anlp-anln2. lt_anlpsum-gjahr = lt_anlp-gjahr. lt_anlpsum-aafaz = lt_anlp-aafaz. lt_anlpsum-nafaz = lt_anlp-nafaz. COLLECT lt_anlpsum. "汇总anlp 当peraf <=屏幕录入期间 lt_anlpmonth-bukrs = lt_anlp-bukrs. lt_anlpmonth-anln1 = lt_anlp-anln1. lt_anlpmonth-anln2 = lt_anlp-anln2. lt_anlpmonth-gjahr = lt_anlp-gjahr. lt_anlpmonth-peraf = lt_anlp-peraf. lt_anlpmonth-aafaz = lt_anlp-aafaz. lt_anlpmonth-nafaz = lt_anlp-nafaz. COLLECT lt_anlpmonth."汇总anlp 当peraf = 屏幕录入期间 ENDLOOP. SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_anek FROM anek FOR ALL ENTRIES IN lt_main WHERE bukrs = lt_main-bukrs AND "公司代码 gjahr = p_gjahr AND "会计年度 anln1 = lt_main-anln1 AND anln2 = lt_main-anln2 AND monat <= p_peraf+1(2). * vorgn = 'AFAB' AND * awtyp = 'AS91' AND * ldgrp = '0L' . IF lt_anek[] IS NOT INITIAL. "*--BKPF+BSEG SELECT * FROM bkpf AS a INNER JOIN bseg AS b ON a~belnr = b~belnr AND a~bukrs = b~bukrs INTO CORRESPONDING FIELDS OF TABLE lt_belnr FOR ALL ENTRIES IN lt_anek WHERE a~bukrs = lt_anek-bukrs AND "公司代码 a~gjahr = p_gjahr AND "a~AWKEY = lt_anek-BELNR AND a~awtyp = 'AS91' AND b~anln1 = lt_anek-anln1 AND b~anln2 = lt_anek-anln2 AND b~vorgn = 'AFAB'. "*ANEA SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_anea FROM anea FOR ALL ENTRIES IN lt_anek WHERE bukrs = lt_anek-bukrs AND "公司代码 gjahr = p_gjahr AND "会计年度 lnran = lt_anek-lnran AND anln1 = lt_anek-anln1 AND anln2 = lt_anek-anln2. LOOP AT lt_anea. lt_aneaone-bukrs = lt_anea-bukrs. lt_aneaone-anln1 = lt_anea-anln1. lt_aneaone-anln2 = lt_anea-anln2. lt_aneaone-gjahr = lt_anea-gjahr. lt_aneaone-afabe = lt_anea-afabe. lt_aneaone-nafav = lt_anea-nafav. lt_aneaone-aafav = lt_anea-aafav. lt_aneaone-nafal = lt_anea-nafal. lt_aneaone-aafal = lt_anea-aafal. COLLECT lt_aneaone."按lnran汇总且 MONAT <= 屏幕日期 READ TABLE lt_anek WITH KEY anln1 = lt_anea-anln1 anln2 = lt_anea-anln2 lnran = lt_anea-lnran monat = p_peraf+1(2) bukrs = lt_anea-bukrs. IF sy-subrc = 0. lt_aneatwo-bukrs = lt_anea-bukrs. lt_aneatwo-anln1 = lt_anea-anln1. lt_aneatwo-anln2 = lt_anea-anln2. lt_aneatwo-gjahr = lt_anea-gjahr. "lt_aneatwo-lnran = lt_anea-lnran. lt_aneatwo-afabe = lt_anea-afabe. lt_aneatwo-nafav = lt_anea-nafav. lt_aneatwo-aafav = lt_anea-aafav. lt_aneatwo-nafal = lt_anea-nafal. lt_aneatwo-aafal = lt_anea-aafal. COLLECT lt_aneatwo."获取MONAT = 屏幕日期 汇总NAFAL值 ENDIF. ENDLOOP. SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_anep FROM anep FOR ALL ENTRIES IN lt_anek WHERE bukrs = lt_anek-bukrs AND "公司代码 gjahr = p_gjahr AND "会计年度 afabe = '01' AND "折旧范围 anln1 = lt_anek-anln1 AND anln2 = lt_anek-anln2 AND lnran = lt_anek-lnran. "DELETE lt_anep WHERE bzdat+4(2) > p_peraf+1(2)."（资产价值日）中期间<=屏幕输入期间 LOOP AT lt_anep WHERE bwasl <> '640' AND bwasl <> '650' AND bwasl <> 'Z41' AND bwasl <> 'Z42'. READ TABLE lt_anek WITH KEY bukrs = lt_anep-bukrs gjahr = lt_anep-gjahr anln1 = lt_anep-anln1 anln2 = lt_anep-anln2 lnran = lt_anep-lnran. IF sy-subrc = 0. lt_anepone-bukrs = lt_anep-bukrs. lt_anepone-anln1 = lt_anep-anln1. lt_anepone-anln2 = lt_anep-anln2. lt_anepone-gjahr = lt_anep-gjahr. "lt_anepone-lnran = lt_anep-lnran. lt_anepone-bzdat = ''. lt_anepone-bwasl = ''. lt_anepone-anbtr = lt_anep-anbtr. COLLECT lt_anepone . ENDIF. ENDLOOP. ENDIF. ENDIF. DELETE lt_anek WHERE vorgn <> 'AFAB' OR awtyp <> 'AS91' OR ldgrp <> '0L'. *---文本 *使用部门描述 = 管理部门描述 及利润中心 SELECT * FROM cskt AS a INNER JOIN csks AS b ON a~kostl = b~kostl INTO CORRESPONDING FIELDS OF TABLE lt_cskt WHERE b~bukrs IN s_bukrs AND "公司代码 a~spras = '1' AND a~kokrs = 'DTIS'. *--利润中心描述 SELECT * INTO TABLE lt_cepct FROM cepct WHERE spras = '1' . *资产主号文本 SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_anlh FROM anlh WHERE bukrs IN s_bukrs. "公司代码 SELECT * INTO TABLE lt_t095b FROM t095b WHERE ktopl = 'DTIS' AND afabe = '01'. SELECT * INTO TABLE lt_t095 FROM t095 WHERE ktopl = 'DTIS' AND afabe = '01'. ENDFORM. *&---------------------------------------------------------------------* *& Form COLLECT_DATA *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM collect_data . DATA:lv_ktnafg LIKE t095b-ktnafg, lv_func_area LIKE csks-func_area, "功能范围 lv_kansw LIKE anlc-kansw, "购置价值 lv_nafaz LIKE anlp-nafaz, lv_nafaz1 LIKE anlp-nafaz, lv_aafaz LIKE anlp-aafaz, lv_afabg LIKE anlb-afabg,"折旧计算起始日期 lv_knafa LIKE anlc-knafa, lv_kaafa LIKE anlc-kaafa, lv_belnr LIKE anek-belnr, "参考凭证 lv_aworg LIKE anek-aworg, "参考组织单位 lv_awkey LIKE bkpf-awkey, "对象键值 lv_qch LIKE bseg-dmbtr, "对象键值 lv_nafal LIKE anea-nafal, "价值转移或报废的当年折旧 lv_nafal01 LIKE anea-nafal, "价值转移或报废的当年折旧 lv_nafav01 LIKE anea-nafav, "价值转移或报废的前年折旧 lv_fqch LIKE anea-nafal, lv_nafav LIKE anea-nafav, "价值转移或报废的前年折旧 lv_aafal LIKE anea-aafal, lv_aafav LIKE anea-aafav. DATA :lv_dqr LIKE sy-datum, lv_dqr_m TYPE n LENGTH 2, lv_dqr_y TYPE c LENGTH 4, lv_afabgone TYPE c LENGTH 4, ls_peraf TYPE c LENGTH 2, ls_bzdat TYPE c LENGTH 2, s_datum LIKE sy-datum, s_datum01 LIKE sy-datum, i_date TYPE c LENGTH 6, lv_year TYPE c length 10 ,"修改类型为C ，便于后续年度差额计算体现负数 lv_month TYPE c length 10 ."修改类型为C ，便于后续期间差额计算体现负数 DATA:BEGIN OF lt_month OCCURS 0, field01 LIKE sy-datum, END OF lt_month. LOOP AT lt_main. CLEAR:lt_out. CLEAR:lv_kansw,lv_nafaz,lv_aafaz,lv_knafa,lv_kaafa,lv_qch,lv_dqr,lv_nafaz1, lv_nafav01,lv_aafal,lv_func_area,lv_belnr,lv_aworg,lv_awkey, lv_nafal,lv_fqch,lv_nafav,lv_aafav,lv_afabg,i_date,lv_year,lv_month,lv_nafal01,lv_ktnafg. lt_out-bukrs = lt_main-bukrs. lt_out-anlkl = lt_main-anlkl. lt_out-invnr = lt_main-invnr. lt_out-anln1 = lt_main-anln1. lt_out-anln2 = lt_main-anln2. lt_out-txt50 = lt_main-txt50. lt_out-txa50 = lt_main-txa50. READ TABLE lt_anlh WITH KEY bukrs = lt_main-bukrs anln1 = lt_main-anln1. IF sy-subrc = 0. lt_out-anlhtxt = lt_anlh-anlhtxt."资产主号文本 ENDIF. lt_out-erdat = lt_main-erdat. lt_out-ord41 = lt_main-ord41. lt_out-ord42 = lt_main-ord42. lt_out-ord43 = lt_main-ord43. lt_out-aktiv = lt_main-aktiv. CONCATENATE p_gjahr p_peraf+1(2) INTO s_datum01."报表执行日期 IF lt_main-deakt <> 0 AND lt_main-deakt+0(6) > s_datum01."报废日期在执行日期之后的，不显示报废日期字段 lt_out-deakt = ''."报废日期 ELSE. lt_out-deakt = lt_main-deakt."报废日期 ENDIF. lt_out-menge = lt_main-menge. lt_out-meins = lt_main-meins. IF ls_datum BETWEEN lt_main-adatu+0(6) AND lt_main-bdatu+0(6). lt_out-kostl = lt_main-kostl. lt_out-kostlv = lt_main-kostlv. "获取使用部门描述 READ TABLE lt_cskt WITH KEY kostl = lt_main-kostl bukrs = lt_main-bukrs. IF sy-subrc = 0. lt_out-ktext = lt_cskt-ktext. lt_out-prctr = lt_cskt-prctr."利润中心 lv_func_area = lt_cskt-func_area. ENDIF. "获取管理部门描述 READ TABLE lt_cskt WITH KEY kostl = lt_main-kostlv bukrs = lt_main-bukrs. IF sy-subrc = 0. lt_out-ktextv = lt_cskt-ktext. ENDIF. "获取利润中心描述 READ TABLE lt_cepct WITH KEY prctr = lt_out-prctr. IF sy-subrc = 0. lt_out-txt = lt_cepct-ktext. ENDIF. lt_out-aibn1 = lt_main-aibn1. lt_out-aibn2 = lt_main-aibn2. "获取anlb中的折旧码 READ TABLE lt_anlb WITH KEY anln1 = lt_main-anln1 anln2 = lt_main-anln2 bukrs = lt_main-bukrs. IF sy-subrc = 0. lt_out-afasl = lt_anlb-afasl. lt_out-ndjap = lt_anlb-ndjar * 12 + lt_anlb-ndper."折旧期限（月）=NDJAR*12+NDPE lt_out-schrw_proz = lt_anlb-schrw_proz. lt_out-schrw = lt_anlb-schrw. " lv_nafaz = lt_bcp-nafaz. lv_afabg = lt_anlb-afabg."折旧起始日期 lt_out-afabg = lv_afabg."折旧起始日期 ENDIF. "获取ANLC表数据 READ TABLE lt_anlc WITH KEY anln1 = lt_main-anln1 anln2 = lt_main-anln2 bukrs = lt_main-bukrs. IF sy-subrc = 0. lv_kansw = lt_anlc-kansw."购置价值 lv_knafa = lt_anlc-knafa. lv_kaafa = lt_anlc-kaafa. ENDIF. "获取t095-资产原值科目 READ TABLE lt_t095 WITH KEY ktogr = lt_main-ktogr. IF sy-subrc = 0. lt_out-ktansw = lt_t095-ktansw. ENDIF. "获取to95b READ TABLE lt_t095b WITH KEY ktogr = lt_main-ktogr. IF sy-subrc = 0. lt_out-ktnafb = lt_t095b-ktnafb."折旧科目 "lt_out-ktnafg = lt_t095b-ktnafg. lv_ktnafg = lt_t095b-ktnafg."折旧费用科目 "CSKS-KOKRS=dtis，KOSTL=“使用部门”，FUNC_AREA（功能范围）=2000，则1中获取的科目前四位替换为6601 IF lv_func_area = 2000 and lv_ktnafg <> '' . CONCATENATE '6601' lv_ktnafg+4(6) INTO lt_out-ktnafg. ELSE. lt_out-ktnafg = lv_ktnafg. ENDIF. lt_out-ktaafb = lt_t095b-ktaafb. lt_out-ktaafg = lt_t095b-ktaafg. ENDIF. "获取资产原值 (本年调整)anep READ TABLE lt_anepone WITH KEY anln1 = lt_main-anln1 anln2 = lt_main-anln2 bukrs = lt_main-bukrs. IF sy-subrc = 0. lt_out-anbtr = lt_anepone-anbtr. ENDIF. "资产原值(当前累计) lt_out-kanbtr = lt_out-anbtr + lv_kansw. "已折旧期限(月)--取报表执行日期，到期日，报废日期 三者的最小值，并与开始折旧日期相减 CONCATENATE p_gjahr p_peraf+1(2) INTO s_datum."报表执行日期 CALL FUNCTION 'MONTH_PLUS_DETERMINE' "计算到期日--折旧起始日期”（期间）+折旧期限（月）= 到期日 EXPORTING * months = lt_out-ndjap+1(2) "折旧期限（月） months = lt_out-ndjap "折旧期限（月） olddate = lv_afabg "折旧起始日期 IMPORTING newdate = lv_dqr. "折旧到日期 lv_dqr_m = lv_dqr+4(2) - 1. lv_dqr_y = lv_dqr+0(4) . if lv_dqr_m = '00'. "如果获取的期间-1为0月时，到期日须调整为上一年度最后一月。DY lv_dqr_y = lv_dqr_y - 1 . lv_dqr_m = '12'. endif. CONCATENATE lv_dqr_y lv_dqr_m INTO lt_month-field01. "lt_month-field01 = lv_dqr+0(6). APPEND lt_month. lt_month-field01 = s_datum. APPEND lt_month. lt_month-field01 = lt_main-deakt+0(6). APPEND lt_month. SORT lt_month ASCENDING. DELETE lt_month WHERE field01 = '000000'. READ TABLE lt_month INTO i_date INDEX 1."日期最小值 lv_year = i_date+0(4) - lv_afabg+0(4) . lv_month = i_date+4(2) - lv_afabg+4(2) + 1. CONDENSE:lv_year,lv_month. IF lv_year >= 0. lt_out-edjap = lv_year * 12 + lv_month. ELSEIF " lv_year = 0. lt_out-edjap = 0 . ENDIF. "已过账本年累计折旧 READ TABLE lt_anek WITH KEY anln1 = lt_main-anln1 anln2 = lt_main-anln2 bukrs = lt_main-bukrs. IF sy-subrc = 0. lv_belnr = lt_anek-belnr. lv_aworg = lt_anek-aworg. ls_bzdat = lt_anek-bzdat+4(2). CONCATENATE lv_belnr lv_aworg INTO lv_awkey. "IF lv_awkey IS NOT INITIAL. "期初导入折旧 READ TABLE lt_belnr WITH KEY anln1 = lt_main-anln1 anln2 = lt_main-anln2 awkey = lv_awkey. IF sy-subrc = 0 AND lt_belnr-shkzg = 'H'. lv_qch = lt_belnr-dmbtr * ( -1 ). ELSEIF sy-subrc = 0 AND lt_belnr-shkzg = 'S'. lv_qch = lt_belnr-dmbtr. ENDIF. READ TABLE lt_anlpsum WITH KEY anln1 = lt_main-anln1 anln2 = lt_main-anln2 bukrs = lt_main-bukrs."非期初折旧 IF sy-subrc = 0. lv_nafaz = lt_anlpsum-nafaz. lv_aafaz = lt_anlpsum-aafaz. ENDIF. READ TABLE lt_aneaone WITH KEY anln1 = lt_main-anln1 anln2 = lt_main-anln2 bukrs = lt_main-bukrs. IF sy-subrc = 0. lv_nafal = lt_aneaone-nafal. lv_nafav = lt_aneaone-nafav. ENDIF. lv_fqch = lv_nafaz + lv_nafal + lv_nafav. ELSE. "直接进行非期初导入折旧 READ TABLE lt_anlpsum WITH KEY anln1 = lt_main-anln1 anln2 = lt_main-anln2 bukrs = lt_main-bukrs. IF sy-subrc = 0. lv_nafaz = lt_anlpsum-nafaz. lv_aafaz = lt_anlpsum-aafaz. ENDIF. READ TABLE lt_aneaone WITH KEY anln1 = lt_main-anln1 anln2 = lt_main-anln2 bukrs = lt_main-bukrs. IF sy-subrc = 0. lv_nafal = lt_aneaone-nafal. lv_nafav = lt_aneaone-nafav. ENDIF. lv_fqch = lv_nafaz + lv_nafal + lv_nafav . ENDIF. "已过账本年累计折旧 lt_out-ygzbnlj = lv_qch + lv_fqch. READ TABLE lt_aneaone WITH KEY anln1 = lt_main-anln1 anln2 = lt_main-anln2 bukrs = lt_main-bukrs. IF sy-subrc = 0. lv_nafav = lt_aneaone-nafav. lv_aafav = lt_aneaone-aafav. lv_aafal = lt_aneaone-aafal. ENDIF. "已过账累计折旧 "lt_out-ygzlj = lv_knafa + lv_nafav + lt_out-ygzbnlj. lt_out-ygzlj = lv_knafa + lt_out-ygzbnlj. "本年过账资产减值 lt_out-bngzjz = lv_aafaz + lv_aafal. "累计过账资产减值 lt_out-ljgzjz = lt_out-bngzjz + lv_kaafa + lv_aafav. "账面净值(当前) lt_out-zmjz = lt_out-kanbtr + lt_out-ygzlj + lt_out-ljgzjz - lt_out-schrw. "已记折旧(本月) READ TABLE lt_anlpmonth WITH KEY anln1 = lt_main-anln1 anln2 = lt_main-anln2 bukrs = lt_main-bukrs peraf = p_peraf. IF sy-subrc = 0. lv_nafaz1 = lt_anlpmonth-nafaz. ENDIF. READ TABLE lt_aneatwo WITH KEY anln1 = lt_main-anln1 anln2 = lt_main-anln2 bukrs = lt_main-bukrs. IF sy-subrc = 0. lv_nafal01 = lt_aneatwo-nafal. lv_nafav01 = lt_aneatwo-nafav. ENDIF. lt_out-yjzjby = lv_nafaz1 + lv_nafal01 + lv_nafav01. APPEND lt_out. ENDIF. SORT lt_out BY bukrs anln1 anln2. CLEAR:lt_anlpsum,lt_anlb,lt_anlc,lt_anepone,lt_aneaone,lt_anek,lt_month[],lt_anlpmonth,lt_aneatwo. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form ALV_DISPLAY *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM alv_display . PERFORM fieldcat_build. g_layout-zebra = 'X'. g_layout-colwidth_optimize = 'X'. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING * I_INTERFACE_CHECK = ' ' i_bypassing_buffer = 'X' i_buffer_active = 'X' i_callback_program = sy-repid "i_callback_pf_status_set = 'SET_PF_STATUS' " i_callback_user_command = 'USER_CALLBACK' i_grid_title = '资产明细报表' * I_GRID_SETTINGS = is_layout = g_layout it_fieldcat = it_alv[] i_default = 'X' i_save = 'A' TABLES t_outtab = lt_out. IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form FIELDCAT_BUILD *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM fieldcat_build . REFRESH it_alv. PERFORM add_fieldcat USING 'BUKRS ' '4' '公司代码' '' '' '' '' ''. PERFORM add_fieldcat USING 'ANLN1 ' '12' '资产编号' '' '' '' '' ''. PERFORM add_fieldcat USING 'ANLN2 ' '4' '资产子编号' '' '' '' '' ''. PERFORM add_fieldcat USING 'TXT50 ' '30' '资产描述' '' '' '' '' ''. PERFORM add_fieldcat USING 'TXA50 ' '30' '资产附加描述' '' '' '' '' ''. PERFORM add_fieldcat USING 'ANLKL ' '8' '资产类别' '' '' '' '' ''. PERFORM add_fieldcat USING 'INVNR ' '8' '存货号' '' '' '' '' ''. PERFORM add_fieldcat USING 'ANLHTXT' '30' '资产主号文本' '' '' '' '' ''. PERFORM add_fieldcat USING 'ERDAT ' '8' '创建日期' '' '' '' '' ''. PERFORM add_fieldcat USING 'ERNAM ' '12' '创建者' '' '' '' '' ''. PERFORM add_fieldcat USING 'ORD41 ' '4' '使用状态' '' '' '' '' ''. PERFORM add_fieldcat USING 'ORD42 ' '4' '权属状态' '' '' '' '' ''. PERFORM add_fieldcat USING 'ORD43 ' '4' '资产来源' '' '' '' '' ''. PERFORM add_fieldcat USING 'AKTIV ' '8' '资本化日期' '' '' '' '' ''. PERFORM add_fieldcat USING 'AFABG ' '8' '折旧起始日期' '' '' '' '' ''. PERFORM add_fieldcat USING 'DEAKT ' '8' '报废日期' '' '' '' '' ''. PERFORM add_fieldcat USING 'MENGE ' '16' '数量(BL)' '' '' '' '' ''. PERFORM add_fieldcat USING 'MEINS ' '3' '单位' '' '' '' '' ''. PERFORM add_fieldcat USING 'KOSTL ' '10' '使用部门' '' '' '' '' ''. PERFORM add_fieldcat USING 'KTEXT ' '20' '使用部门描述' '' '' '' '' ''. PERFORM add_fieldcat USING 'KOSTLV ' '10' '管理部门' '' '' '' '' ''. PERFORM add_fieldcat USING 'KTEXTV ' '20' '管理部门描述' '' '' '' '' ''. PERFORM add_fieldcat USING 'PRCTR ' '10' '利润中心' '' '' '' '' ''. PERFORM add_fieldcat USING 'TXT ' '20' '利润中心描述' '' '' '' '' ''. PERFORM add_fieldcat USING 'AIBN1 ' '12' '原始资产' '' '' '' '' ''. PERFORM add_fieldcat USING 'AIBN2 ' '4' '原始资产子号' '' '' '' '' ''. PERFORM add_fieldcat USING 'AFASL ' '4' '折旧码' '' '' '' '' ''. PERFORM add_fieldcat USING 'NDJAP ' '3' '折旧期限（月）' '' '' '' '' ''. PERFORM add_fieldcat USING 'EDJAP ' '3' '已折旧期限(月)' '' '' '' '' ''. PERFORM add_fieldcat USING 'SCHRW_PROZ' '25' '残值率(%)' '' '' '' '' ''. PERFORM add_fieldcat USING 'KTANSW' '10' '资产原值科目' '' '' '' '' ''. PERFORM add_fieldcat USING 'ANBTR ' '15' '资产原值(本年调整)' '' '' '' '' ''. PERFORM add_fieldcat USING 'KANBTR ' '15' '资产原值(当前累计)' '' '' '' '' ''. PERFORM add_fieldcat USING 'KTNAFB ' '10' '累计折旧科目' '' '' '' '' ''. PERFORM add_fieldcat USING 'KTNAFG ' '10' '折旧费用科目' '' '' '' '' ''. PERFORM add_fieldcat USING 'YGZBNLJ' '15' '已过账本年累计折旧' '' '' '' '' ''. PERFORM add_fieldcat USING 'YGZLJ ' '15' '已过账累计折旧' '' '' '' '' ''. PERFORM add_fieldcat USING 'KTAAFB ' '10' '资产减值准备科目' '' '' '' '' ''. PERFORM add_fieldcat USING 'KTAAFG ' '10' '资产减值损失科目' '' '' '' '' ''. PERFORM add_fieldcat USING 'BNGZJZ ' '15' '本年过账资产减值' '' '' '' '' ''. PERFORM add_fieldcat USING 'LJGZJZ ' '15' '累计过账资产减值' '' '' '' '' ''. PERFORM add_fieldcat USING 'ZMJZ ' '15' '账面净值(当前)' '' '' '' '' ''. PERFORM add_fieldcat USING 'YJZJBY ' '15' '已记折旧(本月)' '' '' '' '' ''. PERFORM add_fieldcat USING 'SCHRW ' '15' '预计残值' '' '' '' '' ''. ENDFORM. *&---------------------------------------------------------------------* *& Form ADD_FIELDCAT *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* FORM add_fieldcat USING VALUE(p_fieldname) VALUE(p_outputlen) VALUE(p_text) VALUE(p_key) VALUE(p_just) VALUE(p_field) VALUE(p_table) VALUE(p_edit). it_alv-fieldname = p_fieldname. it_alv-outputlen = p_outputlen. it_alv-reptext_ddic = p_text. it_alv-key = p_key. it_alv-just = p_just. it_alv-ref_fieldname = p_field. it_alv-ref_tabname = p_table. it_alv-edit = p_edit. * IF p_fieldname = 'YGZBNLJ'. * it_alv-do_sum = 'X'. * ENDIF. APPEND it_alv. CLEAR: it_alv. ENDFORM.

1.CA contain any

str1 ca str2 遍历str1，其中的每个字符对应到str2的每个字符，如果对应成功，注意：只要有一个字符成功，就为true.

如：str1 = ‘我a’ str2=’hubab’ —–true

2.CO contain only

str1 co str2 遍历str1，其中的每个字符对应到str2的每个字符，如果对应成功，注意：str1中的每一個字符成功，就为true.

如：str1 = ‘我a’ str2=’hubab’ —–false

str1 = ‘ba’ str2=’hubab’ —–true

3.CS contain string

str1 cs str2 str1 是否包含str2。

4.CP contains pattern

str1 cp str2

str1 = ‘aac’ str2 = ‘#aA#c’ true

str1 = ‘aAc’ str2 = ‘#aA#c’ true

str1 = ‘123abc123’ str2 = ‘abc’ sy-fdpos = 3.

下面看如何在程序内使用模板（部分代码） DATA: p_file TYPE ibipparms-path. DATA: lo_objdata LIKE wwwdatatab, lo_mime LIKE w3mime, lc_filename TYPE string VALUE 'zlm_accout', "默认下载名称 lc_fullpath TYPE string VALUE 'D:\' , lc_path TYPE string VALUE 'D:\' , ls_destination LIKE rlgrap-filename, ls_objnam TYPE string, li_rc LIKE sy-subrc, ls_errtxt TYPE string. DATA: p_objid TYPE wwwdatatab-objid VALUE 'ZBKT_ACCOUT', p_dest LIKE sapb-sappfad. DATA: l_wa_data LIKE str_account_infor. DATA: row TYPE int4. "保存下载的模板 CALL METHOD cl_gui_frontend_services=>file_save_dialog "调用保存对话框 EXPORTING default_extension = 'XLS' default_file_name = lc_filename CHANGING filename = lc_filename path = lc_path fullpath = lc_fullpath "获取模板保存路径 EXCEPTIONS cntl_error = 1 error_no_gui = 2 not_supported_by_gui = 3 OTHERS = 4. IF lc_fullpath = ''. * ENDIF. ls_destination = lc_fullpath. "保存路径 "检查表wwwdata中是否存在所指定的模板文件 SELECT SINGLE relid objid FROM wwwdata INTO CORRESPONDING FIELDS OF lo_objdata WHERE srtf2 = 0 AND relid = 'MI' AND objid = p_objid. IF sy-subrc NE 0 OR lo_objdata-objid EQ space. "如果不存在，则给出错误提示 ENDIF. "下载模板 CALL FUNCTION 'DOWNLOAD_WEB_OBJECT' EXPORTING key = lo_objdata destination = ls_destination IMPORTING rc = li_rc. IF li_rc NE 0. * ENDIF.

REPORT z_download_csv. TYPE-POOLS: truxs. *&---------------------------------------------------------------------* *& Data Types *&---------------------------------------------------------------------* TYPES: BEGIN OF ty_spfli, carrid TYPE spfli-carrid, connid TYPE spfli-connid, countryfr TYPE spfli-countryfr, cityfrom TYPE spfli-cityfrom, airpfrom TYPE spfli-airpfrom, countryto TYPE spfli-countryto, cityto TYPE spfli-cityto, airpto TYPE spfli-airpto, END OF ty_spfli. *&---------------------------------------------------------------------* *& Data Declaration *&---------------------------------------------------------------------* DATA: gt_spfli TYPE TABLE OF ty_spfli. DATA: gt_text TYPE truxs_t_text_data. *&---------------------------------------------------------------------* *& Start-of-Selection *&---------------------------------------------------------------------* START-OF-SELECTION. SELECT carrid connid countryfr cityfrom airpfrom countryto cityto airpto UP TO 10 ROWS FROM spfli INTO TABLE gt_spfli. * 将内表数据转换成逗号分割符CSV文件 CALL FUNCTION 'SAP_CONVERT_TO_TEX_FORMAT' EXPORTING i_field_seperator = ',' " Comma seperator TABLES i_tab_sap_data = gt_spfli CHANGING i_tab_converted_data = gt_text 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. * 下载CSV文件 CALL METHOD cl_gui_frontend_services=>gui_download EXPORTING filename = 'c:\temp\test.csv' CHANGING data_tab = gt_text EXCEPTIONS file_write_error = 1 no_batch = 2 gui_refuse_filetransfer = 3 invalid_type = 4 no_authority = 5 unknown_error = 6 header_not_allowed = 7 separator_not_allowed = 8 filesize_not_allowed = 9 header_too_long = 10 dp_error_create = 11 dp_error_send = 12 dp_error_write = 13 unknown_dp_error = 14 access_denied = 15 dp_out_of_memory = 16 disk_full = 17 dp_timeout = 18 file_not_found = 19 dataprovider_exception = 20 control_flush_error = 21 not_supported_by_gui = 22 error_no_gui = 23 OTHERS = 24. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF.

LINES

SELECT carrid FROM scarr INTO TABLE @DATA(lt_tab). OLD: DESCRIBE TABLE lt_tab LINES DATA(LV_TABIX). NEW: DATA(LV_TABIX) = LINES( lt_tab ).

LINE_EXISTS

SELECT * FROM spfli INTO TABLE @flight_tab. IF line_exists( flight_tab[ carrid = 'XM' connid = '6688' ] ). "ACTION ENDIF.

LINE_INDEX

OLD: READ TABLE flight_tab TRANSPORTING NO FIELDS WITH KEY carrid = 'XX' connid = '88'. IF sy-subrc = 0. WRITE: sy-tabix. "index ENDIF. NEW: DATA(indx) = line_index( flight_tab[ carrid = 'XX' connid = '88'] ). WRITE: indx.

s_bukrs FOR anla-bukrs OBLIGATORY MEMORY ID buk.

Range Table 概述

Range Table 为 SAP R/3系统标准内表的一种，结构与 Selection Table 一致，由 SIGN, OPTION, LOW 和 HIGH字段组成；

可以通过 TYPE RANGE OF 语句或 RANGES 关键字定义 Range Table。

Range Table 常用于Open SQL语句中的条件筛选，可以优化取数效率与程序性能。

2.定义Range Table

可以通过两种方式定义：

TYPE RANGE OF…

DATA rtab {TYPE RANGE OF type}|{LIKE RANGE OF dobj}

[INITIAL SIZE n]

[WITH HEADER LINE]

[VALUE IS INITIAL]

[READ-ONLY].

RANGES

语法：

RANGES rtab FOR dobj [OCCURS n].

* 全局变量 DATA: gt_marc TYPE STANDARD TABLE OF marc. *------------------------------------------- * 通过 RANGE OF 定义 *------------------------------------------- DATA: gr_werks TYPE RANGE OF werks_d, gw_werks LIKE LINE OF gr_werks. * 宏定义 DEFINE set_range. gw_werks-sign = 'I'. gw_werks-option = 'EQ'. gw_werks-low = &1. append gw_werks to gr_werks. END-OF-DEFINITION. set_range '1000'. set_range '1010'. SELECT * FROM marc INTO CORRESPONDING FIELDS OF TABLE gt_marc WHERE werks IN gr_werks. *------------------------------------------- * 通过 RANGES 定义 *------------------------------------------- TABLES：marc. RANGES: gr_matnr FOR marc-matnr.

这里需要注意，For后面字段必须为参考表的字段，不能使用 Data Element 来定义，否则系统会报出错误。

如：RANGES: gr_werks FOR werks_d.
3. 在 Subroutine 中传输 Range Table

TABLES: mara. * 全局变量 DATA: gt_mara TYPE STANDARD TABLE OF mara. DATA: gr_matnr TYPE RANGE OF mara-matnr WITH HEADER LINE, gl_matnr LIKE LINE OF gr_matnr. *&---------------------------------------------------------------------* *& Form frm_get_data *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->PT_MARA text * -->PR_MATNR text *----------------------------------------------------------------------* FORM frm_get_data TABLES pt_mara STRUCTURE mara pr_matnr STRUCTURE gr_matnr. SELECT matnr mtart matkl FROM mara INTO CORRESPONDING FIELDS OF TABLE pt_mara WHERE matnr IN pr_matnr. ENDFORM. " F_GET_DATA 在 Function Module 中传输 Range Table

当需要在 Function Module 中传输Range Table 时，可以直接参考预定义类型 Table：

FIELD-SYMBOLS < fs_line > TYPE ANY. FIELD-SYMBOLS < fs_value > TYPE ANY. DATA lv_value TYPE char40. LOOP AT t_selection ASSIGNING < fs_line >. ASSIGN COMPONENT 'LOW' OF STRUCTURE < fs_line > TO < fs_value >. lv_value = < fs_value >. … ENDLOOP.