u8.52的产成品入库帐导入问题

kecolikeco

下面是U8.52产成品入库帐导入VBA代码，请大家一起修改，也是抄网友的。不确定U8.52版本，CurrentStock是否需要更新，还是系统自己更新。

1. Private Sub CmdCc_Click()
   
2. Dim i As Integer, j As Integer
   
3. Dim conn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；
   
4. Dim rs As New ADODB.Recordset  '定义记录集对象，保存数据表
   
5. Dim strCn As String, SQL As String, Ys As String '字符串变量
   
6. Dim Hs As Integer '行数
   
7. Dim Mid As Long, mAutoId As Long  '最大单号,单号
   
8.     Hs = [A65536].End(xlUp).Row
   
9.     If Hs < 6 Then
   
10.         MsgBox "数据不存在!"
    
11.         Exit Sub
    
12.     End If
    
13.     If IsDate(Cells(3, 4)) = False Then
    
14.         MsgBox "日期格式不正确,请检查"
    
15.         Exit Sub
    
16.     End If
    
17. '     If Not Cells(4, 4).Value = "一厂" Or Cells(4, 4).Value = "二厂" Then
    
18. '        MsgBox "厂别不正确,请检查"
    
19. '        Exit Sub
    
20. '    End If
    
21.     strCn = "Provider=sqloledb;Server=c900;Database=ufdata_808_2012;Uid=sa;Pwd=x3500;"    '定义数据库链接字符串
    
22.     '用友通数据库命名规则,"ufdata_" + "帐套号" + "_" + "帐套年度"
    
23.     conn.Open strCn   '与数据库建立连接，如果成功，返回连接对象conn
    
24.    
    
25.    
    
26. '    SQL = "select max(stuff(cCode,LEN(cCode),1,RIGHT(cCode,1)+1)) from RdRecord where cVouchType <> '34'" '获取最大用友系统单号
    
27.     SQL = "select max(stuff(cCode,LEN(cCode),1,RIGHT(cCode,1)+1)) from RdRecord where  cBusType = '成品入库'" '获取最大用友系统单号
    
28.     Sheets("入库").[b3].CopyFromRecordset conn.Execute(SQL)
    
29.     conn.Close: Set conn = Nothing
    
30.     conn.Open strCn   '与数据库建立连接，如果成功，返回连接对象conn
    
31. 
    
32.     SQL = "select cVouchType,cCode from RdRecord where cVouchType = '10' and cCode='" & Trim(Cells(3, 2)) & "'"   '用友系统单据号
    
33.     rs.Open SQL, conn, 1, 1
    
34.         If Not rs.EOF Then
    
35.             MsgBox "该入库单已经存在,请检查!"
    
36.             Exit Sub
    
37.         End If
    
38.     rs.Close
    
39.     conn.Execute "sp_unbindefault 'RdRecord.ID'" '取消默认值绑定
    
40.     conn.Execute "sp_unbindefault 'RdRecords.AutoID'"
    
41.     SQL = "select max(id) as Mid from rdrecord"
    
42.     rs.Open SQL, conn, 1, 1
    
43.         If IsNull(rs!Mid) Then
    
44.             Mid = 1
    
45.         Else
    
46.             Mid = rs!Mid + 1
    
47.         End If
    
48.     rs.Close
    
49.     SQL = "select *  from RdRecord order by id"
    
50.     rs.Open SQL, conn, 1, 3
    
51.         rs.AddNew
    
52.         rs!Id = Mid '主键,与RdRecords.id对应
    
53.         rs!bRdFlag = 1
    
54.         rs!cVouchType = "10"  '01 采购,32 销售,想要其他代码,自己打开数据库单据类型表"VouchType"
    
55.         rs!cBusType = Trim(Cells(4, 2)) '成品入库
    
56.         rs!cSource = "库存"
    
57.         rs!cWhCode = "31"  '仓库
    
58.         rs!cRdCode = "0104" '入库类别，完工入库
    
59.         rs!dDate = Cells(3, 4) '入库日期
    
60.         rs!cCode = Trim(Cells(3, 2))  '用友系统单号
    
61.         rs!cMaker = Trim(Cells(3, 7))  '制单人
    
