ABAP-已有运费金额的基础上分摊到交货单行
【摘要】 告别忙碌低效!本文提供示例,帮助您用更少时间完成更多高质量工作,重获工作与生活平衡。
VI01-创建装运成本
SMOD-V54KSFRC
CMOD-增强分配-V54KSFRC
CHECK NOT c_vtrfkz[] IS INITIAL."分摊
CASE i_refobj-tvtk-shtyp.
WHEN 'ZDR1' OR 'ZDR2'.
LOOP AT c_vtrfkz.
READ TABLE i_refobj-vbplp INTO DATA(ls_vbplp) WITH KEY vbeln = c_vtrfkz-rebel posnr = c_vtrfkz-repos.
IF sy-subrc = 0.
IF ls_vbplp-voleh = 'M3'.
ELSE.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
EXPORTING
input = ls_vbplp-volum
unit_in = ls_vbplp-voleh
unit_out = 'M3'
IMPORTING
output = ls_vbplp-volum
EXCEPTIONS
conversion_not_found = 1
division_by_zero = 2
input_invalid = 3
OTHERS = 4.
IF sy-subrc NE 0.
DATA(l_false) = abap_true.
ENDIF.
ENDIF.
IF l_false NE abap_true.
c_vtrfkz-frshr = ls_vbplp-volum.
MODIFY c_vtrfkz[] FROM c_vtrfkz TRANSPORTING frshr.
IF sy-subrc = 0.
DATA(l_true) = abap_true.
ELSE.
CLEAR l_true.
ENDIF.
ENDIF.
ENDIF.
CLEAR ls_vbplp.
ENDLOOP.
IF l_false EQ abap_false AND l_true EQ abap_true.
e_factors_determined = abap_true.
ENDIF.
CLEAR:l_true,l_false,ls_vbplp.
WHEN OTHERS.
ENDCASE.
【声明】本内容来自华为云开发者社区博主,不代表华为云及华为云开发者社区的观点和立场。转载时必须标注文章的来源(华为云社区)、文章链接、文章作者等基本信息,否则作者和本社区有权追究责任。如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱:
cloudbbs@huaweicloud.com
- 点赞
- 收藏
- 关注作者
评论(0)