1、要生成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-ma
2、tnr. CALL FUNCTION 'READ_TEXT' EXPORTING client = sy-mandt id = 'GRUN' language = '1' name = l_name object = 'MATERIAL' TABLES lines
3、 = lt_lines EXCEPTIONS id = 1 language = 2 name = 3 not_found = 4 object = 5 reference_check = 6 wrong_access_to
4、_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
5、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_O
6、LD = '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 WHE
7、RE 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.