带命令的QUERY修改方法 OK带命令的QUERY修改方法 OK.docx

带命令的QUERY修改方法??1、此类QUERY需要分为两步修改，一种是后台信息集的修改，一种是前台显示字段的修改；2、查询方法：进行RED100系统，输入相应的事务代码：ZSCM_DATA2，菜单 系统 -- 状态 取得程序名称：AQZZZSCM========Z_SARCH_BYSITEZSCM 代表信息集名称，Z_SARCH_BYSITE 则代表是信息集里的前台QUERY名称；3、TCODE：SQVI???选择其它工作组??查询出QUERY对应的信息集? ?选择相应的信息集进行修改???调整相应的位置?并把附件的新字段，增加到字段组中?将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?=?1.?SELECT?SINGLE?*?INTO?CORRESPONDING?FIELDS?OF?S_MARC?FROM?MARC?WHERE?MATNR?=?MARC-MATNR?AND?WERKS?=?MARC-WERKS.?SELECT?*?INTO?CORRESPONDING?FIELDS?OF?TABLE?T_MARM?FROM?MARM?WHERE?MATNR?=?MARC-MATNR.?LOOP?AT?T_MARM.?CASE?I.从MARM表中获得单位1至单位4?WHEN?1.?MEINH1?=?T_MARM-MEINH.?WHEN?2.?MEINH2?=?T_MARM-MEINH.?WHEN?3.?MEINH3?=?T_MARM-MEINH.?WHEN?4.?MEINH4?=?T_MARM-MEINH.?ENDCASE.?IF?S_MARC-AUSME?=?T_MARM-MEINH.?ZMEINS1?=?T_MARM-UMREZ?/?T_MARM-UMREN?.转换大店发货单位?ENDIF.?I?=?I?+?1.?ENDLOOP.?SELECT?*?INTO?CORRESPONDING?FIELDS?OF?TABLE?T_EINA?FROM?EINA?WHERE?MATNR?=?MARC-MATNR.?SELECT?SINGLE?*?INTO?CORRESPONDING?FIELDS?OF?S_EORD?FROM?EORD?WHERE?WERKS?=?MARC-WERKS?AND?MATNR?=?MARC-MATNR?AND?FLIFN?=?X.?LIFNR?=?S_EORD-LIFNR?.?LOOP?AT?T_EINA.?IF?T_EINA-LIFNR?=?MARC-WERKS.小店发货单位?LOOP?AT?T_MARM.转换小店发货单位?IF?T_MARM-MATNR?=?T_EINA-MATNR?AND?T_MARM-MEINH?=?T_EINA-MEINS.?ZMEINS2?=?T_MARM-UMREZ?/?T_MARM-UMREN.?ENDIF.?ENDLOOP.?ELSEIF?T_EINA-LIFNR?=?S_EORD-LIFNR.?ZRUECK?=?T_EINA-RUECK.是否可退?LOOP?AT?T_MARM.转换订货单位?IF?T_MARM-MATNR?=?T_EINA-MATNR?AND?T_MARM-MEINH?=?T_EINA-MEINS.?ZMEINS?=?T_MARM-UMREZ?/?T_MARM-UMREN.?ENDIF.?ENDLOOP.?ENDIF.?IF?T_EINA-LIFNR?=?LIFNR.?SELECT?SINGLE?APLFZ?INTO?PLIFZ?FROM?EINE?WHERE?INFNR?=?T_EINA-INFNR.?ENDIF.?ENDLOOP. ?此时后台信息集修改完毕??更改前台字段显示????保存并输入标题，完成相应的前台界面修改，此时可以进行测试?