frm_oldstemperspecbilldisposal.frm

一个公司的客户财产管理系统vb源码

    Rs_Common.Open "select 内编码, 订单种类 from Stemper_SpecBill where 订单种类 like '%外卖%' group by 内编码, 订单种类 order by 内编码", Cn_Common, adOpenKeyset, adLockOptimistic, adCmdText
    Set rsOutCustomer_Riches = New ADODB.Recordset
    rsOutCustomer_Riches.Open "select * from OutCustomer_Riches", cnOutCustomer_Riches, adOpenKeyset, adLockOptimistic, adCmdText
    If Rs_Common.RecordCount <> 0 Then
      Rs_Common.MoveFirst
      For i = 1 To Rs_Common.RecordCount
        Set rsCustomer_Riches = New ADODB.Recordset
        rsCustomer_Riches.Open "select * from Customer_Riches where 内编码='" & Rs_Common!内编码 & "'", cnCustomer_Riches, adOpenKeyset, adLockOptimistic, adCmdText
        If rsCustomer_Riches.RecordCount = 1 Then
            rsOutCustomer_Riches.AddNew
            If IsNull(rsCustomer_Riches!信息完整) = False Then rsOutCustomer_Riches!信息完整 = rsCustomer_Riches!信息完整 Else rsOutCustomer_Riches!信息完整 = ""
            If IsNull(rsCustomer_Riches!质量等级) = False Then rsOutCustomer_Riches!质量等级 = rsCustomer_Riches!质量等级 Else rsOutCustomer_Riches!质量等级 = ""
            If IsNull(rsCustomer_Riches!复制要求) = False Then rsOutCustomer_Riches!复制要求 = rsCustomer_Riches!复制要求 Else rsOutCustomer_Riches!复制要求 = ""
            If IsNull(rsCustomer_Riches!品质要求) = False Then rsOutCustomer_Riches!品质要求 = rsCustomer_Riches!品质要求 Else rsOutCustomer_Riches!品质要求 = ""
            If IsNull(rsCustomer_Riches!内编码) = False Then rsOutCustomer_Riches!内编码 = rsCustomer_Riches!内编码 Else rsOutCustomer_Riches!内编码 = ""
            If IsNull(rsCustomer_Riches!料号) = False Then rsOutCustomer_Riches!料号 = rsCustomer_Riches!料号 Else rsOutCustomer_Riches!料号 = ""
            If IsNull(rsCustomer_Riches!节目名称) = False Then rsOutCustomer_Riches!节目名称 = rsCustomer_Riches!节目名称 Else rsOutCustomer_Riches!节目名称 = ""
            If IsNull(rsCustomer_Riches!母盘号码) = False Then rsOutCustomer_Riches!母盘号码 = rsCustomer_Riches!母盘号码 Else rsOutCustomer_Riches!母盘号码 = ""
            If IsNull(rsCustomer_Riches!节目源种类) = False Then rsOutCustomer_Riches!节目源种类 = rsCustomer_Riches!节目源种类 Else rsOutCustomer_Riches!节目源种类 = ""
            If IsNull(rsCustomer_Riches!节目种类) = False Then rsOutCustomer_Riches!节目种类 = rsCustomer_Riches!节目种类 Else rsOutCustomer_Riches!节目种类 = ""
            If IsNull(rsCustomer_Riches!母盘刻字要求) = False Then rsOutCustomer_Riches!母盘刻字要求 = rsCustomer_Riches!母盘刻字要求 Else rsOutCustomer_Riches!母盘刻字要求 = ""
            If IsNull(rsCustomer_Riches!刻录速度) = False Then rsOutCustomer_Riches!刻录速度 = rsCustomer_Riches!刻录速度 Else rsOutCustomer_Riches!刻录速度 = ""
            If IsNull(rsCustomer_Riches!母盘内孔) = False Then rsOutCustomer_Riches!母盘内孔 = rsCustomer_Riches!母盘内孔 Else rsOutCustomer_Riches!母盘内孔 = ""
            If IsNull(rsCustomer_Riches!菲林索引) = False Then rsOutCustomer_Riches!菲林索引 = rsCustomer_Riches!菲林索引 Else rsOutCustomer_Riches!菲林索引 = ""
            If IsNull(rsCustomer_Riches!印刷参照) = False Then rsOutCustomer_Riches!印刷参照 = rsCustomer_Riches!印刷参照 Else rsOutCustomer_Riches!印刷参照 = ""
            If IsNull(rsCustomer_Riches!印刷方式) = False Then rsOutCustomer_Riches!印刷方式 = rsCustomer_Riches!印刷方式 Else rsOutCustomer_Riches!印刷方式 = ""
            If IsNull(rsCustomer_Riches!印刷颜色) = False Then rsOutCustomer_Riches!印刷颜色 = rsCustomer_Riches!印刷颜色 Else rsOutCustomer_Riches!印刷颜色 = ""
            If IsNull(rsCustomer_Riches!印刷内圈) = False Then rsOutCustomer_Riches!印刷内圈 = rsCustomer_Riches!印刷内圈 Else rsOutCustomer_Riches!印刷内圈 = ""
            If IsNull(rsCustomer_Riches!委托书编码) = False Then rsOutCustomer_Riches!委托书编码 = rsCustomer_Riches!委托书编码 Else rsOutCustomer_Riches!委托书编码 = ""
            If IsNull(rsCustomer_Riches!印刷要求) = False Then rsOutCustomer_Riches!印刷要求 = rsCustomer_Riches!印刷要求 Else rsOutCustomer_Riches!印刷要求 = ""
            rsOutCustomer_Riches.Update
            rsCustomer_Riches.Delete
            rsCustomer_Riches.Update
            rsCustomer_Riches.Close
        End If
        Rs_Common.MoveNext
      Next i
      rsOutCustomer_Riches.Close
    End If
    
    If Rs_Common.State = 1 Then Rs_Common.Close
    Rs_Common.Open "select * from Stemper_SpecBill where 订单种类 like '%外卖%' order by 内编码", Cn_Common, adOpenKeyset, adLockOptimistic, adCmdText
    rsOldOutStemperSpecBillBack.Open "select * from OldOutStemper_SpecBillBack", cnOldOutStemperSpecBillBack, adOpenKeyset, adLockOptimistic, adCmdText
    If Rs_Common.RecordCount <> 0 Then
      Rs_Common.MoveFirst
      For i = 1 To Rs_Common.RecordCount
         rsOldOutStemperSpecBillBack.AddNew
         '节目下单时其他要求
         If IsNull(Rs_Common!规格单号) = False Then rsOldOutStemperSpecBillBack!规格单号 = Rs_Common!规格单号
         If IsNull(Rs_Common!小号) = False Then rsOldOutStemperSpecBillBack!小号 = Rs_Common!小号
         If IsNull(Rs_Common!客户名称) = False Then rsOldOutStemperSpecBillBack!客户名称 = Rs_Common!客户名称
         If IsNull(Rs_Common!订单种类) = False Then rsOldOutStemperSpecBillBack!订单种类 = Rs_Common!订单种类
         If IsNull(Rs_Common!母盘归属) = False Then rsOldOutStemperSpecBillBack!母盘归属 = Rs_Common!母盘归属
         If IsNull(Rs_Common!备注) = False Then rsOldOutStemperSpecBillBack!备注 = Rs_Common!备注
         If IsNull(Rs_Common!特殊要求) = False Then rsOldOutStemperSpecBillBack!特殊要求 = Rs_Common!特殊要求
         If IsNull(Rs_Common!交货日期) = False Then rsOldOutStemperSpecBillBack!交货日期 = Rs_Common!交货日期
         If IsNull(Rs_Common!数量) = False Then rsOldOutStemperSpecBillBack!数量 = Rs_Common!数量
         '营销部录入部份
         If IsNull(Rs_Common!信息完整) = False Then rsOldOutStemperSpecBillBack!信息完整 = Rs_Common!信息完整 Else rsOldOutStemperSpecBillBack!信息完整 = ""
        If IsNull(Rs_Common!质量等级) = False Then rsOldOutStemperSpecBillBack!质量等级 = Rs_Common!质量等级 Else rsOldOutStemperSpecBillBack!质量等级 = ""
        If IsNull(Rs_Common!复制要求) = False Then rsOldOutStemperSpecBillBack!复制要求 = Rs_Common!复制要求 Else rsOldOutStemperSpecBillBack!复制要求 = ""
        If IsNull(Rs_Common!品质要求) = False Then rsOldOutStemperSpecBillBack!品质要求 = Rs_Common!品质要求 Else rsOldOutStemperSpecBillBack!品质要求 = ""
        If IsNull(Rs_Common!内编码) = False Then rsOldOutStemperSpecBillBack!内编码 = Rs_Common!内编码 Else rsOldOutStemperSpecBillBack!内编码 = ""
        If IsNull(Rs_Common!料号) = False Then rsOldOutStemperSpecBillBack!料号 = Rs_Common!料号 Else rsOldOutStemperSpecBillBack!料号 = ""
        If IsNull(Rs_Common!节目名称) = False Then rsOldOutStemperSpecBillBack!节目名称 = Rs_Common!节目名称 Else rsOldOutStemperSpecBillBack!节目名称 = ""
        If IsNull(Rs_Common!母盘号码) = False Then rsOldOutStemperSpecBillBack!母盘号码 = Rs_Common!母盘号码 Else rsOldOutStemperSpecBillBack!母盘号码 = ""
        If IsNull(Rs_Common!节目源种类) = False Then rsOldOutStemperSpecBillBack!节目源种类 = Rs_Common!节目源种类 Else rsOldOutStemperSpecBillBack!节目源种类 = ""
        If IsNull(Rs_Common!节目种类) = False Then rsOldOutStemperSpecBillBack!节目种类 = Rs_Common!节目种类 Else rsOldOutStemperSpecBillBack!节目种类 = ""
        If IsNull(Rs_Common!母盘刻字要求) = False Then rsOldOutStemperSpecBillBack!母盘刻字要求 = Rs_Common!母盘刻字要求 Else rsOldOutStemperSpecBillBack!母盘刻字要求 = ""
        If IsNull(Rs_Common!刻录速度) = False Then rsOldOutStemperSpecBillBack!刻录速度 = Rs_Common!刻录速度 Else rsOldOutStemperSpecBillBack!刻录速度 = ""
        If IsNull(Rs_Common!母盘内孔) = False Then rsOldOutStemperSpecBillBack!母盘内孔 = Rs_Common!母盘内孔 Else rsOldOutStemperSpecBillBack!母盘内孔 = ""
        If IsNull(Rs_Common!菲林索引) = False Then rsOldOutStemperSpecBillBack!菲林索引 = Rs_Common!菲林索引 Else rsOldOutStemperSpecBillBack!菲林索引 = ""
        If IsNull(Rs_Common!印刷参照) = False Then rsOldOutStemperSpecBillBack!印刷参照 = Rs_Common!印刷参照 Else rsOldOutStemperSpecBillBack!印刷参照 = ""
        If IsNull(Rs_Common!印刷方式) = False Then rsOldOutStemperSpecBillBack!印刷方式 = Rs_Common!印刷方式 Else rsOldOutStemperSpecBillBack!印刷方式 = ""
        If IsNull(Rs_Common!印刷颜色) = False Then rsOldOutStemperSpecBillBack!印刷颜色 = Rs_Common!印刷颜色 Else rsOldOutStemperSpecBillBack!印刷颜色 = ""
        If IsNull(Rs_Common!委托书编码) = False Then rsOldOutStemperSpecBillBack!委托书编码 = Rs_Common!委托书编码 Else rsOldOutStemperSpecBillBack!委托书编码 = ""
        If IsNull(Rs_Common!印刷要求) = False Then rsOldOutStemperSpecBillBack!印刷要求 = Rs_Common!印刷要求 Else rsOldOutStemperSpecBillBack!印刷要求 = ""
        If IsNull(Rs_Common!包装要求) = False Then rsOldOutStemperSpecBillBack!包装要求 = Rs_Common!包装要求 Else rsOldOutStemperSpecBillBack!包装要求 = ""
        If IsNull(Rs_Common!包装方式) = False Then rsOldOutStemperSpecBillBack!包装方式 = Rs_Common!包装方式 Else rsOldOutStemperSpecBillBack!包装方式 = ""
        If IsNull(Rs_Common!印刷内圈) = False Then rsOldOutStemperSpecBillBack!印刷内圈 = Rs_Common!印刷内圈 Else rsOldOutStemperSpecBillBack!印刷内圈 = ""
        '品质部录入部分
        If IsNull(Rs_Common!母盘数量) = False Then rsOldOutStemperSpecBillBack!母盘数量 = Rs_Common!母盘数量 Else rsOldOutStemperSpecBillBack!母盘数量 = 0
        If IsNull(Rs_Common!节目源状态) = False Then rsOldOutStemperSpecBillBack!节目源状态 = Rs_Common!节目源状态 Else rsOldOutStemperSpecBillBack!节目源状态 = ""
        If IsNull(Rs_Common!菲林状态) = False Then rsOldOutStemperSpecBillBack!菲林状态 = Rs_Common!菲林状态 Else rsOldOutStemperSpecBillBack!菲林状态 = ""
        If IsNull(Rs_Common!库位号) = False Then rsOldOutStemperSpecBillBack!库位号 = Rs_Common!库位号 Else rsOldOutStemperSpecBillBack!库位号 = ""
        If IsNull(Rs_Common!财产备注) = False Then rsOldOutStemperSpecBillBack!财产备注 = Rs_Common!财产备注 Else rsOldOutStemperSpecBillBack!财产备注 = ""
        '生产部录入部分
        If IsNull(Rs_Common!印刷机号) = False Then rsOldOutStemperSpecBillBack!印刷机号 = Rs_Common!印刷机号 Else rsOldOutStemperSpecBillBack!印刷机号 = ""
        If IsNull(Rs_Common!版状态) = False Then rsOldOutStemperSpecBillBack!版状态 = Rs_Common!版状态 Else rsOldOutStemperSpecBillBack!版状态 = ""
        If IsNull(Rs_Common!专色油墨) = False Then rsOldOutStemperSpecBillBack!专色油墨 = Rs_Common!专色油墨 Else rsOldOutStemperSpecBillBack!专色油墨 = ""
        If IsNull(Rs_Common!颜色样本) = False Then rsOldOutStemperSpecBillBack!颜色样本 = Rs_Common!颜色样本 Else rsOldOutStemperSpecBillBack!颜色样本 = ""
        If IsNull(Rs_Common!不良率) = False And Rs_Common!不良率 <> "" Then rsOldOutStemperSpecBillBack!不良率 = Rs_Common!不良率 Else rsOldOutStemperSpecBillBack!不良率 = "00.00%"
        If IsNull(Rs_Common!剩余良品数) = False Then rsOldOutStemperSpecBillBack!剩余良品数 = Rs_Common!剩余良品数 Else rsOldOutStemperSpecBillBack!剩余良品数 = 0
        If IsNull(Rs_Common!小于3000) = False Then rsOldOutStemperSpecBillBack!小于3000 = Rs_Common!小于3000 Else rsOldOutStemperSpecBillBack!小于3000 = 0
        rsOldOutStemperSpecBillBack.Update
        Rs_Common.Delete
        Rs_Common.MoveNext
      Next i
      Rs_Common.Update
      rsOldOutStemperSpecBillBack.Update
       If rsOldOutStemperSpecBillBack.State = 1 Then rsOldOutStemperSpecBillBack.Close
       cnOldOutStemperSpecBillBack.Close
       If Rs_Common.State = 1 Then Rs_Common.Close
       Cn_Common.Close
    End If
    MsgBox "旧数据导入成功!", vbInformation
Exit Sub
err:
   MsgBox err.Description + Chr(13) + "旧的外卖母盘信息处理失败!", vbCritical, "提示信息"
   End
End Sub