SAP MIGO User Exit

*&---------------------------------------------------------------------*
*&  Include           ZXMBCU01
*&---------------------------------------------------------------------*
*Sequence  Author Date        Description                              *
*M1        Jimmy  2013.01.16  Add Insert PO OA to table zpooa
*   the latest update : 2013.01.16 18:00
*--------------------------------------------------------------------- *
break-point.
                                                            "M1 add
read table xmseg index 1.
if xmseg-bwart = '101' and xmseg-ebeln is not initial
  and xmseg-mblnr is not initial
  and xmseg-mjahr is not initial
  and xmseg-zeile is not initial.

  data:begin of it_ekes occurs 0,
       ebeln    like ekes-ebeln,
       ebelp    like ekes-ebelp,
       etens    like ekes-etens,
       eindt    like ekes-eindt,
       menge    like ekes-menge,
       dabmg    like ekes-dabmg,
       ebtyp    like ekes-ebtyp,
       end of it_ekes.
  data:it_vc like it_ekes occurs 0 with header line.

  data:begin of it_eket occurs 0,
       ebeln    like ekes-ebeln,
       ebelp    like ekes-ebelp,
       etenr    like eket-etenr,
       eindt    like ekes-eindt,
       menge    like eket-menge,
       wemng    like eket-wemng,
       end of it_eket.
  data:it_zpooa like zpooavc occurs 0 with header line.
  data:it_zpooavc1 like zpooavc occurs 0 with header line.
  data:begin of it_oa1 occurs 0,
       ebeln    like ekes-ebeln,
       ebelp    like ekes-ebelp,
       zoaetens like eket-etenr,
       menge    like eket-menge,
       end of it_oa1.
  data:it_oa like it_oa1 occurs 0 with header line.
  data:it_zpooavc like it_oa1 occurs 0 with header line.
  data:lv_menge like mseg-menge,
       lv_menge_oa like mseg-menge,
       lv_menge2 like mseg-menge,
       lv_menge3 like mseg-menge,
       lv_tabix like sy-tabix.
  select  ebeln ebelp etenr menge wemng eindt
   into corresponding fields of table it_eket
   from eket
   for all entries in xmseg
   where ebeln = xmseg-ebeln
       and ebelp = xmseg-ebelp.
  sort it_eket by ebeln ebelp.

  "OA
  select ebeln ebelp etens eindt  menge dabmg ebtyp
      into corresponding fields of table it_ekes
    from ekes
    for all entries in xmseg
     where ebeln = xmseg-ebeln
         and ebelp = xmseg-ebelp
          and ebtyp = 'OA'
          and loekz = space.
  delete it_ekes where eindt eq '00000000' .
  delete it_ekes where dabmg eq 0 .
  if it_ekes[] is not initial.
    sort it_ekes by ebeln ebelp ascending eindt