找回密码
 注册账号

QQ登录

只需一步,快速开始

手机号码,快捷登录

手机号码,快捷登录

初学者课程:T3自学|T6自学|U8自学软件下载课件下载工具下载资料:通资料|U8资料|NC|培训|年结积分规则 | 使用常见问题Q&A
知识库:U8 | | NC | U9 | OA | 政务U8|U9|NCC|NC65|NC65客开|NCC客开新手必读 | 任务 | 快速增金币用友QQ群[微信群]
查看: 4598|回复: 12

[资料] 为何这里没插件开发的交流? 我无私点给你们开发的思路

[复制链接]
发表于 2012-12-30 17:07:03 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册账号

×
懂的人可以加我QQ,大加互相学习!
555.jpg
不用UAP,完全写DLL的插件开发,
发个思路吧:
用友的菜单完全可以后台加的,或者用UAP平台的菜单编辑器增加!
菜单对应的插件类的增加(主要写ua_idt表)
举例如下:
INSERT INTO [UFSystem].[dbo].[ua_idt]([id], [assembly], [catalogtype], [type], [class], [entrypoint],
[parameter], [reserved])
VALUES('你的为名称','你的类',0,0,null,null,null,null)
增加的菜单(SAM0302是销售管理子菜单)
INSERT INTO [dbo].[UA_Menu]([cMenu_Id], [cMenu_Name], [cMenu_Eng], [cSub_Id],
[IGrade], [cSupMenu_Id], [bEndGrade], [cAuth_Id], [iOrder], [iImgIndex], [Paramters], [Depends], [Flag])
VALUES('你的为名称','费用报销单',null,'SA',1,'SAM0302',1,NULL,0,0,NULL,NULL,NULL)

加好菜单后,点击菜单自然会调用你的类:

类的编写:
Implements UFPortalProxyInterface.ILoginable
Public Property Get Business() As Object
    Set Business = g_business
End Property
Public Property Set Business(ByRef bBus As Object)
    Set g_business = bBus
End Property
Public Sub ShowModeless(ByVal cMenuId As String, ByVal cMenuName As String, ByVal cAuthId As String, ByVal cCmdLine As String)
    Dim vfd
    RecordLogFile "1.0", "你的类名.ShowModeless"
    RecordLogFile "2.0", "你的类名.ShowModeless"
    Set vfd = g_business.CreateFormEnv("类文件.你的表单", 你的表单)
    f_cardriver.sCommandLine = cCmdLine
    g_business.ShowForm 你的表单, "SA", "你的表单_key01"
    RecordLogFile "3.0", "你的类名.ShowModeless"
End Sub
这个用友提供的接口
你的表单就是你自己写的插件内容了!

至于如何获取用友的登录信息:

Public Function Connect() As Boolean
    '设置登录对象
    Dim g_Login As Object
    On Error GoTo ErrProc
    Set g_Login = g_business.GetVBclsLogin()
    gcnn.ConnectionString = g_Login.UfDbName
    g_Acc = g_Login.cAcc_Id: g_AccN = g_Login.cAccName: g_Year = g_Login.cIYear: g_Date = g_Login.CurDate: g_User = g_Login.cUserId: g_UserN = g_Login.cUserName: g_Sa = g_Login.cUserPassWord
    gcnn.Open
    Connect = True
    Exit Function
   
ErrProc:
    Connect = False
End Function

在单据加载时检查Connect=true
就可以取得登录的信息了,之后当是你想干嘛就干嘛了!








发表于 2012-12-30 19:42:05 | 显示全部楼层
怎么联系你呢 你QQ
回复 点赞 拍砖

使用道具 举报

发表于 2012-12-30 20:05:53 | 显示全部楼层
没弄过开发,看的不是很明白!
回复 点赞 拍砖

使用道具 举报

发表于 2012-12-31 09:25:36 | 显示全部楼层
高手,高,实在是高
回复 点赞 拍砖

使用道具 举报

 楼主| 发表于 2013-1-3 12:19:07 | 显示全部楼层
QQ 416434318  
回复 点赞 拍砖

使用道具 举报

发表于 2013-1-31 09:07:02 | 显示全部楼层
值得学习,我也是学程序的,以后多交流
回复 点赞 拍砖

使用道具 举报

发表于 2013-2-18 16:23:50 | 显示全部楼层
u8 v11.0的现在还可这样用么?
回复 点赞 拍砖

使用道具 举报

发表于 2013-2-20 12:53:06 | 显示全部楼层
我来学习了
回复 点赞 拍砖

使用道具 举报

发表于 2014-8-7 14:42:51 | 显示全部楼层
是啊,这个思路872前可以用,新版本可以吗?楼主,请关照
回复 点赞 拍砖

使用道具 举报

发表于 2014-9-11 08:56:25 | 显示全部楼层
好,想学习学习
回复 点赞 拍砖

使用道具 举报

发表于 2014-9-11 17:06:15 | 显示全部楼层
厉害啊,呵呵,学习交流
回复 点赞 拍砖

使用道具 举报

发表于 2014-9-16 15:16:05 | 显示全部楼层
厉害, 我来学习一下.
回复 点赞 拍砖

使用道具 举报

发表于 2014-9-23 00:43:04 | 显示全部楼层
太厉害了,五体投地
回复 点赞 拍砖

使用道具 举报

您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

QQ|站长微信|Archiver|手机版|小黑屋|用友之家 ( 蜀ICP备07505338号|51072502110008 )

GMT+8, 2024-11-24 00:16 , Processed in 0.060417 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表