配置SAP 采购合同审批

需求：

采购合同类型是MK，采购组织是POSC，采购组PGC，标识：估计价格是空，总价有值0.00 - 9999999999.00 RMB

满足以上条件的时候需要审批该合同。

配置：

　　spro->物料管理->采购->合同->合同下达的过程：

1.配置特性值：

基本数据页签：
状态：已发布
格式：数据类型
字符数：
值分配：
附加数据页签:
表名：CEKKO 字段名:BSART 合同类型
备注：如果没有字段，需要在结构CEKKO中增强

2.配置类：

基本数据页签：
状态：
相同分类：不要检查
特性：把设置的特性都填写进来

3.定义合同审批过程：

3.1：批准组 第一列填写批准组，第2列采购订单类将被批准的对象的类别
都是2，第三列填写设置的类名称，第四列名称

3.2：批准代码设置

3.3：发布标识：备注：第二列核发勾上说明审核完，可变性是6的话变化会再次触发审批，具体看帮助，第三列%值的更改变化范围

3.4：审批策略：

维护审批分类的条件值可用CL20N事物代码进去维护

审批种类是032

增强：审批有个增强点 smod 进去M06E0004

如果涉及到行项目的要计算一下赋值给增强的CEKKO.

备注：对于采购合同来说，SAP标准的策略是价格往高的改才会再次触发审批，而且新加时间区间的价格条件价格是不会再次触发审批的，但是我们可以做一个增强：

在函数：ME_REL_STRATEGIE_EKKO做一个隐士增强：

FUNCTION me_rel_strategie_ekko.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Function Module ME_REL_STRATEGIE_EKKO, Start                                                                                                      A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZCONTRACTOR_TRAIL_ENHANCEMENT.    "active version
   I_CHECK_ALWAYS = 'X'.
ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(I_CEKKO_NEW) LIKE  CEKKO STRUCTURE  CEKKO
*"     VALUE(I_CEKKO_OLD) LIKE  CEKKO STRUCTURE  CEKKO OPTIONAL
*"     VALUE(I_FRGGR) LIKE  EKKO-FRGGR OPTIONAL
*"     VALUE(I_FRGST) LIKE  EKKO-FRGSX OPTIONAL
*"     VALUE(I_FRGZU) LIKE  EKKO-FRGZU OPTIONAL
*"     VALUE(I_FRGKZ) LIKE  EKKO-FRGKE OPTIONAL
*"     VALUE(I_FRGRL) LIKE  EKKO-FRGRL OPTIONAL
*"     VALUE(I_OUTPUT) OPTIONAL
*"     VALUE(I_WKURS) LIKE  EKKO-WKURS OPTIONAL
*"     VALUE(I_WKURS_OLD) LIKE  EKKO-WKURS OPTIONAL
*"     VALUE(I_LPOT) OPTIONAL
*"     VALUE(I_CHECK_ALWAYS) TYPE  CHAR1 OPTIONAL
*"  EXPORTING
*"     VALUE(E_FRGGR) LIKE  EKKO-FRGGR
*"     VALUE(E_FRGST) LIKE  EKKO-FRGSX
*"     VALUE(E_FRGZU) LIKE  EKKO-FRGZU
*"     VALUE(E_FRGKZ) LIKE  EKKO-FRGKE
*"     VALUE(E_FRGRL) LIKE  EKKO-FRGRL
*"     VALUE(E_RESET)
*"  CHANGING
*"     REFERENCE(CH_RLWRT) TYPE  RLWRT OPTIONAL
*"  EXCEPTIONS
*"      ERROR_MESSAGE
*"----------------------------------------------------------------------

  MOVE i_cekko_new TO cekko.
  MOVE i_cekko_old TO *cekko.
  MOVE i_wkurs TO bwkurs.
  MOVE i_wkurs_old TO bwkurs_old.
  MOVE cekko-bedat TO bbedat.
  CLEAR s_kzfae.
*- Falls alle Positionen gelöscht sind, ist Eink.Beleg nicht relevant -*
  IF i_lpot NE space.
    e_frgrl = space.
    EXIT.
  ENDIF.
*- Prüfen Reset --------------------------------------------------------
  CLEAR xchange.
  IF NOT *cekko IS INITIAL.
    e_frgst = i_frgst.
    e_frggr = i_frggr.
    e_frgkz = i_frgkz.
    e_frgrl = i_frgrl.
    e_frgzu = i_frgzu.
    IF i_frgzu NE space.
      xchange = 'X'.
    ENDIF.
  ENDIF.

*- Prüfen, ob neue Ermittlung beim Ändern ------------------------------
  IF xchange NE space.
    IF t16fb-frgke NE i_frgkz.
      CLEAR t16fb.
      SELECT SINGLE * FROM t16fb WHERE frgke EQ i_frgkz.
    ENDIF.
    IF t16fb-kzfae EQ ''.
      EXIT.
    ENDIF.
