sub CancelCheckArticle(ID) '取消检验并在工资表中删除记录
set rs=server.createobject("adodb.recordset")
sql="select C_LSH, from WAGE where C_LSH=" & CLng(ID)
rsDel.open sqlDel,conn,1,3
if rsDel.bof and rsDel.eof then
response.write "找不到相关记录"
rs.Close
set rs=nothing
response.end
else
sqlDel="select C_LSH,C_YSM,C_YSSJM,C_GM,C_YQ from PRODUCTS where C_LSH=" & CLng(ID)
Set rsDel= Server.CreateObject("ADODB.Recordset")
rsDel.open sqlDel,conn,1,3
if rsDel.bof and rsDel.eof then
response.write "找不到相关记录"
elseif not isNull(rsDel("C_GM")) or not isNull(rsDel("C_YQ")) then
response.write ""&CLng(ID)&" 已经有刮磨或油漆的记录,不能取消!"
rsDel.close
set rsDel=nothing
call CloseConn()
set rs=server.createobject("adodb.recordset")
sql="select C_LSH, from WAGE where C_LSH=" & CLng(ID)
rsDel.open sqlDel,conn,1,3
if rsDel.bof and rsDel.eof then
response.write "找不到相关记录"
rs.Close
set rs=nothing
response.end
else
sqlDel="select C_LSH,C_YSM,C_YSSJM,C_GM,C_YQ from PRODUCTS where C_LSH=" & CLng(ID)
Set rsDel= Server.CreateObject("ADODB.Recordset")
rsDel.open sqlDel,conn,1,3
if rsDel.bof and rsDel.eof then
response.write "找不到相关记录"
elseif not isNull(rsDel("C_GM")) or not isNull(rsDel("C_YQ")) then
response.write ""&CLng(ID)&" 已经有刮磨或油漆的记录,不能取消!"
rsDel.close
set rsDel=nothing
call CloseConn()