PC-PYMAC成本管理子系统物料单价管理子模块-毕业论文

本科毕业论文本科毕业论文 (科研训练、毕业设计) 题题 目：目：PC-PYMACPC-PYMAC 成本管理子系统成本管理子系统 物料单价管理子模块物料单价管理子模块 姓 名： 学 院：软件学院 系： 专 业：软件工程 年 级： 学 号： 指导教师（校内）： 职称：副教授 指导教师（校外）： 职称：工程师 年 月 日 PC-PYMACPC-PYMAC 成本管理子系统成本管理子系统 物料单价管理子模块物料单价管理子模块 摘摘 要要 日本雅马哈发动机集团为一以摩托车、游艇、汽车发动机、智能机械为主要产品 的全球跨国公司，目前年度全球联结决算销售总额超过 10,000 亿日元（约 90 亿美元） 。进 入新世纪后，为了迎接新的挑战和经营目标，在 2002 至 2003 年间开发了第三代生产管理信 息系统 PYMACIII（Pan-Yamaha Manufacturing choose case sqlca.sqlcode / 找到时为 0 case 0 if is_cust_flg = “0“ then ls_cust_cd = ls_supp is_itm_flg = “1“ end if if ls_pri_ty = “P“ or ls_pri_ty = “N“ or ls_pri_ty = “Y“ then dw_1.setitem(1, “cust_cd“, ls_cust_cd) end if /把赋的变量设到画面上的字段 dw_1.setitem(1, “cust_cd_tmp“, ls_cust_cd) dw_1.setitem(1, “itm_desc“, ls_itm_desc) /把画面上的字段赋值给变量 ls_cust_cd = dw_1.getitemstring(1, “cust_cd“) if (ls_pri_ty = “P“ or ls_pri_ty = “N“ or ls_pri_ty = “S“) and ls_cust_cd “ then ll_rtn = lu_reference.uf_cur_search(ls_cust_cd, lstr_qty_proc) destroy lu_reference if ll_rtn 0 then return -1 end if / DB disconnect f_disconnect() else / 重设 DW if is_itm_flg = “1“ and is_cust_flg = “0“ then dw_1.setitem(1, “cust_cd“, “) dw_1.setitem(1, “org_desc“, “) dw_1.setitem(1, “cur_unit“ , is_cur_unit) dw_1.setitem(1, “cur_desc“, is_cur_desc) end if if ls_pri_ty = “P“ then wf_set_dw1_visible(1,0,0,0,0,1,0,1,1,1,1,1,0,0,1) wf_set_dw2_visible(1,0,0,0,0,1,1,0,1,1,0,1) end if dw_1.setitem(1, “drawing_no“, “) dw_1.setitem(1, “itm_st“, “) dw_1.setitem(1, “itm_cl“, “) dw_1.setitem(1, “pur_uom1“, “) dw_1.setitem(1, “pur_uom2“, “) dw_1.setitem(1, “itm_st_desc“, “) dw_1.setitem(1, “itm_cl_desc“, “) dw_1.setitem(1, “itm_desc“ , “) is_itm_flg = “0“ end if /其他处理 如果所有的 CHECK 都完成了之后，登入发效日，登入各种正确的物料单价，然后按下 OK 按钮，便会把该单价登录到数据库单价主文件里，登录者可以对该些单价进行维护。 第四节 单价主文件查询（按交易对象） 厦门大学软件学院毕业论文(2002 级二学位) - 43 - OK 按钮按下之后, 如果数据库检索不到符合条件的数据，则出 MESSAGE(Z013) :“no data found.”(处理与 上同)，并且不进入下画面 如果数据库的单价主文件里有存在符合条件的数据，则检索出来 PC-PYMAC 成本管理子系统物料单价管理子模 - 44 - 检索出数据之后, 按下 Print 按钮则弹出下面的报表打印预览，可根据需要对其进行操作 按下 Sort 按钮则弹出指定字段排列对话框，可根据需要按不同字段