用友U8开发大合集

1422907247

本次U8开发合集培训，分别是U8自定义按钮开发、U8控件事件开发、U8单据事件开发、U8嵌入式窗口开发、U8补丁工具打包、UAP单据开发、UAP报表开发、U8API开发培训、用友底层方式API培训、用友凭证导入培训。送用友全模块学习视频。
https://ke.qq.com/course/3385040?tuin=54cfd76f
或者加Q群：293892902

18928099590

谢谢分享

luckgem

谢谢分享

Lyzer

谢谢分享

1422907247

1. 第一章：用友U8二次开发
1.1 用友U8按钮开发
1.1.1 讲解了如何添加自定义按钮，介绍了在销售订单和销售订单列表添加按钮。
1.1.2 讲解如何获取单据界面的数据库链接、登录人员信息、以及表头内容、表体内容，以及如何给单据界面的表头、表体赋值，可以通过一般赋值，或者模拟输入方式赋值。
1.1.3 介绍了三个案例。
第一个是 引采购订单生产销售订单，快速生单。
第二个是 循环表体，根据表体物料编码获取最新单价，更新的含税单价。
第三个是 在列表批改备注 ,会循环列表，识别打勾的行，获取行销售订单号，根据行销售订单号更新 对应备注。
1.2 用友单据控件事件开发
1.2.1 讲解了如何添加单据控件事件开发，介绍了在采购订单表头、表体控件校验后事件，以及表体单击后事件。
1.2.2 介绍了三个案例
第一个 表头选择供应商事件触发，循环表体根据供应商 +存货编码从价格表获取维护单价，赋值给表体的采购单价栏目 。
第二个 表头选择供应商事件触发，循环表体根据供应商 +存货编码从价格表获取维护单价，赋值给表体的采购单价栏目 。
第三个单 击表体，根据表体物料编码查询最近一次的采购价格信息，弹窗显示。
1.3 用友单据事件开发
1.3.1 讲解了如何添加单据事件，介绍了在销售订单添加保存前触发的单据事件开发。
1.3.2 介绍了一个案例
第一个是单据 保存前检查 00001客户不予许销售01000001此类产品，如果检查有此类产品，单据不允许保存，并且提醒用户 。
1.4 用友嵌入式窗口开发
1.4.1 讲解了如何在 U8 添加菜单以及菜单嵌入式窗口。
1.4.2 介绍了一个案例
第一个是 开发嵌入式页签窗口，自定义窗口功能，本窗口功能是输入订单号和行号修改销售订单表体备注信息。
1.5 用友补丁打包
15.1 介绍如何把开发好的 dll 文件打包成 msi 补丁，并且介绍如何部署 msi 补丁。

1422907247

  联查代码 分享  string cmdLine = "";
            cmdLine = "ID:{0}&&&Name:{1}&&&SubSysID:{2}&&&AuthID:{3}&&&CMDLINE:{4}\t{5}";

            cmdLine = string.Format(cmdLine, menuID, menuName, subID, authID, cardNumber, pkFieldValue);
            IPortalCommandOperator portalCommandOperator = new PortalCommandOperator();
            IPortalCommandArgs portalCommandArgs = new PortalCommandArgs(menuID, subID);
            portalCommandArgs.AuthId = string.Empty;
            portalCommandArgs.DocId = string.Empty;
            portalCommandArgs.DocType = string.Empty;
            portalCommandArgs.ID = menuID;
            portalCommandArgs.Name = menuName;
            portalCommandArgs.SubFunction = string.Empty;
            portalCommandArgs.Extenision = string.Empty;
            portalCommandArgs.SubSysID = subID;
            portalCommandArgs.CmdLine = cmdLine;
            portalCommandArgs.FromUserClick = false;
            portalCommandArgs.ExtProperties.Add("recheck", "1");
            portalCommandOperator.RunBusiness(portalCommandArgs);

1422907247

'执行按钮前执行该方法，objVoucher为单据或列表对象
    'VarentValue为在表中预置的cVariant的值。
    'objLogin代表UFToolbar上取得的Login信息
    'objForm代表该Toolbar所在的窗体信息
    'objVoucher代表Toolbar所在窗体上的单据控件对象或者单据列表对象
    'sKey代表该按钮的ButtonKey
    'VarentValue代表数据库预置的Varent值
    Public Function BeforeRunSysCommand(ByVal objLogin As Object, ByVal objForm As Object, ByVal objVoucher As Object, _
                            ByVal sKey As String, ByVal VarentValue As Object, ByRef Cancel As Boolean, ByVal other As String) As Boolean
        Dim cCusCode As String
        Dim cInvCode As String
        Dim sql As String
        Dim Dt_data As New DataTable
        U8SQLHelper.U8DB.connectionString = objLogin.UfDbName
        '保存前检查000001客户不予许销售01000001此类产品，如果检查有此类产品，单据不允许保存，并且提醒用户
        If sKey = "save" Then
            For i = 1 To objVoucher.Rows
                If Not String.IsNullOrEmpty(objVoucher.bodyText(i, "cInvCode")) Then
                    cInvCode = objVoucher.bodyText(i, "cInvCode")
                    cCusCode = objVoucher.headerText("cCusCode")
                    If (cCusCode = "00000001" And cInvCode = "01000001") Then
                        MsgBox("此商品01000001，不能销售给该客户!")
                        Cancel = True
                        Exit Function
                    End If
                End If
            Next
        End If
        Cancel = False
    End Function

