Epicor905水晶报表与客户化.pptVIP

如何在客户化中调用外挂程序。 ①、如图所示，外挂程序完成后，进入My Project 。应用程序类型选择为类库，点击生成按钮，编译成dll文件。 4、调用外挂 第三十一页，共五十二页。 ②、将生成的dll文件放到Epicor安装目录的client目录下。 ③、如图，点击工具栏→半成品参考管理器。 第三十二页，共五十二页。 ④、选中custom Assemblies →添加自定义参考。 ⑤、选取要调用的dll文件， 如右图所示，点击确定。 第三十三页，共五十二页。 ⑥、至此外挂程序已被引用到客户化中。测试引用。添加1个epiButton1，在epiButton1的click事件中写入以下代码 Private Sub epiButton1_Click(ByVal sender As Object, ByVal args As System.EventArgs) ** Place Event Handling Code Here ** Dim frm as new orderback.form1 Dim str as string str=frm.GridValue_back(“Driver={Progress OpenEdge 10.1C Driver};DB=mfgsys;UID=sysprogress;PWD=sysprogress;HOST=daniel;PORT=9080”,“echom”) ‘GridValue_back()为外挂程序中的函数 msgbox(str) End Sub ⑦、更新代码，测试通过后，保 存客户化代码。关闭界面重新进 入客户化，选择刚刚保存的客户 化进入。点击epiButton1进行测 试。 第三十四页，共五十二页。 ⑧、如下图所示，调用出frm.form1 窗体。 至此完成客户化调用外挂程序。 第三十五页，共五十二页。 ①、获取当前公司 company,服务器 host, 端口号 port。 Dim s as string= OTrans.Session.AppServer company=OTrans.Session.CompanyID host = Mid(s, InStrRev(s, //) + 2, InStrRev(s, :) - InStrRev(s, //) - 2) port = Strings.Right(s, Len(s) - InStrRev(s, :)) port = Mid(port, 1, 2) + CStr(Int(Mid(port, 3, 1)) + 5) + CStr(Int(Mid(port, 4, 1)) - 1) ②、调用系统功能。 oTrans.Undo() ‘撤销 oTrans.update() ‘保存 oTrans.Refresh() ‘刷新界面 ProcessCaller.LaunchForm(Otrans, “UD_GDQL”) ‘调用系统菜单项。“UD_GDQL”为菜单ID。 。。。。。 ③、根据条件弹出选择框，并返回DataSet Function SearchShowToDS(ByVal strAtapterName as string, ByVal strWhereClause as string, ByRef dsSearch As DataSet) Dim recSelected As Boolean Try dsSearch = Epicor.Mfg.UI.FormFunctions.SearchFunctions.listLookup(otrans, strAtapterName, recSelected, True, strWhereClause) Catch ex As Exception MessageBox.Show(ex.Message.ToString) End Try Return recSelected End Function 5、系统函数方法使用。 第三十六页，共五十二页。 ④、视图取值，赋值。 Dim RcvHead As EpiDataView = CType(oTrans.EpiDataViews(RcvHead), EpiDataView) ‘定义RcvHead为视图oTrans.EpiDataViews(Rc