行开插件开发实例-供应商资质管理

U8知识库文档行开插件开发实例-供应商资质管理摘要U8系列产品提供了许多的二次开发接口，用户可在U8平台充分利用二次开发技术及接口开发出符合特定业务需求的插件，以更好的满足用户的个性化需求。本文将以供应商资质管理为实例介绍如何利用U8平台提供的二次开发技术及接口实现插件式的二次开发，并应用于U8标准流程的控制。目标本文通过一个实例分步介绍了如何利用U8提供的开发技术及接口实现供应商资质管理。通过本文的学习，开发人员可掌握U8中权限管理、菜单挂接、工具条、单据开发、单据事件接口等相关技术，并能按步骤开发出类似的插件。实例简介供应商资质管理介绍：建立供应商资质档案，菜单挂接：供应链资质管理供应商资质业务处理供应商资质认证 供应链采购管理供应商管理供应商资质认证列表在审核采购订单时，判断订单供应商是否有对应资质认证，只有供应商存在对应资质认证的前提下才能成功审核采购订单，否则提示该供应商无资质认证，审核失败。业务流程如下图：开发实现步骤1. 菜单挂接和权限U8的菜单都是通过脚本，将菜单的数据，包括菜单层级关系预制到ufdata库的ua_menu表，下面将以“供应商资质”为例介绍一下如何插入菜单节点：如下图：首先，需要了解一下UA_menu 表的结构：字段名数据类型含义AutoIDuid自动编号cMenu_IdString菜单编号，自动产生，不可修改cMenu_NameString菜单名称，输入cMenu_EngString程序类型，可忽略cSub_IdString模块标识，程序处理IGradeInt16级次，根据当前选中菜单程序自动处理cSupMenu_IdString上级菜单编号，根据当前选中菜单程序自动处理bEndGradeBoolean是否末级，输入，cAuth_IdString功能权限编号，程序内部处理，控制权限时有效（cAuth_Id= cMenu_Id）。iOrderInt32显示顺序号，程序处理iImgIndexInt32图标索引号，暂不用ParamtersString参数，输入，只有末级菜单才允许录入参数DependsString依赖 FlagInt标志按照层级关系，首先在供应链下面插入资质管理的顶级菜单节点：insert into ua_menu (cMenu_Id,cMenu_Name,cMenu_Eng,cSub_Id,IGrade,cSupMenu_Id,bEndGrade,cAuth_Id,iOrder,iImgIndex,Paramters,Depends,Flag)values(HH,资质管理,Null,HH,1,SCMG,0,Null,-9999,1,Null,HH,Null)然后再分别插入“供应商资质”节点和末级节点“供应商资质认证”insert into ua_menu (cMenu_Id,cMenu_Name,cMenu_Eng,cSub_Id,IGrade,cSupMenu_Id,bEndGrade,cAuth_Id,iOrder,iImgIndex,Paramters,Depends,Flag)values(EFZZGL01,供应商资质,Null,HH,2,HH,0,EFZZGL01,800,1,Null,HH,Null)insert into ua_menu (cMenu_Id,cMenu_Name,cMenu_Eng,cSub_Id,IGrade,cSupMenu_Id,bEndGrade,cAuth_Id,iOrder,iImgIndex,Paramters,Depends,Flag)values(EFZZGL,供应商资质认证,Null,HH,4,EFZZGL0101,1,EFZZGL,1000,1,Null,HH,Null)做完上述的菜单插入后，就要为各个菜单关联上权限，这样才可以在系统内对菜单进行权限控制，U8功能权限信息也是通过预制数据库数据实现，预制权限是对ua_auth_base表进行操作：见上图，这里需要说明一下权限与菜单的差异：权限节点，某模块的顶级节点，在U8拥有该模块产品号的前提下是不需要预制，例如上图资质管理节点，在权限表内是找不到该权限节点，但是，如果U8未包含的产品，就必须预制权限表，预制的例子如下：首先预制权限主表ua_auth_base:IF NOT EXISTS (SELECT TOP 1 DATA AS DATA FROM ua_auth_base Where (cAuth_Id=EFZZGL and cSub_Id=HH) ) INSERT INTO ua_auth_base(cAuth_Id,cSub_Id,iGrade,cSupAuth_Id,bEndGrade,iOrder,cAcc_Id,cAuthType,cAllSupAuths,irepnum,cRepellent,cRepellentModule,cNotRepellent,cRepInDB,cRepModInDB,cNotRepInDB)VALUES (EFZZGL,HH,4,EFZZGL,1,2300,NULL,0,EFZZGL,EFZZGL0101,EFZZGL01,NULL,NULL,NULL,NULL,NULL,NULL,NULL) 然后预制权限语言信息ua_auth_lang：IF NOT EXISTS (SELECT TOP 1 DATA AS DATA FROM UA_Auth_lang Where (cAuth_ID=EFZZGL) ) INSERT INTO UA_Auth_lang(localeid,cAuth_ID,cAuth_Name)VALUES (zh-CN,EFZZGL,供应商资质认证)注：预制菜单时，可以使用先删除后插入的方式进行预制，预制权限怎不允许这种方式，所以在例子语句中，都添加了判断的SQL语句2. 预制门户按钮(U8 V11.0以下版本不需要做这一步)下面先对U8门户按钮做一下简单介绍：按钮插入步骤1、插入窗体信息主表AA_Forms_base与窗体信息语言AA_Forms_lang，插入时可采用先删除后插入的模式Delete From AA_Forms_base Where cFormCode =NHH_Voucher_EFZZGL01Delete From AA_Forms_lang Where cFormCode =NHH_Voucher_EFZZGL01Insert Into AA_Forms_base(cFormCode,cSubID,iFormType,cMemo,cProjectNO,bSmallbutton) Values (NHH_Voucher_EFZZGL01,NHH,0,N供应商资质,NU870,0)Insert Into AA_Forms_lang(cFormCode,localeid,cFormCaption,cFormDesc,cSubID,cProjectNO) Values (NHH_Voucher_EFZZGL01,Nzh-CN,N供应商资质,N,NHH,NU870)2、插入按钮主表AA_FormButtons_base与按钮语言AA_FormButtons_langInsert Into AA_FormButtons_base(cFormCode,cButtonKey,cGroup,cPic,cToolBarType,iToolBarStyle,iOrder,iheightRow,cHotKey,cAuthid,iVoucherCtlIndex,ctoolbarPosIndex,cResID,cTipResID,cSubID,cProjectNO,cForegroundColor,cBackgroundColor,cSetGroup,iSetGroupRow,ProcessObjectName,FunctionKey) Values (NHH_Voucher_EFZZGL01,Nprint,NHH_Voucher_P_10,NPrint,NPortalToolbar,5,10,1,NCtrl+P,N,0,NP,N,N,NHH,NU870,N,N,NHH_Voucher_P_10_10,2,N,N)Insert Into AA_FormButtons_lang(cFormCode,localeid,cButtonKey,cCaption,cToolTip,cSubID,cProjectNO) Values (NHH_Voucher_EFZZGL01,Nzh-CN,Nprint,N打印,N打印,NHH,NU870)3、如果该按钮包含下拉按钮，则还需要插入按钮菜单表AA_FormButtonMenus_base与按钮菜单语言表Insert Into AA_FormButtonMenus_base(cFormCode,cButtonKey,cMenuKey,iOrder,cParentKey,igrade,cAuthid,cResID,cSubID,cProjectNO,cForegroundColor,cBackgroundColor,iMenuType,ProcessObjectName,FunctionKey) Values (NHH_Voucher_EFZZGL01,NPrint,Nprint,1,N,0,N,N,NHH,NU870,Nblack,N,0,N,N)Insert Into AA_FormButtonMenus_lang(cFormCode,localeid,cButtonKey,cMenuKey,cCaption,cToolTip,cSubID,cProjectNO) Values (NHH_Voucher_EFZZGL01,Nzh-CN,NPrint,Nprint,N打印,N,NHH,NU870)注：在U8V11.0以前的版本，按钮都是通过在代码中利用toolbar控件的additem方法添加按钮（既微软原有的方式），但是此种方法并不适用于U8V11.0,下面也为大家简单介绍一下U8V11.0以前版本预制按钮的方式，请看一下例子代码：初始化微软工具栏工具栏Public Sub Init_Toolbar(tlbObj As Toolbar, iSetType As Integer) With tlbObj.Buttons .Clear With .Add(, sKey_Print, strPrint, tbrDropdown) .ToolTipText = “打印” & (Ctrl+P) Call .ButtonMenus.Add(, PrintList,”打印列表”) Call .ButtonMenus.Add(, PrintBarCode, “打印条码”) End With .Add , sKey_Confirm, strConfirm .Item(sKey_Confirm).ToolTipText = strConfirm .Add , sKey_Cancelconfirm, strCancelconfirm .Item(sKey_Cancelconfirm).ToolTipText = strCancelconfirmEnd将微软工具栏与U8工具栏进行绑定Public Sub ChangeOneFormTbr(frm As Form, objTbl As Toolbar, objU8Tbl As Control) Set objU8Tbl.Business = g_oBusiness With objTbl .Buttons(sKey_Print).Tag = g_oBusiness.createportaltoolbartag(print, ICOMMON, PortalToolbar).Buttons(sKey_Confirm).Tag = g_oBusiness.createportaltoolbartag(Approve, ICOMMON, PortalToolbar) End With objU8Tbl.SetToolbar objTbl objU8Tbl.SetDisplayStyle 0 TextOnly objTbl.Visible = False objU8Tbl.Visible = True objU8Tbl.Left = objTbl.Left objU8Tbl.Top = objTbl.Top objU8Tbl.Width = frm.Width - 6 * Screen.TwipsPerPixelX objU8Tbl.Height = objTbl.HeightEnd SubCreateportaltoolbartag方法的第一参数，传入就是该按钮所使用的图标，图标文件可以在U8SOFTicons中寻找到。3. 预制单据模板信息U8单据模板信息，同样是将模板信息存储在数据库当中，主要涉及以下几个表：Vouchers_base、Vouchers_lang、VoucherTemplates_Base、VoucherTemplates_lang、VoucherItems_Base、Voucheritems_PRN_base、VoucherItems_PRN_Lang预制数据时需要按照顺序预制这几张表。insert into Vouchers_base (CardNumber,Shield,Name,CardType,ItemTblName,itemCol,BTTblName,BTQName,BWTblName,BWQName,VchListQName,HaveBodyGrid,BodyModify,VoucherWidth,VoucherHeight,BodyTop,BodyLeft,BodyWidth,BodyHeight,SelfDef1,SelfDef2,SelfDef3,DEF_ID,DEF_ID_PRN,cSub_Id,Memo,iOrder,cIndustry,bAllowMulTemp,cDefWhere,vchtblPrimarykeyNames,ReceiptNoFieldName,IsPrintLimited,AllowDateTimeFormat,NotAppiesAuth,InventoryFieldName,UpdateTime,cHeadBusObjectId,cBodyBusObjectId,cHeadFuncName,cBodyFuncName,cFieldAuthid,vchBodyPKName,BodyFKName)values(EFZZGL01,0,供应商资质,Null,Null,3,EF_ZZGL_VenLicence,EF_ZZGL_V_VenLicence_EFZZGL01,EF_ZZGL_VenLicences,EF_ZZGL_V_VenLicences_EFZZGL01,EF_ZZGL_V_VenLicenceList01,1,1,1000,1000,100,10,1000,10000,Null,Null,Null,31267,31268,HH,Null,1421,Null,1,Null,id,Null,1,1,1,Null,Null,Null,Null,Null,Null,Null,Null,Null)insert into Vouchers_lang (cardnumber,localeid,ccardname,appname)values(EFZZGL01,zh-cn,供应商资质,资质管理)insert into VoucherTemplates_Base (VT_ID,VT_CardNumber,VT_TemplateMode,VT_Width,VT_Height,VT_BodyTop,VT_BodyLeft,VT_BodyWidth,VT_BodyHeight,VT_SelfDef1,VT_SelfDef2,VT_SelfDef3,VT_Memo,VT_Lock,VT_TitleTop,VT_TitleLeft,VT_PageHeader,VT_BodyFixedCols,VT_BodyMaxRows,VT_GridStyle,VT_WorkAreaColor,VT_FiexdColor,VT_TotalColor,VT_ControlStyle,VT_GridPrnRows,VT_GridPrnRowHeight,VT_PrintTemplID,VT_AutoCalc,VT_PageSubTotal,VT_PageTotal,VT_PrintGrid,nAutoCalcWidth,nPrintSeril,nPrintGridLine,varPrintSetting,VT_PRN_DEF_LANDID,vt_saveObject,VT_ReservedInfo,VT_xamlField,VT_RowLayoutEnabled,AuditDisplayFlag)values(VT_ID,EFZZGL01,0,11339,7937,1400,120,11099,6107,3000,480,Null,Null,0,0,4830,Null,1,0,1,2,0,255,0,1,1,1,31,496,1,Null,Null,Null,0,Null)-insert into VoucherTemplates_lang (vt_id,localeid,vt_cardnumber,vt_name,vt_titlename,vt_titlefontstate,vt_foot,vt_gridstylehead,vt_gridstylebody,vt_gridstyletotal,vt_footheaderfont,vt_header,vt_RowLayoutXML)values(VT_ID,zh-cn,EFZZGL01,供应商资质显示模版,供应商资质,Tahoma,15,0,0,1,第%p页共%P页,Null)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)values(VT_ID,EFZZGL01,94,0,1,0,Null,Null,EF_ZZGL_VenLicence,iscontrol,1,4,Null,T,1,20,1300,0,1,1,Null,Null,1,1,0,0,0,3,3860,1090,3500,250,5,0,1,0,0,0,Null,0,1,0,Null,0,0,False,0,False,0,0,Null,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)values(VT_ID,EFZZGL01,94,0,1,0,Null,Null,EF_ZZGL_VenLicence,iscontrol,1,4,Null,T,1,20,1300,0,1,1,Null,Null,1,1,0,0,0,3,3860,1090,3500,250,5,0,1,0,0,0,Null,0,1,0,Null,0,0,False,0,False,0,0,Null,0,0)insert into VoucherItems_lang (guid,localeid,vt_id,fieldname,cardsection,cardnum,carditemname,cardformula1,cardformula2,fontstate)values(newid(),en-us,VT_ID,autoid,B,EFZZGL01,编号id,Tahoma,9,0,0,1)insert into Voucheritems_PRN_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,nBorder,ReferReturnField,cmemo,EnumType,IsEnum,EnumTypeString,bZeroAllowable,iFlags,vValueDefault,refObject,AutoFillRule,Catalog)values(VT_ID,EFZZGL01,70,0,0,0,Null,Null,EF_ZZGL_VenLicences,autoid,2,2,Null,B,1,4,1300,6,0,1,Null,Null,1,1,0,0,0,3,1000,28,2505,0,73,Null,0,Null,1,0,Null,0,0,Null,0,1,0,0,Null,Null,False,0,True,0,0,Null,Null,0,0)insert into VoucherItems_PRN_Lang (guid,localeid,vt_id,fieldname,cardsection,cardnum,carditemname,cardformula1,cardformula2,fontstate)values(newid(),en-us,VT_ID,autoid,B,EFZZGL01,编号id,Null,Null,Tahoma,9,0,0,1)4. 代码开发预制完上述菜单、权限、按钮、单据模板信息后，下面要进行的就是代码开发。代码开发，主要就是三个方面的工作：（1） 门户登录，既在门户中双击插入的菜单，登录到程序界面；（2） 完成对门户按钮预制信息，单据模板预制信息的加载（3） 功能逻辑实现在本文档，主要讲一下第一点与第二点，第三点由于程序各异，就不多加说明 门户登录：组件引用：在编写门户登录时，需要在VB工程内增加一个接口类，接口类主要对门户登录接口的一个实现，并同时从门户中获取门户的登录业务对象Business、登录组件Login以及数据库连接对象，为后续代码编写提供基础，“供应商资质”的接口类为clsProductFacade，下列是实例代码： 获取门户的业务对象Public Property Get Business() As Object Set Business = g_obusinessEnd PropertyPublic Property Set Business(ByRef bBus As Object) Set g_obusiness = bBus 获得business对象。End Property门户登录时运行Private Function ILoginable_Login() As Boolean If (Not g_obusiness Is Nothing) And g_bLogined = False) Then Set g_oLogin = g_obusiness.GetVBclsLogin() 获得login对象 If g_Conn.State = 1 Then g_Conn.Close g_Conn.ConnectionString = g_oLogin.UfDbName g_Conn.CursorLocation = adUseClient g_Conn.Open Call InitNumberFormat g_bLogined = True ILoginable_Login = True Else ILoginable_Login = Not g_obusiness Is Nothing End IfEnd Function门户退出Private Function ILoginable_LogOff() As Boolean 程序退出前,添加自己的代码 ILoginable_LogOff = True 本行代码必须。 g_bLogined = False 本行代码必须。End Function门户登录主方法Private Function ILoginable_CallFunction(ByVal cMenuId As String, ByVal cMenuName As String, ByVal cAuthId As String, ByVal cCmdLine As String) As Object Dim vfd As Object Dim clsListInterFace As VouchListInterFace DolistVoucher = False Dim mEncrypt As Object Dim var As Variant Set gEncryptLogin = CreateObject(UFSoft.U8.Framework.Login.UI.clsLogin) Set mEncrypt = CreateObject(HY_FZ_Library.clsCommonLib) If mEncrypt.Encrypt(HH, gEncryptLogin, g_oLogin) = False Then Exit Function End If If ZwTaskExec(AuthShow, 1) = False Then Exit Function End If If Not (g_obusiness Is Nothing) Then Set vfd = g_obusiness.CreateFormEnv(frmMain_key4, frmMain) Form11_key为任意字符串，建议以窗体名_key来表示，既防止重复，又清晰易懂。 Call g_obusiness.ShowForm(frmMain, DP, f frmMain_key4, False, True, vfd) Else frmMain.Show frmMain.ZOrder 0 End IfEnd Function而编写这个类又怎么跟门户挂接呢，此时在数据的UFSYSTEM库的ua_idt这个表需要预知一条数据，将菜单ID（cMenu_id）与接口类关联，例如“供应商资质”工程名叫EFZZGLMain，接口类叫clsProductFacade，则预知到ua_idt这个表的SQL语句如下：insert into ufsystem.ua_idt (id,assembly,catalogtype,type,class,entrypoint,parameter,reserved)values(EFZZGL,EFZZGLMain.clsProductFacade,0,0,Null,Null,Null,Null) 按钮加载：使用U8的按钮，需要同时在窗体中增加微软的toolbar控件和U8的uftoolbar控件按钮加载一般在窗体的Form_laod事件中进行： 方法说明 Settoolbarfromdata(oMSToolBar As Object, CN As Connection, oLogin As Object, sFormKey As String, sSubKey As String, oVouchers As Object) oMSToolBar:微软toolbar控件名称， CN数据连接对象， ologin登陆组件，即u8login.clslogin ，sFormKey 窗体关键字，sSubKey 子产品号,oVouchers 窗体所使用的单据控件UFToolbar1.Settoolbarfromdata tbrvoucher, DBConn, m_Login, formKey, HHUFToolbar1.SetToolbar tbrvoucherCall UFToolbar1.SetFormInfo(Me.Voucher, Me)代码中Settoolbarfromdata方法是从数据中获取上述预制的按钮信息UFToolbar1.SetToolbar tbrvoucher是将Toolbar与uftoolbar进行绑定 单据模板、单据数据加载方法：需要引用单据服务与单据控件u 模板加载 If objVoucherTemplate Is Nothing Then Set objVoucherTemplate = New UFVoucherServer85.clsVoucherTemplate End If 创建单据数据源对象 Set oDataSource = CreateObject(IDataSource.DefaultDataSource) If oDataSource Is Nothing Then MsgBox “创建单据数据源对象 End If Set oDataSource.SetLogin = g_oLogin Set Voucher.SetDataSource = oDataSource Call SetTemplateData Voucher.LoginObj = g_oLogin Voucher.InitDataSource实例代码SetTemplateData为加载单据的主体代码Private Sub SetTemplateData() Dim oRecordset As ADODB.Recordset 模版数据记录集 Dim sAuth As String 字段权限字符串 Dim sNumber As String 单据编号规则字符串 Dim lColor1 As Long Dim lColor2 As Long On Error GoTo Err_Handler * * 得到单据模版数据,根据指定的单据类型和模版ID取得单据数据 Set oRecordset = objVoucherTemplate.GetTemplateData2(g_Conn, gstrCardNumber, m_strVT_ID) * 取得指定操作员对单前单据的权限,以便进行权限控制 * 1) 每次换模版的时候需要应用一次 sAuth = objVoucherTemplate.GetAuthString(g_oLogin, gstrCardNumber) * 取得 Rule 颜色 Call objVoucherTemplate.GetRuleColor( _ strConn:=g_Conn, _ clrDisable:=lColor1, _ clrNeed:=lColor2) * 设置单据控件不可见 Voucher.Visible = False * 1) SetVoucherAuth 方法必需在 SetTemplateData 方 Call Voucher.SetVoucherAuth(sAuth) Call Voucher.SetRuleColor(lColor1, lColor2) Call Voucher.SetTemplateData(oRecordset) Voucher.Visible = True * Exit SubErr_Handler:End Subu 数据加载U8单据数据以XML的方式加载到单据控件上的，所以从数据库取出数据后，需要转化为XML后再加载到单据上sql = select as editprop,* from Orderdetails where id= & lngVoucherID If oRecordset Is Nothing Then Set oRecordset = CreateObject(ADODB.Recordset) If oRecordset.State = adStateOpen Then Call oRecordset.Close Call oRecordset.Open(sql, g_Conn, adOpenStatic, adLockReadOnly) * 转换成 XML 数据格式 oRecordset.Save odombody, adPersistXML Voucher.setVoucherDataXML odomhead, odombody5. 单据列表单据列表的开发主要涉及以下步骤：1、 预知单据列表栏目信息；单据列表栏目的预知，U8 UAP提供很简便的工具，UAP主界面上工具菜单中有栏目设计器：栏目设计器：在栏目设计器，可以对单据列表栏目进行设计，具体栏目如何设计参考U8开发技术文档2、 代码编写加载单据列表栏目、加载单据列表数据、业务逻辑编写使用单据列表，首先需要在VB工程中引用U8单据列表控件，并将单据列表控件和分页控件一起拉入到VB窗体界面：然后引用中，引用U8栏目组件代码中，需要对单据列表进行初始化 Private WithEvents m_pagediv As Pagediv 定义分页组件Private Sub InitList() On Error GoTo ERR_HANDLER Dim objColset As U8ColumnS