TCL ERP项目ZSAPM07DR---材料出移库单---XUSD.docVIP

1. 更改的程序: ZSAPM07DR 程序类型: Report 2. 更改的详细原因: 自定义FORM打印格式 解决方案: 保存时自动打印 自定义取数 自定义分页 自定义汇总 Source Code Corrections 更改位置: [INCLUDE M07DRENT .] 更改类型[insert/modify/delete]: MODIFY 更改人: 徐世德 源码: includes: M07DRENT . FORM ENTRY_WA01 USING ENT_RETCO ENT_SCREEN. *** 以下数据移动、汇总、分页、输出等功能。2005-04-20 XUSD *** REFRESH: ITAB2 . XSCREEN = ENT_SCREEN. CLEAR ENT_RETCO. GET PARAMETER ID L_TIME FIELD L_TIME . CHECK L_TIME 2 . DATA: CNT TYPE I , T_MATNR LIKE MSEG-MATNR , LINS TYPE I . CLEAR : TPAGE ,LPAGE ,CNT ,LINS ,T_MATNR . PERFORM LESEN_WA USING NAST-OBJKY . 取数值 ENT_RETCO = RETCO . SORT ITAB BY MBLNR LWMKB WERKS ARBPL MATNR LGORT LIFNR . LOOP AT ITAB . 移动并汇总到ITAB2 MOVE-CORRESPONDING ITAB TO ITAB2 . COLLECT ITAB2 . ENDLOOP . PERFORM OPEN_FORM . SORT ITAB2 BY MBLNR LWMKB WERKS ARBPL MATNR LGORT LIFNR . LOOP AT ITAB2 . AT NEW MBLNR . CALL FUNCTION START_FORM EXPORTING FORM = TNAPR-FONAM LANGUAGE = LANGUAGE. TPAGE = TPAGE + 1 . 页码 CLEAR: CNT ,LINS . ENDAT . LINS = LINS + 1 . 行数计算 IF LINS 18 . 行数满页时分页 TPAGE = TPAGE + 1 . LINS = 1 . ENDIF . IF T_MATNR = ITAB2-MATNR . CNT = CNT + 1 . 计算相同物料数目 ELSE . CNT = 1 . ENDIF . F_FENGE = ITAB2-MENGE . CALL FUNCTION CLOI_PUT_SIGN_IN_FRONT CHANGING VALUE = F_FENGE. 负号置前 CONDENSE F_FENGE NO-GAPS . CALL FUNCTION WRITE_FORM 写入KOPF EXPORTING ELEMENT = KOPF. * PERFORM AUSGABE_WA01 . 系统本来FORM AT END OF MATNR . 出现相同物料小计 SUM . S_FENGE = ITAB2-MENGE . 负数时 - 号置前 CALL FUNCTION CLOI_PUT_SIGN_IN_FRONT CHANGING VALUE = S_FENGE. IF CNT 1 . CALL FUNCTION WRITE_FORM EXPORTING ELEMENT = SUM_MENGE. LINS = LINS + 1 . 小计时加一行 IF L