报表开发小结

来源：互联网发布：网络喷子无脑编辑：程序博客网时间：2024/05/28 06:06

生产订单的系统状态、用户状态获取

SELECT SINGLE objnr INTO l_objnr FROM aufk WHERE aufnr = s_aufnr. IF l_objnr IS NOT INITIAL. CALL FUNCTION 'STATUS_READ' "读取系统状态 EXPORTING client = sy-mandt objnr = l_objnr only_active = 'X' TABLES status = i_status EXCEPTIONS object_not_found = 1 OTHERS = 2."SELECT SINGLE stat FROM jest " INTO l_stat" WHERE objnr = gi_qh-objnr" AND stat LIKE 'E%'" AND inact NE 'X'. SELECT txt04 INTO TABLE l_txt FROM tj02t FOR ALL ENTRIES IN i_status WHERE istat = i_status-stat AND spras = '1'. IF l_txt[] IS NOT INITIAL. READ TABLE l_txt WITH KEY txt04 = 'REL'. "REL 状态 IF sy-subrc = '0'. SELECT tj30~stonr INTO TABLE l_stonr "读取用户状态 FROM tj30 INNER JOIN jsto ON jsto~stsma = tj30~stsma WHERE jsto~objnr = l_objnr AND tj30~stonr = '30'. IF sy-subrc <> '0'. ENDIF. ENDIF. ENDIF.

系统状态是REL 用户状态是30的符合条件

获取操作生产订单的用户名、操作时间：

SELECT SINGLE estat FROM tj30 INTO l_estat1 WHERE stsma = l_stsma AND stonr = '26' . SELECT SINGLE MAX( chgnr ) FROM jcds "获取审核人名字 INTO l_chgnr WHERE objnr = gi_qh-objnr AND stat = l_estat1 AND inact = '' . IF l_chgnr IS NOT INITIAL . SELECT SINGLE usnam udate FROM jcds INTO (l_usnam, l_udate) WHERE chgnr = l_chgnr AND stat = l_estat1 AND objnr = gi_qh-objnr. CONCATENATE l_udate+0(4) '年' l_udate+4(2) '月' l_udate+6(2) '日' INTO gi_qh-shdate . IF l_usnam IS NOT INITIAL . SELECT SINGLE persnumber FROM usr21 INTO l_persnumber WHERE bname = l_usnam . IF l_persnumber IS NOT INITIAL . SELECT SINGLE name_last name_first FROM adrp INTO (l_name_last , l_name_first) WHERE persnumber = l_persnumber. CONCATENATE '负责人：' l_name_last l_name_first INTO gi_qh-shr . ENDIF. ENDIF. ENDIF.

删除重复数据

SORT i_datasec BY werks.DELETE ADJACENT DUPLICATES FROM i_datasec COMPARING werks.

读取长文本

DATA conc TYPE thead-tdname. DATA it_txt TYPE TABLE OF tline WITH HEADER LINE. DATA wa_stxh TYPE stxh. CONCATENATE sy-mandt gi_qh-aufnr INTO conc. SELECT SINGLE * FROM stxh CLIENT SPECIFIED INTO wa_stxh WHERE tdobject = 'AUFK' AND tdname = conc AND tdid = 'KOPF' AND tdspras = sy-langu. IF sy-subrc = 0. CALL FUNCTION 'READ_TEXT' EXPORTING id = 'KOPF' language = sy-langu name = conc object = 'AUFK' TABLES lines = it_txt. LOOP AT it_txt. DATA m TYPE i . m = STRLEN( it_txt-tdline ). IF m = 0 OR it_txt-tdline = space. CONTINUE. ENDIF. CONCATENATE gi_qh-ktext '' it_txt-tdline INTO gi_qh-ktext. ENDLOOP. CLEAR it_txt[] . ENDIF.

ALV FM 定义选择方式

wa_layout-box_fieldname = 'SEL'.

ALV FM 定义变色

wa_layout-info_fieldname = 'COLOR'.

ALV FM 定义光标离开事件

1：声明

CLASS lcl_event_receiver DEFINITION. PUBLIC SECTION. METHODS: handle_data_changed FOR EVENT data_changed OF cl_gui_alv_grid IMPORTING er_data_changed.ENDCLASS. "lcl_event_receiver DEFINITIONCLASS lcl_event_receiver IMPLEMENTATION. METHOD handle_data_changed . DATA: ls_good TYPE lvc_s_modi. PERFORM handle_data_changed USING er_data_changed. ENDMETHOD. "handle_data_changedENDCLASS. "lcl_event_receiver IMPLEMENTATIONDATA: it_events TYPE slis_t_event, wa_events LIKE LINE OF it_events.DATA: lr_grid TYPE REF TO cl_gui_alv_grid.DATA: g_event_receiver TYPE REF TO lcl_event_receiver.

