【IT168 信息化】

    【IT168 信息化】

    x*&---------------------------------------------------------------------* 
    *& 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.