SAP:MM采购订单的增强user-exit:MM06E005(示例程序是下PO做成本MR21)

最新推荐文章于 2024-12-14 21:55:59 发布

转载最新推荐文章于 2024-12-14 21:55:59 发布 · 572 阅读

文章标签：

#MR21N

SAP 同时被 2 个专栏收录

433 篇文章

订阅专栏

User exit

58 篇文章

订阅专栏

MM06E005 在采购凭证中的客户字段 EXIT_SAPMM06E_017

*&---------------------------------------------------------------------*
*&  包括                ZXM06U42
*&---------------------------------------------------------------------*
DATA:gt_mara LIKE TABLE OF mara,
      gs_mara LIKE mara,
      gs_mbew LIKE mbew,
      gs_marc LIKE marc,
      gs_marm LIKE marm,
      gs_mlhd LIKE mlhd,
      gs_mlit LIKE mlit,
      gt_bdc TYPE TABLE OF bdcdata,
      gs_bdc TYPE bdcdata,
      leadc(6) TYPE c,
      leadc2(10) TYPE c,
       endc2 TYPE n,
      endc TYPE n,
      stprs TYPE netpr,
      gt_bdcmsg TYPE TABLE OF bdcmsgcoll,
      gs_bdcmsg TYPE bdcmsgcoll,
netpr TYPE string .
IF i_ekpo IS NOT INITIAL.

   SELECT SINGLE * FROM mara INTO gs_mara WHERE matnr = i_ekpo-matnr.
   IF gs_mara-mtart EQ 'SM01' .
     IF  gs_mara-vpsta CS 'B' .
       IF gs_mara-vpsta CS   'E'.
         SELECT SINGLE * FROM marc INTO gs_marc WHERE matnr = i_ekpo-matnr.
         IF gs_marc-beskz = 'F' OR gs_marc-beskz = 'X'.
           SELECT SINGLE * FROM mbew INTO gs_mbew WHERE  matnr = i_ekpo-matnr.
           IF gs_mbew-stprs <= '0.01' AND gs_mbew-zkprs <= '0.01'.

*            SELECT SINGLE * FROM marm INTO gs_marm WHERE meinh = i_ekpo-bprme AND matnr = i_ekpo-matnr.
            stprs = i_ekpo-netpr / i_ekpo-peinh.
            stprs = i_ekpo-bpumn * stprs / i_ekpo-bpumz.
            netpr = stprs .
            gs_bdc-program = 'SAPRCKM_MR21' .
            gs_bdc-dynpro = '0201' .
            gs_bdc-dynbegin = 'X'.
             APPEND gs_bdc TO gt_bdc.
             CLEAR gs_bdc.

            gs_bdc-fnam = 'BDC_CURSOR'.
            gs_bdc-fval = 'MR21HEAD-BUDAT'.
             APPEND gs_bdc TO gt_bdc.
             CLEAR gs_bdc.

            gs_bdc-fnam = 'BDC_OKCODE'.
            gs_bdc-fval = '=ENTR'.
             APPEND gs_bdc TO gt_bdc.
             CLEAR gs_bdc.

            gs_bdc-fnam = 'MR21HEAD-BUDAT'.
            gs_bdc-fval = sy-datum.
             APPEND gs_bdc TO gt_bdc.
             CLEAR gs_bdc.

            gs_bdc-fnam = 'MR21HEAD-BUKRS'.
            gs_bdc-fval = '1000'.
             APPEND gs_bdc TO gt_bdc.
             CLEAR gs_bdc.

            gs_bdc-fnam = 'MR21HEAD-WERKS'.
            gs_bdc-fval = '1000'.
             APPEND gs_bdc TO gt_bdc.
             CLEAR gs_bdc.

            gs_bdc-fnam = 'MR21HEAD-SCREEN_VARIANT'.
            gs_bdc-fval = 'MR21_LAGERMATERIAL_0250'.
             APPEND gs_bdc TO gt_bdc.
             CLEAR gs_bdc.
