二次开发问题

achao0558

如果生成的是dll文件的话，先注册，再到数据库UA_Menu表里加入按钮记录就可以了。

yzr0902

是可以调用其他程序的，但是没有输入输出啊。只能在uap平台上做

maizhaoqi

用UAP就了啊.就象是另外一个自行开发平台,可以做单据,或者档案.还有报表功能的.当然了,要另外买授权

沉思不语

支持C#,VB DLL挂入u8菜单,ua_idt,ua_menu两个表就行，找一下资料看看吧。
890还支持EXE，8100好像不支持了。

shouzhuabing

学习。。学习。

dongzuorun

用友提供的二开资料，和工具太有限了

mr.leizhu

目前在用UAP开发~

dongzuorun

这里是VB的代码
Option Explicit

Implements UFPortalProxyInterface.ILoginable
Private m_oBusiness As Object
Private m_oLogin As Object



Public Property Get Business() As Object
    Set Business = m_oBusiness
End Property

' 初始化,获取Business对象,并初始化Login对象
Public Property Set Business(ByRef bBus As Object)
   
    Set m_oBusiness = Nothing
    Set m_oLogin = Nothing
   
    Set m_oBusiness = bBus
   
End Property

Private Function ILoginable_Login() As Boolean
    ILoginable_Login = True
    If ((Not m_oBusiness Is Nothing) And (m_oLogin Is Nothing)) Then
        Set m_oLogin = m_oBusiness.GetVBclsLogin() '获得login对象
        ILoginable_Login = True
        Exit Function
    Else
        Set m_oBusiness = Nothing
        Set m_oLogin = Nothing
        ILoginable_Login = False
        Exit Function
    End If
End Function

Private Function ILoginable_LogOff() As Boolean
    ILoginable_LogOff = True
End Function


Public 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 strConn As String
    Dim stc As String
    Dim mform As Form
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim sql As String
   
   
    On Error GoTo ErrTray
        If Not m_oLogin Is Nothing Then
            strConn = m_oLogin.UfDbName
            stc = strConn
            
            If DBconn Is Nothing Then
                Set DBconn = New ADODB.Connection
                DBconn.ConnectionTimeout = 600
                DBconn.CommandTimeout = 1200
            End If
            If DBconn.State = 1 Then DBconn.Close
            DBconn.Open strConn
            Set mform = New clsFrmMain
            '-mform.Show
            MsgBox cMenuId
            Set vfd = m_oBusiness.CreateFormEnv("xxxxxxxxxxxAxxxxxxxxxxxxxxxxx", mform)
            Call m_oBusiness.ShowForm(mform, "DP", "xxxxxxxxxxxAxxxxxxxxxxxxxxxxx", False, True, vfd)
            Exit Function
        Else
           Exit Function
        End If
        
ErrTray:
    MsgBox Err.Description, vbCritical, "发生错误:"

End Function

静止/time

ufidalijianfeng

UAP能做不过的找专家做一般人做不了

用友软件（15209

销售过程在怎么用T+11.5来管理呢？高手们求教了

lhsk

UAP可以，能用SQL搞定的报表就用SQL搞定，自定义报表

qtailang

我也想知道这个问题