K3新老单据调用+文档

【核心代码】

Attribute VB_Name = "MCallBills"
Public Sub CallOldBills(iTransType As Integer, iNewBillTransType As Integer) '对应ICTransType的Ftype,FID字段
    Dim objtemp As Object
    Set objtemp = CreateObject("k3bills.bills")
    With objtemp
        '连接本地数据库的连接字符串,主要用于单据套打
        .LocalCnn = ""
        
        '调用模块,取自K3安装目录下的dataflow.dat表:采购 purchase;仓库 stock;销售 salein;核算 calcucate;计划 plan;车间 shopfloor
        .SystemName = "Stock"
        
        '登录的用户ID,用户名
'        .SetOpt 16394, "Administrator"
        .SetOpt iUserID, strUser
        
         '1 蓝单,-1 红单
        .BillROB = 1
        
        '调老单数据的词典
        .SelBillVect = Nothing
        
        '对应ICTransType的FID字段
'        .NewBillTransType = 5
        .NewBillTransType = iNewBillTransType
        
        '对应ICTransType的Ftype字段
'        .Show 200, 0
        .Show iTransType, 0
    End With
    Exit Sub
End Sub

Public Sub CallNewBills(iClassTypeID As Long, iInterID As Long) 'ICClassType表FID字段，单据内码
    Set DataSrv = CreateObject("k3classtpl.datasrv")
    
    '单据类型内码,ICClassType表
'    DataSrv.classtypeid = 1000019
    DataSrv.classtypeid = iClassTypeID
    Set obj = CreateObject("K3SingleClassBill.ClassInfoManager")
    With obj
        .DataSrv = DataSrv
        
        '参数1:单据内码,0为新单;参数3:0 新增,1 修改,2 查看,3 审核,4 下达,5 作废,6 关闭;
'        .Show 0, , 1
        .Show iInterID, , 1
    End With
    Set obj = Nothing
    Set DataSrv = Nothing
    Exit Sub
End Sub

.
├── K3 BOS开发百问百答.doc
├── K3新老单据调用
│   ├── FrmLogin.frm
│   ├── K3单据调用.exe
│   ├── K3单据调用.vbp
│   ├── K3单据调用.vbw
│   ├── MCallBills.bas
│   ├── MK3login.bas
│   └── MSSCCPRJ.SCC
├── ~$ BOS开发百问百答.doc
└── 好例子网_K3新老单据调用.zip

1 directory, 10 files