找回密码
 注册账号

QQ登录

只需一步,快速开始

手机号码,快捷登录

手机号码,快捷登录

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

[学习] 用友开发-接口

   火.. [复制链接]
 楼主| 发表于 2021-8-5 12:43:12 | 显示全部楼层
849830265 发表于 2021-7-22 12:56
你天天关注我这个贴 赞

这个贴 含金量非常高

回复 点赞 拍砖

使用道具 举报

 楼主| 发表于 2021-8-8 14:03:14 | 显示全部楼层
849830265 发表于 2021-8-5 12:43
这个贴 含金量非常高

赞 非常好的帖子

回复 点赞 拍砖

使用道具 举报

 楼主| 发表于 2021-8-9 17:25:09 | 显示全部楼层
谢谢分享

回复 点赞 拍砖

使用道具 举报

 楼主| 发表于 2021-8-10 14:51:09 | 显示全部楼层
   Maticsoft.DBUtility.DbHelperMySQL.connectionString = "server=.....ort=3306;user id=root;password=.....;database=info;pooling=true;charset=utf8;sslmode=none"; //根据自己的设置
    关键参数sslmode=none;
    没这个参数无法连接到mysql数据库


回复 点赞 拍砖

使用道具 举报

 楼主| 发表于 2021-8-11 16:11:14 | 显示全部楼层
            获取列表内容

            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
回复 点赞 拍砖

使用道具 举报

发表于 2021-8-13 08:31:23 | 显示全部楼层
内容更新得这么多 谢谢老师的分享

回复 点赞 拍砖

使用道具 举报

 楼主| 发表于 2021-8-13 16:57:47 | 显示全部楼层
谢谢赞扬
回复 点赞 拍砖

使用道具 举报

 楼主| 发表于 2021-8-16 09:58:34 | 显示全部楼层
          联查凭证

            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
回复 点赞 拍砖

使用道具 举报

 楼主| 发表于 2021-8-17 18:23:09 | 显示全部楼层
CO

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

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

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

      库存   USERPCO.voucherco

      销售   voucherco_sa

      委外?voucherco_om

      采购   voucherco_pu

      ROP计划订单  voucherco_pp

      应付CO类 UFAPBO.clsApvouch

      基础档案? U8SrvTrans.IClsCommon

2. 不支持工作流。 项目上注意做需求规避
SQL
回复 点赞 拍砖

使用道具 举报

 楼主| 发表于 2021-8-18 11:02:06 | 显示全部楼层
EAI相当垃圾,单账套用用还行,多账套时,数据在几个账套里到处窜,新版本不知道有没有解决这个问题。
回复 点赞 拍砖

使用道具 举报

 楼主| 发表于 2021-8-19 13:02:26 | 显示全部楼层
  联查凭证

            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
回复 点赞 拍砖

使用道具 举报

发表于 2021-8-19 16:08:06 | 显示全部楼层
u816.0 和16.1的调试login哪位有
回复 点赞 拍砖

使用道具 举报

发表于 2021-8-19 21:21:37 | 显示全部楼层
老师 你的课 好赞

回复 点赞 拍砖

使用道具 举报

发表于 2021-8-19 21:22:13 | 显示全部楼层
lxlwxf 发表于 2021-8-19 16:08
u816.0 和16.1的调试login哪位有

不用login的 16.0之后

回复 点赞 拍砖

使用道具 举报

发表于 2021-8-20 13:40:40 | 显示全部楼层
3560819158 发表于 2021-8-19 21:22
不用login的 16.0之后

不用login的话调试报错,咋破
回复 点赞 拍砖

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-28 16:32 , Processed in 0.034635 second(s), 8 queries , Gzip On, Redis On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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