MMBE 里面的部分数量

*&---------------------------------------------------------------------*
*& Report  ZMM012
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zmm012.

TABLES: marcv,resb .

DATA: BEGIN OF xtab OCCURS 10,        "未清采购订单数
         werks LIKE ekpo-werks,
         lgort LIKE ekpo-lgort,
         matnr LIKE ekpo-matnr,
         menge LIKE ekpo-menge,
         mengk LIKE ekpo-menge,
       END OF xtab.

DATA: BEGIN OF xtab1 OCCURS 10,        "预留的
         werks LIKE resb-werks,
         lgort LIKE resb-lgort,
         charg LIKE resb-charg,
         matnr LIKE resb-matnr,
         bdmng LIKE resb-bdmng,
         bdmns LIKE resb-bdmng,
         erfme LIKE resb-erfme,
         erfmg LIKE resb-erfmg,
       END OF xtab1.

DATA: BEGIN OF xtab2 OCCURS 10,         "收货冻结的库存
         werks LIKE ekpo-werks,
         matnr LIKE ekpo-matnr,
         ebeln LIKE ekpo-ebeln,
         ebelp LIKE ekpo-ebelp,
         wesbs LIKE ekbe-wesbs,
         wesb2 LIKE ekbe-wesbs,
         meinh LIKE ekpo-meins,
       END OF xtab2.

DATA: BEGIN OF xtab4 OCCURS 100,         "交货计划
         matnr LIKE vbbe-matnr,
         werks LIKE vbbe-werks,
         lgort LIKE vbbe-lgort,
         charg LIKE vbbe-charg,
         vbmna LIKE vbbe-omeng,
         vbmnb LIKE vbbe-omeng,
         vbmnc LIKE vbbe-omeng,
         vbmne LIKE vbbe-omeng,
         vbmng LIKE vbbe-omeng,
         vbmni LIKE vbbe-omeng,
         omeng LIKE vbbe-omeng,
         vrkme LIKE vbep-vrkme,
         wmeng LIKE vbep-wmeng,
       END OF xtab4.

DATA: BEGIN OF xtab5 OCCURS 10.
        INCLUDE STRUCTURE werks_quan.
DATA: END OF xtab5.

SELECT-OPTIONS: s_werks  FOR marcv-werks .

RANGES: xbdart FOR resb-bdart.

 

START-OF-SELECTION.

  CLEAR xtab. REFRESH xtab.
  CALL FUNCTION 'MB_ADD_PURCHASE_ORDER_QUANTITY' "未清采购订单数
    EXPORTING
      x_elikz = ''
      x_loekz = ''
      x_matnr = '002100000000000618'
      x_meins = 'PC'
    TABLES
      xtab    = xtab
      xwerks  = s_werks.

  WRITE / 'XTAB:'.
  LOOP AT xtab.
    PERFORM write_wa USING xtab 'XXXXXXX' 'X' 'X'.
  ENDLOOP.

  REFRESH xbdart.
  CLEAR   xbdart.
  xbdart-sign   = 'I'.
  xbdart-option = 'EQ'.
  xbdart-low    = 'AR'.
  APPEND xbdart.
  xbdart-low    = 'MR'.
  APPEND xbdart.

  CLEAR xtab1. REFRESH xtab1.
  CALL FUNCTION 'MB_ADD_RESERVATION_QUANTITIES' "预留的
    EXPORTING
      x_matnr = '002100000000000618'
      x_xloek = space
      x_kzear = space
      x_kzwso = ''
    TABLES
      xtab1   = xtab1
      xwerks  = s_werks
      xbdart  = xbdart.

  WRITE / 'XTAB1:'.
  LOOP AT xtab1.
    PERFORM write_wa USING xtab1 'XXXXXXX' 'X' 'X'.
  ENDLOOP.

  CLEAR xtab2. REFRESH xtab2.
  CALL FUNCTION 'MB_SELECT_GR_BLOCKED_STOCK' "收货冻结的库存
    EXPORTING
      x_matnr = '002100000000000618'
      x_meins = 'PC'
      x_kzwso = ''
    TABLES
      xtab2   = xtab2
      xwerks  = s_werks.

  WRITE / 'XTAB2:'.
  LOOP AT xtab2.
    PERFORM write_wa USING xtab2 'XXXXXXX' 'X' 'X'.
  ENDLOOP.

  CLEAR xtab4. REFRESH xtab4.
  CALL FUNCTION 'MB_SELECT_SD_SCHEDULED_STOCK' "交货计划
    EXPORTING
      x_matnr = '002100000000000618'
      x_kzwso = ''
    TABLES
      xtab4   = xtab4
      xwerks  = s_werks.

  WRITE / 'XTAB4:'.
  LOOP AT xtab4.
    PERFORM write_wa USING xtab4 'XXXXXXX' 'X' 'X'.
  ENDLOOP.

  CLEAR xtab5. REFRESH xtab5.
  CALL FUNCTION 'MATERIAL_QUANTITIES_FAUF'
    EXPORTING
      matnr     = '002100000000000618'
      kzwso     = ''
    TABLES
      famng_tab = xtab5
      werks_tab = s_werks.

  WRITE / 'XTAB5:'.
  LOOP AT xtab5.
    PERFORM write_wa USING xtab5 'XXXXXXX' 'X' 'X'.
  ENDLOOP.

*&---------------------------------------------------------------------*
*&      Form  write_wa
*&---------------------------------------------------------------------*
FORM write_wa USING wa fieldmask newline alllen.
  DATA: str TYPE string ,
        str_idx TYPE string ,
        f_index TYPE i ,
        f_len TYPE i .
  FIELD-SYMBOLS: <f_field> .
  f_len = STRLEN( fieldmask ).
  IF newline = 'X'. WRITE  / ''.ENDIF.
  POSITION 1 .
  DO .
    ASSIGN COMPONENT sy-index OF STRUCTURE wa TO <f_field>.
    IF sy-subrc <> 0 OR sy-index > f_len.
      EXIT.
    ELSE.
      str_idx = sy-index .
      CONDENSE str_idx.
      f_index = sy-index - 1.
      IF fieldmask+f_index(1) = 'X'.
        IF alllen = ''.
          str = <f_field> .
          WRITE str.
        ELSE.
          WRITE <f_field>.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDDO.
ENDFORM.                    "write_wa