带命令的QUERY修改方法 OK

1、.带命令的QUERY修改方法  1、此类QUERY需要分为两步修改，一种是后台信息集的修改，一种是前台显示字段的修改；2、查询方法：进行RED100系统，输入相应的事务代码：ZSCM_DATA2，菜单 系统 -> 状态 取得程序名称：AQZZZSCM=Z_SARCH_BYSITEZSCM 代表信息集名称，Z_SARCH_BYSITE 则代表是信息集里的前台QUERY名称；3、TCODE：SQVI   选择其它工作组  查询出QUERY对应的信息集   选择相应的信息集进行修改  

2、 调整相应的位置 并把附件的新字段，增加到字段组中 将SQL命令增加到相应的位置  CLEAR: ZMEINS,ZMEINS1,ZMEINS2,LIFNR,ZRUECK,MEINH1,MEINH2,MEINH3,MEINH4,S_MARC,S_EORD,I.  CLEAR T_MARM.  REFRESH T_MARM.  CLEAR T_EINA.  REFRESH T_EINA.  I

3、0;= 1.  SELECT SINGLE * INTO CORRESPONDING FIELDS OF S_MARC    FROM MARC WHERE  MATNR = MARC-MATNR AND WERKS = MARC-WERKS.  SELECT * INTO CORRESPONDING

4、0;FIELDS OF TABLE T_MARM    FROM MARM WHERE MATNR = MARC-MATNR.  LOOP AT T_MARM.    CASE I.                 &#

5、160;        "从MARM表中获得单位1至单位4      WHEN 1.        MEINH1 = T_MARM-MEINH.      WHEN 2.        ME

6、INH2 = T_MARM-MEINH.      WHEN 3.        MEINH3 = T_MARM-MEINH.      WHEN 4.        MEINH4 = T_MARM-MEINH.  &#

7、160; ENDCASE.    IF S_MARC-AUSME = T_MARM-MEINH.      ZMEINS1 = T_MARM-UMREZ / T_MARM-UMREN ."转换大店发货单位    ENDIF.    I = I + 1.  EN

8、DLOOP.  SELECT * INTO CORRESPONDING FIELDS OF TABLE T_EINA    FROM EINA WHERE MATNR = MARC-MATNR.  SELECT SINGLE * INTO CORRESPONDING FIELDS OF S_EORD  

9、60; FROM EORD WHERE WERKS = MARC-WERKS    AND MATNR = MARC-MATNR AND FLIFN = 'X'.  LIFNR = S_EORD-LIFNR .  LOOP AT T_EINA.    IF T_EINA-L

10、IFNR = MARC-WERKS.       "小店发货单位      LOOP AT T_MARM.               "转换小店发货单位        IF

11、60;T_MARM-MATNR = T_EINA-MATNR AND T_MARM-MEINH = T_EINA-MEINS.          ZMEINS2 = T_MARM-UMREZ  / T_MARM-UMREN.        ENDIF.     

12、; ENDLOOP.    ELSEIF T_EINA-LIFNR = S_EORD-LIFNR.      ZRUECK = T_EINA-RUECK.        "是否可退      LOOP AT T_MARM.    

13、           "转换订货单位        IF T_MARM-MATNR = T_EINA-MATNR AND T_MARM-MEINH = T_EINA-MEINS.          ZMEINS =

14、60;T_MARM-UMREZ  / T_MARM-UMREN.        ENDIF.      ENDLOOP.    ENDIF.    IF T_EINA-LIFNR = LIFNR.      SELECT SINGLE APLFZ INTO