求删除未被使用的客户，供应商档案工具！

卖卖

如题，休眠的客户及供应商太多给使用带来的很大不便，年结后能否有方法将其中未使用且余额为零往来单位删除呢？一个个去删除和停用工作量太大，请问是否有相关脚本和工具．下面有个脚本不知道是否可行，和客商资料相关联的是否只有脚本中所提及的数据库表，敬请高手指点，不身感激！！！

Delete            
from customer
where
          not exists(select * from Dispatchlist
          where customer.cCusCode=Dispatchlist.cCusCode)   --发货单列表
      and not exists(select * from gl_accass
          where customer.cCusCode=gl_accass.ccus_id)       --辅助总账
      and not exists(select * from GL_accvouch
          where customer.cCusCode=GL_accvouch.ccus_id)     --凭证及明细账
      and not exists(select * from SO_SOmain
          where customer.cCusCode=SO_SOmain.cCusCode)      --销售订单主表
      and not exists(select * from SA_QuoDetails
          where customer.cCusCode=SA_QuoDetails.cCusCode)  --销售报价表

卖卖

Delete            
from Vendor
where
          not exists(select * from po_pomain
          where Vendor.cvencode=po_pomain.cvencode)          --采购订单主表
      and not exists(select * from gl_accass
          where Vendor.cvencode=gl_accass.csup_id)           --辅助总账
      and not exists(select * from GL_accvouch
          where Vendor.cvencode=GL_accvouch.csup_id)         --凭证及明细账
      and not exists(select * from RdRecord
          where Vendor.cvencode=RdRecord.cvencode)           --收发货记录表
      and not exists(select * from Ven_Inv_Price_Rule
          where Vendor.cvencode=Ven_Inv_Price_Rule.cvencode) --供应商报价

yifeng651

呵呵， 仅仅删除几个数据表是不适合的，

应该从数据库结构约束关系及数据库同名字段去考虑所有数据表进行判断。

需求不错，回头做个工具出来让大家玩玩吧。

liuliuangel

大哥你什么时候做工具啊 。我等了好久了啊