TCL ERP项目Source Code-zsapmo7dr5.docVIP

1. 更改的程序: ZSAPM07DR5[Copy系统程序SAPM07DR] 程序类型: 后台自动打印库存入库单 2. 更改的详细原因: 实现在入库时自动打印库存入库单。 解决方案: Copy 系统程序SAPM07DR 为ZSAPM07DR5 , 更改部分逻辑, 在发生业务时自动调用FROM：ZMMIM0004_5，完成出库单的打印。 Source Code Corrections Include ZM07DRSON5 FORM lesen_wa USING objky. nast_key = objky. CLEAR retco. SELECT SINGLE * FROM mkpf WHERE mblnr = nast_key-mblnr AND mjahr = nast_key-mjahr. SELECT SINGLE * FROM mseg WHERE mblnr = mkpf-mblnr AND zeile = nast_key-zeile AND mjahr = mkpf-mjahr. IF sy-subrc ne 0. retco = sy-subrc. EXIT. ENDIF. * SELECT * FROM mseg INTO TABLE ITAB * WHERE mblnr = mkpf-mblnr ** AND zeile = nast_key-zeile * AND mjahr = mkpf-mjahr. * 2005.03.29 bill modifiy * PERFORM RETRIEVE_DATA USING nast_key-mjahr nast_key-mblnr. 自定义取值 PERFORM tab156_lesen. xskkz = t156-rstyp. PERFORM tab001w_lesen. IF not mseg-matnr is initial. PERFORM material_lesen. ENDIF. PERFORM ladr_lesen. ENDFORM. * Druck Vorbereiten * FORM open_form. PERFORM itcpo_fuellen. CALL FUNCTION OPEN_FORM EXPORTING device = PRINTER language = language options = itcpo dialog = . PERFORM lesen_t159p. x_open = x. ENDFORM. Include ZM07DRENT5 FORM ENTRY_WA01 USING ENT_RETCO ENT_SCREEN. * REFRESH: ITAB . * clear itab. XSCREEN = ENT_SCREEN. CLEAR ENT_RETCO. GET PARAMETER ID L_TIME FIELD L_TIME . CHECK L_TIME 2 . PERFORM LESEN_WA USING NAST-OBJKY. ENT_RETCO = RETCO. DATA: CNT TYPE I . * itab-butxt = test. * itab-werks = 1010. * itab-lgpbe = 001. * itab-matnr = 11fdgdsg. * itab-lifnr = * append itab. PERFORM OPEN_FORM . * clear: l_counts,l_pages. clear itab. loop at itab. at new lgpbe . * l_pages = l_pages + 1. clear l_counts. endat. l_counts = l_counts + 1. at end of lgpbe. l_p = l_counts / 1