*&---------------------------------------------------------------------*
*& Report ZGEP_VCZX0020 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT zgep_vczx0020 .
TABLES: z1crm_order_head ,z1crm_sales_org,but000,crmd_orderadm_h.
TYPE-POOLS: slis.
DATA: g_repid LIKE sy-repid.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv .
DATA: gs_fieldcat TYPE slis_fieldcat_alv .
DATA: gs_layout TYPE slis_layout_alv.
DATA: gs_variant LIKE disvariant.
DATA: BEGIN OF itab OCCURS 0 .
INCLUDE STRUCTURE z1crm_order_head .
DATA: text_org LIKE z1crm_sales_org-text_org.
DATA: sold_to_name LIKE but000-name_org1 .
DATA: ship_to_name LIKE but000-name_org1 .
DATA: line_color(4) TYPE c .
DATA: END OF itab .
DATA : guid_temp TYPE crmt_object_guid .
*DATA: itab1 LIKE TABLE OF itab .
DATA: return(1) .
DATA: answer(1) .
DATA: i_t_params TYPE rsti_t_par .
DATA: i_s_params TYPE rsparams .
DATA: dest LIKE rfcdes-rfcdest.
RANGES: r_order FOR z1crm_order_head-order_id .
RANGES: r_order1 FOR z1crm_order_head-order_id .
DATA: BEGIN OF order OCCURS 0 .
DATA: order_id LIKE z1crm_order_head-order_id .
DATA: END OF order .
SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE text-001.
PARAMETER: mill LIKE z1crm_order_head-mill OBLIGATORY . "工厂编号
SELECT-OPTIONS pro_type FOR z1crm_order_head-process_type . "订单类型
SELECT-OPTIONS cdate FOR z1crm_order_head-creat_date . "订单类型
SELECT-OPTIONS statu FOR z1crm_order_head-txt04_process . "订单状态
*PARAMETERS: check_y RADIOBUTTON GROUP g1 DEFAULT 'X' .
*PARAMETERS: check_e RADIOBUTTON GROUP g1 .
PARAMETERS: error AS CHECKBOX .
SELECTION-SCREEN END OF BLOCK bk1.
START-OF-SELECTION.
*********获得主数据
IF statu IS INITIAL .
statu-sign = 'I' .
statu-option = 'BT' .
statu-low = 'A110' .
statu-high = 'A140' .
APPEND statu .
ENDIF.
REFRESH: itab ,r_order ,r_order1,order.
SELECT * INTO TABLE itab
FROM z1crm_order_head
WHERE mill = mill
AND txt04_process IN statu
AND process_type IN pro_type
AND creat_date IN cdate.
SORT itab BY order_id .
DELETE ADJACENT DUPLICATES FROM itab COMPARING order_id .
********找出已传输到R3的单子
REFRESH: r_order .
LOOP AT itab .
r_order-sign = 'I' .
r_order-option = 'EQ'.
r_order-low = itab-order_id .
APPEND r_order .CLEAR r_order .
ENDLOOP .
IF sy-mandt = '777'.
dest = 'RFC_P01_666_GE'.
ELSEIF sy-mandt = '162'.
dest = 'D01_170_HQ'.
* dest = 'PRO_666_HP'.
ELSEIF sy-mandt = '137'.
dest = 'RFC_RS1_666_HQ'.
ENDIF .
CALL FUNCTION 'ZGET_VBELN'
DESTINATION dest
TABLES
order = r_order.
LOOP AT r_order .
DELETE itab WHERE order_id = r_order-low .
ENDLOOP .
IF r_order[] IS NOT INITIAL .
UPDATE z1crm_order_head SET stat_process = 'E0022'
txt04_process = 'B010'
WHERE order_id IN r_order
AND txt04_process <> 'B020'.
ENDIF.
*******找出有批次为空的单子
IF error <> 'X'.
REFRESH: r_order1,order .
LOOP AT itab .
r_order1-sign = 'I' .
r_order1-option = 'EQ'.
r_order1-low = itab-order_id .
APPEND r_order1 .CLEAR r_order1 .
ENDLOOP .
SELECT order_id INTO TABLE order
FROM z1crm_order_head
WHERE mill = mill
AND order_id IN r_order1
AND ( matnr IN ('','000000000043300000',
'000000000053000000','000000000053300000')
OR charg = '' OR txt04_process < 'A110') .
LOOP AT order .
DELETE itab WHERE order_id = order-order_id .
ENDLOOP .
ENDIF.
*********找出标准表里不存在的记录
REFRESH: r_order1,order .
LOOP AT itab .
r_order1-sign = 'I' .
r_order1-option = 'EQ'.
r_order1-low = itab-order_id .
APPEND r_order1 .CLEAR r_order1 .
ENDLOOP .
SELECT object_id INTO TABLE order
FROM crmd_orderadm_h
WHERE object_id IN r_order1 .
LOOP AT itab .
READ TABLE order WITH KEY order_id = itab-order_id .
IF sy-subrc <> 0 .
DELETE itab . CLEAR itab .
ENDIF .
ENDLOOP .
*********判断能否传输
* IF check_y = 'X' . "传输失败
LOOP AT itab .
CLEAR return .
CALL FUNCTION 'Z1CRM_TRANSFER_CHECK'
EXPORTING
guid = itab-head_guid
IMPORTING
return = return.
IF return = 'E' .
itab-line_color = 'C610'.
ELSEIF return = 'T'.
itab-line_color = 'C510'.
ELSEIF return = 'F' .
itab-line_color = 'C410'.
ENDIF .
MODIFY itab. CLEAR itab .
ENDLOOP .
* ENDIF .
*********************描述
LOOP AT itab .
SELECT SINGLE text_org INTO itab-text_org
FROM z1crm_sales_org
WHERE sales_group = itab-sales_group
AND spras = '1'.
SELECT SINGLE name_org1 INTO itab-sold_to_name
FROM but000
WHERE partner = itab-sold_to .
SELECT SINGLE name_org1 INTO itab-ship_to_name
FROM but000
WHERE partner = itab-ship_to .
MODIFY itab.CLEAR itab .
ENDLOOP .
SORT itab BY creat_date DESCENDING .
END-OF-SELECTION.
gs_layout-zebra = 'X'.
gs_layout-cell_merge = 'X'.
gs_layout-colwidth_optimize = 'X'.
gs_layout-info_fieldname = 'LINE_COLOR'.
g_repid = sy-repid.
gs_variant-report = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* i_background_id = 'ALV_BACKGROUND'
i_callback_pf_status_set = 'MENU_SET'
i_callback_user_command = 'USER_COMMAND'
i_callback_program = g_repid
i_structure_name = 'ZGEP_VCZX0020'
is_layout = gs_layout
* i_save = 'A'
* is_variant = gs_variant
* it_fieldcat = gt_fieldcat[]
TABLES
t_outtab = itab.
*&--------------------------------------------------------------------*
*& Form menu_set
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -->RT_EXTAB text
*---------------------------------------------------------------------*
FORM menu_set USING lt_extab TYPE slis_t_extab.
DATA: ls_extab TYPE slis_extab.
SET PF-STATUS '101'. "定义屏幕状态,然后在里面定义自己的按钮
ENDFORM. "menu_set
*&--------------------------------------------------------------------*
*& Form execute_command
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -->R_UCOMM text
* -->RS_SELFIELDtext
*---------------------------------------------------------------------*
FORM user_command USING ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
CASE ucomm.
WHEN '&IC1'.
READ TABLE itab INDEX rs_selfield-tabindex .
REFRESH : i_t_params . CLEAR: i_s_params .
i_s_params-selname = 'IV_GUID' .
i_s_params-kind = 'S' .
i_s_params-sign = 'I' .
i_s_params-option = 'EQ' .
i_s_params-low = itab-head_guid .
APPEND i_s_params TO i_t_params .
SUBMIT crm_report_start AND RETURN WITH SELECTION-TABLE i_t_params.
WHEN 'TRANSPORT'.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
textline1 = '您确认正确且继续吗?'
titel = '传输'
IMPORTING
answer = answer.
IF answer = 'J' .
CALL FUNCTION 'Z1CRM_TRANSFER_2_R3_VC'
STARTING NEW TASK 'task'
EXPORTING
guid = itab-head_guid
sign = 'X'.
MESSAGE 'OK!' TYPE 'I' .
ENDIF.
ENDCASE.
ENDFORM. "execute_command
阅读(806) | 评论(0) | 转发(0) |