REPORT zmmr026.
TABLES:vfclmshlpacntid,csks,cosp,coep,lfa1.
INCLUDE <icon>.
TYPE-POOLS: slis.
DATA: gv_container TYPE REF TO cl_gui_docking_container,
gv_alv TYPE REF TO cl_gui_alv_grid , "ALV网格
gv_row_alv TYPE REF TO cl_gui_alv_grid_base,
gt_exclude TYPE ui_functions, "用于去掉不要的菜单栏
gv_index_columns TYPE lvc_t_col, "选择列
gt_fieldcat TYPE lvc_t_fcat, "FCAT
gs_fieldcat TYPE LINE OF lvc_t_fcat, "FCAT
gt_f4 TYPE lvc_t_f4 WITH HEADER LINE, "搜索帮助
gs_layout TYPE lvc_s_layo , "布局结构
gs_variant TYPE disvariant, "字段格式保存
gt_sort TYPE TABLE OF lvc_s_sort, "用于排序
gs_sort TYPE lvc_s_sort, "用于排序
gt_index TYPE lvc_t_col, "选择列
gt_filt TYPE lvc_t_filt. "用于过滤
DATA:gs_stable TYPE lvc_s_stbl. "刷新稳定
DATA:filt_table TYPE lvc_t_fidx."过滤内表
DATA: gt_nu3_rows TYPE lvc_t_row, "获取行
gt_nu3_no TYPE lvc_t_roid,
gs_nu3_no TYPE lvc_s_roid.
*&---------------------------------------------------------------------*
* DEFINE VARIABLE 变量
*&---------------------------------------------------------------------*
DATA:gv_ok_code LIKE sy-ucomm.
*&---------------------------------------------------------------------*
* DEFIEN INNER TABLE 内表
*&---------------------------------------------------------------------*
DATA:BEGIN OF gs_alv,
opertype TYPE char1,
bukrs TYPE ztmm030-bukrs, "公司代码
lifnr TYPE ztmm030-lifnr, "供应商科目编号
unw_reason TYPE bp001-unw_reason, "供应商等级
unw_text TYPE tp18t-unw_text, "供应商等级描述
minbw TYPE ztmm030-minbw, "预付款总额度
zhsla TYPE ztmm030-zhsla, "已预付金额
zhslb TYPE ztmm030-zhslb, "应付暂估金额
yfkye TYPE ztmm030-yfkye, "预付款余额
name TYPE lfa1-name1, "//客商名称
zsel TYPE char1, "选择
zcheck TYPE char30, "红绿灯
message TYPE char220, "消息
END OF gs_alv.
DATA:gt_alv LIKE TABLE OF gs_alv.
FIELD-SYMBOLS:<fs_alv> LIKE gs_alv.
*--------------------------------------------------------------------*
* 定义 类
*---------------------------------------------------------------------*
CLASS lcl_event_handler DEFINITION.
PUBLIC SECTION.
METHODS:
handle_toolbar "自定义工具栏
FOR EVENT toolbar OF cl_gui_alv_grid
IMPORTING e_object e_interactive,
handle_user_command "自定义按钮
FOR EVENT user_command OF cl_gui_alv_grid
IMPORTING e_ucomm,
*--基于单元格的效验
handle_data_changed
FOR EVENT data_changed OF cl_gui_alv_grid
IMPORTING er_data_changed e_onf4 e_onf4_before e_onf4_after e_ucomm,
*--在数据修改完成之后
handle_data_changed_finished
FOR EVENT data_changed_finished OF cl_gui_alv_grid
IMPORTING e_modified et_good_cells ,
*--搜索帮助
handle_onf4
FOR EVENT onf4 OF cl_gui_alv_grid
IMPORTING e_fieldname es_row_no er_event_data,
handle_double_click
FOR EVENT double_click OF cl_gui_alv_grid
IMPORTING e_row e_column es_row_no,
handle_hotspot_click
FOR EVENT hotspot_click OF cl_gui_alv_grid "屏幕中的单击事件，可以具体到某行某列，需要设置热点
IMPORTING e_row_id e_column_id es_row_no.
ENDCLASS.
*&---------------------------------------------------------------------*
* CLASS实例化
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_event_handler IMPLEMENTATION.
*--HANDLE DATA CHANGED FINISHED
METHOD handle_data_changed_finished.
PERFORM frm_data_changed_finished USING e_modified et_good_cells .
ENDMETHOD. "HANDLE_DATA_CHANGED_FINISHED
METHOD handle_data_changed. "单元格事件触发相关
* PERFORM FRM_HANDLE_DATA_CHANGED USING ER_DATA_CHANGED.
ENDMETHOD. "HANDLE_DATA_CHANGED
METHOD handle_toolbar.
DATA: ls_toolbar TYPE stb_button.
MOVE 'REFRESH' TO ls_toolbar-function.
MOVE icon_refresh TO ls_toolbar-icon.
MOVE '刷新' TO ls_toolbar-quickinfo.
APPEND ls_toolbar TO e_object->mt_toolbar.
CLEAR ls_toolbar.
MOVE 'SELALL' TO ls_toolbar-function.
MOVE icon_select_all TO ls_toolbar-icon.
MOVE '全选' TO ls_toolbar-quickinfo.
MOVE '全选' TO ls_toolbar-text.
APPEND ls_toolbar TO e_object->mt_toolbar.
CLEAR ls_toolbar.
MOVE 'DELALL' TO ls_toolbar-function.
MOVE icon_deselect_all TO ls_toolbar-icon.
MOVE '取消全选' TO ls_toolbar-quickinfo.
MOVE '取消全选' TO ls_toolbar-text.
APPEND ls_toolbar TO e_object->mt_toolbar.
CLEAR ls_toolbar.
MOVE 'ZPOST' TO ls_toolbar-function.
MOVE icon_okay TO ls_toolbar-icon.
MOVE '上传' TO ls_toolbar-quickinfo.
MOVE '上传' TO ls_toolbar-text.
APPEND ls_toolbar TO e_object->mt_toolbar.
CLEAR ls_toolbar.
ENDMETHOD.
METHOD handle_user_command.
PERFORM frm_handle_user_command USING e_ucomm.
ENDMETHOD.
METHOD handle_double_click.
PERFORM handle_double_click USING e_row e_column es_row_no.
ENDMETHOD.
*--搜索帮助
METHOD handle_onf4.
* PERFORM FRM_HANDLE_ONF4 USING E_FIELDNAME ES_ROW_NO ER_EVENT_DATA.
ENDMETHOD .
METHOD handle_hotspot_click.
PERFORM handle_hotspot_click USING e_row_id e_column_id es_row_no.
ENDMETHOD.
ENDCLASS. "LCL_EVENT_HANDLER IMPLEMENTATION
*&---------------------------------------------------------------------*
* DEFINE SCREEN 选择屏幕
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001 .
SELECT-OPTIONS:s_bukrs FOR csks-bukrs MODIF ID m1,
s_lifnr FOR lfa1-lifnr MODIF ID m1.
SELECTION-SCREEN END OF BLOCK b1 .
*&---------------------------------------------------------------------*
* INITIALIZATION 初始化
INITIALIZATION.
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_hbkid-low.
* PERFORM f4_s_hbkid.
*
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_hbkid-high.
* PERFORM f4_s_hbkid.
*
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_hktid-low.
* PERFORM f4_s_hktid.
*
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_hktid-high.
* PERFORM f4_s_hktid.
AT SELECTION-SCREEN OUTPUT.
*&---------------------------------------------------------------------*
* AT SELECTION-SCREEN
*&------------------------------- --------------------------------------*
AT SELECTION-SCREEN.
"权限校验
PERFORM frm_authority_check.
*&---------------------------------------------------------------------*
* START-OF-SELECTION
*&---------------------------------------------------------------------*
START-OF-SELECTION.
"读取数据
PERFORM frm_get_data.
"调用屏幕
IF sy-batch EQ 'X'.
PERFORM frm_zpost_data."上传
ELSE.
CALL SCREEN 9000.
ENDIF.
END-OF-SELECTION.
*&---------------------------------------------------------------------*
*& Form f4_s_hbkid
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM f4_s_hbkid .
SELECT vfclmshlpacntid~hbkid, bnka~banka FROM vfclmshlpacntid
LEFT JOIN bnka ON vfclmshlpacntid~bankl = bnka~bankl AND vfclmshlpacntid~banks = bnka~banks
INTO TABLE @DATA(lt_hbkid).
SORT lt_hbkid BY hbkid banka.
DELETE ADJACENT DUPLICATES FROM lt_hbkid COMPARING hbkid banka.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'HBKID'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'S_HBKID'
value_org = 'S'
callback_program = sy-repid
TABLES
value_tab = lt_hbkid
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form f4_s_hktid
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM f4_s_hktid .
SELECT vfclmshlpacntid~hktid FROM vfclmshlpacntid INTO TABLE @DATA(lt_hktid).
SORT lt_hktid BY hktid.
DELETE ADJACENT DUPLICATES FROM lt_hktid COMPARING hktid.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'HKTID'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'S_HKTID'
value_org = 'S'
callback_program = sy-repid
TABLES
value_tab = lt_hktid
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
* IMPLEMENT SUITABLE ERROR HANDLING HERE
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_authority_check
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_authority_check .
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_DISPLAY_ALV
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_display_alv .
IF gv_alv IS INITIAL . "ALV对象如果为空，则生成对象，把ALV放入容器中
CREATE OBJECT gv_container
EXPORTING
repid = sy-repid
dynnr = '9000'
extension = 2050
side = cl_gui_docking_container=>property_floating.
CREATE OBJECT gv_alv
EXPORTING
i_parent = gv_container.
PERFORM frm_build_fieldcat.
* PERFORM FRM_BUILD_SORT. "排序
PERFORM frm_exclude_tb_functions CHANGING gt_exclude. "去掉不用的菜单按钮
PERFORM frm_prepare_layout CHANGING gs_layout . "获取样式
PERFORM frm_eventload. "读取事件（总）
*-----显示ALV-------------------------------------------
CLEAR gs_variant.
gs_variant = sy-repid.
* CALL METHOD gv_alv->set_drop_down_table
* EXPORTING
* it_drop_down = gt_dropdowm. "添加下拉框方法到ALV中顯示
CALL METHOD gv_alv->set_table_for_first_display
EXPORTING
is_layout = gs_layout
it_toolbar_excluding = gt_exclude
is_variant = gs_variant
i_save = 'A'
CHANGING
it_outtab = gt_alv
it_fieldcatalog = gt_fieldcat
it_sort = gt_sort
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
OTHERS = 4.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
CALL METHOD gv_alv->register_edit_event
EXPORTING
i_event_id = cl_gui_alv_grid=>mc_evt_modified.
ELSE .
*----------------------------刷新ALV----------------------
PERFORM frm_refurbish_alv. "刷新ALV
ENDIF .
ENDFORM.
*&---------------------------------------------------------------------*
*& FORM FRM_REFURBISH_ALV
*&---------------------------------------------------------------------*
*& TEXT
*&---------------------------------------------------------------------*
*& --> P1 TEXT
*& <-- P2 TEXT
*&---------------------------------------------------------------------*
FORM frm_refurbish_alv. " 调整可更改的单元格
*----------------------------刷新ALV----------------------
gs_stable-row = 'X'.
gs_stable-col = 'X'.
CALL METHOD gv_alv->refresh_table_display
EXPORTING
is_stable = gs_stable
EXCEPTIONS
finished = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
CLEAR gs_stable.
ENDFORM.
FORM frm_build_fieldcat .
DATA:lv_fieldname TYPE char20,
lv_fieldvalue TYPE char20,
lv_colindex TYPE char2.
REFRESH: gt_fieldcat .
PERFORM frm_get_fieldcat USING: 'ZSEL' '选择' '' '' '' '' 'X' 'X' '' .
PERFORM frm_get_fieldcat USING: 'ZCHECK' '红绿灯' '' '' '' '' '' '' '' .
PERFORM frm_get_fieldcat USING: 'MESSAGE' '消息' '' '' '' '' '' '' '' .
PERFORM frm_get_fieldcat USING: 'BUKRS' '公司代码' 'ZTMM030' 'BUKRS' '' '' '' '' '' .
PERFORM frm_get_fieldcat USING: 'LIFNR' '供应商科目编号' 'ZTMM030' 'LIFNR' '' '' '' '' '' .
PERFORM frm_get_fieldcat USING: 'NAME' '供应商名称' 'LFA1' 'NAME1' '' '' '' '' '' .
PERFORM frm_get_fieldcat USING: 'UNW_REASON' '供应商等级' 'BP001' 'UNW_REASON' '' '' '' '' '' .
PERFORM frm_get_fieldcat USING: 'UNW_TEXT' '供应商等级描述' 'TP18T' 'UNW_TEXT' '' '' '' '' '' .
PERFORM frm_get_fieldcat USING: 'MINBW' '预付款总额度' 'ZTMM030' 'MINBW' '' '' '' '' '' .
PERFORM frm_get_fieldcat USING: 'ZHSLA' '已预付金额' 'ZTMM030' 'ZHSLA' '' '' '' '' '' .
PERFORM frm_get_fieldcat USING: 'ZHSLB' '应付暂估金额' 'ZTMM030' 'ZHSLB' '' '' '' '' '' .
PERFORM frm_get_fieldcat USING: 'YFKYE' '预付款余额' 'ZTMM030' 'YFKYE' '' '' '' '' '' .
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_EXCLUDE_TB_FUNCTIONS
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& <-- GT_EXCLUDE
*&---------------------------------------------------------------------*
FORM frm_exclude_tb_functions CHANGING p_gt_exclude TYPE ui_functions.
CLEAR:gt_exclude.
DATA ls_exclude TYPE ui_func.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row .
APPEND ls_exclude TO gt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy .
APPEND ls_exclude TO gt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row .
APPEND ls_exclude TO gt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_cut .
APPEND ls_exclude TO gt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row .
APPEND ls_exclude TO gt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row .
APPEND ls_exclude TO gt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_move_row .
APPEND ls_exclude TO gt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste .
APPEND ls_exclude TO gt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row .
APPEND ls_exclude TO gt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_undo .
APPEND ls_exclude TO gt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_print .
APPEND ls_exclude TO gt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_refresh.
APPEND ls_exclude TO gt_exclude.
ENDFORM.
*&---------------------------------------------------------------------*
*& FORM PREPARE_LAYOUT_9001
*&---------------------------------------------------------------------*
* 获取显示状态
*----------------------------------------------------------------------*
* -->P_GDS_LAYOUT TEXT
*----------------------------------------------------------------------*
FORM frm_prepare_layout CHANGING p_gds_layout TYPE lvc_s_layo.
CLEAR:gs_layout.
p_gds_layout-cwidth_opt = 'X'. "最优化宽度
p_gds_layout-zebra = 'X'. "间隔颜色
p_gds_layout-sel_mode = 'A'. "选择模式
p_gds_layout-no_rowmark = 'X'.
* P_GDS_LAYOUT-STYLEFNAME = 'CELTAB'.
ENDFORM. " PREPARE_LAYOUT
*&---------------------------------------------------------------------*
*& Form FRM_EVENTLOAD
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_eventload .
DATA lv_event_handler TYPE REF TO lcl_event_handler . "事件响应
CREATE OBJECT lv_event_handler.
DATA:lt_f4 TYPE lvc_t_f4,
ls_f4 TYPE lvc_s_f4.
IF gv_alv IS NOT INITIAL.
CALL METHOD gv_alv->register_edit_event
EXPORTING
i_event_id = cl_gui_alv_grid=>mc_evt_enter.
SET HANDLER lv_event_handler->handle_data_changed FOR gv_alv.
SET HANDLER lv_event_handler->handle_data_changed_finished FOR gv_alv.
SET HANDLER lv_event_handler->handle_double_click FOR gv_alv.
SET HANDLER lv_event_handler->handle_toolbar FOR gv_alv. "注册工具栏
SET HANDLER lv_event_handler->handle_user_command FOR gv_alv. "注册用户自定义命令
SET HANDLER lv_event_handler->handle_onf4 FOR gv_alv. "F4
SET HANDLER lv_event_handler->handle_hotspot_click FOR gv_alv. "单击
DATA lv_event_handler1 TYPE REF TO lcl_event_handler . "事件响应
CREATE OBJECT lv_event_handler1.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_data_changed_finished
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> E_MODIFIED
*& --> ET_GOOD_CELLS
*&---------------------------------------------------------------------*
FORM frm_data_changed_finished USING e_modified et_good_cells TYPE lvc_t_modi.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_HANDLE_USER_COMMAND
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> E_UCOMM
*&---------------------------------------------------------------------*
FORM frm_handle_user_command USING p_e_ucomm.
DATA: lr_grid TYPE REF TO cl_gui_alv_grid,
rs_selfield TYPE slis_selfield.
CASE p_e_ucomm.
WHEN 'SELALL'.
CLEAR:filt_table.
CALL METHOD gv_alv->get_filtered_entries
IMPORTING
et_filtered_entries = filt_table. "被过滤的内表数据行
LOOP AT gt_alv ASSIGNING <fs_alv>.
READ TABLE filt_table TRANSPORTING NO FIELDS WITH KEY table_line = sy-tabix.
IF sy-subrc <> 0.
<fs_alv>-zsel = 'X'.
ENDIF.
ENDLOOP.
WHEN 'DELALL'.
CLEAR:filt_table.
CALL METHOD gv_alv->get_filtered_entries
IMPORTING
et_filtered_entries = filt_table. "被过滤的内表数据行
LOOP AT gt_alv ASSIGNING <fs_alv>.
READ TABLE filt_table TRANSPORTING NO FIELDS WITH KEY table_line = sy-tabix.
IF sy-subrc <> 0.
<fs_alv>-zsel = ''.
ENDIF.
ENDLOOP.
WHEN 'REFRESH'."刷新
PERFORM frm_get_data.
WHEN 'ZPOST'.
PERFORM frm_zpost_data."上传
WHEN OTHERS.
ENDCASE.
PERFORM frm_refurbish_alv.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form handle_double_click
*&---------------------------------------------------------------------*
*& text双击
*&---------------------------------------------------------------------*
*& --> E_ROW
*& --> E_COLUMN
*&---------------------------------------------------------------------*
FORM handle_double_click USING e_rowtype TYPE lvc_s_row
e_column TYPE lvc_s_col
e_row_no TYPE lvc_s_roid.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form handle_hotspot_click
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> E_ROW_ID
*& --> E_COLUMN_ID
*& --> ES_ROW_NO
*&---------------------------------------------------------------------*
FORM handle_hotspot_click USING e_row_id TYPE lvc_s_row
e_column_id TYPE lvc_s_col
es_row_no TYPE lvc_s_roid.
ENDFORM.
*&---------------------------------------------------------------------*
*& Module STATUS_9000 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_9000 OUTPUT.
SET PF-STATUS 'S001'.
SET TITLEBAR 'T001'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module DISPLAY_ALV OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE display_alv OUTPUT.
PERFORM frm_display_alv.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_9000 INPUT.
CLEAR gv_ok_code.
gv_ok_code = sy-ucomm.
CASE gv_ok_code.
WHEN '&F03' OR '&F15' OR '&F12'.
LEAVE TO SCREEN 0.
WHEN OTHERS.
ENDCASE.
CLEAR:gv_ok_code.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Form frm_get_data
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_get_data .
SELECT DISTINCT
a~bukrs,
a~lifnr,
d~name1 AS name,
a~zgrup AS unw_reason,
c~unw_text ,
a~webtr AS minbw
FROM lfb1 AS a
INNER JOIN lfa1 AS d ON a~lifnr = d~lifnr
INNER JOIN bp001 AS b ON a~lifnr = b~partner
LEFT JOIN tp18t AS c ON A~zgrup = c~unw_reason AND c~langu EQ 1
WHERE a~bukrs IN @s_bukrs AND a~lifnr IN @s_lifnr
INTO CORRESPONDING FIELDS OF TABLE @gt_alv.
*已预付金额
WITH +data AS ( SELECT DISTINCT bukrs,lifnr FROM @gt_alv AS zdata )
SELECT
a~bukrs,
a~lifnr,
SUM( b~hsl ) AS hsl
FROM +data AS a
INNER JOIN acdoca AS b ON b~rbukrs = a~bukrs AND b~lifnr = a~lifnr
WHERE b~drcrk EQ 'S' AND b~racct EQ '1123020101'
GROUP BY a~bukrs, a~lifnr
INTO TABLE @DATA(lt_acdoca_a) .
*应付暂估金额
IF sy-mandt EQ '110'.
WITH +data AS ( SELECT DISTINCT bukrs,lifnr FROM @gt_alv AS zdata )
SELECT
a~bukrs,
a~lifnr,
SUM( b~hsl ) AS hsl
FROM +data AS a
INNER JOIN acdoca AS b ON b~rbukrs = a~bukrs AND b~lifnr = a~lifnr
WHERE b~blart EQ 'WE' AND b~racct EQ '2202030101'
GROUP BY a~bukrs, a~lifnr
INTO TABLE @DATA(lt_acdoca_b) .
ELSE.
WITH +data AS ( SELECT DISTINCT bukrs,lifnr FROM @gt_alv AS zdata )
SELECT
a~bukrs,
a~lifnr,
SUM( b~hsl ) AS hsl
FROM +data AS a
INNER JOIN acdoca AS b ON b~rbukrs = a~bukrs AND b~lifnr = a~lifnr
WHERE b~blart EQ 'WE' AND b~racct EQ '1123020101'
GROUP BY a~bukrs, a~lifnr
INTO TABLE @lt_acdoca_b.
ENDIF.
* zhsla TYPE ztmm030-zhsla, "已预付金额
* zhslb TYPE ztmm030-zhslb, "应付暂估金额
* yfkye TYPE ztmm030-yfkye, "预付款余额
LOOP AT gt_alv ASSIGNING FIELD-SYMBOL(<fs>).
READ TABLE lt_acdoca_a INTO DATA(ls_acdoca_a) WITH KEY bukrs = <fs>-bukrs lifnr = <fs>-lifnr.
IF sy-subrc EQ 0.
<fs>-zhsla = ls_acdoca_a-hsl.
ENDIF.
READ TABLE lt_acdoca_b INTO DATA(ls_acdoca_b) WITH KEY bukrs = <fs>-bukrs lifnr = <fs>-lifnr.
IF sy-subrc EQ 0.
<fs>-zhslb = ls_acdoca_b-hsl * ( 113 / 100 ).
ENDIF.
<fs>-yfkye = <fs>-minbw - <fs>-zhsla - <fs>-zhslb.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_ZPOST_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_zpost_data .
IF sy-batch = 'X'."后台 全量
LOOP AT gt_alv ASSIGNING <fs_alv>.
<fs_alv>-zsel = 'X'.
ENDLOOP.
ENDIF.
*
READ TABLE gt_alv ASSIGNING <fs_alv> WITH KEY zsel = 'X'.
IF sy-subrc <> 0.
MESSAGE '请选择数据' TYPE 'S' DISPLAY LIKE 'E'. RETURN.
ENDIF.
"判断是I , U , D
"查询底表
SELECT * FROM ztmm030 INTO TABLE @DATA(lt_log).
LOOP AT gt_alv ASSIGNING <fs_alv> WHERE zsel = 'X'.
READ TABLE lt_log INTO DATA(ls_log) WITH KEY lifnr = <fs_alv>-lifnr bukrs = <fs_alv>-bukrs .
IF sy-subrc = 0.
<fs_alv>-opertype = 'U'.
ELSE.
<fs_alv>-opertype = 'I'.
ENDIF.
ENDLOOP.
* 日志表
DATA:lt_ztmm030 TYPE TABLE OF ztmm030,
ls_ztmm030 TYPE ztmm030.
DATA:BEGIN OF ls_name ,
abap TYPE abap_compname,
json TYPE string,
END OF ls_name ,
lt_name LIKE HASHED TABLE OF ls_name WITH UNIQUE KEY abap.
lt_name[] = VALUE #(
( abap = 'OPERTYPE' json = 'opertype' )
( abap = 'NAME' json = 'name' )
( abap = 'BUKRS' json = 'BUKRS' )
( abap = 'LIFNR' json = 'LIFNR' )
( abap = 'ZGRUP' json = 'ZGRUP' )
( abap = 'WEBTR' json = 'WEBTR' )
( abap = 'HSL' json = 'HSL' )
( abap = 'YFKYE' json = 'YFKYE' )
).
DATA:BEGIN OF ls_data,
opertype TYPE char1,
bukrs TYPE ztmm030-bukrs, "公司代码
name TYPE lfa1-name1, "//客商名称
lifnr TYPE ztmm030-lifnr, "供应商科目编号
zgrup TYPE tp18t-unw_text, " 供应商等级 unw_text
webtr TYPE lfa1-name1, " //预付款总额度 minbw
hsl TYPE lfa1-name1, " //已预付金额 zhsla
yfkye TYPE lfa1-name1, " //预付款余额 yfkye
END OF ls_data.
DATA:BEGIN OF ls_out,
data LIKE TABLE OF ls_data,
END OF ls_out.
TYPES:BEGIN OF ty_code,
code TYPE string,
message TYPE string,
END OF ty_code.
DATA:BEGIN OF ls_ret,
code TYPE char1,
data TYPE ty_code,
message TYPE bapi_msg,
END OF ls_ret.
DATA: lv_url TYPE string,
lt_fields TYPE tihttpnvp,
lv_send TYPE string,
lv_type TYPE bapi_mtype,
lv_message TYPE string,
lv_response TYPE string.
CONSTANTS service_name TYPE string VALUE 'syncCreditResource/syncCredit'.
SELECT SINGLE *
FROM ztif_url
WHERE system_id = 'OA'
AND active_flg IS NOT INITIAL
INTO @DATA(ls_url).
IF sy-subrc <> 0.
MESSAGE '请维护外围系统URL配置表' TYPE 'S' DISPLAY LIKE 'E'. RETURN.
ENDIF.
CHECK ls_url-url IS NOT INITIAL.
"创建客户端请求
lv_url = |{ ls_url-url }{ service_name }|.
lt_fields = VALUE #( ( name = 'Content-Type' value = 'application/json' ) ).
CLEAR:gs_alv,lv_send,lv_type,lv_message,lv_response,ls_ret,ls_out.
LOOP AT gt_alv INTO gs_alv WHERE zsel = 'X'.
CLEAR:ls_data.
MOVE-CORRESPONDING gs_alv TO ls_data.
ls_data-lifnr = |{ ls_data-lifnr ALPHA = OUT }|.
ls_data-zgrup = gs_alv-unw_reason."供应商等级 unw_text
ls_data-webtr = gs_alv-minbw." //预付款总额度 minbw
CONDENSE ls_data-webtr.
ls_data-hsl = gs_alv-zhsla. " //已预付金额 zhsla
CONDENSE ls_data-hsl.
ls_data-yfkye = gs_alv-yfkye. " //预付款余额 yfkye
CONDENSE ls_data-yfkye.
APPEND ls_data TO ls_out-data.
ENDLOOP.
/ui2/cl_json=>serialize( EXPORTING data = ls_out
pretty_name = 'X'
numc_as_string = 'X'
name_mappings = lt_name
RECEIVING r_json = lv_send ). "传入数据
BREAK itl_abap04.
CALL FUNCTION 'ZFM_RESTFUL_SEND'
EXPORTING
iv_url = lv_url
it_fields = lt_fields
iv_send_data = lv_send
IMPORTING
ev_type = lv_type
ev_message = lv_message
ev_response_data = lv_response.
"反序列json解析
/ui2/cl_json=>deserialize( EXPORTING json = lv_response
CHANGING data = ls_ret ).
IF ls_ret-data-code EQ '1'.
gs_alv-message = '推送失败' && ls_ret-data-message.
MODIFY gt_alv FROM VALUE #( zcheck = icon_led_red message = gs_alv-message )
TRANSPORTING zcheck message WHERE zsel EQ 'X'.
ELSE.
MODIFY gt_alv FROM VALUE #( zcheck = icon_led_green message = '推送成功' )
TRANSPORTING zcheck message WHERE zsel EQ 'X'.
LOOP AT gt_alv INTO gs_alv WHERE zsel = 'X'.
CLEAR ls_ztmm030.
MOVE-CORRESPONDING gs_alv TO ls_ztmm030.
APPEND ls_ztmm030 TO lt_ztmm030.
ENDLOOP.
IF lt_ztmm030[] IS NOT INITIAL.
MODIFY ztmm030 FROM TABLE lt_ztmm030[].
COMMIT WORK AND WAIT.
ENDIF.
ENDIF.
ENDFORM.
FORM frm_get_fieldcat USING p1 p2 p3 p4 p5 p6 p7 p8 p9.
CLEAR: gs_fieldcat.
gs_fieldcat-fieldname = p1.
gs_fieldcat-coltext = p2.
gs_fieldcat-scrtext_l = p2.
gs_fieldcat-scrtext_m = p2.
gs_fieldcat-scrtext_s = p2.
gs_fieldcat-ref_table = p3.
gs_fieldcat-ref_field = p4.
gs_fieldcat-emphasize = p5.
gs_fieldcat-fix_column = p6.
gs_fieldcat-edit = p7.
gs_fieldcat-checkbox = p8.
gs_fieldcat-hotspot = p9.
APPEND gs_fieldcat TO gt_fieldcat.
ENDFORM.
FUNCTION zfm_restful_send.
*"----------------------------------------------------------------------
*"*"本地接口：
*" IMPORTING
*" VALUE(IV_URL) TYPE STRING
*" VALUE(IV_METHOD) TYPE STRING DEFAULT 'POST'
*" VALUE(IV_USERNAME) TYPE STRING OPTIONAL
*" VALUE(IV_PASSWORD) TYPE STRING OPTIONAL
*" VALUE(IT_FIELDS) TYPE TIHTTPNVP OPTIONAL
*" VALUE(IV_SEND_DATA) TYPE STRING OPTIONAL
*" EXPORTING
*" VALUE(EV_TYPE) TYPE BAPI_MTYPE
*" VALUE(EV_MESSAGE) TYPE STRING
*" VALUE(EV_RESPONSE_DATA) TYPE STRING
*"----------------------------------------------------------------------
" 接口日志写入
/afl/log_init.
TYPES: BEGIN OF ty_response,
code TYPE char1,
message TYPE string,
END OF ty_response.
DATA: ls_response TYPE ty_response.
DATA:lo_http_client TYPE REF TO if_http_client,
lv_code TYPE i.
DATA:lv_proxy_host TYPE string.
DATA:lv_proxy_service TYPE string.
DATA: lv_ssl_id TYPE ssfapplssl .
IF sy-host = 'vhhsgps4ci'.
lv_proxy_host = 'proxy'.
lv_proxy_service = '3128'.
ENDIF.
*创建客户端请求
CALL METHOD cl_http_client=>create_by_url
EXPORTING
url = iv_url
proxy_host = lv_proxy_host
proxy_service = lv_proxy_service
ssl_id = lv_ssl_id
IMPORTING
client = lo_http_client
EXCEPTIONS
argument_not_found = 1
plugin_not_active = 2
internal_error = 3
pse_not_found = 4
pse_not_distrib = 5
pse_errors = 6
oa2c_set_token_error = 7
oa2c_missing_authorization = 8
oa2c_invalid_config = 9
oa2c_invalid_parameters = 10
oa2c_invalid_scope = 11
oa2c_invalid_grant = 12
OTHERS = 13.
IF sy-subrc <> 0.
ev_type = 'E'.
lo_http_client->get_last_error( IMPORTING message = ev_message ).
ev_message = '创建代理失败！' && ev_message.
RETURN.
ENDIF.
*不显示登录界面
lo_http_client->propertytype_logon_popup = lo_http_client->co_disabled.
*设置账号+密码
IF iv_username IS NOT INITIAL AND iv_password IS NOT INITIAL.
lo_http_client->authenticate( EXPORTING username = iv_username password = iv_password ).
ENDIF.
*设定调用服务
lo_http_client->request->set_method( EXPORTING method = iv_method ).
*设置Headers
lo_http_client->request->set_header_fields( EXPORTING fields = it_fields[] ).
*设置报文数据
IF iv_send_data IS NOT INITIAL.
CALL METHOD lo_http_client->request->set_cdata
EXPORTING
data = iv_send_data
offset = 0
length = strlen( iv_send_data ).
ENDIF.
*发送请求
CALL METHOD lo_http_client->send
EXCEPTIONS
http_communication_failure = 1
http_invalid_state = 2.
IF sy-subrc <> 0.
ev_type = 'E'.
lo_http_client->get_last_error( IMPORTING message = ev_message ).
ev_message = '发送请求失败！' && ev_message.
RETURN.
ENDIF.
*读取远程服务返回的处理过结果
CALL METHOD lo_http_client->receive
EXCEPTIONS
http_communication_failure = 1
http_invalid_state = 2
http_processing_failed = 3.
IF sy-subrc <> 0 .
ev_type = 'E'.
lo_http_client->get_last_error( IMPORTING message = ev_message ).
ev_message = '获取返回消息失败！' && ev_message.
RETURN.
ELSE.
CALL METHOD lo_http_client->response->get_status
IMPORTING
code = lv_code
reason = ev_message.
IF lv_code BETWEEN '200' AND '299'.
ev_type = 'S'.
ev_message = '调用接口成功！'.
ELSE.
ev_type = 'E'.
ev_message = '返回码提示失败！' && ev_message.
ENDIF.
*读取返回内容
ev_response_data = lo_http_client->response->get_cdata( ).
IF ev_response_data IS NOT INITIAL.
* REPLACE ALL OCCURRENCES OF '#' IN ev_response_data WITH space.
* CONDENSE ev_response_data NO-GAPS.
/ui2/cl_json=>deserialize( EXPORTING json = ev_response_data
CHANGING data = ls_response ).
IF ls_response-code = 1 AND ls_response-message IS NOT INITIAL.
ev_type = 'E'.
ev_message = ls_response-message && ev_message.
ENDIF.
ENDIF.
ENDIF.
" 保存日志
/afl/save.
ENDFUNCTION.
浙公网安备 33010602011771号