创建BOM:CSAP_MAT_BOM_CREATE
FORM frm_create_bom_from_bapi TABLES pt_stpo STRUCTURE stpo_api03
USING ps_stko TYPE stko_api01
ps_bom LIKE gs_bom
CHANGING pv_msg TYPE char200
pv_subrc TYPE i.
DATA:ls_csap_mbom LIKE csap_mbom.
DATA: lv_valid_from TYPE csap_mbom-datuv.
DATA: ls_ret_stko TYPE stko_api02.
DATA:fl_warning LIKE capiflag-flwarning,
bom_no LIKE stko_api02-bom_no.
CLEAR:lv_valid_from.
CLEAR:ls_ret_stko.
WRITE ps_bom-datuv TO ls_csap_mbom-datuv.
ls_csap_mbom-matnr = ps_bom-matnr .
ls_csap_mbom-werks = ps_bom-werks .
ls_csap_mbom-stlan = ps_bom-stlan .
ls_csap_mbom-stlal = ps_bom-stlal .
pv_subrc = 4 .
SET UPDATE TASK LOCAL.
CALL FUNCTION 'CSAP_MAT_BOM_CREATE'
EXPORTING
material = ls_csap_mbom-matnr
plant = ls_csap_mbom-werks
bom_usage = ls_csap_mbom-stlan
alternative = ls_csap_mbom-stlal
valid_from = ls_csap_mbom-datuv
* CHANGE_NO =
* REVISION_LEVEL =
i_stko = ps_stko
* FL_NO_CHANGE_DOC = ' '
fl_commit_and_wait = 'X'
* FL_CAD = ' '
* FL_DEFAULT_VALUES = 'X'
* FL_RECURSIVE = ' '
IMPORTING
fl_warning = fl_warning
bom_no = bom_no
TABLES
t_stpo = pt_stpo
* T_DEP_DATA =
* T_DEP_DESCR =
* T_DEP_ORDER =
* T_DEP_SOURCE =
* T_DEP_DOC =
* T_LTX_LINE =
* T_STPU =
* T_FSH_BOMD =
* T_SGT_BOMC =
EXCEPTIONS
error = 1
OTHERS = 2.
* IF sy-subrc <> 0.
** Implement suitable error handling here
* ENDIF.
*
*
** CLEAR LT_STPO.
* CALL FUNCTION 'CSAP_MAT_BOM_MAINTAIN'
* EXPORTING
* material = ls_csap_mbom-matnr
* plant = ls_csap_mbom-werks
* bom_usage = ls_csap_mbom-stlan
* alternative = ls_csap_mbom-stlal
** change_no = gw_excel_input-aennr
* valid_from = ls_csap_mbom-datuv
* i_stko = ps_stko
* fl_commit_and_wait = 'X'
* fl_bom_create = 'X'
* fl_new_item = 'X'
* fl_complete = ' '
* IMPORTING
* o_stko = ls_ret_stko
* TABLES
* t_stpo = pt_stpo
* EXCEPTIONS
* error = 1
* OTHERS = 2.
IF sy-subrc <> 0.
CLEAR: pv_msg.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO pv_msg.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
pv_msg = 'BOM创建成功！'.
pv_subrc = 0 .
ENDIF.
ENDFORM.
修改BOM:CSAP_MAT_BOM_MAINTAIN
FUNCTION zfunc_005.
*"----------------------------------------------------------------------
*"*"本地接口：
*" IMPORTING
*" VALUE(I_INPUT) TYPE ZPPS001 OPTIONAL
*" EXPORTING
*" VALUE(E_OUTPUT) TYPE ZPPS003
*" TABLES
*" T_TAB STRUCTURE ZPPS002 OPTIONAL
*"----------------------------------------------------------------------
*[MOD-01] 14.07.2022 10:42:19 YSX BOM行项目增加长文本写入
*-----接口日志处理
zmac-rfc-log-b.
DATA: lv_material TYPE csap_mbom-matnr,
ls_stko TYPE stko_api01,
lt_stpo TYPE STANDARD TABLE OF stpo_api03,
lt_stpo2 TYPE STANDARD TABLE OF stpo_api02,
ls_stpo LIKE LINE OF lt_stpo,
ls_stpo2 LIKE LINE OF lt_stpo2,
lt_ltx TYPE STANDARD TABLE OF csltx_line,
ls_ltx LIKE LINE OF lt_ltx,
lv_ident TYPE numc08,
lv_datfm TYPE csap_mbom-datuv,
lv_flwarning TYPE capiflag-flwarning.
DATA : lv_datuv TYPE sy-datum .
DATA : lv_posnr TYPE stpox-posnr .
DATA : lv_num TYPE i.
DATA:
lv_stlal TYPE stalt,
lv_stlan TYPE stlan,
ls_cstmat TYPE cstmat, " ANDAT
lt_stpox TYPE STANDARD TABLE OF stpox, " MATMK
ls_stpox LIKE LINE OF lt_stpox,
lv_index LIKE sy-tabix,
lt_cscmat TYPE STANDARD TABLE OF cscmat.
DATA : lv_creat TYPE csdata-xfeld .
DATA: lv_msg TYPE msgtxt , "STRING,
lt_message TYPE STANDARD TABLE OF messages,
ls_message LIKE LINE OF lt_message.
DATA: l_menge LIKE stpo-menge.
DATA:lt_lines TYPE TABLE OF tline,
ls_lines TYPE tline.
RANGES: rg_matnr FOR marc-matnr.
DATA:lv_zcwb TYPE string.
* DATA: LV_MSG TYPE MSGTXT.
* CLEAR: ET_MESSAGE, ET_MESSAGE[].
IF i_input-matnr EQ space.
e_output-sta = 'E'.
e_output-message = 'BOM物料不能为空'.
lv_msg = e_output-message.
zmac-rfc-log-e e_output-sta lv_msg '' '' ''.
RETURN.
ENDIF.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
input = i_input-matnr
IMPORTING
output = lv_material.
IF i_input-werks EQ space.
e_output-sta = 'E'.
e_output-message = '工厂不能为空'.
lv_msg = e_output-message.
zmac-rfc-log-e e_output-sta lv_msg lv_material '' ''.
RETURN.
ENDIF.
IF i_input-aennr EQ space.
* E_OUTPUT-STA = 'E'.
* E_OUTPUT-MESSAGE = 'ECN号不能为空'.
* LV_MSG = E_OUTPUT-MESSAGE.
* ZMAC-RFC-LOG-E E_OUTPUT-STA LV_MSG LV_MATERIAL '' ''.
* RETURN.
ELSE .
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = i_input-aennr
IMPORTING
output = i_input-aennr.
SELECT COUNT(*)
FROM aenr
WHERE aennr = i_input-aennr .
IF sy-subrc <> 0 .
PERFORM sub_creat_ecn USING i_input .
ENDIF .
ENDIF.
rg_matnr-sign = 'I'.
rg_matnr-option = 'EQ'.
rg_matnr-low = lv_material.
APPEND rg_matnr.
* LS_STKO-BOM_TEXT = I_INPUT-STKTX.
ls_stko-bom_status = '01'. "I_INPUT-STLST.
IF i_input-stlan EQ space.
lv_stlan = '1'.
ELSE.
lv_stlan = i_input-stlan.
ENDIF.
* IF I_INPUT-STLAL EQ SPACE.
lv_stlal = '01'.
* ELSE.
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
* EXPORTING
* INPUT = I_INPUT-STLAL
* IMPORTING
* OUTPUT = LV_STLAL.
* ENDIF.
IF i_input-datuv = '00000000' .
lv_datuv = sy-datum .
ELSE .
lv_datuv = i_input-datuv .
ENDIF .
CLEAR lv_creat .
CLEAR lv_ident .
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
EXPORTING
capid = 'PP01'
stlan = lv_stlan "'1'
cospr = 'X'
cuols = 'X'
datuv = lv_datuv
ehndl = '2'
emeng = i_input-basmn " '1'
mehrs = 'X'
mtnrv = lv_material
mmory = '0'
rndkz = '1'
* STLAL = LV_STLAL "I_INPUT-stlal
werks = i_input-werks
stpst = 1 "99
IMPORTING
topmat = ls_cstmat
TABLES
stb = lt_stpox
matcat = lt_cscmat
EXCEPTIONS
alt_not_found = 1
call_invalid = 2
material_not_found = 3
missing_authorization = 4
no_bom_found = 5
no_plant_data = 6
no_suitable_bom_found = 7
conversion_error = 8
OTHERS = 9.
IF sy-subrc <> 0.
lv_creat = 'X' .
ELSE .
SORT lt_stpox BY index DESCENDING .
CLEAR ls_stpox .
READ TABLE lt_stpox INTO ls_stpox INDEX 1 .
lv_ident = ls_stpox-index .
ENDIF.
ls_stko-base_quan = i_input-basmn.
* LS_STKO-BASE_UNIT = LS_CSTMAT-BMEIN.
ls_stko-alt_text = i_input-stktx .
CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
EXPORTING
date_internal = lv_datuv
IMPORTING
date_external = lv_datfm
EXCEPTIONS
date_internal_is_invalid = 1
OTHERS = 2.
DATA : ls_tab TYPE zpps002 .
SORT lt_stpox BY posnr ASCENDING aennr DESCENDING .
LOOP AT t_tab INTO ls_tab.
CLEAR: ls_stpo, ls_ltx.
CLEAR ls_stpox .
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
input = ls_tab-idnrk
IMPORTING
output = ls_tab-idnrk.
SELECT COUNT(*)
FROM mara
WHERE matnr = ls_tab-idnrk
AND matkl IN ('331001', '191001') .
IF sy-subrc = 0 .
e_output-sta = 'E'.
e_output-message = ls_tab-posnr && '模具物料无法处理'.
lv_msg = e_output-message.
zmac-rfc-log-e e_output-sta lv_msg lv_material '' ''.
RETURN.
ENDIF .
lv_posnr = ls_tab-posnr+2(4) .
IF lv_creat = '' .
READ TABLE lt_stpox INTO ls_stpox WITH KEY posnr = lv_posnr .
IF sy-subrc = 0 .
ls_stpo-change_no = ls_stpox-aennr. " 变更编号
* LS_STPO-ITM_IDENT = LS_STPOX-STLKN .
ls_stpo-item_node = ls_stpox-stlkn .
ls_stpo-item_count = ls_stpox-stpoz .
* LS_STPO-IDENTIFIER = LS_STPOX-STLKN .
ELSE .
lv_ident = lv_ident + 1.
* LS_STPO-ITM_IDENT = LV_IDENT .
* LS_STPO-ITEM_NODE = LV_IDENT .
* LS_STPO-ITEM_COUNT = LV_IDENT .
* LS_STPO-IDENTIFIER = LV_IDENT .
ENDIF .
ENDIF .
ls_stpo-bom_no = ls_cstmat-stlnr .
IF ls_tab-idnrk = ls_stpox-idnrk
AND ls_tab-menge = ls_stpox-menge
AND ls_tab-meins = ls_stpox-meins
AND ls_tab-ausch = ls_stpox-ausch
AND ls_tab-sortf = ls_stpox-sortf
AND ls_tab-sanka = ls_stpox-sanka
AND ls_tab-lgort = ls_stpox-lgort
AND ls_tab-potx1 = ls_stpox-potx1
AND ls_tab-potx2 = ls_stpox-potx2
AND ls_tab-alpgr = ls_stpox-alpgr
AND ls_tab-alpst = ls_stpox-alpst
AND ls_tab-alprf = ls_stpox-alprf
AND ls_tab-ewahr = ls_stpox-ewahr .
CONTINUE .
ENDIF .
CALL FUNCTION 'CONVERSION_EXIT_NUMCV_INPUT'
EXPORTING
input = ls_tab-posnr
IMPORTING
output = ls_stpo-item_no.
ls_stpo-item_categ = ls_tab-postp. " 项目类别
* LS_STPO-BOM_NO = LS_CSTMAT-STLNR.
IF ls_tab-idnrk NE space.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
input = ls_tab-idnrk
IMPORTING
output = ls_stpo-component
EXCEPTIONS
length_error = 1
OTHERS = 2.
ENDIF.
* CLEAR: LS_STPOX,L_MENGE.
* READ TABLE LT_STPOX INTO LS_STPOX WITH KEY IDNRK = ls_tab-IDNRK.
* IF SY-SUBRC = 0.
* L_MENGE = LS_STPOX-MENGE + ls_tab-MENGE.
* ELSE.
* IF ls_tab-MENGE > 0.
* L_MENGE = ls_tab-MENGE.
* ENDIF.
* ENDIF.
*
* IF L_MENGE <= 0.
** ls_stpo-fldelete = 'X'.
* CONTINUE.
* ELSE.
* LS_STPO-COMP_QTY = L_MENGE.
* ENDIF.
ls_stpo-comp_qty = ls_tab-menge .
* ls_stpo-comp_qty = ls_tab-menge.
* CONDENSE ls_stpo-comp_qty NO-GAPS.
IF ls_tab-meins NE space.
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
EXPORTING
input = ls_tab-meins
IMPORTING
output = ls_stpo-comp_unit
EXCEPTIONS
unit_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
ls_stpo-comp_unit = ls_tab-meins.
ENDIF.
ENDIF.
CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
EXPORTING
date_internal = sy-datum
IMPORTING
date_external = ls_stpo-valid_from
EXCEPTIONS
date_internal_is_invalid = 1
OTHERS = 2.
IF ls_tab-ausch > 0 .
ls_stpo-comp_scrap = ls_tab-ausch. " 部件废品百分数
ELSE .
ls_stpo-comp_scrap = '!' .
ENDIF .
CONDENSE ls_stpo-comp_scrap NO-GAPS.
* LS_STPO-SPPROCTYPE = ls_tab-ITSOB. " BOM项目的特殊采购类型
IF ls_tab-alpgr <> '' .
ls_stpo-ai_group = ls_tab-alpgr. " 替代项目: 组
ELSE .
ls_stpo-ai_group = '!' .
ENDIF .
IF ls_tab-alprf <> '' .
ls_stpo-ai_prio = ls_tab-alprf. " 优先级
ELSE .
ls_stpo-ai_prio = '!' .
ENDIF .
IF ls_tab-alpst <> '' .
ls_stpo-ai_strateg = ls_tab-alpst. " 替代项目：策略
ELSE .
ls_stpo-ai_strateg = '!' .
ENDIF .
IF ls_tab-sanka <> '' .
ls_stpo-rel_cost = ls_tab-sanka. "成本核算标识
ELSE .
ls_stpo-rel_cost = '!' .
ENDIF .
* IF LS_STPO-AI_STRATEG EQ SPACE AND LS_STPO-AI_GROUP NE SPACE.
* LS_STPO-AI_STRATEG = '2'.
* ENDIF.
* LS_STPO-USAGE_PROB = ls_tab-EWAHR. " 使用可能性按 %
"优先级为1的默认100%，其他为空
IF ls_stpo-ai_group NE space.
IF ls_stpo-ai_prio EQ '01'.
ls_stpo-usage_prob = '100'.
ELSE.
ls_stpo-usage_prob = '0'.
ENDIF.
ENDIF.
CONDENSE ls_stpo-usage_prob NO-GAPS.
ls_stpo-item_text1 = ls_tab-potx1. " BOM项目文本1
ls_stpo-item_text2 = ls_tab-potx2. " BOM项目文本2
* LS_STPO-REL_PROD = ls_tab-SANFE. " 标识：与生产相关项目
IF ls_tab-sanka <> '' .
ls_stpo-rel_cost = ls_tab-sanka. " 成本核算相关项目的标识符
ELSE .
ls_stpo-rel_cost = '!' .
ENDIF .
* IF ls_tab-SANKA NE 'X' AND ls_tab-POSTP EQ 'L'.
* LS_STPO-REL_COST = 'X'.
* ENDIF.
* IF ls_tab-POSTP EQ 'T'.
* CLEAR: LS_STPO-REL_COST.
* ENDIF.
IF ls_tab-lgort <> '' .
ls_stpo-issue_loc = ls_tab-lgort. " 生产订单的发货地点
ELSE .
ls_stpo-issue_loc = '!' .
ENDIF .
* LS_STPO-BOM_ALT = LV_STLAL. "I_INPUT-stlal. " 可选的BOM
ls_stpo-sortstring = ls_tab-sortf. " 排序字符串
* LS_STPO-CHANGE_NO = I_INPUT-AENNR. " 变更编号
ls_stpo-chg_no_to = i_input-aennr. " 变更编号
* LS_STPO-IDENTIFIER = LV_IDENT.
"[MOD-01] 14.07.2022 10:42:52 YSX
ls_stpo-identifier = ls_stpo-item_no.
* CLEAR:lv_num.
* lv_num = strlen( ls_tab-zwcha ).
* PERFORM frm_string_to_tdline TABLES USING ls_tab-zwcha.
CLEAR:lv_zcwb.
lv_zcwb = ls_tab-zwcha.
CALL FUNCTION 'ZFUNC_006'
EXPORTING
id_data = lv_zcwb
TABLES
lines = lt_lines.
"考虑预留的2个标准文本字段，从第三行开始写入长文本
DO 2 TIMES.
ls_ltx-identifier = ls_stpo-item_no.
ls_ltx-object_id = '2'.
ls_ltx-tdformat = '*'..
CASE sy-index.
WHEN '1'.
ls_ltx-tdline = ''.
WHEN '2'.
ls_ltx-tdline = ''.
ENDCASE.
APPEND ls_ltx TO lt_ltx.
CLEAR ls_ltx.
ENDDO.
LOOP AT lt_lines INTO ls_lines..
MOVE-CORRESPONDING ls_lines TO ls_ltx.
ls_ltx-identifier = ls_stpo-item_no.
ls_ltx-object_id = '2'.
ls_ltx-tdformat = '*'.
APPEND ls_ltx TO lt_ltx.
CLEAR ls_ltx.
ENDLOOP.
APPEND ls_stpo TO lt_stpo.
* ENDIF .
ENDLOOP.
IF lt_stpox[] IS NOT INITIAL.
LOOP AT lt_stpox INTO ls_stpox ."WHERE XLOEK = SPACE.
CLEAR t_tab.
CHECK ls_stpox-matkl <> '331001' .
CHECK ls_stpox-matkl <> '191001' .
* READ TABLE T_TAB WITH KEY IDNRK = LS_STPOX-IDNRK.
READ TABLE t_tab WITH KEY posnr = ls_stpox-posnr .
IF sy-subrc <> 0.
CLEAR: ls_stpo.
ls_stpo-item_categ = ls_stpox-postp. " 项目类别
ls_stpo-bom_no = ls_cstmat-stlnr.
ls_stpo-component = ls_stpox-idnrk.
ls_stpo-item_node = ls_stpox-stlkn.
ls_stpo-item_count = ls_stpox-stpoz.
ls_stpo-fldelete = 'X'.
ls_stpo-change_no = i_input-aennr. " 变更编号
ls_stpo-identifier = ls_stpox-index .
APPEND ls_stpo TO lt_stpo.
ENDIF.
ENDLOOP.
ENDIF.
CALL FUNCTION 'CALO_INIT_API'
EXCEPTIONS
log_object_not_found = 1
log_sub_object_not_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
* IF LT_STPO[] IS INITIAL .
* E_OUTPUT-STA = 'E'.
* E_OUTPUT-MESSAGE = '没有操作的行项目'.
* ELSE .
CALL FUNCTION 'CSAP_MAT_BOM_MAINTAIN'
EXPORTING
material = lv_material
plant = i_input-werks
bom_usage = lv_stlan "I_INPUT-stlan
alternative = lv_stlal "I_INPUT-stlal
valid_from = lv_datfm
change_no = i_input-aennr
i_stko = ls_stko
fl_bom_create = lv_creat
fl_new_item = 'X'
fl_complete = 'X'
fl_default_values = '' "add by lanjc 20211023 不按默认值取值
IMPORTING
fl_warning = lv_flwarning
TABLES
t_stpo = lt_stpo
t_ltx_line = lt_ltx
EXCEPTIONS
error = 1
OTHERS = 2.
IF sy-subrc <> 0.
CALL FUNCTION 'MESSAGE_TEXT_BUILD'
EXPORTING
msgid = sy-msgid
msgnr = sy-msgno
msgv1 = sy-msgv1
msgv2 = sy-msgv2
msgv3 = sy-msgv3
msgv4 = sy-msgv4
IMPORTING
message_text_output = lv_msg.
IF sy-msgid EQ space.
e_output-sta = 'E'.
e_output-message = sy-msgid && ':' && sy-msgno && '未知系统错误!'.
ELSE.
* e_msg = lv_msg.
CLEAR: lt_message, lt_message[].
CALL FUNCTION 'CALO_LOG_READ_MESSAGES'
EXPORTING
log_class = '4'
language = sy-langu
TABLES
messages_and_parameters = lt_message
EXCEPTIONS
warning = 1
error = 2
OTHERS = 3.
LOOP AT lt_message INTO ls_message WHERE ( msg_type = 'E' OR ( msg_type = 'I' AND msg_id EQ '29' AND msg_no EQ '854' ) ) AND msg_id NE 'CL'." OR msg_type = 'I'.
e_output-message = e_output-message && ls_message-msg_txt.
ENDLOOP.
e_output-sta = 'E'.
* APPEND LINES OF LT_MESSAGE TO ET_MESSAGE.
ENDIF.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
CLEAR: lt_message, lt_message[].
CALL FUNCTION 'CALO_LOG_READ_MESSAGES'
EXPORTING
log_class = '4'
language = sy-langu
TABLES
messages_and_parameters = lt_message
EXCEPTIONS
warning = 1
error = 2
OTHERS = 3.
LOOP AT lt_message INTO ls_message WHERE ( msg_type = 'E' OR ( msg_type = 'I' AND msg_id EQ '29' AND msg_no EQ '854' ) ) AND msg_id NE 'CL'.
IF ls_message-msg_type EQ 'E' OR ls_message-msg_type EQ 'A'.
e_output-sta = 'E'.
ENDIF.
e_output-message = e_output-message && ls_message-msg_txt.
ENDLOOP.
* APPEND LINES OF LT_MESSAGE TO ET_MESSAGE.
IF e_output-sta NE space."有错误信息
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
e_output-sta = 'S'.
e_output-message = 'BOM创建/修改成功！'.
ENDIF.
ENDIF.
* ENDIF .
lv_msg = e_output-message .
zmac-rfc-log-e e_output-sta lv_msg lv_material i_input-werks ''.
ENDFUNCTION.
删除BOM(整个):CSAP_MAT_BOM_DELETE
FORM prm_delete_bom CHANGING ps_out LIKE gs_out.
DATA: l_ecsin LIKE csin.
DATA: lv_msg TYPE char200.
DATA:lt_stpo TYPE TABLE OF stpo_api02,
ls_stko TYPE stko_api02,
ls_stko2 TYPE stko_api01,
lv_flwarning TYPE capiflag-flwarning,
lt_stpo2 TYPE TABLE OF stpo_api03,
ls_stpo2 TYPE stpo_api03,
lv_datum TYPE csap_mbom-datuv.
IF ps_out-stlal IS INITIAL.
ps_out-stlal = '01'.
ENDIF.
lv_datum = sy-datum.
* SELECT COUNT(*)
* FROM mast
* WHERE matnr = ps_out-matnr
* AND werks = ps_out-werks
* AND stlan = ps_out-stlan
* AND stlal = ps_out-stlal.
*
* IF sy-subrc <> 0. "不存在
* ps_out-msg = '删除成功！'.
* ps_out-ICON = icon_green_light.
* ps_out-TYPE = 'S'.
* EXIT..
* ENDIF.
SET UPDATE TASK LOCAL.
* CALL FUNCTION 'CSAP_MAT_BOM_DELETE'
* EXPORTING
* material = ps_out-matnr
* plant = ps_out-werks
* bom_usage = ps_out-stlan
* alternative = ps_out-stlal
* fl_commit_and_wait = 'X'
* EXCEPTIONS
* error = 1
* OTHERS = 2.
"打开 BOM
CALL FUNCTION 'CSAP_MAT_BOM_OPEN'
EXPORTING
material = ps_out-matnr
plant = ps_out-werks
bom_usage = ps_out-stlan
alternative = ps_out-stlal
valid_from = lv_datum
IMPORTING
o_stko = ls_stko
TABLES
t_stpo = lt_stpo
EXCEPTIONS
error = 1
OTHERS = 2.
IF sy-subrc <> 0.
CLEAR: lv_msg.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO lv_msg.
ps_out-msg = '删除失败：' && lv_msg.
ps_out-icon = icon_green_light.
ps_out-type = 'S'.
EXIT.
ELSE.
SORT lt_stpo BY item_no.
READ TABLE lt_stpo INTO DATA(ls_stpo)
WITH KEY item_no = ps_out-posnr
BINARY SEARCH.
IF sy-subrc EQ 0.
"打删除标记
ls_stpo-fldelete = 'X'.
CLEAR:ls_stko2.
MOVE-CORRESPONDING ls_stko TO ls_stko2.
CLEAR:lt_stpo2,ls_stpo2.
MOVE-CORRESPONDING ls_stpo TO ls_stpo2.
APPEND ls_stpo2 TO lt_stpo2.
"BOM更新
CALL FUNCTION 'CSAP_MAT_BOM_MAINTAIN'
EXPORTING
material = ps_out-matnr
plant = ps_out-werks
bom_usage = ps_out-stlan "I_INPUT-stlan
alternative = ps_out-stlal "I_INPUT-stlal
valid_from = lv_datum
change_no = ls_stpo-change_no
i_stko = ls_stko2
* fl_bom_create = lv_creat
* fl_new_item = 'X'
* fl_complete = 'X'
* fl_default_values = '' "add by lanjc 20211023 不按默认值取值
IMPORTING
fl_warning = lv_flwarning
TABLES
t_stpo = lt_stpo2
* t_ltx_line = lt_ltx
EXCEPTIONS
error = 1
OTHERS = 2.
IF sy-subrc NE 0.
CLEAR: lv_msg.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO lv_msg.
ps_out-msg = '删除失败：' && lv_msg.
ps_out-icon = icon_green_light.
ps_out-type = 'S'.
EXIT.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
ps_out-msg = '删除成功！'.
ps_out-icon = icon_green_light.
ps_out-type = 'S'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
