SAP HANA ABAP生产订单联产品结算规则批量修改程序

业务部门希望通过批量修改订单联产品成本结算规则来拉高工作效率，使用K_SRULE_SAVE_UTASK进行修改。程序代码：

*********************************************************************
** 事务代码：ZPPR022                                                *
** 程序名称：生产订单联产品结算规则批量修改                                    *
** 程序目的：生产订单联产品结算规则批量修改                               *
** 设 计 人：                                                       *
** 开 发 人：                                           *
** 设计时间：2025-01-13                                            *
** 程序类型: ABAP/4 程序 ，报表                                     *
** 应用类型: PP                                                     *
** 描    述: 批量TECO打开取消                                       *
**(修改日志)--------------------------------------------------------*
**                                                                  *
** 日志号   修改人  修改时间       修改说明              传输号码   *
**  ----    ----    ------         -----------          ----------- *
**                                                                  *
*********************************************************************
REPORT ZFIR041.

*-----------------------------------------------------------------------
* TABLES
*-----------------------------------------------------------------------

TABLES: aufk,crhd,afko,afvc,afpo,afru.

*-----------------------------------------------------------------------
* TYPES
*-----------------------------------------------------------------------

TYPES: BEGIN OF ty_alv,
         werks    TYPE aufk-werks,   "工厂
         aufnr    TYPE aufk-aufnr,   "生产订单
         veran    TYPE crhd-veran,   "车间
         GSTRP    TYPE afko-GSTRP,   "基本开始日期
         GLTRP    TYPE afko-GLTRP,   "基本结束日期
         istat    TYPE tj02-istat,   "生产订单状态代码
         txt04    TYPE tj02t-txt04,  "生产订单状态
         txt30    TYPE tj02t-txt30,  "生产订单状态描述
         objnr    TYPE aufk-objnr,   "对象号
         zicon(4) TYPE c,            "指示灯
         ztype    TYPE c,            "消息类型
         zmsg     TYPE string,       "返回消息
         zsel     TYPE c,
         WEMNG    TYPE afpo-WEMNG,   "收货数量
         POSNR    TYPE afpo-POSNR,   "收货项目编号
         GMNGA    TYPE afru-GMNGA,   "某次产量数量
         STOKZ    TYPE afru-STOKZ,   "产量取消
         STZHL    TYPE afru-STZHL,   "产量取消确认


       END OF ty_alv.

TYPES: BEGIN OF ty_out,
         werks    TYPE aufk-werks,   "工厂
         aufnr    TYPE aufk-aufnr,   "生产订单
         veran    TYPE crhd-veran,   "车间
         matnr    type mara-matnr,
         maktx    type makt-maktx,
         matnr_j    type mara-matnr,
         maktx_j    type makt-maktx,
         GSTRP    TYPE afko-GSTRP,   "基本开始日期
         GLTRP    TYPE afko-GLTRP,   "基本结束日期
         istat    TYPE tj02-istat,   "生产订单状态代码
         txt04    TYPE tj02t-txt04,  "生产订单状态
         txt30    TYPE tj02t-txt30,  "生产订单状态描述
         objnr    TYPE aufk-objnr,   "对象号
         zicon(4) TYPE c,            "指示灯
         ztype    TYPE c,            "消息类型
         zmsg     TYPE string,       "返回消息