本文主要是介绍对CU50的修改（未使用），希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
目的是把CU50中的选择配置拿出来，再把最后BOM的结果拿出来。2023.10.13
一、CU50里面2个标准函数有修改：
----------LCUKOF01----函数----------------CALL FUNCTION 'CU01_DISPLAY_BOM'EXPORTINGmasterdata = rcuko-ukompRESULT = rcuko-uaktklevel_by_level = rcuko-dmstuall_components = rcuko-ucmpfno_masterdata = g_nomdno_result = g_noreinclude_header = incl1IMPORTINGreturn_with_function = list_okcodeTABLESbom_list_index = indx_clstbom_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'IMPORTINGactive = 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 1DATA 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 NEEDEDgs_glay TYPE lvc_s_glay, "#EC NEEDEDgt_fieldcat TYPE lvc_t_fcat. "#EC NEEDEDTYPES: 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(<fs>).gs_gsgs-MATNR = <fs>-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_rfcdestTABLESet_po_header = lt_headtt_esb_com = lt_esb_comtt_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'EXPORTINGI_CALLBACK_PROGRAM = SY-REPIDIS_LAYOUT = WS_LAYOUTIT_FIELDCAT = WS_FIELDCAT[]IT_SPECIAL_GROUPS = WS_FIELDGROUPS_TAB[]IT_SORT = WS_SORTFIELDS_TAB[]IT_EVENTS = WS_EVENTS[]I_GRID_TITLE = TITLEI_DEFAULT = 'X'I_SAVE = 'A'TABLEST_OUTTAB = GT_20[]EXCEPTIONSPROGRAM_ERROR = 1OTHERS = 2.ENDFORM.这篇关于对CU50的修改（未使用）的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
