目前是额外再写了个参数输入窗口实现的功能。如果可以直接调用 自定义表单 记录, 新建或修改。 会比单独写效率更高一些。 感觉可以增强 view_app_obj 函数, 可以打开自定义表单的记录(没有时新增) // 生成首样确认记录 int func_create_ut_emf_task_frist() { // 必填字段 string task_id, res_id, emf_v_no, emf_center_id, ext_8, create_user_id, create_date, inp_num; task_id = gui_get_val("Edit_Task_Id"); res_id = gui_get_val("ComboBox_Ext_Res_Id"); emf_v_no = gui_get_val("Edit_Emf_V_No"); emf_center_id = gui_get_val("ComboBox_Ext_Emf_Center_Id"); ext_8 = gui_get_val("edit_Ext8"); inp_num = gui_get_val("Edit_Task_Num"); create_user_id = get_user_id(); create_date = get_cur_date_std(); if (task_id == '') { msg('任务单号不能为空'); return 1; } if (res_id == '') { msg('产品不能为空'); return 1; } if (emf_v_no == '') { msg('订单编号不能为空'); return 1; } if (emf_center_id == '') { msg('工作中心不能为空'); return 1; } if (ext_8 == '') { msg('批号不能为空'); return 1; } inp_clear(); inp_def_string('task_id', '任务单号'); inp_def_string('emf_v_no', '订单编号'); inp_def_dict('emf_center_id', '工作中心', 'emf_center'); inp_def_dict('res_id', '产品', 'res'); inp_def_string('ext_8', '批号'); inp_def_int('inp_num', '生产数量'); inp_def_string('sub_val_1', '参数1'); inp_def_string('sub_val_2', '参数2'); inp_def_string('sub_val_3', '参数3'); inp_def_string('sub_val_4', '参数4'); inp_def_string('sub_val_5', '参数5'); inp_def_string('sub_val_6', '参数6'); inp_set_val('task_id', task_id); inp_set_val('emf_v_no', emf_v_no); inp_set_val('emf_center_id', emf_center_id); inp_set_val('res_id', res_id); inp_set_val('ext_8', ext_8); inp_set_val('inp_num', inp_num); inp_set_disable('task_id', 1); inp_set_disable('emf_v_no', 1); inp_set_disable('emf_center_id', 1); inp_set_disable('res_id', 1); inp_set_disable('ext_8', 1); inp_set_disable('inp_num', 1); if (inp_para() == 1) { string sub_val_1, sub_val_2, sub_val_3; string sub_val_4, sub_val_5, sub_val_6; sub_val_1 = inp_get_val('sub_val_1'); sub_val_2 = inp_get_val('sub_val_2'); sub_val_3 = inp_get_val('sub_val_3'); sub_val_4 = inp_get_val('sub_val_4'); sub_val_5 = inp_get_val('sub_val_5'); sub_val_6 = inp_get_val('sub_val_6'); string sql; sql = "delete from ut_emf_task_frist where task_id='" + task_id + "'"; db_run(sql); db_run('commit'); sql = "insert into ut_emf_task_frist (task_id, res_id, emf_v_no, emf_center_id, ext_8, create_user_id, create_date, inp_num,"; sql += "sub_val_1, sub_val_2, sub_val_3, sub_val_4, sub_val_5, sub_val_6) values ("; sql += "'" + task_id + "', '" + res_id + "', '" + emf_v_no + "', '" + emf_center_id + "', '" + ext_8 + "', '" + create_user_id; sql += "', '" + create_date + "', " + inp_num + ", '" + sub_val_1 + "', '" + sub_val_2 + "', '" + sub_val_3; sql += "', '" + sub_val_4 + "', '" + sub_val_5 + "', '" + sub_val_6 + "')"; db_run(sql); db_run('commit'); msg('创建完成'); } return 1; } // 删除首样确认记录 int func_delete_ut_emf_task_frist() { // 必填字段 string task_id; task_id = gui_get_val("Edit_Task_Id"); if (task_id == '') { msg('任务单号不能为空'); return 1; } string sql; sql = "delete from ut_emf_task_frist where task_id='" + task_id + "'"; db_run(sql); db_run('commit'); msg('删除完成'); return 1; } int set_win() { gui_set_w('this', 1000); gui_set_h('this', 800); gui_create_button("ScrollBox", 't1', 700, 2, 100, 30, '机台生产情况', 'view_csp_rep.ds_002'); gui_create_button("ScrollBox", 't2', 700, 34, 100, 30, '查看产品', 'call_csp.rec.emf_task.func_open_res'); gui_create_button("ScrollBox", 't3', 700, 66, 100, 30, '首样确认-创建', 'call_csp.rec.emf_task.func_create_ut_emf_task_frist'); if (is_super_user() == 1) { gui_create_button("ScrollBox", 't4', 700, 98, 100, 30, '首样确认-删除', 'call_csp.rec.emf_task.func_delete_ut_emf_task_frist'); } return 1; } |