📄 f_swshedit2.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页




<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"--> 
<% username=Getuser()%>
<%

'*******************************
'
'Author:Ruphi Update Time:2001-09-20
'功能说明：执行中审核输入处理
'
'* *****************************

%>
<%
'从另一个表单传来的值
ID=request("ID")  '唯一ID号
xsdb=request("xsdb")   '销售代表
                                         
                                                      
set rssh=server.createobject("ADODB.RecordSet")
sql="select * from F_Tblcontract22 where AsserNum='"&Session("UserID")&"' and  ID="&cint(ID) 
rssh.open sql,Pubconn,1,3 
if rssh.eof then    '表示该当前登录人还没有审核
   sftg="N"
   shpy=""
else
   sftg=rssh("YN")
   shpy=rssh("Remark")
end  if 
rssh.close
set rssh=nothing

txtremark=request("txtremark")
tgf=request("tgf")
'response.write txtshr&"+"
'response.write txtremark&"+"
'response.write tgf&"<br>"

if request("bc")="保存" then
   '以下对子表的操作
   set rssh=server.createobject("ADODB.RecordSet")
   sql="select * from F_Tblcontract22 where AsserNum='"&Session("UserID")&"' and  ID="&cint(ID) 
   rssh.open sql,Pubconn,1,3 
   if rssh.eof then   
      rssh.Addnew     '新增一条审核
      rssh("ID")=ID
      rssh("AsserNum")=Session("UserID")
      rssh("Remark")=txtremark
      rssh("YN")=tgf
      rssh.Update
   else
      rssh("Remark")=txtremark   '修改该审核人的意见
      rssh("YN")=tgf
      rssh.Update
   end if 
   rssh.close
   set rssh=nothing
   '统计有几个人对合同审核，并且是在合同通过审核的前提下
   '该合同针对是三个人审核，若人数增多时需修改
   mysql="select count(AsserNum) as total from F_Tblcontract22 where YN='Y' and ID="&cint(ID)
  ' response.write mysql
   set rstj=Pubconn.execute(mysql)
   sl=rstj("total")
 '  response.write "sl="&sl
   '以下对主表的操作
    set rst=server.createobject("ADODB.RecordSet")
   sql="select * from F_Tblcontract2 where  ID="&cint(ID) 
   rst.open sql,Pubconn,1,3 
   if sl=3 then    '当全部通过审核时，该合同生效
      rst("Reportsh")=4
      rst.update
   end if 
   if (sl=1) or (sl=2) then
      rst("Reportsh")=3
      rst.update
   end if 
   if sl=0 then
      rst("Reportsh")=2
      rst.update
   end if 
   rst.close
   set rst=nothing


      
   response.write "<br><br><center>审核完成，<a href=javascript:history.go(-1)>返回</a></center>"      
   response.end
end if     '保存完毕      %>    
                                                                                   
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>跟进计划审核</title><link href="../cread.css" rel="stylesheet" type="text/css">
</head>
                                                                                                                  
<body bgcolor="#FFFFFF" >
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -