库存报表备忘录

*&---------------------------------------------------------------------* *& Report *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT  ZSDR_ZYKC_LIST . TABLES :MARA ,MARD . *---定义结构---For Main ALV OutPut-------------------------------------* TYPES :  BEGIN  OF TY_ITAB , *         CHECK  TYPE FLAG, *         ICONID  TYPE ICON-ID,          MEINS    TYPE MARA -MEINS ,  "基本计量单位          MATKL    TYPE MARA -MATKL ,  "物料组          WGBEZ    TYPE T023T -WGBEZ ,  "物料组描述          ZQLTY    TYPE MARA -ZQLTY ,  "材质          ZQLTYT   TYPE ZMTQUALITYT -ZQLTYT ,  "材质描述          LABST1   TYPE MARD -LABST ,  "江阴华溢库          LABST7   TYPE MARD -LABST ,  "常州横林库          LABST3   TYPE MARD -LABST ,  "无锡国联库          LABST6   TYPE MARD -LABST ,  "常州东港库          LABST17  TYPE MARD -LABST ,  "江阴华安库          LABST2   TYPE MARD -LABST ,  "江阴群友库          LABST4   TYPE MARD -LABST ,  "无锡商专线          LABST5   TYPE MARD -LABST ,  "常州船厂库          LABST15  TYPE MARD -LABST ,  "常州老东港库          LABST22  TYPE MARD -LABST ,  "苏州木专线          LABST19  TYPE MARD -LABST ,  "大经其它          LABST10  TYPE MARD -LABST ,  "杭州崇贤港          LABST11  TYPE MARD -LABST ,  "杭州中建材库          LABST20  TYPE MARD -LABST ,  "浙江其他          LABST13  TYPE MARD -LABST ,  "宝沙库存          LABST12  TYPE MARD -LABST ,  "福澳库存           "就一个金服公司使用，全部归结在一起          LABST14  TYPE MARD -LABST ,  "华溢托盘库          LABST18  TYPE MARD -LABST ,  "华溢库          LABST16  TYPE MARD -LABST ,  "嘉兴中铁库          LABST21  TYPE MARD -LABST ,  "大商其他          LABST23  TYPE MARD -LABST ,  "长达码头库          LABST24  TYPE MARD -LABST ,  "无锡中投保           "2016-10-12 大经贸易换成十七公司          LABST26  TYPE MARD -LABST ,  "张家港玖隆库          LABST25  TYPE MARD -LABST ,  "十七公司其他          LABST27  TYPE MARD -LABST ,  "上海刘行码头          LABST28  TYPE MARD -LABST ,  "大经建材其他           "以下两个字段不显示出来          LABST8   TYPE MARD -LABST ,  "常州万都金属城          LABST9   TYPE MARD -LABST ,  "济源旺鑫库          XSWFH    TYPE MARD -LABST ,  "销售未发数量          HJSL     TYPE MARD -LABST ,  "合计数量          CGZTSL   TYPE MARD -LABST ,  "采购在途数量          FZZTSL   TYPE MARD -LABST ,  "分公司在途数量 *       IT_CELL_TYPES TYPE SALV_T_INT4_COLUMN, *       IT_CELL_COLOR TYPE LVC_T_SCOL,         END    OF TY_ITAB . DATA : GT_ITAB  TYPE  STANDARD  TABLE  OF TY_ITAB ,       GW_ITAB  TYPE TY_ITAB . FIELD-SYMBOLS <ITAB>  TYPE TY_ITAB . DATA : BEGIN  OF GT_LGORT  OCCURS  0 ,         ID     TYPE  I ,        LGORT  TYPE MARD -LGORT ,        BEIZ   TYPE STRING ,       END  OF GT_LGORT . *----------------------------------------------------------------------* *       CLASS lcl_main_alv DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS LCL_MAIN_ALV  DEFINITION .    PUBLIC  SECTION .      METHODS : GENERATE_ALV .    PRIVATE  SECTION .      DATA : O_SALV  TYPE  REF  TO CL_SALV_TABLE .      METHODS :       SET_PF_STATUS          CHANGING           CO_ALV  TYPE  REF  TO CL_SALV_TABLE ,       SET_LAYOUT          CHANGING           CO_ALV  TYPE  REF  TO CL_SALV_TABLE ,       SET_DISPLAY_SETTING          CHANGING           CO_ALV  TYPE  REF  TO CL_SALV_TABLE ,       SET_COLUMNS          CHANGING           CO_ALV  TYPE  REF  TO CL_SALV_TABLE ,       REFRESH_ALV ,       ON_USER_COMMAND  FOR  EVENT ADDED_FUNCTION  OF CL_SALV_EVENTS          IMPORTING E_SALV_FUNCTION ,       HANDLE_DOUBLE_CLICK                      FOR  EVENT DOUBLE_CLICK  OF CL_SALV_EVENTS_TABLE          IMPORTING ROW COLUMN ,       HANDLE_LINK_CLICK              FOR  EVENT LINK_CLICK  OF CL_SALV_EVENTS_TABLE          IMPORTING             ROW COLUMN . ENDCLASS .                     "lcl_main_alv DEFINITION *---------------------------------------------------------------------* * 选择屏幕 *---------------------------------------------------------------------* SELECTION-SCREEN : BEGIN  OF  BLOCK B1  WITH  FRAME  TITLE  TEXT - 001 . SELECT-OPTIONS :   S_WERKS  FOR MARD -WERKS ,   S_LGORT  FOR MARD -LGORT ,   S_MTART  FOR MARA -MTART ,   S_MATKL  FOR MARA -MATKL ,   S_MATNR  FOR MARA -MATNR ,   S_ZQLTY  FOR MARA -ZQLTY ,   S_ZPRDA  FOR MARA -ZPRDA . SELECTION-SCREEN  END  OF  BLOCK B1 . *&---------------------------------------------------------------------* *&      START-OF-SELECTION *&---------------------------------------------------------------------* START-OF-SELECTION .    CALL  FUNCTION  'SAPGUI_PROGRESS_INDICATOR'      EXPORTING       PERCENTAGE  =  100        TEXT        =  '正在马不停蹄的取数处理，请稍等......' .    PERFORM INIT_LGORT .    PERFORM GET_DATA .    DATA : LO_MAIN_ALV  TYPE  REF  TO LCL_MAIN_ALV .    CREATE OBJECT LO_MAIN_ALV .   LO_MAIN_ALV ->GENERATE_ALV (  ) . END-OF-SELECTION . *&---------------------------------------------------------------------* *&      Form  GET_DATA *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* *  -->  p1        text *  <--  p2        text *----------------------------------------------------------------------* FORM GET_DATA  .    DATA : LT_MARA  LIKE  TABLE  OF MARA  WITH  HEADER  LINE ,         LT_MAKT  LIKE  TABLE  OF MAKT  WITH  HEADER  LINE .    DATA : LT_VBAP_C  LIKE  TABLE  OF VBAP  WITH  HEADER  LINE ,         LT_VBFA    LIKE  TABLE  OF VBFA  WITH  HEADER  LINE ,         LT_EKBE    LIKE  TABLE  OF EKBE  WITH  HEADER  LINE .    DATA :  BEGIN  OF LT_VBAP  OCCURS  0 ,           MATKL   LIKE MARA -MATKL ,           MEINS   LIKE MARA -MEINS ,           ZQLTY   LIKE MARA -ZQLTY ,           VBELN   LIKE VBAP -VBELN ,           POSNR   LIKE VBAP -POSNR ,           MATNR   LIKE VBAP -MATNR ,           WERKS   LIKE VBAP -WERKS ,           LGORT   LIKE VBAP -LGORT ,           ZMENG   LIKE VBAP -ZMENG ,           KWMENG  LIKE VBAP -KWMENG ,           UMVKZ   LIKE VBAP -UMVKZ ,           UMVKN   LIKE VBAP -UMVKN ,          END  OF LT_VBAP .    DATA :  BEGIN  OF LT_LIPS  OCCURS  0 ,           MATKL  LIKE MARA -MATKL ,           MEINS  LIKE MARA -MEINS ,           ZQLTY  LIKE MARA -ZQLTY ,           MATNR  LIKE LIPS -MATNR ,           WERKS  LIKE LIPS -WERKS ,           LGORT  LIKE LIPS -LGORT ,           LFIMG  LIKE LIPS -LFIMG ,           UMVKZ  LIKE LIPS -UMVKZ ,           UMVKN  LIKE LIPS -UMVKN ,          END  OF LT_LIPS .    DATA :  BEGIN  OF LT_ITAB  OCCURS  0 ,           MATKL  LIKE MARA -MATKL ,           MEINS  LIKE MARA -MEINS ,           ZQLTY  LIKE MARA -ZQLTY ,           MATNR  LIKE MARD -MATNR ,           WERKS  LIKE MARD -WERKS ,           LGORT  LIKE MARD -LGORT ,           LABST  LIKE MARD -LABST ,          END  OF LT_ITAB .    DATA : BEGIN  OF LT_EKET  OCCURS  0 ,          MATKL  LIKE MARA -MATKL ,          ZQLTY  LIKE MARA -ZQLTY ,          LIFNR  LIKE EKKO -LIFNR ,          MATNR  LIKE EKPO -MATNR ,          WERKS  LIKE EKPO -WERKS ,          LGORT  LIKE EKPO -LGORT ,          MENGE  LIKE EKPO -MENGE ,          WEMNG  LIKE EKET -WEMNG ,          MEINS  LIKE EKPO -MEINS ,          UMREZ  LIKE EKPO -UMREZ ,          UMREN  LIKE EKPO -UMREN ,         END  OF LT_EKET .    DATA : BEGIN  OF LT_EKPO  OCCURS  0 ,          RESWK  LIKE EKKO -RESWK ,          EBELN  LIKE EKPO -EBELN ,          EBELP  LIKE EKPO -EBELP ,          MATKL  LIKE MARA -MATKL ,          ZQLTY  LIKE MARA -ZQLTY ,          MATNR  LIKE EKPO -MATNR ,          WERKS  LIKE EKPO -WERKS ,          LGORT  LIKE EKPO -LGORT ,          MENGE  LIKE EKPO -MENGE ,          WEMNG  LIKE EKET -WEMNG ,          MEINS  LIKE EKPO -MEINS ,          UMREZ  LIKE EKPO -UMREZ ,          UMREN  LIKE EKPO -UMREN ,         END  OF LT_EKPO .    REFRESH GT_ITAB .    REFRESH LT_ITAB[] .    "非限制库存：物料的仓储位置数据    SELECT MARD ~MATNR MARD ~WERKS MARD ~LGORT MARD ~LABST          MARA ~ZQLTY MARA ~MATKL MARA ~MEINS      FROM MARD     INNER  JOIN MARA      ON MARA ~MATNR  = MARD ~MATNR      INTO CORRESPONDING  FIELDS  OF  TABLE LT_ITAB      WHERE MARD ~WERKS  IN S_WERKS        AND MARD ~LGORT  IN S_LGORT        AND MARD ~MATNR  IN S_MATNR        AND MARD ~LABST >  0        AND MARA ~MTART  IN S_MTART        AND MARA ~MATKL  IN S_MATKL        AND MARA ~ZQLTY  IN S_ZQLTY        AND MARA ~ZPRDA  IN S_ZPRDA .    "非限制E库存：销售订单库存    SELECT MSKA ~MATNR MSKA ~WERKS MSKA ~LGORT MSKA ~KALAB  AS LABST          MARA ~ZQLTY MARA ~MATKL MARA ~MEINS      FROM MSKA     INNER  JOIN MARA      ON MARA ~MATNR  = MSKA ~MATNR      APPENDING CORRESPONDING  FIELDS  OF  TABLE LT_ITAB      WHERE MSKA ~WERKS  IN S_WERKS        AND MSKA ~LGORT  IN S_LGORT        AND MSKA ~MATNR  IN S_MATNR        AND MSKA ~KALAB >  0        AND MARA ~MTART  IN S_MTART        AND MARA ~MATKL  IN S_MATKL        AND MARA ~ZQLTY  IN S_ZQLTY        AND MARA ~ZPRDA  IN S_ZPRDA . *-----------------------------------------------库存数量    LOOP  AT LT_ITAB .     GW_ITAB -MATKL  = LT_ITAB -MATKL .     GW_ITAB -ZQLTY  = LT_ITAB -ZQLTY .     GW_ITAB -MEINS  = LT_ITAB -MEINS .      READ  TABLE GT_LGORT  WITH  KEY LGORT  = LT_ITAB -LGORT .      IF SY -SUBRC  =  0 .        CASE LT_ITAB -WERKS .            "大经内部公司 去除福澳          WHEN  '1011'  OR  '1012'  OR  '1013'  OR  '1014'  OR  '1015'  OR  '1019'             OR  '1021'  OR  '1022'  OR  '1023'  OR  '1024'  OR  '1025'  OR  '1026'             OR  '1027'  OR  '1029'  OR  '102A'  OR  '1031'  OR  '1032'             OR  '1033'  OR  '1034'  OR  '1036'  OR  '1039'  OR  '8001'  OR  '8002'             OR  '8003'  OR  '8004'  OR  '8005'  OR   '8006'  OR  '8007'  OR  '8008'             OR  '8009'  OR  '8010'  OR  '8011'  OR  '8012'  OR  '8013'  OR  '8014'             OR  '8015'  OR  '8016'  OR  '8018'  OR  '8021'  OR  '8022'  OR  '8023'             OR  '8024'  OR  '8025'  OR  '8051'  OR  '8052' .            CASE GT_LGORT - ID .              WHEN  1 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST1 . "华溢库        need              WHEN  2 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST2 . "群友库        need              WHEN  3 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST3 . "无锡国联库    need              WHEN  4 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST4 . "无锡商专线    need              WHEN  5 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST5 . "常州船厂库    need              WHEN  6 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST6 . "常州东港      need              WHEN  7 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST7 . "常州横林库    need *        WHEN 8.ADD LT_ITAB-LABST TO GW_ITAB-LABST8." *        WHEN 9.ADD LT_ITAB-LABST TO GW_ITAB-LABST9."              WHEN  10 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST19 . "杭州崇贤港    大经其它              WHEN  11 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST19 . "杭州中建材库  大经其它              WHEN  12 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST19 . "福澳库       大经其它              WHEN  13 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST19 . "宝沙库       大经其它              WHEN  14 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "华溢托盘库              WHEN  15 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST15 . "常州老东港库  need              WHEN  16 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST19 . "嘉兴中铁库   大经其它              WHEN  17 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST17 . "江阴华安库   need              WHEN  18 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST22 . "苏州木专线   need              WHEN  19 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST19 . "长达码头库   大经其它              WHEN  20 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST19 . "无锡中投保   大经其它              WHEN  21 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST19 . "张家港玖隆库  大经其它              WHEN  22 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST19 . "上海刘行码头库  大经其它            ENDCASE .            "大商          WHEN  '1071'  OR  '1072'  OR  '1073'  OR  '8019'  OR  '8020' .            CASE GT_LGORT - ID .              WHEN  1 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST18 . "华溢库       need              WHEN  2 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST21 . "群友库      大商其他              WHEN  3 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST21 . "无锡国联库  大商其他              WHEN  4 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST21 . "无锡商专线  大商其他              WHEN  5 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST21 . "常州船厂库  大商其他              WHEN  6 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST21 . "常州东港    大商其他              WHEN  7 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST21 . "常州横林库  大商其他 *        WHEN 8.ADD LT_ITAB-LABST TO GW_ITAB-LABST8." *        WHEN 9.ADD LT_ITAB-LABST TO GW_ITAB-LABST9."              WHEN  10 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST21 . "杭州崇贤港     大商其他              WHEN  11 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST21 . "杭州中建材库   大商其他              WHEN  12 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST21 . "福澳库        大商其他              WHEN  13 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST21 . "宝沙库        大商其他              WHEN  14 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "华溢托盘库              WHEN  15 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST21 . "常州老东港库  大商其他              WHEN  16 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST16 . "嘉兴中铁库    need              WHEN  17 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST21 . "江阴华安库   大商其他              WHEN  18 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST21 . "苏州木专线   大商其他              WHEN  19 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST21 . "长达码头库   大商其他              WHEN  20 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST21 . "无锡中投保   大商其他              WHEN  21 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST21 . "张家港玖隆库  大商其他              WHEN  22 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST21 . "上海刘行码头库  大商其他            ENDCASE .            "浙江          WHEN  '1061'  OR  '8017' .            CASE GT_LGORT - ID .              WHEN  1 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST20 . "华溢库         浙江其他              WHEN  2 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST20 . "群友库         浙江其他              WHEN  3 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST20 . "无锡国联库     浙江其他              WHEN  4 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST20 . "无锡商专线     浙江其他              WHEN  5 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST20 . "常州船厂库     浙江其他              WHEN  6 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST20 . "常州东港       浙江其他              WHEN  7 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST20 . "常州横林库     浙江其他 *        WHEN 8.ADD LT_ITAB-LABST TO GW_ITAB-LABST8." *        WHEN 9.ADD LT_ITAB-LABST TO GW_ITAB-LABST9."              WHEN  10 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST10 . "杭州崇贤港     need              WHEN  11 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST11 . "杭州中建材库   need              WHEN  12 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST20 . "福澳库        浙江其他              WHEN  13 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST20 . "宝沙库        浙江其他              WHEN  14 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "华溢托盘库              WHEN  15 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST20 . "常州老东港库  浙江其他              WHEN  16 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST20 . "嘉兴中铁库    浙江其他              WHEN  17 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST20 . "江阴华安库    浙江其他              WHEN  18 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST20 . "苏州木专线    浙江其他              WHEN  19 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST20 . "长达码头库   浙江其他              WHEN  20 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST20 . "无锡中投保   浙江其他              WHEN  21 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST20 . "张家港玖隆库  浙江其他              WHEN  22 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST20 . "上海刘行码头库  浙江其他            ENDCASE .            "金服公司          WHEN  '1035'  OR  '8053' .            CASE GT_LGORT - ID .              WHEN  1 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "华溢库              WHEN  2 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "群友库              WHEN  3 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "无锡国联库              WHEN  4 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "无锡商专线              WHEN  5 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "常州船厂库              WHEN  6 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "常州东港              WHEN  7 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "常州横林库 *        WHEN 8.ADD LT_ITAB-LABST TO GW_ITAB-LABST8." *        WHEN 9.ADD LT_ITAB-LABST TO GW_ITAB-LABST9."              WHEN  10 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "杭州崇贤港              WHEN  11 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "杭州中建材库              WHEN  12 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "福澳库              WHEN  13 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "宝沙库              WHEN  14 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "华溢托盘库              WHEN  15 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "常州老东港库              WHEN  16 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "嘉兴中铁库              WHEN  17 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "江阴华安库              WHEN  18 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "苏州木专线              WHEN  19 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "长达码头库              WHEN  20 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "无锡中投保              WHEN  21 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "张家港玖隆库              WHEN  22 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "上海刘行码头库            ENDCASE .            "十七公司          WHEN  '1037' .            CASE GT_LGORT - ID .              WHEN  1 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "华溢库              WHEN  2 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "群友库              WHEN  3 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "无锡国联库              WHEN  4 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "无锡商专线              WHEN  5 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "常州船厂库              WHEN  6 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "常州东港              WHEN  7 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "常州横林库 *        WHEN 8.ADD LT_ITAB-LABST TO GW_ITAB-LABST8." *        WHEN 9.ADD LT_ITAB-LABST TO GW_ITAB-LABST9."              WHEN  10 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "杭州崇贤港              WHEN  11 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "杭州中建材库              WHEN  12 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "福澳库              WHEN  13 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "宝沙库              WHEN  14 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "华溢托盘库              WHEN  15 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "常州老东港库              WHEN  16 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "嘉兴中铁库              WHEN  17 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "江阴华安库              WHEN  18 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "苏州木专线              WHEN  19 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "长达码头库   2016-10-12并入十七公司其他 LABST23              WHEN  20 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "无锡中投保   2016-10-12并入十七公司其他 LABST24              WHEN  21 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST26 . "张家港玖隆库  need              WHEN  22 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST25 . "上海刘行码头库            ENDCASE .            "大经建材          WHEN  '1181'  OR  '1182' .            CASE GT_LGORT - ID .              WHEN  1 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "华溢库         大经建材其他              WHEN  2 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "群友库         大经建材其他              WHEN  3 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "无锡国联库     大经建材其他              WHEN  4 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "无锡商专线     大经建材其他              WHEN  5 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "常州船厂库     大经建材其他              WHEN  6 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "常州东港       大经建材其他              WHEN  7 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "常州横林库     大经建材其他 *        WHEN 8.ADD LT_ITAB-LABST TO GW_ITAB-LABST8." *        WHEN 9.ADD LT_ITAB-LABST TO GW_ITAB-LABST9."              WHEN  10 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "杭州崇贤港     大经建材其他              WHEN  11 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "杭州中建材库   大经建材其他              WHEN  12 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "福澳库        大经建材其他              WHEN  13 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "宝沙库        大经建材其他              WHEN  14 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "华溢托盘库   大经建材其他              WHEN  15 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "常州老东港库  大经建材其他              WHEN  16 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "嘉兴中铁库    大经建材其他              WHEN  17 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "江阴华安库    大经建材其他              WHEN  18 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "苏州木专线    大经建材其他              WHEN  19 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "长达码头库   大经建材其他              WHEN  20 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "无锡中投保   大经建材其他              WHEN  21 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST28 . "张家港玖隆库  大经建材其他              WHEN  22 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST27 . "上海刘行码头库            ENDCASE .          WHEN  OTHERS .            CASE GT_LGORT - ID .              WHEN  1 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST1 . "华溢库              WHEN  2 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST2 . "群友库              WHEN  3 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST3 . "无锡国联库              WHEN  4 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST4 . "无锡商专线              WHEN  5 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST5 . "常州船厂库              WHEN  6 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST6 . "常州东港              WHEN  7 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST7 . "常州横林库 *        WHEN 8.ADD LT_ITAB-LABST TO GW_ITAB-LABST8." *        WHEN 9.ADD LT_ITAB-LABST TO GW_ITAB-LABST9."              WHEN  10 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST10 . "杭州崇贤港              WHEN  11 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST11 . "杭州中建材库              WHEN  12 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST12 . "福澳库              WHEN  13 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST13 . "宝沙库              WHEN  14 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST14 . "华溢托盘库              WHEN  15 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST15 . "常州老东港库              WHEN  16 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST16 . "嘉兴中铁库              WHEN  17 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST17 . "江阴华安库              WHEN  18 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST22 . "苏州木专线              WHEN  19 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST23 . "长达码头库              WHEN  20 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST24 . "无锡中投保              WHEN  21 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST26 . "张家港玖隆库              WHEN  22 . ADD LT_ITAB -LABST  TO GW_ITAB -LABST27 . "上海刘行码头库            ENDCASE .        ENDCASE . *      ADD LT_ITAB-LABST TO GW_ITAB-HJSL.        COLLECT GW_ITAB  INTO GT_ITAB .        CLEAR GW_ITAB .      ENDIF .      "ZF00 ZF01 也将被统计 *    ADD LT_ITAB-LABST TO GW_ITAB-HJSL. *    COLLECT GW_ITAB INTO GT_ITAB. *    CLEAR GW_ITAB.    ENDLOOP . *-----------------------------------------------合同未清数量 = 未清合同数量 - 订单数量    REFRESH  : LT_VBAP[] ,             LT_VBFA[] .    SELECT VBAP ~VBELN VBAP ~POSNR VBAP ~MATNR VBAP ~WERKS          VBAP ~LGORT VBAP ~ZMENG VBAP ~KWMENG VBAP ~UMVKZ          VBAP ~UMVKN MARA ~ZQLTY MARA ~MATKL MARA ~MEINS      FROM VBAP     INNER  JOIN MARA  ON MARA ~MATNR  = VBAP ~MATNR     INNER  JOIN VBAK  ON VBAK ~VBELN  = VBAP ~VBELN     INNER  JOIN VBUP  ON VBUP ~VBELN  = VBAP ~VBELN                     AND VBUP ~POSNR  = VBAP ~POSNR      INTO CORRESPONDING  FIELDS  OF  TABLE LT_VBAP      WHERE VBAK ~VBTYP  =  'G' "合同        AND VBAP ~MATNR  IN S_MATNR        AND VBAP ~WERKS  IN S_WERKS        AND VBAP ~LGORT  IN S_LGORT        AND VBUP ~GBSTA <>  'C' "未完成的合同        AND MARA ~MTART  IN S_MTART        AND MARA ~MATKL  IN S_MATKL        AND MARA ~ZQLTY  IN S_ZQLTY        AND MARA ~ZPRDA  IN S_ZPRDA .    IF LT_VBAP[]  IS  NOT  INITIAL .      "取订单号      SELECT *  FROM VBFA  INTO  TABLE LT_VBFA        FOR  ALL ENTRIES  IN LT_VBAP        WHERE VBELV  = LT_VBAP -VBELN          AND POSNV  = LT_VBAP -POSNR          AND VBTYP_N  =  'C'          AND VBTYP_V  =  'G' .      IF LT_VBFA[]  IS  NOT  INITIAL .        "取订单数量        SELECT *  FROM VBAP          INTO CORRESPONDING  FIELDS  OF  TABLE LT_VBAP_C          FOR  ALL ENTRIES  IN LT_VBFA          WHERE VBELN  = LT_VBFA -VBELN            AND POSNR  = LT_VBFA -POSNN            AND ABGRU <>  '51'  .      ENDIF .      LOOP  AT LT_VBAP . "合同内表        CLEAR GW_ITAB .       GW_ITAB -XSWFH  = LT_VBAP -ZMENG * LT_VBAP -UMVKZ / LT_VBAP -UMVKN .        LOOP  AT LT_VBFA  WHERE VBELV  = LT_VBAP -VBELN                          AND POSNV  = LT_VBAP -POSNR .          READ  TABLE LT_VBAP_C  WITH  KEY VBELN  = LT_VBFA -VBELN                                       POSNR  = LT_VBFA -POSNN .          IF SY -SUBRC  =  0 .            SUBTRACT LT_VBAP_C -KWMENG  FROM GW_ITAB -XSWFH .          ENDIF .        ENDLOOP .        IF GW_ITAB -XSWFH <>  0 .          READ  TABLE GT_ITAB  ASSIGNING <ITAB>  WITH  KEY MATKL  = LT_VBAP -MATKL                                                      ZQLTY  = LT_VBAP -ZQLTY                                                      MEINS  = LT_VBAP -MEINS .          IF SY -SUBRC  =  0 . *          ADD GW_ITAB-XSWFH TO <ITAB>-XSWFH. *          SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-HJSL.            READ  TABLE GT_LGORT  WITH  KEY LGORT  = LT_VBAP -LGORT .            IF SY -SUBRC  =  0 . *            CASE GT_LGORT-ID. *              WHEN 1.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST1. *              WHEN 2.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST2. *              WHEN 3.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST3. *              WHEN 4.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST4. *              WHEN 5.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST5. *              WHEN 6.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST6. *              WHEN 7.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST7. *              WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8. *              WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9. *              WHEN 10.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST10. *              WHEN 11.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST11. *              WHEN 12.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST12. *              WHEN 13.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST13. *              WHEN 14.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14. *              WHEN 15.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST15. *              WHEN 16.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST16. *              WHEN 17.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST17. *            ENDCASE.              CASE LT_VBAP -WERKS .                  "大经内部公司 去除福澳                WHEN   '1011'  OR  '1012'  OR  '1013'  OR  '1014'  OR  '1015'  OR  '1019'                   OR  '1021'  OR  '1022'  OR  '1023'  OR  '1024'  OR  '1025'  OR  '1026'                   OR  '1027'  OR  '1029'  OR  '102A'  OR  '1031'  OR  '1032'                   OR  '1033'  OR  '1034'  OR  '1036'  OR  '1039'  OR  '8001'  OR  '8002'                   OR  '8003'  OR  '8004'  OR  '8005'  OR   '8006'  OR  '8007'  OR  '8008'                   OR  '8009'  OR  '8010'  OR  '8011'  OR  '8012'  OR  '8013'  OR  '8014'                   OR  '8015'  OR  '8016'  OR  '8018'  OR  '8021'  OR  '8022'  OR  '8023'                   OR  '8024'  OR  '8025'  OR  '8051'  OR  '8052' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST1 . "华溢库        need                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST2 . "群友库        need                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST3 . "无锡国联库    need                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST4 . "无锡商专线    need                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST5 . "常州船厂库    need                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST6 . "常州东港      need                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST7 . "常州横林库    need *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "杭州崇贤港    大经其它                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "杭州中建材库  大经其它                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "福澳库       大经其它                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "宝沙库       大经其它                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST15 . "常州老东港库  need                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "嘉兴中铁库   大经其它                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST17 . "江阴华安库   need                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST22 . "苏州木专线   need                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "长达码头库  大经其它                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "无锡中投保  大经其它                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "张家港玖隆库  大经其它                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "上海刘行码头库  大经其它                  ENDCASE .                  "大商                WHEN  '1071'  OR  '1072'  OR  '1073' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST18 . "华溢库       need                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "群友库      大商其他                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "无锡国联库  大商其他                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "无锡商专线  大商其他                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "常州船厂库  大商其他                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "常州东港    大商其他                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "常州横林库  大商其他 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "杭州崇贤港     大商其他                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "杭州中建材库   大商其他                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "福澳库        大商其他                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "宝沙库        大商其他                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "常州老东港库  大商其他                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST16 . "嘉兴中铁库    need                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "江阴华安库   大商其他                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "苏州木专线   大商其他                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "长达码头库  大商其他                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "无锡中投保  大商其他                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "张家港玖隆库  大商其他                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "上海刘行码头库  大商其他                  ENDCASE .                  "浙江                WHEN  '1061' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "华溢库         浙江其他                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "群友库         浙江其他                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "无锡国联库     浙江其他                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "无锡商专线     浙江其他                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "常州船厂库     浙江其他                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "常州东港       浙江其他                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "常州横林库     浙江其他 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST10 . "杭州崇贤港     need                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST11 . "杭州中建材库   need                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "福澳库        浙江其他                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "宝沙库        浙江其他                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "常州老东港库  浙江其他                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "嘉兴中铁库    浙江其他                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "江阴华安库    浙江其他                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "苏州木专线    浙江其他                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "长达码头库   浙江其他                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "无锡中投保   浙江其他                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "张家港玖隆库  浙江其他                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "上海刘行码头库  浙江其他                  ENDCASE .                  "金服公司                WHEN  '1035' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢库                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "群友库                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "无锡国联库                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "无锡商专线                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "常州船厂库                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "常州东港                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "常州横林库 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "杭州崇贤港                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "杭州中建材库                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "福澳库                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "宝沙库                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "常州老东港库                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "嘉兴中铁库                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "江阴华安库                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "苏州木专线                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "长达码头库                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "无锡中投保                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "张家港玖隆库                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "上海刘行码头库                  ENDCASE .                  "十七公司                WHEN  '1037' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "华溢库                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "群友库                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "无锡国联库                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "无锡商专线                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "常州船厂库                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "常州东港                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "常州横林库 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "杭州崇贤港                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "杭州中建材库                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "福澳库                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "宝沙库                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "常州老东港库                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "嘉兴中铁库                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "江阴华安库                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "苏州木专线                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "长达码头库  2016-10-12并入十七公司其他 LABST23                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "无锡中投保  2016-10-12并入十七公司其他 LABST24                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST26 . "张家港玖隆库                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "上海刘行码头库                  ENDCASE .                  "大经建材                WHEN  '1181'  OR  '1182' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "华溢库                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "群友库                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "无锡国联库                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "无锡商专线                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "常州船厂库                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "常州东港                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "常州横林库 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "杭州崇贤港                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "杭州中建材库                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "福澳库                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "宝沙库                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "常州老东港库                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "嘉兴中铁库                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "江阴华安库                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "苏州木专线                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "长达码头库                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "无锡中投保                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "张家港玖隆库                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST27 . "上海刘行码头库                  ENDCASE .                WHEN  OTHERS .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST1 . "华溢库                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST2 . "群友库                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST3 . "无锡国联库                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST4 . "无锡商专线                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST5 . "常州船厂库                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST6 . "常州东港                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST7 . "常州横林库 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST10 . "杭州崇贤港                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST11 . "杭州中建材库                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST12 . "福澳库                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST13 . "宝沙库                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST15 . "常州老东港库                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST16 . "嘉兴中铁库                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST17 . "江阴华安库                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST22 . "苏州木专线                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST23 . "长达码头库                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST24 . "无锡中投保                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST26 . "张家港玖隆库                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST27 . "上海刘行码头库                  ENDCASE .              ENDCASE .            ENDIF . *          SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-HJSL.          ELSE . *          GW_ITAB-MATKL = LT_VBAP-MATKL. *          GW_ITAB-ZQLTY = LT_VBAP-ZQLTY. *          GW_ITAB-MEINS = LT_VBAP-MEINS. *          SUBTRACT GW_ITAB-XSWFH FROM GW_ITAB-HJSL. *          COLLECT GW_ITAB INTO GT_ITAB. *          CLEAR GW_ITAB.          ENDIF .        ENDIF .        CLEAR :GW_ITAB ,LT_VBAP .      ENDLOOP .    ENDIF . *-----------------------------------------------订单未清数量 = 未清订单数量 - 交货数量    REFRESH  : LT_VBAP[] ,             LT_VBFA[] .    SELECT VBAP ~VBELN VBAP ~POSNR VBAP ~MATNR VBAP ~WERKS          VBAP ~LGORT VBAP ~KWMENG VBAP ~UMVKZ          VBAP ~UMVKN MARA ~ZQLTY MARA ~MATKL MARA ~MEINS      FROM VBAP     INNER  JOIN MARA  ON MARA ~MATNR  = VBAP ~MATNR     INNER  JOIN VBAK  ON VBAK ~VBELN  = VBAP ~VBELN     INNER  JOIN VBUP  ON VBUP ~VBELN  = VBAP ~VBELN                     AND VBUP ~POSNR  = VBAP ~POSNR      INTO CORRESPONDING  FIELDS  OF  TABLE LT_VBAP      WHERE VBAK ~VBTYP  =  'C'        AND VBAP ~MATNR  IN S_MATNR        AND VBAP ~WERKS  IN S_WERKS        AND VBAP ~LGORT  IN S_LGORT        AND VBUP ~GBSTA <>  'C'        AND MARA ~MTART  IN S_MTART        AND MARA ~MATKL  IN S_MATKL        AND MARA ~ZQLTY  IN S_ZQLTY        AND MARA ~ZPRDA  IN S_ZPRDA        AND VBAP ~ABGRU <>  '51'  .    IF LT_VBAP[]  IS  NOT  INITIAL .      "取交货单      SELECT *  FROM VBFA  INTO  TABLE LT_VBFA        FOR  ALL ENTRIES  IN LT_VBAP        WHERE VBELV  = LT_VBAP -VBELN          AND POSNV  = LT_VBAP -POSNR          AND VBTYP_N  =  'J'          AND VBTYP_V  =  'C' .      LOOP  AT LT_VBAP .       GW_ITAB -XSWFH  = LT_VBAP -KWMENG * LT_VBAP -UMVKZ / LT_VBAP -UMVKN .        LOOP  AT LT_VBFA  WHERE VBELV  = LT_VBAP -VBELN                          AND POSNV  = LT_VBAP -POSNR .          SUBTRACT LT_VBFA -RFMNG  FROM GW_ITAB -XSWFH .        ENDLOOP .        IF GW_ITAB -XSWFH <>  0 .          READ  TABLE GT_ITAB  ASSIGNING <ITAB>  WITH  KEY MATKL  = LT_VBAP -MATKL                                                      ZQLTY  = LT_VBAP -ZQLTY                                                      MEINS  = LT_VBAP -MEINS .          IF SY -SUBRC  =  0 . *          ADD GW_ITAB-XSWFH TO <ITAB>-XSWFH. *          SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-HJSL.            READ  TABLE GT_LGORT  WITH  KEY LGORT  = LT_VBAP -LGORT .            IF SY -SUBRC  =  0 .              CASE LT_VBAP -WERKS .                  "大经内部公司 去除福澳                WHEN   '1011'  OR  '1012'  OR  '1013'  OR  '1014'  OR  '1015'  OR  '1019'                   OR  '1021'  OR  '1022'  OR  '1023'  OR  '1024'  OR  '1025'  OR  '1026'                   OR  '1027'  OR  '1029'  OR  '102A'  OR  '1031'  OR  '1032'                   OR  '1033'  OR  '1034'  OR  '1036'  OR  '1039'  OR  '8001'  OR  '8002'                   OR  '8003'  OR  '8004'  OR  '8005'  OR   '8006'  OR  '8007'  OR  '8008'                   OR  '8009'  OR  '8010'  OR  '8011'  OR  '8012'  OR  '8013'  OR  '8014'                   OR  '8015'  OR  '8016'  OR  '8018'  OR  '8021'  OR  '8022'  OR  '8023'                   OR  '8024'  OR  '8025'  OR  '8051'  OR  '8052' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST1 . "华溢库        need                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST2 . "群友库        need                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST3 . "无锡国联库    need                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST4 . "无锡商专线    need                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST5 . "常州船厂库    need                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST6 . "常州东港      need                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST7 . "常州横林库    need *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "杭州崇贤港    大经其它                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "杭州中建材库  大经其它                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "福澳库       大经其它                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "宝沙库       大经其它                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST15 . "常州老东港库  need                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "嘉兴中铁库   大经其它                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST17 . "江阴华安库   need                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST22 . "苏州木专线   need                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "长达码头库  大经其它                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "无锡中投保  大经其它                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "张家港玖隆库  大经其它                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "上海刘行码头库  大经其它                  ENDCASE .                  "大商                WHEN  '1071'  OR  '1072'  OR  '1073' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST18 . "华溢库       need                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "群友库      大商其他                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "无锡国联库  大商其他                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "无锡商专线  大商其他                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "常州船厂库  大商其他                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "常州东港    大商其他                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "常州横林库  大商其他 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "杭州崇贤港     大商其他                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "杭州中建材库   大商其他                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "福澳库        大商其他                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "宝沙库        大商其他                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "常州老东港库  大商其他                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST16 . "嘉兴中铁库    need                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "江阴华安库   大商其他                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "苏州木专线   大商其他                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "长达码头库  大商其他                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "无锡中投保  大商其他                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "张家港玖隆库  大商其他                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "上海刘行码头库  大商其他                  ENDCASE .                  "浙江                WHEN  '1061' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "华溢库         浙江其他                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "群友库         浙江其他                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "无锡国联库     浙江其他                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "无锡商专线     浙江其他                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "常州船厂库     浙江其他                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "常州东港       浙江其他                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "常州横林库     浙江其他 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST10 . "杭州崇贤港     need                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST11 . "杭州中建材库   need                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "福澳库        浙江其他                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "宝沙库        浙江其他                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "常州老东港库  浙江其他                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "嘉兴中铁库    浙江其他                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "江阴华安库    浙江其他                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "苏州木专线    浙江其他                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "长达码头库   浙江其他                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "无锡中投保   浙江其他                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "张家港玖隆库  浙江其他                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "上海刘行码头库  浙江其他                  ENDCASE .                  "金服公司                WHEN  '1035' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢库                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "群友库                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "无锡国联库                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "无锡商专线                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "常州船厂库                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "常州东港                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "常州横林库 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "杭州崇贤港                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "杭州中建材库                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "福澳库                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "宝沙库                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "常州老东港库                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "嘉兴中铁库                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "江阴华安库                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "苏州木专线                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "长达码头库                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "无锡中投保                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "张家港玖隆库                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "上海刘行码头库                  ENDCASE .                  "十七公司                WHEN  '1037' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "华溢库                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "群友库                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "无锡国联库                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "无锡商专线                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "常州船厂库                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "常州东港                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "常州横林库 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "杭州崇贤港                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "杭州中建材库                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "福澳库                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "宝沙库                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "常州老东港库                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "嘉兴中铁库                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "江阴华安库                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "苏州木专线                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "长达码头库  2016-10-12并入十七公司其他 LABST23                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "无锡中投保  2016-10-12并入十七公司其他 LABST24                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST26 . "张家港玖隆库                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "上海刘行码头库                  ENDCASE .                  "大经建材                WHEN  '1181'  OR  '1182' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "华溢库                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "群友库                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "无锡国联库                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "无锡商专线                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "常州船厂库                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "常州东港                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "常州横林库 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "杭州崇贤港                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "杭州中建材库                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "福澳库                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "宝沙库                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "常州老东港库                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "嘉兴中铁库                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "江阴华安库                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "苏州木专线                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "长达码头库                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "无锡中投保                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "张家港玖隆库                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST27 . "上海刘行码头库                  ENDCASE .                WHEN  OTHERS .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST1 . "华溢库                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST2 . "群友库                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST3 . "无锡国联库                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST4 . "无锡商专线                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST5 . "常州船厂库                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST6 . "常州东港                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST7 . "常州横林库 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST10 . "杭州崇贤港                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST11 . "杭州中建材库                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST12 . "福澳库                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST13 . "宝沙库                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST15 . "常州老东港库                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST16 . "嘉兴中铁库                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST17 . "江阴华安库                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST22 . "苏州木专线                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST23 . "长达码头库                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST24 . "无锡中投保                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST26 . "张家港玖隆库                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST27 . "上海刘行码头库                  ENDCASE .              ENDCASE .            ENDIF . *          SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-HJSL.          ELSE . *          GW_ITAB-MATKL = LT_VBAP-MATKL. *          GW_ITAB-ZQLTY = LT_VBAP-ZQLTY. *          GW_ITAB-MEINS = LT_VBAP-MEINS. *          SUBTRACT GW_ITAB-XSWFH FROM GW_ITAB-HJSL. *          COLLECT GW_ITAB INTO GT_ITAB. *          CLEAR GW_ITAB.          ENDIF .        ENDIF .        CLEAR :GW_ITAB ,LT_VBAP .      ENDLOOP .    ENDIF . *-----------------------------------------------交货未清数量 = 交货未过账    REFRESH :LT_LIPS[] .    SELECT LIPS ~MATNR LIPS ~WERKS LIPS ~LGORT          LIPS ~LFIMG LIPS ~UMVKZ LIPS ~UMVKN          MARA ~ZQLTY MARA ~MATKL MARA ~MEINS      FROM LIPS     INNER  JOIN MARA  ON MARA ~MATNR  = LIPS ~MATNR     INNER  JOIN VBUP  ON VBUP ~VBELN  = LIPS ~VBELN                      AND VBUP ~POSNR  = LIPS ~POSNR      INTO CORRESPONDING  FIELDS  OF  TABLE LT_LIPS      WHERE LIPS ~MATNR  IN S_MATNR        AND LIPS ~WERKS  IN S_WERKS        AND LIPS ~LGORT  IN S_LGORT        AND VBUP ~WBSTA <>  'C'        AND MARA ~MTART  IN S_MTART        AND MARA ~MATKL  IN S_MATKL        AND MARA ~ZQLTY  IN S_ZQLTY        AND MARA ~ZPRDA  IN S_ZPRDA .    IF LT_LIPS[]  IS  NOT  INITIAL .      LOOP  AT LT_LIPS .       GW_ITAB -XSWFH  = LT_LIPS -LFIMG * LT_LIPS -UMVKZ / LT_LIPS -UMVKN .        IF GW_ITAB -XSWFH <>  0 .          READ  TABLE GT_ITAB  ASSIGNING <ITAB>  WITH  KEY MATKL  = LT_LIPS -MATKL                                                      ZQLTY  = LT_LIPS -ZQLTY                                                      MEINS  = LT_LIPS -MEINS .          IF SY -SUBRC  =  0 . *          ADD GW_ITAB-XSWFH TO <ITAB>-XSWFH. *          SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-HJSL.            READ  TABLE GT_LGORT  WITH  KEY LGORT  = LT_LIPS -LGORT .            IF SY -SUBRC  =  0 .              CASE LT_LIPS -WERKS .                  "大经内部公司 去除福澳                WHEN   '1011'  OR  '1012'  OR  '1013'  OR  '1014'  OR  '1015'  OR  '1019'                   OR  '1021'  OR  '1022'  OR  '1023'  OR  '1024'  OR  '1025'  OR  '1026'                   OR  '1027'  OR  '1029'  OR  '102A'  OR  '1031'  OR  '1032'                   OR  '1033'  OR  '1034'  OR  '1036'  OR  '1039'  OR  '8001'  OR  '8002'                   OR  '8003'  OR  '8004'  OR  '8005'  OR   '8006'  OR  '8007'  OR  '8008'                   OR  '8009'  OR  '8010'  OR  '8011'  OR  '8012'  OR  '8013'  OR  '8014'                   OR  '8015'  OR  '8016'  OR  '8018'  OR  '8021'  OR  '8022'  OR  '8023'                   OR  '8024'  OR  '8025'  OR  '8051'  OR  '8052' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST1 . "华溢库        need                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST2 . "群友库        need                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST3 . "无锡国联库    need                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST4 . "无锡商专线    need                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST5 . "常州船厂库    need                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST6 . "常州东港      need                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST7 . "常州横林库    need *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "杭州崇贤港    大经其它                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "杭州中建材库  大经其它                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "福澳库       大经其它                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "宝沙库       大经其它                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST15 . "常州老东港库  need                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "嘉兴中铁库   大经其它                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST17 . "江阴华安库   need                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST22 . "苏州木专线   need                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "长达码头库  大经其它                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "无锡中投保  大经其它                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "张家港玖隆库  大经其它                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST19 . "上海刘行码头库  大经其它                  ENDCASE .                  "大商                WHEN  '1071'  OR  '1072'  OR  '1073' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST18 . "华溢库       need                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "群友库      大商其他                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "无锡国联库  大商其他                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "无锡商专线  大商其他                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "常州船厂库  大商其他                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "常州东港    大商其他                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "常州横林库  大商其他 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "杭州崇贤港     大商其他                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "杭州中建材库   大商其他                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "福澳库        大商其他                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "宝沙库        大商其他                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "常州老东港库  大商其他                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST16 . "嘉兴中铁库    need                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "江阴华安库   大商其他                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "苏州木专线   大商其他                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "长达码头库  大商其他                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "无锡中投保  大商其他                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "张家港玖隆库  大商其他                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST21 . "上海刘行码头库  大商其他                  ENDCASE .                  "浙江                WHEN  '1061' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "华溢库         浙江其他                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "群友库         浙江其他                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "无锡国联库     浙江其他                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "无锡商专线     浙江其他                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "常州船厂库     浙江其他                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "常州东港       浙江其他                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "常州横林库     浙江其他 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST10 . "杭州崇贤港     need                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST11 . "杭州中建材库   need                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "福澳库        浙江其他                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "宝沙库        浙江其他                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "常州老东港库  浙江其他                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "嘉兴中铁库    浙江其他                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "江阴华安库    浙江其他                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "苏州木专线    浙江其他                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "长达码头库   浙江其他                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "无锡中投保   浙江其他                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "张家港玖隆库  浙江其他                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST20 . "上海刘行码头库  浙江其他                  ENDCASE .                  "金服公司                WHEN  '1035' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢库                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "群友库                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "无锡国联库                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "无锡商专线                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "常州船厂库                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "常州东港                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "常州横林库 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "杭州崇贤港                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "杭州中建材库                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "福澳库                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "宝沙库                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "常州老东港库                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "嘉兴中铁库                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "江阴华安库                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "苏州木专线                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "长达码头库                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "无锡中投保                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "张家港玖隆库                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "上海刘行码头库                  ENDCASE .                  "十七公司                WHEN  '1037' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "华溢库                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "群友库                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "无锡国联库                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "无锡商专线                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "常州船厂库                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "常州东港                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "常州横林库 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "杭州崇贤港                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "杭州中建材库                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "福澳库                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "宝沙库                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "常州老东港库                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "嘉兴中铁库                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "江阴华安库                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "苏州木专线                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "长达码头库  2016-10-12并入十七公司其他 LABST23                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "无锡中投保  2016-10-12并入十七公司其他 LABST24                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST26 . "张家港玖隆库                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST25 . "上海刘行码头库                  ENDCASE .                  "大经建材                WHEN  '1181'  OR  '1182' .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "华溢库                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "群友库                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "无锡国联库                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "无锡商专线                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "常州船厂库                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "常州东港                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "常州横林库 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "杭州崇贤港                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "杭州中建材库                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "福澳库                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "宝沙库                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "常州老东港库                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "嘉兴中铁库                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "江阴华安库                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "苏州木专线                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "长达码头库                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "无锡中投保                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST28 . "张家港玖隆库                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST27 . "上海刘行码头库                  ENDCASE .                WHEN  OTHERS .                  CASE GT_LGORT - ID .                    WHEN  1 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST1 . "华溢库                    WHEN  2 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST2 . "群友库                    WHEN  3 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST3 . "无锡国联库                    WHEN  4 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST4 . "无锡商专线                    WHEN  5 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST5 . "常州船厂库                    WHEN  6 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST6 . "常州东港                    WHEN  7 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST7 . "常州横林库 *        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." *        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9."                    WHEN  10 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST10 . "杭州崇贤港                    WHEN  11 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST11 . "杭州中建材库                    WHEN  12 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST12 . "福澳库                    WHEN  13 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST13 . "宝沙库                    WHEN  14 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST14 . "华溢托盘库                    WHEN  15 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST15 . "常州老东港库                    WHEN  16 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST16 . "嘉兴中铁库                    WHEN  17 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST17 . "江阴华安库                    WHEN  18 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST22 . "苏州木专线                    WHEN  19 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST23 . "长达码头库                    WHEN  20 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST24 . "无锡中投保                    WHEN  21 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST26 . "张家港玖隆库                    WHEN  22 . SUBTRACT GW_ITAB -XSWFH  FROM <ITAB> -LABST27 . "上海刘行码头库                  ENDCASE .              ENDCASE .            ENDIF . *          SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-HJSL.          ELSE . *          GW_ITAB-MATKL = LT_LIPS-MATKL. *          GW_ITAB-ZQLTY = LT_LIPS-ZQLTY. *          GW_ITAB-MEINS = LT_LIPS-MEINS. *          SUBTRACT GW_ITAB-XSWFH FROM GW_ITAB-HJSL. *          COLLECT GW_ITAB INTO GT_ITAB. *          CLEAR GW_ITAB.          ENDIF .        ENDIF .        CLEAR :GW_ITAB ,LT_LIPS .      ENDLOOP .    ENDIF . *-----------------------------------------------ZNB5 未交货跨公司采购    REFRESH LT_EKET[] .    SELECT EKKO ~LIFNR EKPO ~MATNR EKPO ~WERKS          EKPO ~LGORT EKPO ~MENGE EKET ~WEMNG          EKPO ~MEINS EKPO ~UMREZ EKPO ~UMREN          MARA ~ZQLTY MARA ~MATKL      FROM EKPO     INNER  JOIN MARA  ON MARA ~MATNR  = EKPO ~MATNR     INNER  JOIN EKKO  ON EKKO ~EBELN  = EKPO ~EBELN     INNER  JOIN EKET  ON EKET ~EBELN  = EKPO ~EBELN                    AND EKET ~EBELP  = EKPO ~EBELP      INTO CORRESPONDING  FIELDS  OF  TABLE LT_EKET      FOR  ALL ENTRIES  IN GT_LGORT      WHERE EKPO ~LGORT  = GT_LGORT -LGORT        AND EKPO ~MATNR  IN S_MATNR        AND EKKO ~BSART  =  'ZNB5'        AND EKPO ~LGORT  IN S_LGORT        AND EKKO ~LIFNR  IN S_WERKS        AND EKPO ~LOEKZ  =  ''        AND EKPO ~ELIKZ  =  ''        AND MARA ~MTART  IN S_MTART        AND MARA ~MATKL  IN S_MATKL        AND MARA ~ZQLTY  IN S_ZQLTY        AND MARA ~ZPRDA  IN S_ZPRDA .    LOOP  AT LT_EKET .      "1、未收货 在途      CLEAR  : GW_ITAB .     GW_ITAB -XSWFH  = LT_EKET -MENGE * LT_EKET -UMREZ / LT_EKET -UMREN                  - LT_EKET -WEMNG * LT_EKET -UMREZ / LT_EKET -UMREN .      IF GW_ITAB -XSWFH >  0 .        READ  TABLE GT_ITAB  ASSIGNING <ITAB>  WITH  KEY MATKL  = LT_EKET -MATKL                                                    ZQLTY  = LT_EKET -ZQLTY                                                    MEINS  = LT_EKET -MEINS .        IF SY -SUBRC  =  0 .          ADD GW_ITAB -XSWFH  TO <ITAB> -FZZTSL .        ELSE .         GW_ITAB -MATKL  = LT_EKPO -MATKL .         GW_ITAB -ZQLTY  = LT_EKPO -ZQLTY .         GW_ITAB -MEINS  = LT_EKPO -MEINS .         GW_ITAB -FZZTSL  = GW_ITAB -XSWFH .          APPEND GW_ITAB  TO GT_ITAB .        ENDIF .      ENDIF . *正负抵消，不需要考虑在内      "1、未发货 需要扣减 *    CLEAR : GW_ITAB. *    GW_ITAB-XSWFH = LT_EKET-MENGE * LT_EKET-UMREZ / LT_EKET-UMREN *                  - LT_EKET-WEMNG * LT_EKET-UMREZ / LT_EKET-UMREN. *    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' *      EXPORTING *        INPUT  = LT_EKET-LIFNR *      IMPORTING *        OUTPUT = LT_EKET-WERKS. *    IF GW_ITAB-XSWFH <> 0. *      READ TABLE GT_ITAB ASSIGNING <ITAB> WITH KEY MATKL = LT_EKET-MATKL *                                                   ZQLTY = LT_EKET-ZQLTY *                                                   MEINS = LT_EKET-MEINS. *      IF SY-SUBRC = 0. **          ADD GW_ITAB-XSWFH TO <ITAB>-XSWFH. **          SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-HJSL. *        READ TABLE GT_LGORT WITH KEY LGORT = LT_EKET-LGORT. *        IF SY-SUBRC = 0. *          CASE LT_EKET-WERKS. *              "大经内部公司 去除福澳 *            WHEN '1011' OR '1012' OR '1013' OR '1014' OR '1015' OR '1019' *                OR '1021' OR '1022' OR '1023' OR '1024' OR '1025' OR '1026' *                OR '1027' OR '1029' OR '102A' OR '1031' OR '1032' *                OR '1033' OR '1034' OR '1036' OR '1039'. *              CASE GT_LGORT-ID. *                WHEN 1.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST1."华溢库        need *                WHEN 2.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST2."群友库        need *                WHEN 3.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST3."无锡国联库    need *                WHEN 4.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST4."无锡商专线    need *                WHEN 5.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST5."常州船厂库    need *                WHEN 6.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST6."常州东港      need *                WHEN 7.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST7."常州横林库    need **        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." **        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9." *                WHEN 10.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST19."杭州崇贤港    大经其它 *                WHEN 11.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST19."杭州中建材库  大经其它 *                WHEN 12.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST19."福澳库       大经其它 *                WHEN 13.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST19."宝沙库       大经其它 *                WHEN 14.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."华溢托盘库 *                WHEN 15.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST15."常州老东港库  need *                WHEN 16.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST19."嘉兴中铁库   大经其它 *                WHEN 17.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST17."江阴华安库   need *                WHEN 18.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST22."苏州木专线   need *              ENDCASE. *              "大商 *            WHEN '1071' OR '1072' OR '1073'. *              CASE GT_LGORT-ID. *                WHEN 1.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST18."华溢库       need *                WHEN 2.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."群友库      大商其他 *                WHEN 3.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."无锡国联库  大商其他 *                WHEN 4.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."无锡商专线  大商其他 *                WHEN 5.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."常州船厂库  大商其他 *                WHEN 6.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."常州东港    大商其他 *                WHEN 7.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."常州横林库  大商其他 **        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." **        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9." *                WHEN 10.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."杭州崇贤港     大商其他 *                WHEN 11.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."杭州中建材库   大商其他 *                WHEN 12.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."福澳库        大商其他 *                WHEN 13.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."宝沙库        大商其他 *                WHEN 14.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."华溢托盘库 *                WHEN 15.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."常州老东港库  大商其他 *                WHEN 16.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST16."嘉兴中铁库    need *                WHEN 17.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."江阴华安库   大商其他 *                WHEN 18.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."苏州木专线   大商其他 *              ENDCASE. *              "浙江 *            WHEN '1061'. *              CASE GT_LGORT-ID. *                WHEN 1.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."华溢库         浙江其他 *                WHEN 2.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."群友库         浙江其他 *                WHEN 3.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."无锡国联库     浙江其他 *                WHEN 4.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."无锡商专线     浙江其他 *                WHEN 5.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."常州船厂库     浙江其他 *                WHEN 6.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."常州东港       浙江其他 *                WHEN 7.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."常州横林库     浙江其他 **        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." **        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9." *                WHEN 10.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST10."杭州崇贤港     need *                WHEN 11.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST11."杭州中建材库   need *                WHEN 12.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."福澳库        浙江其他 *                WHEN 13.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."宝沙库        浙江其他 *                WHEN 14.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."华溢托盘库 *                WHEN 15.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."常州老东港库  浙江其他 *                WHEN 16.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."嘉兴中铁库    浙江其他 *                WHEN 17.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."江阴华安库    浙江其他 *                WHEN 18.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."苏州木专线    浙江其他 *              ENDCASE. *              "金服公司 *            WHEN '1035'. *              CASE GT_LGORT-ID. *                WHEN 1.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."华溢库 *                WHEN 2.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."群友库 *                WHEN 3.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."无锡国联库 *                WHEN 4.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."无锡商专线 *                WHEN 5.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."常州船厂库 *                WHEN 6.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."常州东港 *                WHEN 7.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."常州横林库 **        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." **        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9." *                WHEN 10.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."杭州崇贤港 *                WHEN 11.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."杭州中建材库 *                WHEN 12.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."福澳库 *                WHEN 13.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."宝沙库 *                WHEN 14.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."华溢托盘库 *                WHEN 15.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."常州老东港库 *                WHEN 16.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."嘉兴中铁库 *                WHEN 17.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."江阴华安库 *                WHEN 18.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."苏州木专线 *              ENDCASE. *            WHEN OTHERS. *              CASE GT_LGORT-ID. *                WHEN 1.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST1."华溢库 *                WHEN 2.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST2."群友库 *                WHEN 3.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST3."无锡国联库 *                WHEN 4.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST4."无锡商专线 *                WHEN 5.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST5."常州船厂库 *                WHEN 6.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST6."常州东港 *                WHEN 7.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST7."常州横林库 **        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." **        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9." *                WHEN 10.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST10."杭州崇贤港 *                WHEN 11.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST11."杭州中建材库 *                WHEN 12.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST12."福澳库 *                WHEN 13.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST13."宝沙库 *                WHEN 14.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."华溢托盘库 *                WHEN 15.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST15."常州老东港库 *                WHEN 16.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST16."嘉兴中铁库 *                WHEN 17.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST17."江阴华安库 *                WHEN 18.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST22."苏州木专线 *              ENDCASE. *          ENDCASE. *        ENDIF. **          SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-HJSL. *      ELSE. **          GW_ITAB-MATKL = LT_LIPS-MATKL. **          GW_ITAB-ZQLTY = LT_LIPS-ZQLTY. **          GW_ITAB-MEINS = LT_LIPS-MEINS. **          SUBTRACT GW_ITAB-XSWFH FROM GW_ITAB-HJSL. **          COLLECT GW_ITAB INTO GT_ITAB. **          CLEAR GW_ITAB. *      ENDIF. *    ENDIF.      CLEAR :GW_ITAB ,LT_EKET .    ENDLOOP . *-----------------------------------------------ZNB9 未交货跨公司采购    REFRESH  : LT_EKPO[] ,LT_EKBE[] .    SELECT EKKO ~RESWK EKPO ~EBELN EKPO ~EBELP          EKPO ~MATNR EKPO ~WERKS EKPO ~LGORT          EKPO ~MENGE EKPO ~MEINS EKPO ~UMREZ          EKPO ~UMREN MARA ~ZQLTY MARA ~MATKL      FROM EKPO     INNER  JOIN MARA  ON MARA ~MATNR  = EKPO ~MATNR     INNER  JOIN EKKO  ON EKKO ~EBELN  = EKPO ~EBELN      INTO CORRESPONDING  FIELDS  OF  TABLE LT_EKPO      WHERE EKPO ~MATNR  IN S_MATNR        AND EKKO ~BSART  =  'ZNB9'        AND EKPO ~LGORT  IN S_LGORT        AND EKKO ~RESWK  IN S_WERKS        AND EKPO ~LOEKZ  =  ''        AND EKPO ~ELIKZ  =  ''        AND MARA ~MTART  IN S_MTART        AND MARA ~MATKL  IN S_MATKL        AND MARA ~ZQLTY  IN S_ZQLTY        AND MARA ~ZPRDA  IN S_ZPRDA .    IF LT_EKPO[]  IS  NOT  INITIAL .      SELECT *  FROM EKBE        INTO  TABLE LT_EKBE        FOR  ALL ENTRIES  IN LT_EKPO        WHERE EBELN  = LT_EKPO -EBELN          AND EBELP  = LT_EKPO -EBELP          AND VGABE  =  '1' .    ENDIF .    LOOP  AT LT_EKPO .      "1、收货工厂在途      CLEAR GW_ITAB .     GW_ITAB -FZZTSL  = LT_EKET -MENGE * LT_EKET -UMREZ / LT_EKET -UMREN .      LOOP  AT LT_EKBE  WHERE EBELN  = LT_EKPO -EBELN  AND EBELP  = LT_EKPO -EBELP .        IF LT_EKBE -SHKZG  =  'S' .          SUBTRACT LT_EKBE -MENGE  FROM GW_ITAB -FZZTSL .        ELSE .          ADD LT_EKBE -MENGE  TO GW_ITAB -FZZTSL .        ENDIF .      ENDLOOP .      IF GW_ITAB -FZZTSL >  0 .        READ  TABLE GT_ITAB  ASSIGNING <ITAB>  WITH  KEY MATKL  = LT_EKPO -MATKL                                                    ZQLTY  = LT_EKPO -ZQLTY                                                    MEINS  = LT_EKPO -MEINS .        IF SY -SUBRC  =  0 .          ADD GW_ITAB -FZZTSL  TO <ITAB> -FZZTSL .        ELSE .         GW_ITAB -MATKL  = LT_EKPO -MATKL .         GW_ITAB -ZQLTY  = LT_EKPO -ZQLTY .         GW_ITAB -MEINS  = LT_EKPO -MEINS .          APPEND GW_ITAB  TO GT_ITAB .        ENDIF .      ENDIF .      "2、发货工厂待发 需扣减 *    CLEAR GW_ITAB. *    GW_ITAB-XSWFH = LT_EKET-MENGE * LT_EKET-UMREZ / LT_EKET-UMREN. *    LOOP AT LT_EKBE WHERE EBELN = LT_EKPO-EBELN AND EBELP = LT_EKPO-EBELP. *      IF LT_EKBE-SHKZG = 'S'. *        SUBTRACT LT_EKBE-MENGE FROM GW_ITAB-XSWFH. *      ELSE. *        ADD LT_EKBE-MENGE TO GW_ITAB-XSWFH. *      ENDIF. *    ENDLOOP. * *    IF GW_ITAB-XSWFH > 0. *      READ TABLE GT_ITAB ASSIGNING <ITAB> WITH KEY MATKL = LT_EKPO-MATKL *                                                  ZQLTY = LT_EKPO-ZQLTY *                                                  MEINS = LT_EKPO-MEINS. *      IF SY-SUBRC = 0. **          ADD GW_ITAB-XSWFH TO <ITAB>-XSWFH. **          SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-HJSL. *        READ TABLE GT_LGORT WITH KEY LGORT = LT_EKPO-LGORT. *        IF SY-SUBRC = 0. *          CASE LT_EKPO-RESWK. *              "大经内部公司 去除福澳 *            WHEN '1011' OR '1012' OR '1013' OR '1014' OR '1015' OR '1019' *                OR '1021' OR '1022' OR '1023' OR '1024' OR '1025' OR '1026' *                OR '1027' OR '1029' OR '102A' OR '1031' OR '1032' *                OR '1033' OR '1034' OR '1036' OR '1039'. *              CASE GT_LGORT-ID. *                WHEN 1.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST1."华溢库        need *                WHEN 2.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST2."群友库        need *                WHEN 3.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST3."无锡国联库    need *                WHEN 4.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST4."无锡商专线    need *                WHEN 5.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST5."常州船厂库    need *                WHEN 6.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST6."常州东港      need *                WHEN 7.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST7."常州横林库    need **        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." **        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9." *                WHEN 10.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST19."杭州崇贤港    大经其它 *                WHEN 11.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST19."杭州中建材库  大经其它 *                WHEN 12.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST19."福澳库       大经其它 *                WHEN 13.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST19."宝沙库       大经其它 *                WHEN 14.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."华溢托盘库 *                WHEN 15.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST15."常州老东港库  need *                WHEN 16.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST19."嘉兴中铁库   大经其它 *                WHEN 17.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST17."江阴华安库   need *                WHEN 18.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST22."苏州木专线   need *              ENDCASE. *              "大商 *            WHEN '1071' OR '1072' OR '1073'. *              CASE GT_LGORT-ID. *                WHEN 1.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST18."华溢库       need *                WHEN 2.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."群友库      大商其他 *                WHEN 3.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."无锡国联库  大商其他 *                WHEN 4.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."无锡商专线  大商其他 *                WHEN 5.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."常州船厂库  大商其他 *                WHEN 6.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."常州东港    大商其他 *                WHEN 7.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."常州横林库  大商其他 **        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." **        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9." *                WHEN 10.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."杭州崇贤港     大商其他 *                WHEN 11.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."杭州中建材库   大商其他 *                WHEN 12.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."福澳库        大商其他 *                WHEN 13.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."宝沙库        大商其他 *                WHEN 14.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."华溢托盘库 *                WHEN 15.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."常州老东港库  大商其他 *                WHEN 16.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST16."嘉兴中铁库    need *                WHEN 17.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."江阴华安库   大商其他 *                WHEN 18.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST21."苏州木专线   大商其他 *              ENDCASE. *              "浙江 *            WHEN '1061'. *              CASE GT_LGORT-ID. *                WHEN 1.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."华溢库         浙江其他 *                WHEN 2.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."群友库         浙江其他 *                WHEN 3.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."无锡国联库     浙江其他 *                WHEN 4.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."无锡商专线     浙江其他 *                WHEN 5.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."常州船厂库     浙江其他 *                WHEN 6.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."常州东港       浙江其他 *                WHEN 7.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."常州横林库     浙江其他 **        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." **        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9." *                WHEN 10.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST10."杭州崇贤港     need *                WHEN 11.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST11."杭州中建材库   need *                WHEN 12.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."福澳库        浙江其他 *                WHEN 13.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."宝沙库        浙江其他 *                WHEN 14.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."华溢托盘库 *                WHEN 15.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."常州老东港库  浙江其他 *                WHEN 16.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."嘉兴中铁库    浙江其他 *                WHEN 17.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."江阴华安库    浙江其他 *                WHEN 18.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST20."苏州木专线    浙江其他 *              ENDCASE. *              "金服公司 *            WHEN '1035'. *              CASE GT_LGORT-ID. *                WHEN 1.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."华溢库 *                WHEN 2.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."群友库 *                WHEN 3.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."无锡国联库 *                WHEN 4.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."无锡商专线 *                WHEN 5.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."常州船厂库 *                WHEN 6.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."常州东港 *                WHEN 7.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."常州横林库 **        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." **        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9." *                WHEN 10.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."杭州崇贤港 *                WHEN 11.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."杭州中建材库 *                WHEN 12.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."福澳库 *                WHEN 13.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."宝沙库 *                WHEN 14.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."华溢托盘库 *                WHEN 15.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."常州老东港库 *                WHEN 16.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."嘉兴中铁库 *                WHEN 17.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."江阴华安库 *                WHEN 18.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."苏州木专线 *              ENDCASE. *            WHEN OTHERS. *              CASE GT_LGORT-ID. *                WHEN 1.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST1."华溢库 *                WHEN 2.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST2."群友库 *                WHEN 3.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST3."无锡国联库 *                WHEN 4.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST4."无锡商专线 *                WHEN 5.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST5."常州船厂库 *                WHEN 6.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST6."常州东港 *                WHEN 7.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST7."常州横林库 **        WHEN 8.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST8." **        WHEN 9.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST9." *                WHEN 10.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST10."杭州崇贤港 *                WHEN 11.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST11."杭州中建材库 *                WHEN 12.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST12."福澳库 *                WHEN 13.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST13."宝沙库 *                WHEN 14.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST14."华溢托盘库 *                WHEN 15.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST15."常州老东港库 *                WHEN 16.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST16."嘉兴中铁库 *                WHEN 17.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST17."江阴华安库 *                WHEN 18.SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-LABST22."苏州木专线 *              ENDCASE. *          ENDCASE. *        ENDIF. **        SUBTRACT GW_ITAB-XSWFH FROM <ITAB>-HJSL. *      ELSE. **        GW_ITAB-MATKL = LT_EKPO-MATKL. **        GW_ITAB-ZQLTY = LT_EKPO-ZQLTY. **        GW_ITAB-MEINS = LT_EKPO-MEINS. **        SUBTRACT GW_ITAB-XSWFH FROM GW_ITAB-HJSL. **        COLLECT GW_ITAB INTO GT_ITAB. **        CLEAR GW_ITAB. *      ENDIF. *    ENDIF.      CLEAR :GW_ITAB ,LT_EKPO .    ENDLOOP .    "在途数量 = 未清采购订单数量    REFRESH LT_EKET[] .    SELECT EKPO ~MATNR EKPO ~WERKS EKPO ~LGORT EKPO ~MENGE EKET ~WEMNG          EKPO ~MEINS EKPO ~UMREZ EKPO ~UMREN          MARA ~ZQLTY MARA ~MATKL      FROM EKPO     INNER  JOIN MARA  ON MARA ~MATNR  = EKPO ~MATNR     INNER  JOIN EKKO  ON EKKO ~EBELN  = EKPO ~EBELN     INNER  JOIN EKET  ON EKET ~EBELN  = EKPO ~EBELN                    AND EKET ~EBELP  = EKPO ~EBELP      INTO CORRESPONDING  FIELDS  OF  TABLE LT_EKET      FOR  ALL ENTRIES  IN GT_LGORT      WHERE EKPO ~LGORT  = GT_LGORT -LGORT *      AND EKKO~BSART <> 'ZNB9'        AND EKKO ~BSART  NOT  IN  ( 'ZNB5' , 'ZNB9' )        AND EKPO ~MATNR  IN S_MATNR        AND EKPO ~WERKS  IN S_WERKS        AND EKPO ~LGORT  IN S_LGORT        AND EKPO ~LOEKZ  =  ''        AND EKPO ~ELIKZ  =  ''        AND MARA ~MTART  IN S_MTART        AND MARA ~MATKL  IN S_MATKL        AND MARA ~ZQLTY  IN S_ZQLTY        AND MARA ~ZPRDA  IN S_ZPRDA .    LOOP  AT LT_EKET .     GW_ITAB -CGZTSL  = LT_EKET -MENGE * LT_EKET -UMREZ / LT_EKET -UMREN                      - LT_EKET -WEMNG * LT_EKET -UMREZ / LT_EKET -UMREN .      IF GW_ITAB -CGZTSL >  0 .        READ  TABLE GT_ITAB  ASSIGNING <ITAB>  WITH  KEY MATKL  = LT_EKET -MATKL                                                    ZQLTY  = LT_EKET -ZQLTY                                                    MEINS  = LT_EKET -MEINS .        IF SY -SUBRC  =  0 .          ADD GW_ITAB -CGZTSL  TO <ITAB> -CGZTSL .          READ  TABLE GT_LGORT  WITH  KEY LGORT  = LT_EKET -LGORT .          IF SY -SUBRC  =  0 .            CASE LT_EKET -WERKS .                "大经内部公司 去除福澳              WHEN   '1011'  OR  '1012'  OR  '1013'  OR  '1014'  OR  '1015'  OR  '1019'                   OR  '1021'  OR  '1022'  OR  '1023'  OR  '1024'  OR  '1025'  OR  '1026'                   OR  '1027'  OR  '1029'  OR  '102A'  OR  '1031'  OR  '1032'                   OR  '1033'  OR  '1034'  OR  '1036'  OR  '1039'  OR  '8001'  OR  '8002'                   OR  '8003'  OR  '8004'  OR  '8005'  OR   '8006'  OR  '8007'  OR  '8008'                   OR  '8009'  OR  '8010'  OR  '8011'  OR  '8012'  OR  '8013'  OR  '8014'                   OR  '8015'  OR  '8016'  OR  '8018'  OR  '8021'  OR  '8022'  OR  '8023'                   OR  '8024'  OR  '8025'  OR  '8051'  OR  '8052' .                CASE GT_LGORT - ID .                  WHEN  1 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST1 . "华溢库        need                  WHEN  2 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST2 . "群友库        need                  WHEN  3 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST3 . "无锡国联库    need                  WHEN  4 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST4 . "无锡商专线    need                  WHEN  5 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST5 . "常州船厂库    need                  WHEN  6 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST6 . "常州东港      need                  WHEN  7 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST7 . "常州横林库    need *        WHEN 8.ADD GW_ITAB-CGZTSL TO <ITAB>-LABST8." *        WHEN 9.ADD GW_ITAB-CGZTSL TO <ITAB>-LABST9."                  WHEN  10 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST19 . "杭州崇贤港    大经其它                  WHEN  11 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST19 . "杭州中建材库  大经其它                  WHEN  12 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST19 . "福澳库       大经其它                  WHEN  13 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST19 . "宝沙库       大经其它                  WHEN  14 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "华溢托盘库                  WHEN  15 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST15 . "常州老东港库  need                  WHEN  16 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST19 . "嘉兴中铁库   大经其它                  WHEN  17 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST17 . "江阴华安库   need                  WHEN  18 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST22 . "苏州木专线   need                  WHEN  19 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST19 . "长达码头库   大经其它                  WHEN  20 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST19 . "无锡中投保   大经其它                  WHEN  21 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST19 . "张家港玖隆库   大经其它                  WHEN  22 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST19 . "上海刘行码头   大经其它                ENDCASE .                "大商              WHEN  '1071'  OR  '1072'  OR  '1073' .                CASE GT_LGORT - ID .                  WHEN  1 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST18 . "华溢库       need                  WHEN  2 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST21 . "群友库      大商其他                  WHEN  3 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST21 . "无锡国联库  大商其他                  WHEN  4 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST21 . "无锡商专线  大商其他                  WHEN  5 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST21 . "常州船厂库  大商其他                  WHEN  6 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST21 . "常州东港    大商其他                  WHEN  7 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST21 . "常州横林库  大商其他 *        WHEN 8.ADD GW_ITAB-CGZTSL TO <ITAB>-LABST8." *        WHEN 9.ADD GW_ITAB-CGZTSL TO <ITAB>-LABST9."                  WHEN  10 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST21 . "杭州崇贤港     大商其他                  WHEN  11 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST21 . "杭州中建材库   大商其他                  WHEN  12 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST21 . "福澳库        大商其他                  WHEN  13 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST21 . "宝沙库        大商其他                  WHEN  14 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "华溢托盘库                  WHEN  15 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST21 . "常州老东港库  大商其他                  WHEN  16 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST16 . "嘉兴中铁库    need                  WHEN  17 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST21 . "江阴华安库   大商其他                  WHEN  18 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST21 . "苏州木专线   大商其他                  WHEN  19 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST21 . "长达码头库   大商其他                  WHEN  20 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST21 . "无锡中投保   大商其他                  WHEN  21 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST21 . "张家港玖隆库   大商其他                  WHEN  22 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST21 . "上海刘行码头   大商其他                ENDCASE .                "浙江              WHEN  '1061' .                CASE GT_LGORT - ID .                  WHEN  1 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST20 . "华溢库         浙江其他                  WHEN  2 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST20 . "群友库         浙江其他                  WHEN  3 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST20 . "无锡国联库     浙江其他                  WHEN  4 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST20 . "无锡商专线     浙江其他                  WHEN  5 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST20 . "常州船厂库     浙江其他                  WHEN  6 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST20 . "常州东港       浙江其他                  WHEN  7 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST20 . "常州横林库     浙江其他 *        WHEN 8.ADD GW_ITAB-CGZTSL TO <ITAB>-LABST8." *        WHEN 9.ADD GW_ITAB-CGZTSL TO <ITAB>-LABST9."                  WHEN  10 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST10 . "杭州崇贤港     need                  WHEN  11 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST11 . "杭州中建材库   need                  WHEN  12 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST20 . "福澳库        浙江其他                  WHEN  13 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST20 . "宝沙库        浙江其他                  WHEN  14 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "华溢托盘库                  WHEN  15 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST20 . "常州老东港库  浙江其他                  WHEN  16 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST20 . "嘉兴中铁库    浙江其他                  WHEN  17 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST20 . "江阴华安库    浙江其他                  WHEN  18 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST20 . "苏州木专线    浙江其他                  WHEN  19 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST20 . "长达码头库   浙江其他                  WHEN  20 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST20 . "无锡中投保   浙江其他                  WHEN  21 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST20 . "张家港玖隆库   浙江其他                  WHEN  22 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST20 . "上海刘行码头   浙江其他                ENDCASE .                "金服公司              WHEN  '1035' .                CASE GT_LGORT - ID .                  WHEN  1 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "华溢库                  WHEN  2 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "群友库                  WHEN  3 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "无锡国联库                  WHEN  4 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "无锡商专线                  WHEN  5 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "常州船厂库                  WHEN  6 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "常州东港                  WHEN  7 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "常州横林库 *        WHEN 8.ADD GW_ITAB-CGZTSL TO <ITAB>-LABST8." *        WHEN 9.ADD GW_ITAB-CGZTSL TO <ITAB>-LABST9."                  WHEN  10 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "杭州崇贤港                  WHEN  11 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "杭州中建材库                  WHEN  12 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "福澳库                  WHEN  13 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "宝沙库                  WHEN  14 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "华溢托盘库                  WHEN  15 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "常州老东港库                  WHEN  16 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "嘉兴中铁库                  WHEN  17 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "江阴华安库                  WHEN  18 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "苏州木专线                  WHEN  19 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "长达码头库                  WHEN  20 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "无锡中投保                  WHEN  21 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "张家港玖隆库                  WHEN  22 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "上海刘行码头                ENDCASE .                "十七公司              WHEN  '1037' .                CASE GT_LGORT - ID .                  WHEN  1 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "华溢库                  WHEN  2 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "群友库                  WHEN  3 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "无锡国联库                  WHEN  4 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "无锡商专线                  WHEN  5 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "常州船厂库                  WHEN  6 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "常州东港                  WHEN  7 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "常州横林库 *        WHEN 8.ADD GW_ITAB-CGZTSL TO <ITAB>-LABST8." *        WHEN 9.ADD GW_ITAB-CGZTSL TO <ITAB>-LABST9."                  WHEN  10 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "杭州崇贤港                  WHEN  11 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "杭州中建材库                  WHEN  12 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "福澳库                  WHEN  13 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "宝沙库                  WHEN  14 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "华溢托盘库                  WHEN  15 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "常州老东港库                  WHEN  16 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "嘉兴中铁库                  WHEN  17 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "江阴华安库                  WHEN  18 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "苏州木专线                  WHEN  19 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "长达码头库   2016-10-12并入十七公司其他 LABST23                  WHEN  20 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "无锡中投保   2016-10-12并入十七公司其他 LABST24                  WHEN  21 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST26 . "张家港玖隆库   need                  WHEN  22 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST25 . "上海刘行码头                ENDCASE .                "大经建材              WHEN  '1181'  OR  '1182' .                CASE GT_LGORT - ID .                  WHEN  1 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "华溢库                  WHEN  2 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "群友库                  WHEN  3 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "无锡国联库                  WHEN  4 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "无锡商专线                  WHEN  5 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "常州船厂库                  WHEN  6 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "常州东港                  WHEN  7 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "常州横林库 *        WHEN 8.ADD GW_ITAB-CGZTSL TO <ITAB>-LABST8." *        WHEN 9.ADD GW_ITAB-CGZTSL TO <ITAB>-LABST9."                  WHEN  10 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "杭州崇贤港                  WHEN  11 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "杭州中建材库                  WHEN  12 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "福澳库                  WHEN  13 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "宝沙库                  WHEN  14 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "华溢托盘库                  WHEN  15 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "常州老东港库                  WHEN  16 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "嘉兴中铁库                  WHEN  17 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "江阴华安库                  WHEN  18 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "苏州木专线                  WHEN  19 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "长达码头库                  WHEN  20 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "无锡中投保                  WHEN  21 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST28 . "张家港玖隆库                  WHEN  22 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST27 . "上海刘行码头                ENDCASE .              WHEN  OTHERS .                CASE GT_LGORT - ID .                  WHEN  1 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST1 . "华溢库                  WHEN  2 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST2 . "群友库                  WHEN  3 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST3 . "无锡国联库                  WHEN  4 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST4 . "无锡商专线                  WHEN  5 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST5 . "常州船厂库                  WHEN  6 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST6 . "常州东港                  WHEN  7 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST7 . "常州横林库 *        WHEN 8.ADD GW_ITAB-CGZTSL TO <ITAB>-LABST8." *        WHEN 9.ADD GW_ITAB-CGZTSL TO <ITAB>-LABST9."                  WHEN  10 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST10 . "杭州崇贤港                  WHEN  11 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST11 . "杭州中建材库                  WHEN  12 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST12 . "福澳库                  WHEN  13 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST13 . "宝沙库                  WHEN  14 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST14 . "华溢托盘库                  WHEN  15 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST15 . "常州老东港库                  WHEN  16 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST16 . "嘉兴中铁库                  WHEN  17 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST17 . "江阴华安库                  WHEN  18 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST22 . "苏州木专线                  WHEN  19 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST23 . "长达码头库                  WHEN  20 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST24 . "无锡中投保                  WHEN  21 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST26 . "张家港玖隆库                  WHEN  22 . ADD GW_ITAB -CGZTSL  TO <ITAB> -LABST27 . "上海刘行码头                ENDCASE .            ENDCASE .          ENDIF .        ELSE .         GW_ITAB -MATKL  = LT_EKET -MATKL .         GW_ITAB -ZQLTY  = LT_EKET -ZQLTY .         GW_ITAB -MEINS  = LT_EKET -MEINS .          APPEND GW_ITAB  TO GT_ITAB .        ENDIF .      ENDIF .      CLEAR :GW_ITAB ,LT_EKET .    ENDLOOP .    "'ZNB9' 在途 *  REFRESH LT_EKPO. *  SELECT EKKO~RESWK EKPO~EBELN EKPO~EBELP *         EKPO~MATNR EKPO~WERKS EKPO~LGORT EKPO~MENGE *         EKPO~MEINS EKPO~UMREZ EKPO~UMREN *         MARA~ZQLTY MARA~MATKL *    FROM EKPO *    INNER JOIN MARA ON MARA~MATNR = EKPO~MATNR *    INNER JOIN EKKO ON EKKO~EBELN = EKPO~EBELN *    INTO CORRESPONDING FIELDS OF TABLE LT_EKPO *    FOR ALL ENTRIES IN GT_LGORT *    WHERE EKPO~LGORT = GT_LGORT-LGORT *      AND EKKO~BSART = 'ZNB9' **      AND EKKO~BSART IN ('ZNB5','ZNB9') *      AND EKPO~MATNR IN S_MATNR *      AND EKPO~WERKS IN S_WERKS *      AND EKPO~LGORT IN S_LGORT *      AND EKPO~LOEKZ = '' *      AND EKPO~ELIKZ = '' *      AND MARA~MTART IN S_MTART *      AND MARA~MATKL IN S_MATKL *      AND MARA~ZQLTY IN S_ZQLTY *      AND MARA~ZPRDA IN S_ZPRDA. *  IF LT_EKPO[] IS NOT INITIAL. *    SELECT * FROM EKBE *      INTO TABLE LT_EKBE *      FOR ALL ENTRIES IN LT_EKPO *      WHERE EBELN = LT_EKPO-EBELN *        AND EBELP = LT_EKPO-EBELP *        AND VGABE = '1'. *  ENDIF. *  LOOP AT LT_EKPO. *    GW_ITAB-FZZTSL = LT_EKET-MENGE * LT_EKET-UMREZ / LT_EKET-UMREN. **                    - LT_EKET-WEMNG * LT_EKET-UMREZ / LT_EKET-UMREN. *    LOOP AT LT_EKBE WHERE EBELN = LT_EKPO-EBELN AND EBELP = LT_EKPO-EBELP. *      IF LT_EKBE-SHKZG = 'S'. *        SUBTRACT LT_EKBE-MENGE FROM GW_ITAB-FZZTSL. *      ELSE. *        ADD LT_EKBE-MENGE TO GW_ITAB-FZZTSL. *      ENDIF. *    ENDLOOP. *    IF GW_ITAB-FZZTSL > 0. *      READ TABLE GT_ITAB ASSIGNING <ITAB> WITH KEY MATKL = LT_EKPO-MATKL *                                                     ZQLTY = LT_EKPO-ZQLTY *                                                     MEINS = LT_EKPO-MEINS. *      IF SY-SUBRC = 0. *        ADD GW_ITAB-FZZTSL TO <ITAB>-FZZTSL. *      ELSE. *        GW_ITAB-MATKL = LT_EKPO-MATKL. *        GW_ITAB-ZQLTY = LT_EKPO-ZQLTY. *        GW_ITAB-MEINS = LT_EKPO-MEINS. *        APPEND GW_ITAB TO GT_ITAB. *      ENDIF. *    ENDIF. *    CLEAR:GW_ITAB,LT_EKPO. *  ENDLOOP.    IF GT_ITAB[]  IS  NOT  INITIAL .      DATA :LT_T023T        LIKE  TABLE  OF T023T  WITH  HEADER  LINE ,          LT_ZMTQUALITYT  LIKE  TABLE  OF ZMTQUALITYT  WITH  HEADER  LINE .      SELECT *  FROM T023T        INTO  TABLE LT_T023T        FOR  ALL ENTRIES  IN GT_ITAB        WHERE SPRAS  = SY -LANGU          AND MATKL  = GT_ITAB -MATKL .      SELECT *  FROM ZMTQUALITYT        INTO  TABLE LT_ZMTQUALITYT        FOR  ALL ENTRIES  IN GT_ITAB        WHERE SPRAS  = SY -LANGU          AND ZQLTY  = GT_ITAB -ZQLTY .      LOOP  AT LT_T023T .       GW_ITAB -WGBEZ  = LT_T023T -WGBEZ .        MODIFY GT_ITAB  FROM GW_ITAB        TRANSPORTING WGBEZ  WHERE MATKL  = LT_T023T -MATKL .      ENDLOOP .      LOOP  AT LT_ZMTQUALITYT .       GW_ITAB -ZQLTYT  = LT_ZMTQUALITYT -ZQLTYT .        MODIFY GT_ITAB  FROM GW_ITAB        TRANSPORTING ZQLTYT  WHERE ZQLTY  = LT_ZMTQUALITYT -ZQLTY .      ENDLOOP .      LOOP  AT GT_ITAB  ASSIGNING <ITAB> .       <ITAB> -HJSL  = <ITAB> -LABST1 + <ITAB> -LABST2 + <ITAB> -LABST3 + <ITAB> -LABST4                  + <ITAB> -LABST5 + <ITAB> -LABST6 + <ITAB> -LABST7 + <ITAB> -LABST10                  + <ITAB> -LABST11 + <ITAB> -LABST12 + <ITAB> -LABST13 + <ITAB> -LABST14                  + <ITAB> -LABST15 + <ITAB> -LABST16 + <ITAB> -LABST17 + <ITAB> -LABST18                  +  <ITAB> -LABST22 + <ITAB> -LABST19 + <ITAB> -LABST20 + <ITAB> -LABST21                  + <ITAB> -LABST23 + <ITAB> -LABST24 + <ITAB> -LABST25 + <ITAB> -LABST26                  + <ITAB> -LABST27 + <ITAB> -LABST28 .      ENDLOOP .    ENDIF . *去零行    DELETE GT_ITAB  WHERE LABST1  =  0  AND LABST2  =  0  AND LABST3  =  0  AND LABST4  =  0  AND     LABST5  =  0  AND LABST6  =  0  AND LABST7  =  0  AND LABST10  =  0  AND LABST11  =  0  AND     LABST12  =  0  AND LABST13  =  0  AND LABST14  =  0  AND LABST15  =  0  AND LABST16  =  0  AND     LABST17  =  0  AND LABST18  =  0  AND LABST19  =  0  AND LABST20  =  0  AND LABST21  =  0  AND     LABST22  =  0  AND LABST23  =  0  AND LABST24  =  0  AND LABST25  =  0  AND LABST26  =  0  AND     LABST27  =  0  AND LABST28  =  0  AND     HJSL  =  0  AND CGZTSL  =  0  AND FZZTSL  =  0 . ENDFORM .                     " GET_DATA *----------------------------------------------------------------------* *       CLASS lcl_main_alv IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS LCL_MAIN_ALV  IMPLEMENTATION .    METHOD GENERATE_ALV . *      DATA : LX_MSG  TYPE  REF  TO CX_SALV_MSG .      TRY .         CL_SALV_TABLE =>FACTORY (            IMPORTING             R_SALV_TABLE  = O_SALV            CHANGING             T_TABLE       = GT_ITAB  ) .        CATCH CX_SALV_MSG  INTO LX_MSG .      ENDTRY .      CALL  METHOD SET_PF_STATUS        CHANGING         CO_ALV  = O_SALV .      CALL  METHOD SET_LAYOUT        CHANGING         CO_ALV  = O_SALV .      CALL  METHOD SET_DISPLAY_SETTING        CHANGING         CO_ALV  = O_SALV .      CALL  METHOD SET_COLUMNS        CHANGING         CO_ALV  = O_SALV .      DATA : LO_EVENTS  TYPE  REF  TO CL_SALV_EVENTS_TABLE .     LO_EVENTS  = O_SALV ->GET_EVENT (  ) .      SET  HANDLER HANDLE_DOUBLE_CLICK  FOR LO_EVENTS .      SET  HANDLER HANDLE_LINK_CLICK  FOR LO_EVENTS .      SET  HANDLER ON_USER_COMMAND  FOR LO_EVENTS .      DATA :LR_SELS  TYPE  REF  TO CL_SALV_SELECTIONS .     LR_SELS  = O_SALV ->GET_SELECTIONS (  ) .     LR_SELS ->SET_SELECTION_MODE ( IF_SALV_C_SELECTION_MODE =>ROW_COLUMN  ) . *   显示 ALV     O_SALV ->DISPLAY (  ) .    ENDMETHOD .                     "generate_alv *设置工具栏    METHOD SET_PF_STATUS .      DATA : LO_FUNCTIONS  TYPE  REF  TO CL_SALV_FUNCTIONS .     CO_ALV ->SET_SCREEN_STATUS (       PFSTATUS       =   'ZALV_STATUS'        REPORT         =  SY -REPID       SET_FUNCTIONS  = CO_ALV ->C_FUNCTIONS_ALL  ) . *    LO_FUNCTIONS = CO_ALV->GET_FUNCTIONS( ). *    LO_FUNCTIONS->SET_ALL( ABAP_TRUE ). *    TRY. *    LO_FUNCTIONS->SET_FUNCTION( NAME = 'ZUNDO' BOOLEAN = '' ). *      CATCH CX_SALV_WRONG_CALL.                         "#EC NO_HANDLER *      CATCH CX_SALV_NOT_FOUND.                          "#EC NO_HANDLER    ENDMETHOD .                     "set_pf_status * Settings for Layout    METHOD SET_LAYOUT . *      DATA : LO_LAYOUT   TYPE  REF  TO CL_SALV_LAYOUT ,           LF_VARIANT  TYPE SLIS_VARI ,           LS_LAYOUT   TYPE SALV_S_LAYOUT_INFO ,           LS_KEY      TYPE SALV_S_LAYOUT_KEY . *     LO_LAYOUT  = CO_ALV ->GET_LAYOUT (  ) .     LS_KEY - REPORT  = SY -REPID .     LS_LAYOUT  = CL_SALV_LAYOUT_SERVICE =>GET_DEFAULT_LAYOUT (         S_KEY     = LS_KEY         RESTRICT  = IF_SALV_C_LAYOUT =>RESTRICT_NONE  ) .     LF_VARIANT  = LS_LAYOUT -LAYOUT .     LO_LAYOUT ->SET_KEY ( LS_KEY  ) .     LO_LAYOUT ->SET_DEFAULT ( ABAP_TRUE  ) .     LO_LAYOUT ->SET_SAVE_RESTRICTION ( IF_SALV_C_LAYOUT =>RESTRICT_NONE  ) .     LO_LAYOUT ->SET_INITIAL_LAYOUT ( LF_VARIANT  ) .    ENDMETHOD .                     "set_layout    METHOD SET_DISPLAY_SETTING . *      DATA : LO_DISPLAY  TYPE  REF  TO CL_SALV_DISPLAY_SETTINGS .     LO_DISPLAY  = O_SALV ->GET_DISPLAY_SETTINGS (  ) .     LO_DISPLAY ->SET_STRIPED_PATTERN (  'X'  ) .     LO_DISPLAY ->SET_FIT_COLUMN_TO_TABLE_SIZE (  'X'  ) . *    lo_display->set_list_header( 'ALV Test for Display Settings' ). *    ENDMETHOD .                     "SET_DISPLAY_SETTING *  设置列属性    METHOD SET_COLUMNS . *      DATA : LO_COLS    TYPE  REF  TO CL_SALV_COLUMNS_TABLE ,           LO_COLUMN  TYPE  REF  TO CL_SALV_COLUMN_TABLE .      DATA : LV_SCRTEXT_L  TYPE SCRTEXT_L .     LO_COLS  = CO_ALV ->GET_COLUMNS (  ) .     LO_COLS ->SET_OPTIMIZE ( ABAP_TRUE  ) .     LO_COLS ->SET_KEY_FIXATION ( ABAP_TRUE  ) .      TRY . *        LO_COLS->SET_CELL_TYPE_COLUMN( 'IT_CELL_TYPES' ). *        LO_COLS->SET_COLOR_COLUMN( 'IT_CELL_COLOR' ).        CATCH CX_SALV_DATA_ERROR .                          "#EC NO_HANDLER      ENDTRY .      TRY . *        LO_COLUMN ?= LO_COLS->GET_COLUMN( 'ICONID' ). *        LO_COLUMN->SET_KEY( 'X' ). *        LO_COLUMN ?= LO_COLS->GET_COLUMN( 'CHECK' ). *        LO_COLUMN->SET_CELL_TYPE( IF_SALV_C_CELL_TYPE=>CHECKBOX_HOTSPOT ). *        LO_COLUMN->SET_KEY( 'X' ).         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'MATKL'  ) .         LO_COLUMN ->SET_KEY (  'X'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'ZQLTY'  ) .         LO_COLUMN ->SET_KEY (  'X'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'WGBEZ'  ) .         LO_COLUMN ->SET_KEY (  'X'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'ZQLTYT'  ) .         LO_COLUMN ->SET_KEY (  'X'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST1'  ) .         LV_SCRTEXT_L  =  '江阴华溢库' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST2'  ) .         LV_SCRTEXT_L  =  '江阴群友库' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST3'  ) .         LV_SCRTEXT_L  =  '无锡国联库' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST4'  ) .         LV_SCRTEXT_L  =  '无锡商专线' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST5'  ) .         LV_SCRTEXT_L  =  '常州船厂库' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST6'  ) .         LV_SCRTEXT_L  =  '常州东港库' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST7'  ) .         LV_SCRTEXT_L  =  '常州横林库' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST8'  ) .         LV_SCRTEXT_L  =  '常州万都金属城' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ->SET_VISIBLE (  ''  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST9'  ) .         LV_SCRTEXT_L  =  '济源旺鑫库' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ->SET_VISIBLE (  ''  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST10'  ) .         LV_SCRTEXT_L  =  '杭州崇贤港' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST11'  ) .         LV_SCRTEXT_L  =  '杭州中建材库' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST12'  ) .         LV_SCRTEXT_L  =  '福澳库存' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST13'  ) .         LV_SCRTEXT_L  =  '宝沙库存' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST14'  ) .         LV_SCRTEXT_L  =  '华溢托盘库' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST15'  ) .         LV_SCRTEXT_L  =  '常州老东港库' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST16'  ) .         LV_SCRTEXT_L  =  '嘉兴中铁库' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST17'  ) .         LV_SCRTEXT_L  =  '江阴华安库' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST18'  ) .         LV_SCRTEXT_L  =  '华溢库' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST19'  ) .         LV_SCRTEXT_L  =  '大经其它' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST20'  ) .         LV_SCRTEXT_L  =  '浙江其他' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST21'  ) .         LV_SCRTEXT_L  =  '大商其他' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST22'  ) .         LV_SCRTEXT_L  =  '苏州木专线' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST23'  ) .         LV_SCRTEXT_L  =  '长达码头库' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST24'  ) .         LV_SCRTEXT_L  =  '无锡中投保' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST25'  ) .         LV_SCRTEXT_L  =  '十七公司其他' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST26'  ) .         LV_SCRTEXT_L  =  '张家港玖隆库' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST27'  ) .         LV_SCRTEXT_L  =  '上海刘行码头' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'LABST28'  ) .         LV_SCRTEXT_L  =  '大经建材其他' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'XSWFH'  ) .         LV_SCRTEXT_L  =  '销售未发数量' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ->SET_VISIBLE (  ''  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'CGZTSL'  ) .         LV_SCRTEXT_L  =  '采购在途数量' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'FZZTSL'  ) .         LV_SCRTEXT_L  =  '分子公司在途数量' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) .         LO_COLUMN ?= LO_COLS ->GET_COLUMN (  'HJSL'  ) .         LV_SCRTEXT_L  =  '合计数量' .         LO_COLUMN ->SET_LONG_TEXT ( LV_SCRTEXT_L  ) .         LO_COLUMN ->SET_FIXED_HEADER_TEXT (  'L'  ) . *        LO_COLUMN->SET_VISIBLE( ABAP_TRUE ).        CATCH CX_SALV_NOT_FOUND .                           "#EC NO_HANDLER      ENDTRY . *小计及排序设置      DATA : LR_AGGREGATIONS  TYPE  REF  TO CL_SALV_AGGREGATIONS .     LR_AGGREGATIONS  = CO_ALV ->GET_AGGREGATIONS (  ) .     LR_AGGREGATIONS -> CLEAR (  ) .      DATA : LR_GROUPS  TYPE  REF  TO CL_SALV_SORTS  .     LR_GROUPS  = CO_ALV ->GET_SORTS (  )  .     LR_GROUPS -> CLEAR (  ) .      TRY .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST1'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST2'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST3'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST4'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST5'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST6'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST7'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST8'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST9'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST10'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST11'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST12'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST13'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST14'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST15'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST16'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST17'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST18'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST19'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST20'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST21'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST22'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST23'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST24'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST25'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST26'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST27'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'LABST28'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'CGZTSL'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'FZZTSL'  ) .         LR_AGGREGATIONS ->ADD_AGGREGATION ( COLUMNNAME  =  'HJSL'  ) .         LR_GROUPS ->ADD_SORT ( COLUMNNAME  =  'MATKL'                               POSITION    =  1 *                             SUBTOTAL   = ABAP_TRUE                              SEQUENCE    = IF_SALV_C_SORT =>SORT_UP  ) .         LR_GROUPS ->ADD_SORT ( COLUMNNAME  =  'WGBEZ'                               POSITION    =  2                              SUBTOTAL    = ABAP_TRUE                              SEQUENCE    = IF_SALV_C_SORT =>SORT_UP  ) .         LR_GROUPS ->ADD_SORT ( COLUMNNAME  =  'ZQLTY'                               POSITION    =  3 *                             SUBTOTAL   = ABAP_TRUE                              SEQUENCE    = IF_SALV_C_SORT =>SORT_UP  ) .        CATCH CX_SALV_NOT_FOUND CX_SALV_DATA_ERROR CX_SALV_EXISTING .      ENDTRY .    ENDMETHOD .                     "SET_COLUMNS    METHOD HANDLE_DOUBLE_CLICK . *    CASE COLUMN. *      WHEN OTHERS. *        READ TABLE GT_ITAB INTO GW_ITAB INDEX ROW. *        IF SY-SUBRC = 0. * *        ENDIF. *    ENDCASE.    ENDMETHOD .                     "HANDLE_DOUBLE_CLICK    METHOD HANDLE_LINK_CLICK . *    CASE COLUMN. *      WHEN 'CHECK'. *        READ TABLE GT_ITAB ASSIGNING <ITAB> INDEX ROW. *        IF SY-SUBRC = 0. *          IF <ITAB>-CHECK = 'X'. *            <ITAB>-CHECK = ''. *          ELSE. *            <ITAB>-CHECK = 'X'. *          ENDIF. *        ENDIF. *      WHEN 'BELNR'. *        READ TABLE GT_ITAB INTO GW_ITAB INDEX ROW. *        IF SY-SUBRC = 0. *          SET PARAMETER ID 'BUK' FIELD GW_ITAB-RBUKRS. *          SET PARAMETER ID 'GJR' FIELD GW_ITAB-GJAHR. *          SET PARAMETER ID 'BLN' FIELD GW_ITAB-BELNR. *          CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN. *        ENDIF. *    ENDCASE. *    ME->REFRESH_ALV(  ).    ENDMETHOD .                     "HANDLE_link_click    METHOD ON_USER_COMMAND .      DATA : O_SELS  TYPE  REF  TO CL_SALV_SELECTIONS ,           T_ROWS  TYPE SALV_T_ROW ,           L_ROW   TYPE  LINE  OF SALV_T_ROW .      CASE E_SALV_FUNCTION .        WHEN  'REFRESH' .          PERFORM GET_DATA . *      WHEN 'SALL'. *        GW_ITAB-CHECK = 'X'. *        MODIFY GT_ITAB FROM GW_ITAB TRANSPORTING CHECK WHERE CHECK = ''. *      WHEN 'DSAL'. *        GW_ITAB-CHECK = ''. *        MODIFY GT_ITAB FROM GW_ITAB TRANSPORTING CHECK WHERE CHECK = 'X'. *      WHEN 'PRINT'. *      WHEN 'SALL'. *        O_SELS = O_ALV->GET_SELECTIONS( ). *        T_ROWS = O_SELS->GET_SELECTED_ROWS( ). *        IF LINES( T_ROWS ) > 0. *         READ TABLE T_ROWS INTO L_ROW INDEX 1. *        ENDIF.      ENDCASE .     ME ->REFRESH_ALV (   ) .    ENDMETHOD .                     "ON_USER_COMMAND    METHOD REFRESH_ALV .      DATA : LO_COLS  TYPE  REF  TO CL_SALV_COLUMNS_TABLE ,           LV_STBL  TYPE LVC_S_STBL .     LO_COLS  = O_SALV ->GET_COLUMNS (  ) .     LO_COLS ->SET_OPTIMIZE ( ABAP_TRUE  ) .     LV_STBL -ROW  =  'X' .     LV_STBL -COL  =  'X' .     O_SALV -> REFRESH ( S_STABLE  = LV_STBL  ) .    ENDMETHOD .                     "REFRESH_alv ENDCLASS .                     "lcl_main_alv IMPLEMENTATION *&---------------------------------------------------------------------* *&      Form  INIT_LGORT *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* *  -->  p1        text *  <--  p2        text *----------------------------------------------------------------------* FORM INIT_LGORT  .   GT_LGORT - ID  =  1 .   GT_LGORT -LGORT  =  'HY01' .   GT_LGORT -BEIZ  =  '江阴华溢库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  1 .   GT_LGORT -LGORT  =  'HY03' .   GT_LGORT -BEIZ  =  '江阴华溢库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  1 .   GT_LGORT -LGORT  =  'HY04' .   GT_LGORT -BEIZ  =  '江阴华溢库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  1 .   GT_LGORT -LGORT  =  'HY05' .   GT_LGORT -BEIZ  =  '江阴华溢库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  1 .   GT_LGORT -LGORT  =  'HY06' .   GT_LGORT -BEIZ  =  '江阴华溢库' .    APPEND GT_LGORT . *  GT_LGORT-ID = 1. *  GT_LGORT-LGORT = 'HA01'. *  GT_LGORT-BEIZ = '江阴华溢库'. *  APPEND GT_LGORT.   GT_LGORT - ID  =  2 .   GT_LGORT -LGORT  =  'QYCC' .   GT_LGORT -BEIZ  =  '江阴群友库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  2 .   GT_LGORT -LGORT  =  'QYDK' .   GT_LGORT -BEIZ  =  '江阴群友库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  2 .   GT_LGORT -LGORT  =  'QYMT' .   GT_LGORT -BEIZ  =  '江阴群友库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  3 .   GT_LGORT -LGORT  =  'WXGL' .   GT_LGORT -BEIZ  =  '无锡国联库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  4 .   GT_LGORT -LGORT  =  'WXSZ' .   GT_LGORT -BEIZ  =  '无锡商专线' .    APPEND GT_LGORT .   GT_LGORT - ID  =  5 .   GT_LGORT -LGORT  =  'CZCC' .   GT_LGORT -BEIZ  =  '常州船厂库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  6 .   GT_LGORT -LGORT  =  'CZDG' .   GT_LGORT -BEIZ  =  '常州东港库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  7 .   GT_LGORT -LGORT  =  'CZHL' .   GT_LGORT -BEIZ  =  '常州横林库 ' .    APPEND GT_LGORT . *暂时不用   GT_LGORT - ID  =  8 .   GT_LGORT -LGORT  =  'CZWD' .   GT_LGORT -BEIZ  =  '常州万都金属城' .    APPEND GT_LGORT . *暂时不用   GT_LGORT - ID  =  9 .   GT_LGORT -LGORT  =  'JYWX' .   GT_LGORT -BEIZ  =  '济源旺鑫库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  10 .   GT_LGORT -LGORT  =  'HZCX' .   GT_LGORT -BEIZ  =  '杭州崇贤港' .    APPEND GT_LGORT .   GT_LGORT - ID  =  11 .   GT_LGORT -LGORT  =  'HZZJ' .   GT_LGORT -BEIZ  =  '杭州中建材库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  12 .   GT_LGORT -LGORT  =  'CFDK' .   GT_LGORT -BEIZ  =  '福澳库存' .    APPEND GT_LGORT .   GT_LGORT - ID  =  12 .   GT_LGORT -LGORT  =  'JJNY' .   GT_LGORT -BEIZ  =  '福澳库存' .    APPEND GT_LGORT .   GT_LGORT - ID  =  12 .   GT_LGORT -LGORT  =  'TSJT' .   GT_LGORT -BEIZ  =  '福澳库存' .    APPEND GT_LGORT .   GT_LGORT - ID  =  13 .   GT_LGORT -LGORT  =  'BS01' .   GT_LGORT -BEIZ  =  '宝沙库存' .    APPEND GT_LGORT .   GT_LGORT - ID  =  13 .   GT_LGORT -LGORT  =  'BS02' .   GT_LGORT -BEIZ  =  '宝沙库存' .    APPEND GT_LGORT .   GT_LGORT - ID  =  13 .   GT_LGORT -LGORT  =  'BS03' .   GT_LGORT -BEIZ  =  '宝沙库存' .    APPEND GT_LGORT .   GT_LGORT - ID  =  13 .   GT_LGORT -LGORT  =  'BS04' .   GT_LGORT -BEIZ  =  '宝沙库存' .    APPEND GT_LGORT .   GT_LGORT - ID  =  13 .   GT_LGORT -LGORT  =  'BS05' .   GT_LGORT -BEIZ  =  '宝沙库存' .    APPEND GT_LGORT .   GT_LGORT - ID  =  14 .   GT_LGORT -LGORT  =  'HY00' .   GT_LGORT -BEIZ  =  '华溢托盘库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  15 .   GT_LGORT -LGORT  =  'CZLD' .   GT_LGORT -BEIZ  =  '常州老东港库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  16 .   GT_LGORT -LGORT  =  'HZZT' .   GT_LGORT -BEIZ  =  '嘉兴中铁库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  17 .   GT_LGORT -LGORT  =  'HA01' .   GT_LGORT -BEIZ  =  '江阴华安库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  18 .   GT_LGORT -LGORT  =  'SZMX' .   GT_LGORT -BEIZ  =  '苏州木专线' .    APPEND GT_LGORT .   GT_LGORT - ID  =  19 .   GT_LGORT -LGORT  =  'CDMT' .   GT_LGORT -BEIZ  =  '长达码头库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  20 .   GT_LGORT -LGORT  =  'WXZT' .   GT_LGORT -BEIZ  =  '无锡中投保' .    APPEND GT_LGORT .   GT_LGORT - ID  =  21 .   GT_LGORT -LGORT  =  'ZJGJ' .   GT_LGORT -BEIZ  =  '张家港玖隆库' .    APPEND GT_LGORT .   GT_LGORT - ID  =  22 .   GT_LGORT -LGORT  =  'SHLH' .   GT_LGORT -BEIZ  =  '上海刘行码头' .    APPEND GT_LGORT . ENDFORM .