客开项目开发实例_昌德化工.docx

U8知识库文档客开项目开发实例-昌德化工客户需求概括本文以采用客户化开发工具完成昌德化工的项目为例进行介绍。昌德公司化工行业, 工艺达标率是生产过程中, 各设备的巡检结果的记录; 每小时会巡检一次, 需要将巡检各工艺设备的结果记录于 ERP 系统中; 因在标准功能中, 其它检验单必须根据其它报检单生成, 在昌德实际作业过程中, 巡检是每小时或不定期巡检, 如需要先做其它报检单, 再生成其它检验单, 工作效率严重下降, 特昌德公司希望用友U8ERP 可以实现: 客户化开发方案在质量管理模块增加日常检验单作为日常记录，该单据可以手工录入不必参照报检单，界面设计如下图所示：开发步骤 1. 创建菜单在质量管理模块创建日常检验单、日常检验单列表菜单：日常检验单菜单脚本- 创建菜单脚本GO- select * from UA_Menu where cMenu_id=QM0209IF NOT EXISTS (select * from UA_Menu where cMenu_id=QM0209) BEGIN delete from UA_Menu where cMenu_id=QM0209insert into UA_Menu (cMenu_Id,cMenu_Name,cMenu_Eng,cSub_Id,IGrade,cSupMenu_Id,bEndGrade,cAuth_Id,iOrder,iImgIndex,Paramters,Depends,Flag,IsWebFlag)values(QM0209,日常检验,Null,QM,1,qm,0,Null,2090,2,Null,Null,Null,Null)END GO- select * from UA_Menu where cMenu_id=QM020901IF NOT EXISTS (select * from UA_Menu where cMenu_id=QM020901) BEGIN delete from UA_Menu where cMenu_id=QM020901insert into UA_Menu (cMenu_Id,cMenu_Name,cMenu_Eng,cSub_Id,IGrade,cSupMenu_Id,bEndGrade,cAuth_Id,iOrder,iImgIndex,Paramters,Depends,Flag,IsWebFlag)values(QM020901,日常检验单,Null,QM,2,QM0209,1,2110,4,Null,Null,Null,Null)END GO- select * from UA_Menu where cMenu_id=QM020902IF NOT EXISTS (select * from UA_Menu where cMenu_id=QM020902) BEGIN delete from UA_Menu where cMenu_id=QM020902insert into UA_Menu (cMenu_Id,cMenu_Name,cMenu_Eng,cSub_Id,IGrade,cSupMenu_Id,bEndGrade,cAuth_Id,iOrder,iImgIndex,Paramters,Depends,Flag,IsWebFlag)values(QM020902,日常检验单列表,Null,QM,2,QM0209,1,2110,4,Null,Null,Null,Null)END GO参考附件：快速开发工具案例菜单.sql2. 创建日常检验单据使用快速开发工具创建日常检验单脚本，如下图所示：日常检验单脚本参考附件：快速开发工具案例单据.sql；快速开发工具案例按钮(meta).sql3. 个性化需求开发a) 在新增日常报检单时，报检时间自动选择系统当前时间年/月/日且不能修改。设置报检时间格式insert into VoucherItems_Base (VT_ID,CardNum,CardItemNum,CanNotSelect,ShowIt,LinkIt,LinkTbl,LinkField,TableName,FieldName,FieldType,ReferType,ReferTable,CardSection,CanModify,MaxLength,MaxShowLen,NumPoint,IsNull,CanDelete,UserCheck,UserPrompt,FormatChar,IsMain,NeedSum,CalcField,AliasNum,isSelfDef,COX,COY,Width,Height,TabIndex,DefaultValue,IsFixedLenght,FormatData,PrintCaption,PrintUpcase,PrintInterval,DataSource,EnterType,DataRule,ValidityCheck,ReserveSegTitlePos,BuildArchives,ReferReturnField,cmemo,nBorder,EnumType,IsEnum,EnumTypeString,bZeroAllowable,iFlags,vValueDefault,refObject,AutoFillRule,Catalog,bsplit,IsJoinQuery,bExtended)values(VT_ID,QM020901,149,0,1,0,Null,Null,Inventory_Information,datetime1,5,3,Null,T,0,20,2000,0,0,1,Null,Null,1,0,0,0,0,0,7080,840,3240,250,149,0,YYYY-MM-DD hh:mm:ss,1,0,0,0,Null,0,1,0,Null,0,Null,0,Null,1,0,Null,Null,0,0,0,0)在插件中编辑报检时间取值Voucher 当前单据对象ButtonKey 按扭关键字strUserErr 错误信息bSuc =true 表示成功并终止系统流程 =false表示失败并继续系统流程Public Sub After_ButtonClick(Voucher As Object, ButtonKey As String, strUserErr As String, bsuc As Boolean) bsuc = False Select Case LCase(StrCardNum) Case LCase(QM020901) If LCase(ButtonKey) = add Then Vouchers_Frm.Voucher.headerText(datetime1) = Format(Getsqlval( select getdate(), DBconn), YYYY-MM-DD hh:mm:ss) End If Case Else End SelectEnd Subb) 质量检测方案编码参照。对应参照脚本insert into VoucherItems_Base (VT_ID,CardNum,CardItemNum,CanNotSelect,ShowIt,LinkIt,LinkTbl,LinkField,TableName,FieldName,FieldType,ReferType,ReferTable,CardSection,CanModify,MaxLength,MaxShowLen,NumPoint,IsNull,CanDelete,UserCheck,UserPrompt,FormatChar,IsMain,NeedSum,CalcField,AliasNum,isSelfDef,COX,COY,Width,Height,TabIndex,DefaultValue,IsFixedLenght,FormatData,PrintCaption,PrintUpcase,PrintInterval,DataSource,EnterType,DataRule,ValidityCheck,ReserveSegTitlePos,BuildArchives,ReferReturnField,cmemo,nBorder,EnumType,IsEnum,EnumTypeString,bZeroAllowable,iFlags,vValueDefault,refObject,AutoFillRule,Catalog,bsplit,IsJoinQuery,bExtended)values(VT_ID,QM020901,51,0,1,0,Null,Null,Inventory_Information,str3,1,1,Null,T,1,20,2000,0,0,1,Null,Null,1,0,0,0,0,0,240,1920,3120,250,51,0,1,0,0,0,Null,0,1,0,Null,0,Null,0,Null,1,0,Null,Null,0,0,0,0)insert into VoucherItems_Base (VT_ID,CardNum,CardItemNum,CanNotSelect,ShowIt,LinkIt,LinkTbl,LinkField,TableName,FieldName,FieldType,ReferType,ReferTable,CardSection,CanModify,MaxLength,MaxShowLen,NumPoint,IsNull,CanDelete,UserCheck,UserPrompt,FormatChar,IsMain,NeedSum,CalcField,AliasNum,isSelfDef,COX,COY,Width,Height,TabIndex,DefaultValue,IsFixedLenght,FormatData,PrintCaption,PrintUpcase,PrintInterval,DataSource,EnterType,DataRule,ValidityCheck,ReserveSegTitlePos,BuildArchives,ReferReturnField,cmemo,nBorder,EnumType,IsEnum,EnumTypeString,bZeroAllowable,iFlags,vValueDefault,refObject,AutoFillRule,Catalog,bsplit,IsJoinQuery,bExtended)values(VT_ID,QM020901,52,0,1,0,Null,Null,Inventory_Information,str4,1,1,Null,T,0,20,2000,0,0,1,Null,Null,1,0,0,0,0,0,3600,1920,3000,250,52,0,1,0,0,0,Null,0,1,0,Null,0,Null,0,Null,1,0,Null,Null,0,0,0,0)insert into SA_ReferFillConfig (cardnumber,fieldname,cardsection,refername,sourcefieldname,destfieldname,breferfill,bcellcheckfill,bclear,bcheckchange,changemsg)values(QM020901,str3,T,qmcheckproject_qm,cprojectcode,str3,1,1,1,Null,Null)insert into SA_ReferFillConfig (cardnumber,fieldname,cardsection,refername,sourcefieldname,destfieldname,breferfill,bcellcheckfill,bclear,bcheckchange,changemsg)values(QM020901,str3,T,qmcheckproject_qm,cprojectname,str4,1,1,1,Null,Null)insert into SA_ReferFillConfig (cardnumber,fieldname,cardsection,refername,sourcefieldname,destfieldname,breferfill,bcellcheckfill,bclear,bcheckchange,changemsg)values(QM020901,str4,T,qmcheckproject_qm,cprojectcode,str3,1,1,1,Null,Null)insert into SA_ReferFillConfig (cardnumber,fieldname,cardsection,refername,sourcefieldname,destfieldname,breferfill,bcellcheckfill,bclear,bcheckchange,changemsg)values(QM020901,str4,T,qmcheckproject_qm,cprojectname,str4,1,1,1,Null,Null)c) 指标质量判定: 录入的检验值(根据标准值和上限值及下限值 范围) 自动判定是否合格插件初始化用户插件Voucher 当前单据对象sKey 当前操作关键字sRet 返回值strUserErr 错误信息bChangedbSuc =true 表示成功并终止系统流程 =false表示失败并继续系统流程Public Sub Voucher_headCellCheck(ByVal Voucher As Object, sKey As String, RetValue As String, bChanged As Long, strUserErr As String, bsuc As Boolean) bsuc = False Dim sqlstr As String Dim row As Long Select Case StrCardNumCase QM020901 If LCase(sKey) = str3 Then sqlstr = select CCHKITEMNAME as 检验项目,CCHKGUIDENAME as 检验指标,(case CBUGGRADE when 2 then 一般 when 1 then 重要 else 严重 end) as 缺陷等级,CSTANDARD as 标准值,IUPPERLIMIT as 上限值,ILOWERLIMIT as 下限值,(case BRECORDDETAILS when 1 then 是 else 否 end) as 记录样本值 from QM_QCheckProjectList Where CPROJECTCODE = & RetValue & If rds.State 0 Then rds.Close rds.CursorLocation = adUseClient rds.open sqlstr, DBconn.ConnectionString, 3, 4 Do While Not rds.EOF row =