采购订单me22n 或者me21n增强 （点击保存和回车）

IF_EX_ME_PROCESS_PO_CUST

 

 

DATA:l_header   TYPE mepoheader,
       l_item     TYPE mepoitem.

  DATA:lt_items TYPE purchase_order_items,
       lt_item_obj TYPE  purchase_order_item.

  DATA:l_werks  TYPE zmm_all-werks,
       l_gjahr  TYPE ekko-zzgjahr,
       l_monat  TYPE ekko-zzmonat,
       l_zwerks TYPE zmm_all-zwerks,
       l_ktokk  TYPE lfa1-ktokk,
       l_cfdat  TYPE zmm_all-cfdat,
       l_ebeln  TYPE ebeln.
  DATA:wa_all   TYPE zmm_all,
       wa_code  TYPE zmmt003,
       wa_ekko  TYPE ekko,
       wa_eket  TYPE eket.
  DATA:ls_meposchedule TYPE meposchedule.
  DATA:l_msg TYPE string.
  TYPES: BEGIN OF tyn_mtart,
          mtart TYPE mtart,
         END OF tyn_mtart.
  DATA: lt_mtart TYPE TABLE OF tyn_mtart.
  DATA: l_uname  LIKE sy-uname.

*---->>>> CR5817 add by lipeng 2012-03-06
  DATA: l_untto TYPE untto, "交货不足限度
        l_uebto TYPE uebto. "过量交货限度
*----<<<< end add

**PURCHASING HISTORY
  DATA: lt_ekbe TYPE me_ekbe.
  DATA: ls_ekbe LIKE LINE OF lt_ekbe.
**qinyun+ start 2011.10.25
*获取EKKO表中旬的数据
  DATA: BEGIN OF wa_ekko2,
          ebeln TYPE ekko-ebeln,
          zzgjahr TYPE ekko-zzgjahr,
          zzmonat TYPE ekko-zzmonat,
          zzxun   TYPE ekko-zzxun,
          zzhxdc  TYPE ekko-zzhxdc,
          zzcode  TYPE ekko-zzcode,
        END OF wa_ekko2 .
**qinyun+ end 2011.10.25

**取得抬头数据和行项目数据
  l_header = im_header->get_data( ).  “得到采购订单头信息
  lt_items = im_header->get_items( ) . ”和下面的loop方法一起才能得到物料等信息
*  LOOP AT items INTO item_obj .
*    l_item = item_obj-item->get_data(  ).
*  ENDLOOP.

******Begin of Beginof ADD CRQ000000011106 00186159 2014/2/26********************************
  LOOP AT lt_items INTO lt_item_obj.
    l_item = lt_item_obj-item->get_data(  ).
  ENDLOOP.