对CU50的修改（未使用）
目的是把CU50中的选择配置拿出来，再把最后BOM的结果拿出来。2023.10.13
一、CU50里面2个标准函数有修改：
----------LCUKOF01----函数----------------
CALL FUNCTION 'CU01_DISPLAY_BOM'
EXPORTING
masterdata = rcuko-ukomp
RESULT = rcuko-uaktk
level_by_level = rcuko-dmstu
all_components = rcuko-ucmpf
no_masterdata = g_nomd
no_result = g_nore
include_header = incl1
IMPORTING
return_with_function = list_okcode
TABLES
bom_list_index = indx_clst
bom_list = lt_clst.
*{ INSERT S4DK913063 1
DATA gs_ZCU50_LIST like ZCU50_LIST.
DELETE FROM ZCU50_LIST.
COMMIT WORK .
LOOP AT gt_clst_for_list INTO DATA(gs400) WHERE INTENSIV = 'X' AND INSTP = '1'.
gs_ZCU50_LIST-UUID = cl_uuid_factory=>create_system_uuid( )->create_uuid_c22( ).
gs_ZCU50_LIST-TEXT = gs400-ZEILE.
INSERT into ZCU50_LIST VALUES gs_ZCU50_LIST.
CLEAR gs_ZCU50_LIST.
ENDLOOP.
*} INSERT
-----------LCEI0F90函数--------------
CALL FUNCTION 'CUTC_GET_SETTINGS'
IMPORTING
active = lv_ddb_trace.
IF lv_ddb_trace IS INITIAL.
ls_fcode-fcode = 'TRCD'.
APPEND ls_fcode TO lt_fcode.
ELSE.
ls_fcode-fcode = 'TRCA'.
APPEND ls_fcode TO lt_fcode.
ENDIF.
*{ INSERT S4DK913063 1
DATA gs_ZVCOND_SD like ZVCOND_SD.
DELETE FROM ZVCOND_SD.
COMMIT WORK .
gs_ZVCOND_SD-UUID = cl_uuid_factory=>create_system_uuid( )->create_uuid_c22( ).
gs_ZVCOND_SD-VARCOND = GV_MATNR.
INSERT into ZVCOND_SD VALUES gs_ZVCOND_SD.
CLEAR gs_ZVCOND_SD.
gs_ZVCOND_SD-UUID = cl_uuid_factory=>create_system_uuid( )->create_uuid_c22( ).
gs_ZVCOND_SD-VARCOND = GV_WERKS.
INSERT into ZVCOND_SD VALUES gs_ZVCOND_SD.
CLEAR gs_ZVCOND_SD.
gs_ZVCOND_SD-UUID = cl_uuid_factory=>create_system_uuid( )->create_uuid_c22( ).
gs_ZVCOND_SD-VARCOND = GV_DATE.
INSERT into ZVCOND_SD VALUES gs_ZVCOND_SD.
CLEAR gs_ZVCOND_SD.
LOOP AT GT_VCOND_SD INTO DATA(gs400).
gs_ZVCOND_SD-UUID = cl_uuid_factory=>create_system_uuid( )->create_uuid_c22( ).
gs_ZVCOND_SD-VARCOND = gs400-VARCOND.
INSERT into ZVCOND_SD VALUES gs_ZVCOND_SD.
CLEAR gs_ZVCOND_SD.
ENDLOOP.
*} INSERT
二、存数据的透明表：
三、处理程序：
*&---------------------------------------------------------------------*
*& Report ZPPR0016B
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZPPR0016B.
TABLES:vbap,stko,ZCU50_LIST.
DATA ls_write TYPE zspp_bominfo.
DATA ls_head TYPE zspp_bominfo.
DATA lt_head TYPE TABLE OF zspp_bominfo.
DATA lv_rfcdest TYPE rfcdest.
DATA lt_esb_com TYPE zsca_esb_com_tab.
DATA lt_bomlist TYPE TABLE OF zspp_bomlist.
DATA gt_stpo TYPE TABLE OF stpox.
DATA:gs_layout TYPE lvc_s_layo, "#EC NEEDED
gs_glay TYPE lvc_s_glay, "#EC NEEDED
gt_fieldcat TYPE lvc_t_fcat. "#EC NEEDED
TYPES: BEGIN OF ty_table,
matnr(40) TYPE C,
END OF ty_table.
DATA gt_SAP TYPE TABLE OF ty_table.
DATA gt_APS TYPE TABLE OF ty_table.
DATA gs_gsgs TYPE ty_table.
SELECTION-SCREEN BEGIN OF BLOCK a0 WITH FRAME TITLE TEXT-001.
PARAMETERS:p_datuv TYPE stko-datuv DEFAULT sy-datum. "有效起始日期
SELECTION-SCREEN END OF BLOCK a0.
START-OF-SELECTION.
PERFORM frm_SAP_data.
PERFORM frm_APS_data.
PERFORM frm_xxx.
FORM frm_SAP_data.
DATA GT_ZCU50_LIST TYPE TABLE OF ZCU50_LIST.
SELECT * FROM ZCU50_LIST INTO TABLE GT_ZCU50_LIST.
LOOP AT GT_ZCU50_LIST ASSIGNING FIELD-SYMBOL().
gs_gsgs-MATNR = -TEXT+8(40) .
IF gs_gsgs-MATNR EQ 'F2'. CONTINUE. ENDIF.
IF gs_gsgs-MATNR EQ 'F2PD'. CONTINUE. ENDIF.
IF gs_gsgs-MATNR EQ 'F2BD'. CONTINUE. ENDIF.
APPEND gs_gsgs to gt_SAP.
CLEAR gs_gsgs.
ENDLOOP.
ENDFORM.
FORM frm_APS_data.
DATA GT_VCOND_SD TYPE TABLE OF ZVCOND_SD.
SELECT * FROM ZVCOND_SD INTO TABLE GT_VCOND_SD.
LOOP AT GT_VCOND_SD INTO DATA(line).
"------PM--------------
if cl_abap_list_utilities=>dynamic_output_length( line-VARCOND ) > 10. ls_head-ATWRT1 = line-VARCOND. ENDIF.
"------CC--------------
IF line-VARCOND+0(2) EQ 'CC' .
ls_head-ATWRT2 = line-VARCOND.
ENDIF.
"------PA--------------
IF line-VARCOND+0(2) EQ 'PA' .
ls_head-ATWRT3 = line-VARCOND.
ENDIF.
"------P0--------------
IF line-VARCOND+0(2) EQ 'P0' .
IF ls_head-ATWRT4 is INITIAL.
ls_head-ATWRT4 = line-VARCOND.
ELSE.
ls_head-ATWRT4 = ls_head-ATWRT4 && ';' && line-VARCOND.
ENDIF.
ENDIF.
"------1003--------------
IF line-VARCOND+0(3) EQ '100' .
ls_head-werks = line-VARCOND.
ENDIF.
"------F2--------------
IF line-VARCOND+0(2) EQ 'F2' .
ls_head-matnr = line-VARCOND.
ENDIF.
"------20231013--------------
IF line-VARCOND+0(3) EQ '202' .
ls_head-badat = line-VARCOND.
ENDIF.
ENDLOOP.
IF ls_head-matnr EQ 'F2'. ls_head-z_st = 'V'. ENDIF.
IF ls_head-matnr EQ 'F2PD'. ls_head-z_st = 'P'. ENDIF.
IF ls_head-matnr EQ 'F2BD'. ls_head-z_st = 'A'. ENDIF.
APPEND ls_head TO lt_head .
ls_write = ls_head.
CLEAR ls_head.
lv_rfcdest = zcl_ca_tools=>get_rfcdest( ).
CALL FUNCTION 'ZSAP_PP_APS_BOMINFO_OUT' DESTINATION lv_rfcdest
TABLES
et_po_header = lt_head
tt_esb_com = lt_esb_com
tt_bomlist = lt_bomlist.
ENDFORM.
FORM frm_xxx.
"----###############-----------
WRITE:/ p_datuv && ':' && ls_head-ATWRT1 && ',' && ls_head-ATWRT2 && ',' && ls_head-ATWRT3 && ',' && ls_head-ATWRT4.
DATA lv_l1 TYPE i VALUE 0.
DATA lv_l2 TYPE i VALUE 0.
lv_l1 = lines( lt_bomlist ).
lv_l2 = lines( gt_SAP ).
WRITE:/ 'APS: ' && lv_l1.
WRITE:/ 'SAP: ' && lv_l2 .
"----####?##?#-----------
LOOP AT lt_bomlist INTO DATA(gs_2).
gs_gsgs-MATNR = gs_2-MATNR.
APPEND gs_gsgs to gt_APS.
CLEAR gs_gsgs.
ENDLOOP.
SORT gt_SAP.
SORT gt_APS.
IF gt_SAP[] = gt_APS[].
WRITE:/ 'every item same'.
ELSE.
WRITE:/ 'some item different'.
ENDIF.
CLEAR:gt_SAP[],gt_APS[],lt_bomlist[],gt_stpo[].
ENDFORM.
FORM frm_ALV.
"#####?##
TYPES: BEGIN OF ty_flight,
TXT1(40) TYPE C,
id TYPE i ,
TXT2(40) TYPE C,
TXT3(40) TYPE C,
END OF ty_flight.
"#####?#
DATA gt_20 TYPE TABLE OF ty_flight.
DATA gs_20 TYPE ty_flight.
*
*
* LOOP AT gt_SAP INTO DATA(gs_s).
*
*
* gs_20-TXT2 = gs_s-MATNR.
* APPEND gs_20 to gt_20.
* CLEAR gs_20.
*
*
* ENDLOOP.
*
*
*
* LOOP AT gt_APS INTO DATA(gs_s).
*
*
* gs_20-TXT3 = gs_s-MATNR.
* APPEND gs_20 to gt_20.
* CLEAR gs_20.
*
* ENDLOOP.
*
DATA: WS_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
WS_FIELDGROUPS_TAB TYPE SLIS_T_SP_GROUP_ALV,
WS_LAYOUT TYPE SLIS_LAYOUT_ALV,
WS_SORTFIELDS_TAB TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE,
WS_EVENTS TYPE SLIS_T_EVENT.
DATA: NN TYPE I VALUE 0.
DATA: TITLE TYPE LVC_TITLE.
DATA: COLOR TYPE SLIS_T_SPECIALCOL_ALV WITH HEADER LINE.
*
DEFINE HOUT.
NN = NN + 1.
WS_FIELDCAT-COL_POS = NN.
WS_FIELDCAT-TABNAME = 'GT_20'.
WS_FIELDCAT-KEY = &1.
WS_FIELDCAT-FIELDNAME = &2.
WS_FIELDCAT-SELTEXT_M = &3.
WS_FIELDCAT-CFIELDNAME = &4.
WS_FIELDCAT-DATATYPE = &5.
WS_FIELDCAT-REF_TABNAME = &6.
WS_FIELDCAT-REF_FIELDNAME = &7.
WS_FIELDCAT-DO_SUM = &8.
WS_FIELDCAT-HOTSPOT = &9.
APPEND WS_FIELDCAT.
CLEAR WS_FIELDCAT.
END-OF-DEFINITION.
HOUT:
'' 'TXT1' '## ## ## ##' '' '' '' '' '' '',
'' 'TXT2' ' SAP ' '' '' '' '' '' '',
'' 'TXT3' ' APS ' '' '' '' '' '' ''.
WS_LAYOUT-ZEBRA = 'X'.
WS_LAYOUT-GET_SELINFOS = 'X'.
WS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
WS_LAYOUT-DETAIL_POPUP = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
IS_LAYOUT = WS_LAYOUT
IT_FIELDCAT = WS_FIELDCAT[]
IT_SPECIAL_GROUPS = WS_FIELDGROUPS_TAB[]
IT_SORT = WS_SORTFIELDS_TAB[]
IT_EVENTS = WS_EVENTS[]
I_GRID_TITLE = TITLE
I_DEFAULT = 'X'
I_SAVE = 'A'
TABLES
T_OUTTAB = GT_20[]
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
ENDFORM.