*- altes Änderungskennzeichen sichern falls neues ermittelt wird ------*
    s_kzfae = t16fb-kzfae.
  ENDIF.

*- Klasse ermitteln ----------------------------------------------------
  xclass = 'X'.
  CLEAR t16fg.                               "
  SELECT * FROM t16fg WHERE frgot EQ ''.
    EXIT.
  ENDSELECT.
  IF sy-subrc NE  OR
     t16fg-frgkl EQ space.
    EXIT.
  ENDIF.
*- Hauswährung ermitteln -----------------------------------------------
  fwaers = cekko-waers.
  IF cekko-bukrs NE t001-bukrs.
    SELECT SINGLE * FROM t001  WHERE bukrs EQ cekko-bukrs.
  ENDIF.
  hwaers = t001-waers.

*- Prüfen Änderung ----------------------------------------------------*
  IF cekko EQ *cekko AND
     bwkurs EQ bwkurs_old AND i_check_always EQ space.
    EXIT.
  ENDIF.

  comm = 'CEKKO'.
  PERFORM strategie_neu USING e_frggr e_frgst.

*- Änderung bei laufender Freigabe prüfen ------------------------------
  IF xchange NE space.
*- Strategie geändert --------------------------------------------------
    IF e_frgst NE i_frgst OR
       e_frggr NE i_frggr.
      PERFORM reset
         USING e_frgst e_frggr
               e_frgzu e_frgkz e_frgrl.
      e_reset = 'X'.
*- Wertänderung prüfen -------------------------------------------------
    ELSE.
      IF t16fb-kzfae EQ '' OR
         t16fb-kzfae EQ '' .
         PERFORM currency_conversion USING *cekko-waers
                                          bwkurs_old
                                          hwaers
                                          fwaers
                                          bwkurs
                                    CHANGING *cekko-gnetw.
        f1 = *cekko-gnetw * t16fb-tlfae / .
        f1 = f1 + *cekko-gnetw.
        IF cekko-gnetw GT f1.
          PERFORM reset
            USING e_frgst e_frggr
                  e_frgzu e_frgkz e_frgrl.
          e_reset = 'X'.
        ENDIF.
      ENDIF.
    ENDIF.
  ELSE.
    PERFORM reset
       USING e_frgst e_frggr
             e_frgzu e_frgkz e_frgrl.
  ENDIF.
*- Prüfen, ob Beleg bereits ausgegeben wurde ---------------------------
  IF i_output NE space AND xchange NE space.
*- Neue Freigabestrategie trotz erfolgter Ausgabe erlaubt -------------*
    IF NOT ( s_kzfae EQ '' OR
       s_kzfae EQ '' OR i_frgst EQ space ).
*---- keine neue Freigabestrategie bei erfolgter Ausgabe --------------*
      SELECT SINGLE * FROM t16fb WHERE frgke EQ e_frgkz.
      IF t16fb-kzfre EQ space.
        e_frgst = i_frgst.
        e_frggr = i_frggr.
        e_frgkz = i_frgkz.
        e_frgrl = i_frgrl.
        e_frgzu = i_frgzu.
        e_reset = 'Y'.
      ENDIF.
    ENDIF.
  ENDIF.

"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(2) Function Module ME_REL_STRATEGIE_EKKO, End                                                                                                        A
*$*$-Start: (2)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 2  ZCONTRACTOR_TRAIL_ENHANCEMENT.    "active version

  IF xchange NE space.
    IF e_frgst NE i_frgst OR
       e_frggr NE i_frggr.
      EXIT.
    ELSE.
          PERFORM reset
            USING e_frgst e_frggr
                  e_frgzu e_frgkz e_frgrl.
          e_reset = 'X'.
          EXIT.
      IF t16fb-kzfae EQ '4' OR t16fb-kzfae EQ '6'.
         PERFORM currency_conversion USING *cekko-waers
                                          bwkurs_old
                                          hwaers
                                          fwaers
                                          bwkurs
                                    CHANGING *cekko-gnetw.
        f1 = *cekko-gnetw * t16fb-tlfae / 1000.
        f1 = f1 + *cekko-gnetw.
        IF cekko-gnetw <> f1.
          PERFORM reset
            USING e_frgst e_frggr
                  e_frgzu e_frgkz e_frgrl.
          e_reset = 'X'.
        ENDIF.
      ENDIF.
    ENDIF.
  ELSE.
    EXIT.
  ENDIF.

ENDENHANCEMENT.
*$*$-End:   (2)---------------------------------------------------------------------------------$*$*
ENDFUNCTION.