62.         rs!cMemo = Trim(Cells(4, 7)) '产量报表上的单据编号
    
63.         rs!cDefine2 = Trim(Cells(4, 4)) '生产分厂
    
64.         rs!iMQuantity = 0 '手工导入和用友客户端输入差异调整
    
65.         rs!iproorderid = 0 '手工导入和用友客户端输入差异调整
    
66.         rs.Update
    
67.     rs.Close
    
68.    
    
69. 
    
70.    
    
71.     SQL = "select max(autoid) as mautoid from rdrecords"
    
72.     rs.Open SQL, conn, 1, 1
    
73.         If IsNull(rs!mAutoId) Then
    
74.             mAutoId = 1
    
75.         Else
    
76.             mAutoId = rs!mAutoId + 1
    
77.         End If
    
78.     rs.Close
    
79.     For i = 6 To Hs
    
80.         SQL = "select *  from RdRecords order by autoid"
    
81.         rs.Open SQL, conn, 1, 3
    
82.             rs.AddNew
    
83.             rs!AutoId = mAutoId
    
84.             rs!cInvCode = Trim(Cells(i, 1)) '产品编码，用友编码
    
85.             rs!iQuantity = Val(Cells(i, 5)) '数量
    
86.             rs!iUnitCost = Val(Cells(i, 6)) ' 单价
    
87.             rs!iPrice = Val(Cells(i, 7)) ' 金额
    
88.             rs!iAPrice = Val(Cells(i, 7)) ' 金额
    
89.             rs!fAcost = Val(Cells(i, 6)) ' 单价
    
90.             rs!cFree2 = Val(Cells(i, 8)) '库位 cFree2
    
91.             rs!Id = Mid
    
92.             rs.Update
    
93.         rs.Close
    
94.         SQL = "select * from CurrentStock where cInvCode='" & Trim(Cells(i, 1)) & "'" '产品编码，用友编码
    
95. '注:本程序中所有测试数据的前提是:产品编号"cInvCode"已经存在存货目录表"inventory"中,因为我不需要判断这一步,需要的自己添加.
    
96.         rs.Open SQL, conn, 1, 3
    
97.             If rs.EOF Then rs.AddNew
    
98.             rs!cWhCode = "31"
    
99.             rs!cInvCode = Trim(Cells(i, 1)) '产品编码，用友编码
    
100.             rs!cFree2 = Val(Cells(i, 8)) '库位
     
101.             rs!iQuantity = rs!iQuantity + Val(Cells(i, 5)) '数量
     
102.             rs.Update
     
103.         rs.Close
     
104.         mAutoId = mAutoId + 1
     
105.     Next
     
106.     conn.Execute "sp_bindefault 'RdRecord_ID_D','RdRecord.ID'" '恢复默认值绑定
     
107.     conn.Execute "sp_bindefault 'RdRecords_AutoID_D','RdRecords.AutoID'"
     
108.     conn.Close
     
109.     MsgBox "数据导入成功!"
     
110. End Sub
     

复制代码

www.v2qq.com

出单暂时官方及兼容的未见。网上有别的版本，但不是官方的，未试。 不过拥有量较大，等等也许会有。

kecolikeco

www.v2qq.com 发表于 2012-11-2 08:44

                               
登录/注册后可看大图

出单暂时官方及兼容的未见。网上有别的版本，但不是官方的，未试。 不过拥有量较大，等等也许会有。

太专业了，没有理解

lihuaren007

切，还说分享。就自己能看见而已

kecolikeco

lihuaren007 发表于 2012-11-2 09:25

                               
登录/注册后可看大图

切，还说分享。就自己能看见而已

修改了，现在看看去

wozengcong

切，还说分享。就自己能看见而已

kecolikeco

ssshyu 发表于 2012-11-5 15:48

                               
登录/注册后可看大图

妈的，心情不顺啊，老是被那女人说，我操我是个人啊，你说你说你妹啊，天天就知道唧唧歪歪，你又没有想过我 ...

说什么呢！啥意思吗？

ghostmen

有点专业，不适合心急的我，先下来，以后慢慢研究

ghostmen

研究了，不懂

www.qqfenzu.cc

有点专业，不适合心急的我，先下来，以后慢慢研究