1. 程式人生 > 實用技巧 >U8供應鏈各業務單據CO功能

U8供應鏈各業務單據CO功能

在U8供應鏈單據編碼過程中封裝的介面dll,無論是U8供應鏈內部編碼或是二開外部編碼都可以呼叫的介面,用來做單據的載入,新增,稽核、棄審、刪除等操作。
如:U8庫存管理Co呼叫方法
1、Co物件初始化:

Set STCo = New USERPCO.VoucherCO
    Dim domPos As New DOMDocument
    Dim errMsg As String
    STCo.IniLogin ologin, errMsg
    If errMsg <> "" Then
        MsgBox errMsg    
    End If

2、呼叫CO生成單據

Dim errMsg As String
    Dim ss As New DOMDocument
    Dim bret As Boolean
    Dim ele As IXMLDOMElement  
    For Each ele In bodydom.selectNodes("//z:row")
        ele.setAttribute "editprop", "A"
    Next
    bret = STCo.Insert("01", headdom, bodydom, ss, errMsg)    
    If bret = True Then    
        MsgBox "入庫單插入成功"
    Else
        MsgBox ss.xml
    End If

補:其他CO方法在VB裡用“物件管理器(f2)”參閱悟

3、HeadDom、BodyDom 引數組織組織(獲取)參照

Dim headdom As New DOMDocument

       Dimbodydom As New DOMDocument                            

    STCo.Load "01", " id='1000000012'", headdom, bodydom, domPos, errMsg

    MsgBox headdom.xml

    MsgBox bodydom.xml

全文版權所有(注:各業務單據的CO呼叫文體思路一致,但呼叫細節有區別)