COPA获利能力段集团成本增强
- 格式:rtf
- 大小:2.68 KB
- 文档页数:2
IF sy-subrc = 0. <f3> = lv_verpr * <f4>.
ENDIF. ENDIF.
IF <f5> IS ASSIGNED AND <f6> IS ASSIGNED .. CASE <f5>. WHEN 1. <f6> = 'M'.
*&---------------------------------------------------------------------*
*根据工厂和物料取发货工厂成本价,根据库存类别序号给库存类别赋值
*&---------------------------------------------------------------------*
*break at-huxy.
LOOP AT t_item ASSIGNING <fs>.
ASSIGN COMPONENT 'ARTNR' OF STRUCTURE <fs> TO <f1>. ASSIGN COMPONENT 'WERKS' OF STRUCTURE <fs> TO <f2>. ASSIGN COMPONENT 'VVNET' OF STRUCTURE <fs> TO <f3>. ASSIGN COMPONENT 'ABSMG' OF STRUCTURE <fs> TO <f4>. ASSIGN COMPONENT 'VV035' OF STRUCTURE <fs> TO <f5>. ASSIGN COMPONENT 'SDABW' OF STRUCTURE <fs> TO <f6>. IF <f1> IS ASSIGNED AND <f2> IS ASSIGNED AND <f3> IS ASSIGNED AND <f4> IS ASSIGNED .
WHEN 2. <f6> = 'T'.
WHEN 3. <f6> = 'V'.
WHEN 4. <f6> = 'Z'.
ENDCASE. ENDIF.
ENDLOOP.
使用CO-PA增强COPA0005 (实际数据更新优化) ZXKKEU08程序,注意copa增强不能直接使用,需
要新增一个增强包含该增强
*&---------------------------------------------------------------------*
*& 包括
ZXKKEU08
*& 包括Байду номын сангаас
ZXKKEU08
*&---------------------------------------------------------------------*
DATA: lv_verpr LIKE mbew-verpr.
FIELD-SYMBOLS: <fs> TYPE any, <f1>, <f2>, <f3>, <f4>, <f5>, <f6>.