首页 > 其他 > 详细

生产订单结算规则新增、修改、删除——K_SRULE_SAVE_UTASK

时间:2020-07-13 23:42:44      阅读:144      评论:0      收藏:0      [点我收藏+]

效果(不同类型的生产订单结算方式会不一样):

①将生产订单建立默认带出的MAT类型结算规则的结算百分率改成0,

②新增G/L结算类型结算规则

技术分享图片

技术分享图片

 

代码:

*&---------------------------------------------------------------------*
*& Report ZPPRTEST
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZPPRTEST.
DATA: lt_cobrb_update LIKE TABLE OF cobrb,
      ls_cobrb_update LIKE LINE OF lt_cobrb_update,
      lt_cobrb_insert LIKE TABLE OF cobrb,
      ls_cobrb_insert LIKE LINE OF lt_cobrb_insert.

SELECT  * INTO TABLE lt_cobrb_update
            FROM cobrb
            WHERE objnr = OR000020040327
            AND lfdnr = 001.

LOOP AT lt_cobrb_update INTO ls_cobrb_update.
  ls_cobrb_insert = ls_cobrb_update.
  "MAT结算规则的结算百分比 = 0
  ls_cobrb_update-prozs = 0.
  MODIFY lt_cobrb_update FROM ls_cobrb_update.
ENDLOOP.

"新增的结算规则
ls_cobrb_insert-lfdnr = 002. "顺序号码
ls_cobrb_insert-prozs = 100. "百分比
ls_cobrb_insert-dfreg = space. "预设规则
ls_cobrb_insert-avorg = KOAO. "结算交易
ls_cobrb_insert-konty = SK.  "科目指派种类
ls_cobrb_insert-werks = space. "工厂
ls_cobrb_insert-gsber = NCIP. "业务范围
ls_cobrb_insert-hkont = 6188200007. "总账科目
ls_cobrb_insert-prctr = PC21. "利润中心
ls_cobrb_insert-kostl = DR0000. "成本中心
ls_cobrb_insert-matnr = space. "物料
ls_cobrb_insert-rec_objnr1 = SK20006188200007NCIP. "结算接收者物件号码
ls_cobrb_insert-extnr = 002. "分发规则号码
APPEND ls_cobrb_insert TO lt_cobrb_update.

CALL FUNCTION K_SRULE_SAVE_UTASK
 TABLES
   t_cobrb_insert          = lt_cobrb_insert
   t_cobrb_update        = lt_cobrb_update
 EXCEPTIONS
   SRULE_UTASK_ERROR       = 1
   OTHERS                  = 2.

IF sy-subrc <> 0.
  WRITE 修改失败.
ELSE.
  WRITE 修改成功.
ENDIF.

 

生产订单结算规则新增、修改、删除——K_SRULE_SAVE_UTASK

原文:https://www.cnblogs.com/StephenAmell/p/13296353.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!