凤竹纺织FZPP_技术说明书_报工批导入_V1.0.docVIP

FZSAP项目 报工批导入 开发设计文档 定稿版本 作者：洪清澄 日期：2005.10.27d 1. 程序概要描述 项目: FZ SAP 日期: YYYY.MM.DD 模块: PP 作者: 阶段: BP 优先级: H/M/L 标题: 报工批导入 程序ID: ZPPBG 程序名 : ZPPPB_PG 业务分析员: 　 开发人员: 洪清澄 运行频率: 按需触发 程序类型 批导入 用户/部门: 生产部 语言: 中文　 2. 设计综述 程序使用对象: 生产部报工员 联系人: 运行频率: 语言: 中 文 程序类型: FORM 开发语言.: 优先级: 复杂度: 中 描述和目标: 目标：实现系统内批导入并导出出错文本日志。 描述：根据系统外批工导出的文本文件导入系统内批工并确认工序成本。  输入信息： 批导位置及文件：BGFILE 选择界面： 结果输出界面： 相应逻辑及要求： 1、通过系统外NP程序对漂染、染纱、织造进行报工，报工数据导出时取系统外机电系数表分别计算电消耗和机器折旧并最终导入系统内确认工序报工成本. 程序主要逻辑： 一、先把系统外导出的报工文本导入内表： PERFORM OPEN_DATA_FILE TABLES ITAB_DATA. FORM OPEN_DATA_FILE TABLES ITAB. CALL FUNCTION UPLOAD EXPORTING FILENAME = BGFILE FILETYPE = DAT TABLES DATA_TAB = ITAB EXCEPTIONS CONVERSION_ERROR = 1 INVALID_TABLE_WIDTH = 2 INVALID_TYPE = 3 NO_BATCH = 4 UNKNOWN_ERROR = 5 GUI_REFUSE_FILETRANSFER = 6 OTHERS = 7. IF SY-SUBRC 0. WRITE: / CAN NOT OPEN FILE: , BGFILE. ENDIF. ENDFORM. OPEN_DATA_FILE 二、过滤掉已经完全报工的记录(漂染、染纱100%报工，织造部分报工）,以免重复报工。 PERFORM FILTE_DATA. FORM FILTE_DATA. DATA:AUERU LIKE AFRU-AUERU. LOOP AT ITAB_DATA. IF ITAB_DATA-DDLB ZZ. SELECT SINGLE AUERU INTO AUERU FROM AFRU WHERE AUFNR = ITAB_DATA-AUFNR AND VORNR = ITAB_DATA-VORNR 刊AND AUERU = X. IF SY-SUBRC = 0. DELETE ITAB_DATA INDEX SY-TABIX. ENDIF. ENDIF. ENDLOOP. ENDFORM. 三、进行报工批导入 PERFORM GENERATE_BDC_SESSION. 四、输出结果 PERFORM FRM_WRITE_RESULT. 源代码：（略） Abaper: ________________ 日期: _______________ 开发组长: ________________ 日期: _______________ FZSAP 客户化开发程序功能说明 版本: 文件名: FZPP_技术说明书_报工批导入_V1.0 页码: 4 / 6 生成日期: 2005-7-12 15:57 修改者: 洪清澄 修改日期: 28/10/2005 密件:仅供凤竹纺织SAP项目