1422907247

'执行按钮前执行该方法，objVoucher为单据或列表对象
    'VarentValue为在表中预置的cVariant的值。
    'objLogin代表UFToolbar上取得的Login信息
    'objForm代表该Toolbar所在的窗体信息
    'objVoucher代表Toolbar所在窗体上的单据控件对象或者单据列表对象
    'sKey代表该按钮的ButtonKey
    'VarentValue代表数据库预置的Varent值
    Public Function BeforeRunSysCommand(ByVal objLogin As Object, ByVal objForm As Object, ByVal objVoucher As Object, _
                            ByVal sKey As String, ByVal VarentValue As Object, ByRef Cancel As Boolean, ByVal other As String) As Boolean
        Dim cCusCode As String
        Dim cInvCode As String
        Dim sql As String
        Dim Dt_data As New DataTable
        U8SQLHelper.U8DB.connectionString = objLogin.UfDbName
        '保存前检查000001客户不予许销售01000001此类产品，如果检查有此类产品，单据不允许保存，并且提醒用户
        If sKey = "save" Then
            For i = 1 To objVoucher.Rows
                If Not String.IsNullOrEmpty(objVoucher.bodyText(i, "cInvCode")) Then
                    cInvCode = objVoucher.bodyText(i, "cInvCode")
                    cCusCode = objVoucher.headerText("cCusCode")
                    If (cCusCode = "00000001" And cInvCode = "01000001") Then
                        MsgBox("此商品01000001，不能销售给该客户!")
                        Cancel = True
                        Exit Function
                    End If
                End If
            Next
        End If
        Cancel = False
    End Function

849830265

'执行按钮前执行该方法，objVoucher为单据或列表对象
    'VarentValue为在表中预置的cVariant的值。
    'objLogin代表UFToolbar上取得的Login信息
    'objForm代表该Toolbar所在的窗体信息
    'objVoucher代表Toolbar所在窗体上的单据控件对象或者单据列表对象
    'sKey代表该按钮的ButtonKey
    'VarentValue代表数据库预置的Varent值
    Public Function BeforeRunSysCommand(ByVal objLogin As Object, ByVal objForm As Object, ByVal objVoucher As Object, _
                            ByVal sKey As String, ByVal VarentValue As Object, ByRef Cancel As Boolean, ByVal other As String) As Boolean
        Dim cCusCode As String
        Dim cInvCode As String
        Dim sql As String
        Dim Dt_data As New DataTable
        U8SQLHelper.U8DB.connectionString = objLogin.UfDbName
        '保存前检查000001客户不予许销售01000001此类产品，如果检查有此类产品，单据不允许保存，并且提醒用户
        If sKey = "save" Then
            For i = 1 To objVoucher.Rows
                If Not String.IsNullOrEmpty(objVoucher.bodyText(i, "cInvCode")) Then
                    cInvCode = objVoucher.bodyText(i, "cInvCode")
                    cCusCode = objVoucher.headerText("cCusCode")
                    If (cCusCode = "00000001" And cInvCode = "01000001") Then
                        MsgBox("此商品01000001，不能销售给该客户!")
                        Cancel = True
                        Exit Function
                    End If
                End If
            Next
        End If
        Cancel = False
    End Function

849830265

'执行按钮前执行该方法，objVoucher为单据或列表对象
    'VarentValue为在表中预置的cVariant的值。
    'objLogin代表UFToolbar上取得的Login信息
    'objForm代表该Toolbar所在的窗体信息
    'objVoucher代表Toolbar所在窗体上的单据控件对象或者单据列表对象
    'sKey代表该按钮的ButtonKey
    'VarentValue代表数据库预置的Varent值
    Public Function BeforeRunSysCommand(ByVal objLogin As Object, ByVal objForm As Object, ByVal objVoucher As Object, _
                            ByVal sKey As String, ByVal VarentValue As Object, ByRef Cancel As Boolean, ByVal other As String) As Boolean
        Dim cCusCode As String
        Dim cInvCode As String
        Dim sql As String
        Dim Dt_data As New DataTable
        U8SQLHelper.U8DB.connectionString = objLogin.UfDbName
        '保存前检查000001客户不予许销售01000001此类产品，如果检查有此类产品，单据不允许保存，并且提醒用户
        If sKey = "save" Then
            For i = 1 To objVoucher.Rows
                If Not String.IsNullOrEmpty(objVoucher.bodyText(i, "cInvCode")) Then
                    cInvCode = objVoucher.bodyText(i, "cInvCode")
                    cCusCode = objVoucher.headerText("cCusCode")
                    If (cCusCode = "00000001" And cInvCode = "01000001") Then
                        MsgBox("此商品01000001，不能销售给该客户!")
                        Cancel = True
                        Exit Function
                    End If
                End If
            Next
        End If
        Cancel = False
    End Function

wajika

谢谢分享