2：

wa_events-name = 'CALLER_EXIT'.wa_events-form = 'FM_BUTTON'.APPEND wa_events TO it_events.

3：

*&---------------------------------------------------------------------**& Form fm_button*&---------------------------------------------------------------------** 光标离开*----------------------------------------------------------------------** -->E_GRID text*----------------------------------------------------------------------*FORM fm_button USING e_grid TYPE slis_data_caller_exit. CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPORTING e_grid = lr_grid.* 设置enter事件 CALL METHOD lr_grid->register_edit_event EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_enter EXCEPTIONS error = 1 OTHERS = 2.* 设置data changed事件 CALL METHOD lr_grid->register_edit_event EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_modified EXCEPTIONS error = 1 OTHERS = 2. CREATE OBJECT g_event_receiver. SET HANDLER g_event_receiver->handle_data_changed FOR lr_grid.ENDFORM. "FM_BUTTON*&---------------------------------------------------------------------**& Form handle_data_changed*&---------------------------------------------------------------------** 屏幕字段改变值后判断*----------------------------------------------------------------------** -->P_ER_DATA_CHANGED text*----------------------------------------------------------------------*FORM handle_data_changed USING p_er_data_changed TYPE REF TO cl_alv_changed_data_protocol. FIELD-SYMBOLS: <fs_mod_rows> TYPE STANDARD TABLE, <fs_cells> TYPE lvc_t_modi , <fs_cell_wa> TYPE lvc_s_modi , <fs> LIKE LINE OF i_data. DATA: i TYPE i. IF NOT p_er_data_changed->mp_mod_rows IS INITIAL. ASSIGN p_er_data_changed->mp_mod_rows->* TO <fs_mod_rows>. ASSIGN p_er_data_changed->mt_mod_cells TO <fs_cells>. LOOP AT <fs_mod_rows> ASSIGNING <fs>. IF <fs>-sbdmng > <fs>-mbdmng OR <fs>-sbdmng < '0'. READ TABLE <fs_cells> INDEX sy-tabix ASSIGNING <fs_cell_wa>. i = <fs_cell_wa>-row_id. LOOP AT i_data WHERE number = i. i_data-color = 'C610'. MODIFY i_data. CLEAR i_data. ENDLOOP. ELSE. READ TABLE <fs_cells> INDEX sy-tabix ASSIGNING <fs_cell_wa>. i = <fs_cell_wa>-row_id. LOOP AT i_data WHERE number = i. i_data-color = ''. i_data-result = ''. MODIFY i_data. CLEAR i_data. ENDLOOP. ENDIF. ENDLOOP. CALL METHOD lr_grid->refresh_table_display. ENDIF.ENDFORM. "handle_data_changed

ALV FM 排序

*声明DATA it_sort TYPE slis_t_sortinfo_alv WITH HEADER LINE . *使用 CLEAR it_sort . it_sort1-fieldname = 'LGOBE' . it_sort1-spos = '4' . it_sort1-up = 'X'. it_sort1-subtot = 'X'. APPEND it_sort .

ALV FM 表头HTML格式

CALL METHOD p_cl_dd->html_insert EXPORTING contents = m_buffer CHANGING position = m_p.CALL METHOD p_cl_dd->add_text( text = text1 ).CALL METHOD p_cl_dd->add_gap( width = 20 ).CALL METHOD p_cl_dd->new_line.

获取登录系统的用户名称

SELECT SINGLE adrp~name_first adrp~name_last INTO (name_first,name_last) FROM adrp INNER JOIN usr21 ON adrp~persnumber = usr21~persnumber WHERE usr21~bname = sy-uname . IF sy-subrc = 0 . CONCATENATE name_last name_first INTO l_name . ELSE . l_name = sy-uname . ENDIF.

打印：一式二联

data: wa_printoption TYPE ssfcompop, wa_ctrl TYPE ssfctrlop, wa_archive_index TYPE toa_dara, wa_archive_index_tab TYPE tsfdara,wa_archive_parameters TYPE arc_params, fm_name TYPE rs38l_fnam. wa_ctrl-preview = ''. wa_ctrl-no_dialog = ''. wa_ctrl-no_open = 'X'. wa_ctrl-no_close = 'X'. CALL FUNCTION 'SSF_OPEN' EXPORTING control_parameters = wa_ctrl."若是一个smart 只要调用2次 CALL FUNCTION fm_name 就可达到打印一式二联的效果, 代码省略 CALL FUNCTION 'SSF_CLOSE' .