COPA获利能力段集团成本增强
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
*& 包括 ZXKKEU08
*&---------------------------------------------------------------------*
DATA: lv_verpr LIKE mbew-verpr.
FIELD-SYMBOLS: TYPE any,
,
,
,
,
,
.
*break at-huxy.
= 'V'. WHEN 4.
= 'Z'. ENDCASE.
ENDIF. ENDLOOP.
copa获利能力段集团成本增强 使用co-pa增强copa0005 (实际数据更新优化) zxkkeu08程序,注意copa增强不能直接使用,需要新增一个增强包含该增强 *&---------------------------------------------------------------------* *&包括 zxkkeu08 *&---------------------------------------------------------------------* *根据工厂和物料取发货工厂成本价,根据库存类别序号给库存类别赋值 *&---------------------------------------------------------------------* *&包括 zxkkeu08 *&---------------------------------------------------------------------* data: lv_verpr like mbew-verpr. field-symbols: type any, , , , , , . *break at-huxy. loop at t_item assigning . assign component 'artnr' of structure to . assign component 'werks' of structure to . assign component 'vvnet' of structure to . assign component 'absmg' of structure to . assign component 'vv035' of structure to . assign component 'sdabw' of structure to . if is assigned and is assigned and is assigned and is assigned . select single verpr into lv_verpr from mbew where matnr = and bwkey = . if sy-subrc = 0. = lv_verpr * .
*& 包括 ZXKKEU08
*&---------------------------------------------------------------------*
*根据工厂和物料取发货工厂成本价，根据库存类别序号给库存类别赋值
*&---------------------------------------------------------------------*
LOOP AT t_item ASSIGNING .
ASSIGN COMPONENT 'ARTNR' OF STRUCTURE TO .
ASSIGN COMPONENT 'WERKS' OF STRUCTURE TO .
ASSIGN COMPONENT 'VVNET' OF STRUCTURE TO .
INTO lv_verpr
FROM mbew
WHERE matnr =
AND bwkey =
.
IF sy-subrc = 0.
= lv_verpr * .
ENDIF.
ENDIF.
IF IS ASSIGNED AND IS ASSIGNED ..
CASE .
WHEN 1.
= 'M'.
WHEቤተ መጻሕፍቲ ባይዱ 2.
= 'T'. WHEN 3.
COPA获利能力段集团成本增强
使用CO-PA增强COPA0005 (实际数据更新优化) ZXKKEU08程序,注意copa增强不能直接使用，需要新增一个增强包含该增强
*&---------------------------------------------------------------------*
ASSIGN COMPONENT 'ABSMG' OF STRUCTURE TO .
ASSIGN COMPONENT 'VV035' OF STRUCTURE TO .
ASSIGN COMPONENT 'SDABW' OF STRUCTURE TO .
IF IS ASSIGNED AND IS ASSIGNED AND IS ASSIGNED AND IS ASSIGNED . SELECT SINGLE verpr
*&---------------------------------------------------------------------*
DATA: lv_verpr LIKE mbew-verpr.
FIELD-SYMBOLS: TYPE any,
,
,
,
,
,
.
*break at-huxy.
= 'V'. WHEN 4.
= 'Z'. ENDCASE.
ENDIF. ENDLOOP.
copa获利能力段集团成本增强 使用co-pa增强copa0005 (实际数据更新优化) zxkkeu08程序,注意copa增强不能直接使用,需要新增一个增强包含该增强 *&---------------------------------------------------------------------* *&包括 zxkkeu08 *&---------------------------------------------------------------------* *根据工厂和物料取发货工厂成本价,根据库存类别序号给库存类别赋值 *&---------------------------------------------------------------------* *&包括 zxkkeu08 *&---------------------------------------------------------------------* data: lv_verpr like mbew-verpr. field-symbols: type any, , , , , , . *break at-huxy. loop at t_item assigning . assign component 'artnr' of structure to . assign component 'werks' of structure to . assign component 'vvnet' of structure to . assign component 'absmg' of structure to . assign component 'vv035' of structure to . assign component 'sdabw' of structure to . if is assigned and is assigned and is assigned and is assigned . select single verpr into lv_verpr from mbew where matnr = and bwkey = . if sy-subrc = 0. = lv_verpr * .
*& 包括 ZXKKEU08
*&---------------------------------------------------------------------*
*根据工厂和物料取发货工厂成本价，根据库存类别序号给库存类别赋值
*&---------------------------------------------------------------------*
LOOP AT t_item ASSIGNING .
ASSIGN COMPONENT 'ARTNR' OF STRUCTURE TO .
ASSIGN COMPONENT 'WERKS' OF STRUCTURE TO .
ASSIGN COMPONENT 'VVNET' OF STRUCTURE TO .
INTO lv_verpr
FROM mbew
WHERE matnr =
AND bwkey =
.
IF sy-subrc = 0.
= lv_verpr * .
ENDIF.
ENDIF.
IF IS ASSIGNED AND IS ASSIGNED ..
CASE .
WHEN 1.
= 'M'.
WHEቤተ መጻሕፍቲ ባይዱ 2.
= 'T'. WHEN 3.
COPA获利能力段集团成本增强
使用CO-PA增强COPA0005 (实际数据更新优化) ZXKKEU08程序,注意copa增强不能直接使用，需要新增一个增强包含该增强
*&---------------------------------------------------------------------*
ASSIGN COMPONENT 'ABSMG' OF STRUCTURE TO .
ASSIGN COMPONENT 'VV035' OF STRUCTURE TO .
ASSIGN COMPONENT 'SDABW' OF STRUCTURE TO .
IF IS ASSIGNED AND IS ASSIGNED AND IS ASSIGNED AND IS ASSIGNED . SELECT SINGLE verpr