SAP query传输及其他记录.docx

要生成TCODE需要先查看报表名并复制报表名。表连接，主表对其他表如果一对多会造成主表数据行重复显示。如果其他表的数据可能为空则需使用外部连接，否则主表数据也不显示。ZMMRP011 采购订单查询报表的代码记录物料长描述DATA:lt_lines?TYPE?TABLE?OF?tline?WITH?HEADER?LINE,?l_name?TYPE?thead-tdname.物料长文本?CLEAR:lt_lines[],?l_name,?LONGTEXT.?l_name?=?EKPO-matnr.?CALL?FUNCTION?READ_TEXT?EXPORTING?client=?sy-mandt?id=?GRUN?language=?1?name=?l_name?object=?MATERIAL?TABLES?lines=?lt_lines?EXCEPTIONS?id=?1?language=?2?name=?3?not_found?=?4?object=?5?reference_check?=?6?wrong_access_to_archive?=?7?OTHERS=?8.?IF?sy-subrc??0.*?Implement?suitable?error?handling?here?ENDIF.?LOOP?AT?lt_lines.?CONCATENATE?LONGTEXT?lt_lines-tdline?INTO?LONGTEXT.?ENDLOOP.批准日期取法(供应部01审批日期)SELECT?SINGLE?MAX(?UDATE?)?FROM?CDPOS?AS?A?INNER?JOIN?CDHDR?AS?B?ON?A~OBJECTCLAS?=?B~OBJECTCLAS?AND?A~OBJECTID=?B~OBJECTID?AND?A~CHANGENR=?B~CHANGENR?INTO?RLDATE?WHERE?A~OBJECTCLAS?=?EINKBELEG?AND?A~OBJECTID=?EKPO-EBELN?AND?A~TABNAME=?EKKO?AND?FNAME=?FRGKE?AND?VALUE_OLD=?0?AND?VALUE_NEW=?1.已预制未过账发票数量DATA:BEGIN?OF?LT_EKBE1?OCCURS?0,?EBELN?TYPE?EKBE-EBELN,?EBELP?TYPE?EKBE-EBELP,?MENGE?TYPE?EKBE-MENGE,?SHKZG?TYPE?EKBE-SHKZG,?END?OF?LT_EKBE1.REFRESH?LT_EKBE1.SELECT?EBELN?EBELP?MENGE?SHKZG?FROM?EKBE?INTO?TABLE?LT_EKBE1?WHERE?EBELN?=?EKPO-EBELN?AND?EBELP?=?EKPO-EBELP?AND?BEWTP?=?T.?CLEAR?YZFP.?LOOP?AT?LT_EKBE1.?IF?LT_EKBE1-SHKZG?EQ?S.?YZFP?=?YZFP?+?LT_EKBE1-MENGE.?ENDIF.?IF?LT_EKBE1-SHKZG?EQ?H.?YZFP?=?YZFP?-?LT_EKBE1-MENGE.?ENDIF.?ENDLOOP.发票校验数量DATA:BEGIN?OF?LT_EKBE?OCCURS?0,?EBELN?TYPE?EKBE-EBELN,?EBELP?TYPE?EKBE-EBELP,?MENGE?TYPE?EKBE-MENGE,?SHKZG?TYPE?EKBE-SHKZG,?END?OF?LT_EKBE.REFRESH?LT_EKBE.SELECT?EBELN?EBELP?MENGE?SHKZG?FROM?EKBE?INTO?TABLE?LT_EKBE?WHERE?EBELN?=?EKPO-EBELN?AND?EBELP?=?EKPO-EBELP?AND?BEWTP?=?Q.?CLEAR?FPJY.?LOOP?AT?LT_EKBE.?IF?LT_EKBE-SHKZG?EQ?S.?FPJY?=?FPJY?+?LT_EKBE-MENGE.?ENDIF.?IF?LT_EKBE-SHKZG?EQ?H.?FPJY?=?FPJY?-?LT_EKBE-MENGE.?ENDIF.?ENDLOOP.待预制发票的数量CLEAR?YZFP1.IF?EKPO-REPOS?=?X.YZFP1?=?EKET-WEMNG?-?FPJY?-?YZFP.ELSEIFYZFP1?=?0.?ENDIF.待预制发票金额(不含税)CLEAR?YZFP1JE.IF?EKPO-REPOS?=?X.?IF?YZFP1?=?EKPO-MENGE.?YZF