INBOUND DELIVERY QUANTITY

FORM pending_quantity  CHANGING uw_lips TYPE w_lips.

  DATA lt_ekbe TYPE TABLE OF ekbe.

  FIELD-SYMBOLS <fs_ekbe> TYPE ekbe.

  REFRESH lt_ekbe.
  SELECT *
  INTO CORRESPONDING FIELDS OF TABLE lt_ekbe
  FROM ekbe
  WHERE ebeln = uw_lips-vgbel
    AND ebelp = uw_lips-vgpos
    AND xblnr = uw_lips-vbeln
    AND bwart IN ('101','102')
  .

  LOOP AT lt_ekbe ASSIGNING <fs_ekbe>.

    IF <fs_ekbe>-bwart = '101'.
       uw_lips-lfimg =  uw_lips-lfimg - <fs_ekbe>-menge.
    ELSEIF <fs_ekbe>-bwart = '102'.
       uw_lips-lfimg =  uw_lips-lfimg + <fs_ekbe>-menge.
    ENDIF.

  ENDLOOP.

ENDFORM.

Utilidades
Página principal