找回密码
 注册账号

QQ登录

只需一步,快速开始

手机号码,快捷登录

手机号码,快捷登录

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

[资料] 用友VB开发实例---U8的库存调用DLL的

   火... [复制链接]
发表于 2010-10-14 20:02:01 | 显示全部楼层
谢谢,已收下了
发表于 2010-10-18 13:27:15 | 显示全部楼层
学习学习一下
发表于 2010-11-17 10:55:05 | 显示全部楼层
看看有没有源码了
发表于 2010-11-17 11:21:27 | 显示全部楼层
good,学习学习了
发表于 2010-11-17 13:33:04 | 显示全部楼层
用友用VB开发的东东啊,我下载下来看看,怎样
发表于 2010-11-22 14:59:42 | 显示全部楼层
顶一下。正在找这样的资料 但是金币不够啊...
发表于 2010-12-6 13:30:17 | 显示全部楼层
谢了,下来看看
发表于 2010-12-7 00:50:10 | 显示全部楼层
正在学习中,非常感谢。
发表于 2010-12-28 00:03:45 | 显示全部楼层
收下了,先研究一下
发表于 2011-2-13 08:23:55 | 显示全部楼层
是说如何吧DLL 整合到 U8里面的吗?
发表于 2011-2-14 13:59:42 | 显示全部楼层
下了看看,有没有什么用处
发表于 2011-2-18 10:21:53 | 显示全部楼层
非常需要,谢谢共享
发表于 2011-2-18 17:18:25 | 显示全部楼层
下了,谢谢! 我用的是U890,testproject的代码个别地方需要修改才能测试通过,请需要的朋友与我联系!
另外,  Set o_api = o_adaptersvr.GetBizAPI("SCMPU/PU/Load", "860")      ''"870")      '为什么这个就不行呢?出现下面错误“对象变量或with块变量未设置”,但Set o_api = o_adaptersvr.GetBizAPI("SCMST/ST/Load", "860")      ''"870")完全没有问题,请朋友们帮助!
发表于 2011-2-19 11:42:35 | 显示全部楼层
请问如何调用 条件查询的窗口
发表于 2011-2-21 11:21:12 | 显示全部楼层
感谢feng_941的热情回答,请看以下详细代码!
Set o_api = o_adaptersvr.GetBizAPI("SCMPU/PU/Load", "860")      ''"870")      '为什么这个就不行呢?出现下面错误“对象变量或with块变量未设置”,但Set o_api = o_adaptersvr.GetBizAPI("SCMST/ST/Load", "860")      ''"870")完全没有问题,请朋友们帮助!

'获取单据
Private Sub cmd_LoadVoucher_Click()
    Dim o_header As DOMDocument, o_body As DOMDocument, str_error As String
   
    Dim o_api As BizAPI
    Dim o_adaptersvr As BizAdapterService
   
    Dim bl_Success As Boolean
   
    txt_Header.Text = ""
    txt_Body.Text = ""
   
    Call StartProcessLog("New BizAdapterService")
    Set o_adaptersvr = New BizAdapterService
    Call EndProcessLog("New BizAdapterService")
   
    Call StartProcessLog("GetBizAPI")

        '***使用这段库存调用API的代码,可以通过!***
        Set o_api = o_adaptersvr.GetBizAPI("SCMST/ST/Load", "860")      ''"870")
        txt_VoucherId.Text = "8005"                            '采购入库单CGRK11010035
        txt_TimeStamp.Text = "0x00000000003A62D2"
        '***使用这段库存调用API的代码,可以通过!***

        '***使用这段采购调用API的代码,无法通过!***
        'txt_VoucherId.Text = "89"                              '采购订单CGDD11010017
        'txt_TimeStamp.Text = "0x00000000005353DF"
        'Set o_api = o_adaptersvr.GetBizAPI("SCMPU/PU/Load", "860")      ''"870")      '为什么这个就不行呢?出现下面错误“对象变量或with块变量未设置”
     '***使用这段采购调用API的代码,无法通过!***

    Call EndProcessLog("GetBizAPI")
   
    If o_api Is Nothing Then
        MsgBox "Get API SCMST/ST/Load not Success!"
        Exit Sub
    End If
                        
    Call o_api.Parameters("VoucherType").setValue("01")                           'select * from VouchType, cVouchType=01,采购入库单  |  不是取自该表,查API资源管理器服务接口定义,无法查到库存的相关参数,但采购、销售有!

    If txt_VoucherId.Text <> "" Then
        Call o_api.Parameters("Condition").setValue("id = " & txt_VoucherId.Text)            '对象变量或with块变量未设置
    Else
        Call o_api.Parameters("GetBlank").setValue(True)
    End If
   
    Call StartProcessLog("Execute")
    bl_Success = o_api.Execute(g_oLogin, g_oConnection, True)
    Call EndProcessLog("Execute")
   
    If bl_Success Then
        Set o_header = o_api.Parameters("Header").getValue()
        Set o_body = o_api.Parameters("Body").getValue()
        
        txt_Header.Text = o_header.xml
        txt_Body.Text = o_body.xml
    Else
        MsgBox o_api.Parameters("ErrMsg").getValue()
    End If
   
End Sub
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

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

GMT+8, 2024-3-29 03:09 , Processed in 0.037135 second(s), 4 queries , Gzip On, Redis On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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