【成都】增强使用总结

最新推荐文章于 2024-04-25 22:32:44 发布

zcy691640

最新推荐文章于 2024-04-25 22:32:44 发布

阅读量1.6k

点赞数

分类专栏：项目心得文章标签： SAP ABAP 增强

本文链接：https://blog.youkuaiyun.com/zcy691640/article/details/44116887

版权

本文档详细介绍了在SAP环境中使用ABAP进行增强的两个实例：一是检查生产订单下达时物料的标准价格，如无标准价则阻止下单；二是针对特定订单类型验证公司间采购订单的相关信息，确保输入完整并符合审批状态。通过这些增强，加强了生产订单管理和数据准确性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

PPCO0007 保存生产订单时退出

*&---------------------------------------------------------------------*
*&  包含                ZXCO1U06
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
*& 申请人：徐文
*& 创 建 者：张晨宇
*& 创建时间：2015.03.06
*& 请 求 号： DEVK900084
*& 程序说明：
*& 用于指定生产订单增强，以控制生产订单定额变更权限，没有计划价格不允许下达，
*& 创建生产订单时必须录入对应的公司间采购订单。
*&
*&---------------------------------------------------------------------*
*& 修改日志
*&  修改日期     修改者    请求号            描述
*&---------------------------------------------------------------------*

*IF sy-uname = 'HANDZCY'.
*  BREAK-POINT.
  "校验


*---------------------------------增强1---------------------------------------*
*  增强 一 ：没有计划价格不允许下达生产订单
*  在生产订单下达时（涉及T-Code：CO01、CO02、CO40、COHV，可能的增强PPCO0021），
*  根据“物料号 = MBEW-MATNR”和“工厂 = MBEW - BWKEY”找到“MBEW-STPRS 标准价”判断其是否大于零，
*  如果不大于零则不允许下达生产订单，并报错:
*  “物料号[MBEW-MATNR]在工厂[MBEW-BWKEY]下尚未维护标准价，不允许生产，请联系财务部门”
  TYPES:BEGIN OF ty_mbew,
          matnr TYPE mbew-matnr,
          bwkey TYPE mbew-bwkey,
          stprs TYPE mbew-stprs,
        END OF ty_mbew.
  DATA gw_mbew TYPE ty_mbew.
  DATA gv_string TYPE string.

  FIELD-SYMBOLS: <fs_afpo>.

  CONSTANTS: lc_afpo(19) TYPE c VALUE '(SAPLCOB1)AFPO_BT[]'.

  ASSIGN (lc_afpo) TO <fs_afpo>.
  CHECK sy-subrc EQ 0.

  DATA zebeln TYPE ebeln.
  DATA zebelp TYPE ebelp.
  IMPORT zebeln  FROM MEMORY  ID 'ZEBELN'.
  IMPORT zebelp  FROM MEMORY  ID 'ZEBELP'.

  SELECT SINGLE
    matnr
    bwkey
    stprs
   FROM mbew INTO gw_mbew WHERE matnr = header_imp-matnr AND bwkey = header_imp-werks.

  IF sy-subrc NE 0 OR gw_mbew-stprs <= 0.
    SEARCH header_imp-sttxt FOR 'REL'.
    IF sy-subrc = 0.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
        EXPORTING
          input  = gw_mbew-matnr
        IMPORTING
          output = gw_mbew-matnr.
      CONCATENATE '物料号' gw_mbew-matnr '在工厂' header_imp-werks '下尚未维护标准价，不允许生产，请联系财务部门' INTO gv_string.
      MESSAGE gv_string TYPE  'S' DISPLAY LIKE 'E'.
      LEAVE TO SCREEN sy-dynnr.
    ENDIF.
  ENDIF.

  CLEAR gv_string.
  CLEAR gw_mbew.
*---------------------------------增强1---------------------------------------*

*---------------------------------增强2---------------------------------------

最低0.47元/天解锁文章