*            2
            gs_bdc-program = 'SAPRCKM_MR21' .
            gs_bdc-dynpro = '0201' .
            gs_bdc-dynbegin = 'X'.
             APPEND gs_bdc TO gt_bdc.
             CLEAR gs_bdc.
            gs_bdc-fnam = 'BDC_OKCODE'.
            gs_bdc-fval = '=ENTR'.
             APPEND gs_bdc TO gt_bdc.
             CLEAR gs_bdc.
            gs_bdc-fnam = 'BDC_CURSOR'.
            gs_bdc-fval = 'CKI_MR21_0250-MATNR(01)'.
             APPEND gs_bdc TO gt_bdc.
             CLEAR gs_bdc.
            gs_bdc-fnam = 'MR21HEAD-SCREEN_VARIANT'.
            gs_bdc-fval = 'MR21_LAGERMATERIAL_BWKEY_0250'.
             APPEND gs_bdc TO gt_bdc.
             CLEAR gs_bdc.
            gs_bdc-fnam = 'CKI_MR21_0250-MATNR(01)'.
            gs_bdc-fval = i_ekpo-matnr.
             APPEND gs_bdc TO gt_bdc.
             CLEAR gs_bdc.
            gs_bdc-fnam = 'BDC_OKCODE'.
            gs_bdc-fval = '=ENTR'.
             APPEND gs_bdc TO gt_bdc.
             CLEAR gs_bdc.
            gs_bdc-fnam = 'BDC_CURSOR'.
            gs_bdc-fval = 'CKI_MR21_0250-NEWVALPR(01)'.
             APPEND gs_bdc TO gt_bdc.
             CLEAR gs_bdc.
            gs_bdc-fnam = 'MR21HEAD-SCREEN_VARIANT'.
            gs_bdc-fval = 'MR21_LAGERMATERIAL_BWKEY_0250'.
             APPEND gs_bdc TO gt_bdc.
             CLEAR gs_bdc.
            gs_bdc-fnam = 'CKI_MR21_0250-NEWVALPR(01)'.

            gs_bdc-fval = netpr.

             APPEND gs_bdc TO gt_bdc.
            CLEAR: gs_bdc,stprs,netpr.
            gs_bdc-fnam = 'BDC_OKCODE'.
            gs_bdc-fval = '=SAVE'.
             APPEND gs_bdc TO gt_bdc.
            CLEAR: gs_bdc.
            gs_bdc-fnam = 'BDC_CURSOR'.
            gs_bdc-fval = 'CKI_MR21_0250-NEWVALPR(01)'.
             APPEND gs_bdc TO gt_bdc.
            CLEAR: gs_bdc.
            gs_bdc-fnam = 'MR21HEAD-SCREEN_VARIANT'.
            gs_bdc-fval = 'MR21_LAGERMATERIAL_BWKEY_0250'.
             APPEND gs_bdc TO gt_bdc.
            CLEAR: gs_bdc.

             CALL TRANSACTION 'MR21' USING gt_bdc MODE 'N'  MESSAGES INTO gt_bdcmsg.
             READ TABLE gt_bdcmsg INTO gs_bdcmsg INDEX 1.
             IF gs_bdcmsg-msgtyp EQ 'S'.
*              gs_mara-mstae = ''.
*              UPDATE mara FROM gs_mara.
               SUBMIT zmmrpt038 WITH s_matnr = i_ekpo-matnr AND RETURN.
            ELSE.
               SHIFT i_ekpo-matnr LEFT DELETING LEADING '0'.
               CONCATENATE i_ekpo-matnr ' 价格估算失败，请将价格提供给财务，由财务估算标准价格然后解冻，此物料暂时不能转采购订单。' INTO netpr.
               MESSAGE netpr TYPE 'E'.
            ENDIF.
            CLEAR: gs_mara,gs_mbew,gs_marc,gs_marm,gs_bdcmsg,netpr,gs_bdcmsg,gt_bdcmsg.
          ENDIF.

        ELSE.
           MESSAGE '此物料不是外购件，怎么能下PO的？' TYPE 'E'.
        ENDIF.
      ELSE.
         MESSAGE '此物料已经下PO，竟然没有采购视图' TYPE 'E'.
      ENDIF.
    ELSE.
       MESSAGE '此物料已经下PO，竟然没有会计视图' TYPE 'E'.
    ENDIF.
  ENDIF.
ENDIF.