奇瑞ZSDIT133_包装处理单位批导入程序.docVIP

报表名称 : 包装处理单位批导入程序 程序名 : ZSDIT133 业务模块 : □ 财务/成本 ( 销售 □ 物料 □ 生产 □ 其它 ________ 关键用户 : 来安 需求提出日期 : 2008/03/22 业务顾问 : 来安 程序类型 : □ 屏幕输出报表 Reporting to Screen □ 打印输出报表 Reporting to Printer ( 批输入程序 Batch Data Processing □ 用户出口 User Exit □ 接口程序 Interfacing □ 其它 _____________ 运行频率 : ( 随时 □ 周报 □ 月报 □ 季报 □ 年报 优先级别 : □ 低 □ 中 ( 高 完 成 情 况 （Status） 开发者 : ____________________ 更新者 : ____________________ 更新日期 : ____________________ 完成日期 : ____________________ 测试者 : ____________________（测试完成后签名） 测试日期 : ____________________ 用户签收 : ____________________（用户签收后如有变更，将作为新的开发任务） 签收日期 : ____________________ 详 细 说 明/ 程 序 目 的 （Detail Description） 程序完成后，生成事务代码：ZSD233 数 据 来 源 （Data Source） TABLE: FIELDS: 用 户 输 入/ 选 择 条 件 （User Input/Selection Criteria） 交货单号： (必输项) ◎ 创建1-3层处理单元 ◎ 在成品库单个创建第4层处理单元 ◎ 在在线库批量创建第4层处理单元(用于批量删除处理单位) 处 理 方 法 （Processing Logic） 一、创建1-3层处理单元 1、判断“选择屏”输入的交货单号，在系统交货单表： LIKP中是否存在这张交货单，如果不存在提示“该交货单已删除”，并返回； 2、根据输入的交货单号、在“自定义表一”中查询“状态标志=0”的中“三层系统号、二层系统号、一层系统号”四个字段数据，是否在VEKP-EXIDV中存在，如果判断到有一条存在，就提示“该交货单1-3层处理单位已经生成”，并返回； 3、如果在VEKP-EXIDV中不存在，则显示“自定义表一”中显示“四层手工号,四层系统号,四层包装物料号,三层手工号,三层系统号,三层包装物料号,二层手工号,二层系统号,二层包装物料号,一层手工号,一层系统号,一层包装物料号,KD件物料号,KD件数量”字段数据，并按“四层手工号、三层手工号、二层手工号、一层手工号、KD件物料号”字段排序，然后从第一条记录开始循环按下面步骤处理： ①IF一层系统号为空，THEN IF一层系统号非空，THEN用一层系统号、一层包装物料号、KD件物料号、KD件数量、KD件工厂、KD件 库存地点，调用HU02程序生成一层处理单位； END IF END IF ②IF二层系统号为空，THEN IF二层系统号非空，一层系统号非空，THEN用二层系统号、二层包装物料号、一层系统号，调用HU02程 序生成二层处理单位； IF二层系统号非空，一层系统号为空，THEN用二层系统号、二层包装物料号、KD件物料号、KD件数 量、KD件工厂、KD件库存地点，调用HU02程序生成二层处理单位； END IF END IF END IF ③IF三层系统号非空，二层系统号非空，THEN用三层系统号、三层包装物料号、二层系统号，调用HU02程序 生成处理单位； IF三层系统号非空，二层系统号为空，一层系统号非空，THEN用三层系统号、三层包装物料号、一层系 统号，调用HU02程序生成三层处理单位； IF三层系统号非空，二层系统号为空，一层系统号为空，THEN用三层系统号、三层包装物料号、KD件 物料号、KD件数量、KD件工厂、KD件库存地点，调用HU02程序生成三层处理单位；