SAP 学习中

下面是一个企业的参考MM开发需求清单(并不包括用户出口等).

供应商列表|信息记录|PR,PO打印(Scrip或Smartform)|MRB物料清单|物料报废报表|物料入库报表|物料运输申请单|物料主数据查询报表|收货单打印|IQC报表|Pull List|发料单(生产定单)|物料转移单|Delivery notes|Packing List|RMA发料单|库存分析报告|PO分析报告|GR/IR分析报告|物料盘点单|盘点物料报告等.

如项目紧急而开发人手不足(有些中小企业专职的ABAPer可能只有一个或各模块的SAP内部支持顾问兼做开发),必须排定开发优先次序,除了比如PO套打收货单打印等必须在项目正式上线前完成的开发任务,相关查询报表可在上线后开发.

如果是专职负责开发,依旧需要很好理解业务,最好和负责业务支持的多沟通,一个最有效的方法就是将相关模块的业务流程(通常在业务蓝图阶段会有非常详细的相关资料)在测试系统走一遍,这样对以后开发是大有益处的.

*&---------------------------------------------------------------------*

*&  Include           ZXM06U42                                         *

*&---------------------------------------------------------------------*

DATA : ZWATEKPO like BEKPO ,

       ZIEINFO  LIKE EINFO OCCURS 0 WITH HEADER LINE,

       ZERMSG(73) TYPE C.

TABLES EKBE .

***TEKPO records all the old PO item date .

*** I_EKPO records currently processed PO item .

READ TABLE TEKPO INTO ZWATEKPO   WITH KEY EBELP = I_EKPO-EBELP .

***只对ME22N才生效.

CHECK SY-TCODE = 'ME22N '.

***EKBE是PO history 表,如有Q,R表示有发票校验历史,不允许更改价##

SELECT  SINGLE * FROM EKBE

   WHERE EBELN = I_EKPO-EBELn

         AND EBELP = I_EKPO-EBELP

         AND ( BEWTP = 'Q' OR BEWTP = 'R').

CHECK SY-SUBRC = 0 .

***如果SY-SUBRC =0表示发票已经校验，不允许更改价格，否则还是可更改价格##

IF I_EKPO-NETPR <> ZWATEKPO-NETPR .

*** Change e017(ZFIMSG) accordingly

*   MESSAGE e017(ZFIMSG)."使用下面函数代替.

  CALL FUNCTION 'READ_CUSTOMIZED_MESSAGE'

        EXPORTING

          I_ARBGB = 'ZFIMSG'

          I_DTYPE = ''

          I_MSGNR = '017'

        IMPORTING

          E_MSGTY = SY-MSGTY.

  CHECK SY-MSGTY NE '-' .

  REFRESH ZIEINFO.

  ZIEINFO-MSGID = 'ZFIMSG'.

  ZIEINFO-MSGNO = '017' .

  ZIEINFO-MSGV1 = 'VAR1'.

  ZIEINFO-MSGV2 = 'VAR2'.

  APPEND ZIEINFO .

  CALL FUNCTION 'MESSAGE_GET_TEXT'

    EXPORTING

      IEINFO   = ZIEINFO

      ILANGU   = SY-LANGU

    IMPORTING

      ETEXT    = ZERMSG .

      MESSAGE ZERMSG TYPE SY-MSGTY .

ENDIF.