用友开发-接口

849830265

849830265 发表于 2021-7-22 12:56
你天天关注我这个贴 赞

这个贴 含金量非常高

849830265

849830265 发表于 2021-8-5 12:43
这个贴 含金量非常高

赞 非常好的帖子

849830265

谢谢分享

849830265

   Maticsoft.DBUtility.DbHelperMySQL.connectionString = "server=.....ort=3306;user id=root;password=.....;database=info;pooling=true;charset=utf8;sslmode=none"; //根据自己的设置
    关键参数sslmode=none；
    没这个参数无法连接到mysql数据库

849830265

            获取列表内容

            Dim dom As IXMLDOMDocument2
            Dim root As IXMLDOMElement
            Dim node As IXMLDOMNode
            dom = objVoucher.GetListDom(True)
            node = dom.selectSingleNode("//rs:data")
            For Each root In node.childNodes
                cPOID = root.attributes.getNamedItem("cpoid").text
                Exit For
            Next
            If Not String.IsNullOrEmpty(cPOID) Then
                Dim PoReturnOrder As New UFIDA.U8.Cust.RAYSHARP.PoOrder.UI.PoReturnOrder(cPOID)
                PoReturnOrder.ShowDialog()
            End If

3560819158

内容更新得这么多 谢谢老师的分享

849830265

谢谢赞扬

849830265

          联查凭证

            Dim WbTableName As String '凭证临时表
            Dim dbc As ADODB.Connection
            Dim UfDb As New UfDbKit.UfDatabase
            Dim subid As String = "IA"
            Dim cno_id As String
            cno_id = "2021IA0000000019260"

         
            dbc = New ADODB.Connection
            ARPZ.zzLogin = m_login
            UfDb.OpenDatabase(m_login.UfDbName)
            m_ZwPub.InitPubs2("IA", m_login.UfSystemDb, UfDb, m_login.cAcc_Id, m_login.cIYear, m_login.cUserName, m_login.CurDate, m_login.SysPassword)
            ARPZ.zzSys = m_ZwPub
            ARPZ.NewFLCode = "IA,FA,#"
            WbTableName = m_ZwPub.WbTableName
            If dbc.State <> 0 Then dbc.Close()
            dbc.Open(m_login.UfDbName)
            Dim rsTemp As ADODB.Recordset
            Dim Str As String
            rsTemp = New ADODB.Recordset
            If rsTemp.State <> 0 Then rsTemp.Close()
            Str = "select top 1 * from GL_accvouch where coutno_id='" & cno_id & "' "
            rsTemp.CursorLocation = 3
            rsTemp.Open(Str, dbc, 3, 4)
            Dim coutsysname As String = ""
            Dim ioutperiod As String = ""
            Dim coutsign As String = ""
            Dim coutno_id As String = ""
            Dim ioutyear As String = ""
            If Not rsTemp.EOF Then
                coutsysname = rsTemp.Fields("coutsysname").Value
                ioutperiod = rsTemp.Fields("ioutperiod").Value
                coutsign = rsTemp.Fields("coutsign").Value
                coutno_id = rsTemp.Fields("coutno_id").Value
                ioutyear = rsTemp.Fields("ioutyear").Value
            End If
            If Not rsTemp.EOF Then
                ARPZ.StartUpPz("IA", "GL0205", 3, , cousysname, ioutperiod, coutsign, coutno_id, ioutyear)
            End If

849830265

CO

用友内部的接口，不对外开放。主要针对单据的数据操作。由用友的各个业务开发组封装提供。数据格式为xml(dom)

1. 支持单据 增、删、改、查、审核、弃审

1. 支持范围 : 基础档案；供应链--销售,采购,库存,委外；财务--应收应付,凭证,存货核算

      库存   USERPCO.voucherco

      销售   voucherco_sa

      委外？voucherco_om

      采购   voucherco_pu

      ROP计划订单  voucherco_pp

      应付CO类 UFAPBO.clsApvouch

      基础档案？ U8SrvTrans.IClsCommon

2. 不支持工作流。 项目上注意做需求规避
SQL

849830265

EAI相当垃圾，单账套用用还行，多账套时，数据在几个账套里到处窜，新版本不知道有没有解决这个问题。

849830265

  联查凭证

            Dim WbTableName As String '凭证临时表
            Dim dbc As ADODB.Connection
            Dim UfDb As New UfDbKit.UfDatabase
            Dim subid As String = "IA"
            Dim cno_id As String
            cno_id = "2021IA0000000019260"

         
            dbc = New ADODB.Connection
            ARPZ.zzLogin = m_login
            UfDb.OpenDatabase(m_login.UfDbName)
            m_ZwPub.InitPubs2("IA", m_login.UfSystemDb, UfDb, m_login.cAcc_Id, m_login.cIYear, m_login.cUserName, m_login.CurDate, m_login.SysPassword)
            ARPZ.zzSys = m_ZwPub
            ARPZ.NewFLCode = "IA,FA,#"
            WbTableName = m_ZwPub.WbTableName
            If dbc.State <> 0 Then dbc.Close()
            dbc.Open(m_login.UfDbName)
            Dim rsTemp As ADODB.Recordset
            Dim Str As String
            rsTemp = New ADODB.Recordset
            If rsTemp.State <> 0 Then rsTemp.Close()
            Str = "select top 1 * from GL_accvouch where coutno_id='" & cno_id & "' "
            rsTemp.CursorLocation = 3
            rsTemp.Open(Str, dbc, 3, 4)
            Dim coutsysname As String = ""
            Dim ioutperiod As String = ""
            Dim coutsign As String = ""
            Dim coutno_id As String = ""
            Dim ioutyear As String = ""
            If Not rsTemp.EOF Then
                coutsysname = rsTemp.Fields("coutsysname").Value
                ioutperiod = rsTemp.Fields("ioutperiod").Value
                coutsign = rsTemp.Fields("coutsign").Value
                coutno_id = rsTemp.Fields("coutno_id").Value
                ioutyear = rsTemp.Fields("ioutyear").Value
            End If
            If Not rsTemp.EOF Then
                ARPZ.StartUpPz("IA", "GL0205", 3, , cousysname, ioutperiod, coutsign, coutno_id, ioutyear)
            End If

lxlwxf

u816.0 和16.1的调试login哪位有

3560819158

老师 你的课 好赞

3560819158

lxlwxf 发表于 2021-8-19 16:08
u816.0 和16.1的调试login哪位有

不用login的 16.0之后

lxlwxf

3560819158 发表于 2021-8-19 21:22
不用login的 16.0之后

不用login的话调试报错，咋破