标签：account 同一个 ME21N lv lt ls anln1 采购 TYPE

　　原本都是从采购申请转采购订单，现在上了BPM后，有直接创建采购订单的情况，采购订单也增加增强，不能重复采购同一个资产号

SE19->使用ME_PROCESS_PO_CUST实施,这里以前有实施了的，直接用

 

 IF_EX_ME_PROCESS_PO_CUST~PROCESS_ACCOUNT，跟其它为删除的采购订单做比对，这里ZMMT001是以前建立的，在采购申请的增强中用来临时跳过检查重复采购资产号的。PS:本来这个表应该加上次级资产编号和公司代码的，因为其它原因，这里就只用资产号了。

METHOD if_ex_me_process_po_cust~process_account.
*  IF ls_head-bsart EQ 'Z002'.

*    BREAK it0003.

  DATA:lc_account TYPE REF TO if_purchase_order_account_mm,
       lc_item    TYPE REF TO if_purchase_order_item_mm,
       ls_poitem  TYPE mepoitem, "po item datas
       ls_account TYPE mepoaccounting, "科目分配字段结构
       lv_sakto   TYPE saknr. "总帐科目编号

  CALL METHOD im_account->get_item
    RECEIVING
      re_item = lc_item.

  CALL METHOD lc_item->get_data
    RECEIVING
      re_data = ls_poitem.

  IF ls_poitem-loekz EQ ''.


    CALL METHOD im_account->get_data
      RECEIVING
        re_data = ls_account.

    IF ls_account-anln1 IS NOT INITIAL.
      SELECT COUNT(*)
      FROM zmmt001
     WHERE anln1 EQ ls_account-anln1.
      IF sy-subrc NE 0.
*    READ TABLE Gt_ekkn INTO DATA(Gs_ekkn) INDEX 1.
*    IF sy-subrc EQ 0.
        SELECT COUNT(*)
          FROM ekkn JOIN ekpo ON ekkn~ebeln EQ ekpo~ebeln
                             AND ekkn~ebelp EQ ekpo~ebelp
         WHERE ekkn~anln1 EQ @ls_account-anln1
           AND ekkn~anln2 EQ @ls_account-anln2
           AND ekkn~kokrs EQ @ls_account-kokrs
           AND ekkn~ebeln NE @ls_account-ebeln
           AND ekpo~loekz EQ ''.
        IF sy-subrc EQ 0.
          MESSAGE e009(zhele).
        ENDIF.
*    ENDIF.
*  ENDIF.
      ENDIF.
    ENDIF.
  ENDIF.

ENDMETHOD.

View Code

IF_EX_ME_PROCESS_PO_CUST~CHECK，同一个采购订单也不能同时存在相同的资产号

DATA: lt_data TYPE purchase_order_items,
        ls_data TYPE purchase_order_item.
  DATA: ls_item TYPE mepoitem.
  DATA: lt_item TYPE mepoitem.

  DATA: ls_head TYPE mepoheader.
  DATA: lv_class TYPE REF TO if_purchase_order_item_mm.
  DATA: lv_account TYPE REF TO if_purchase_order_account_mm,
        lt_account TYPE purchase_order_accountings,
        ls_account TYPE purchase_order_accounting,
        ls_anln1   TYPE mepoaccounting,
        lt_anln1   TYPE TABLE OF mepoaccounting,
        lv_tabix1  TYPE sy-tabix,
        lv_tabix2  TYPE sy-tabix.

LOOP AT lt_data INTO ls_data.
    lv_class = ls_data-item.
    CALL METHOD lv_class->get_accountings
      RECEIVING
        re_accountings = lt_account.
    LOOP AT lt_account INTO ls_account.
      lv_account = ls_account-accounting.
      CALL METHOD lv_account->get_data
        RECEIVING
          re_data = ls_anln1.
      SELECT COUNT(*)
      FROM zmmt001
     WHERE anln1 EQ ls_anln1-anln1.
      IF sy-subrc NE 0.
        APPEND ls_anln1 TO lt_anln1[].
      ENDIF.
    ENDLOOP.

  ENDLOOP.
*    BREAK-POINT.
  DELETE lt_anln1 WHERE anln1 EQ ''.
  lv_tabix1 = lines( lt_anln1[] ).
  SORT lt_anln1 BY kokrs anln1 anln2.
  DELETE ADJACENT DUPLICATES FROM lt_anln1 COMPARING kokrs anln1 anln2.
  lv_tabix2 = lines( lt_anln1[] ).
  IF lv_tabix1 NE lv_tabix2.
    MESSAGE e009(zhele).
  ENDIF.

View Code

 

标签：account,同一个,ME21N,lv,lt,ls,anln1,采购,TYPE
来源： https://www.cnblogs.com/chaguoguo/p/16320853.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。