Autor Tema: ME_PUR_DOCU_CHANGE - Modifica posiciones de pedidos de compra  (Leído 3752 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Enrique.Borroni

  • Moderador_
  • Usuario Completo
  • *****
  • Mensajes: 86
    • Ver Perfil
ME_PUR_DOCU_CHANGE - Modifica posiciones de pedidos de compra
« en: 03 de Noviembre de 2007, 09:59:51 am »
FUNCION ME_PUR_DOCU_CHANGE
TIPO MM
DESCRIPCION Modifica posiciones de pedidos de compra



REPORT Y_ME_PUR_DOCU_CHANGE .

tables: BAPIEKPOV, BAPIRETURN, ekpo, EKET.

start-of-selection.

  data: l_ekpo1 like BAPIEKPOV OCCURS 3 WITH HEADER LINE,
        l_ekpo2 like BAPIEKPOV OCCURS 3 WITH HEADER LINE,
        L_RETURN LIKE BAPIRETURN OCCURS 3 WITH HEADER LINE.

  select single * from ekpo
   where ebeln = '4500009473'
     and ebelp = '00001'.

  select single * from ekET
   where ebeln = '4500009473'
     and ebelp = '00001'
     AND ETENR = '0001'.


  L_EKPO1-PO_NUMBER = EKPO-EBELN.
  L_EKPO1-PO_ITEM   = EKPO-EBELP.
  L_EKPO1-DELETE_IND = EKPO-LOEKZ.
  L_EKPO1-QUANTITY  = EKPO-MENGE.
  L_EKPO1-UNIT       = EKPO-MEINS.
  L_EKPO1-DELIV_DATE = EKET-EINDT.
  APPEND L_EKPO1.

  L_EKPO2 = L_EKPO1.
  L_EKPO2-QUANTITY = '12.000'.
  APPEND L_EKPO2.
  APPEND L_EKPO2.

  CALL FUNCTION 'ME_PUR_DOCU_CHANGE'
       EXPORTING
            NUMBER             = '4500009473'
       TABLES
            PO_ITEMS_OLD       = l_ekpo1
            PO_ITEMS_NEW       = l_ekpo2
            RETURN             = L_RETURN
       EXCEPTIONS
            INVALID_CALL_OF_FB = 1
            OTHERS             = 2.

    LOOP AT L_RETURN.
      write / L_return.
    ENDLOOP.
Saludos.

Atte.,
Enrique Borroni

maito : enrique.borroni@abap.es