【调度系统】广东民航医疗快线调度系统源代码
hzj
18 小时以前 d700774f27731e52a24df7eaa5d02ee152202308
fix:修复跟单人记录被删除问题
3个文件已修改
54 ■■■■■ 已修改文件
admin_save.gds 18 ●●●●● 补丁 | 查看 | 原始文档 | blame | 历史
admin_save_follower.gds 18 ●●●●● 补丁 | 查看 | 原始文档 | blame | 历史
admin_save_for_wx.gds 18 ●●●●● 补丁 | 查看 | 原始文档 | blame | 历史
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
admin_save_follower.gds
@@ -1,10 +1,22 @@
<%
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')"    
@@ -13,6 +25,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
admin_save_for_wx.gds
@@ -15,11 +15,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')"    
@@ -28,6 +40,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