【调度系统】广东民航医疗快线调度系统源代码
hzj
16 小时以前 d700774f27731e52a24df7eaa5d02ee152202308
admin_save.gds
@@ -23,11 +23,23 @@
<%
Function delFollower(ServiceOrderID)
   ' 检查是否有编辑跟单人权限
   if isDepartment("020140") = 0 then
      ' 没有权限,不执行删除操作
      Exit Function
   end if
   sql = "DELETE FROM ServiceOrderCommissionDetails WHERE ServiceOrderID = " & ServiceOrderID & " AND PersonType = 'Follower'"
   objConn.Execute sql
End Function
Function SaveFollower(ServiceOrderID,userId,userName,userRatio)
   ' 检查是否有编辑跟单人权限
   if isDepartment("020140") = 0 then
      ' 没有权限,不执行插入操作
      Exit Function
   end if
   if userId<>"" and userName<>"" and userRatio<>"" then
      ' 如果不存在,则插入新记录
      sql = "INSERT INTO ServiceOrderCommissionDetails (ServiceOrderID, PersonID, PersonName, CommissionRatio, PersonType) VALUES (" & ServiceOrderID & ", " & userId & ", '" & userName & "', " & userRatio & ", 'Follower')"   
@@ -36,6 +48,12 @@
End Function
Function SaveFollowers(ServiceOrderID)
   ' 检查是否有编辑跟单人权限
   if isDepartment("020140") = 0 then
      ' 没有权限,不执行任何操作
      Exit Function
   end if
   ' 先删除所有跟单人记录   
   followerCount = SafeRequest(Request.form("FollowersCount"))
   If Trim(followerCount)<>"" and IsNumeric(followerCount) then