| | |
| | |
|
| | | SaveOpenerCommission ServiceOrdID
|
| | | SaveFollowers ServiceOrdID
|
| | | ' 新增条件更新语句
|
| | | sql = "UPDATE ServiceOrder SET Old_ServiceOrdID_TXT = '" & Replace(ServiceOrdNo, "'", "''") & "' " & _
|
| | | "WHERE ServiceOrdID = " & ServiceOrdID & " AND (Old_ServiceOrdID_TXT IS NULL OR Old_ServiceOrdID_TXT = '[未关联]')"
|
| | | objConn.Execute sql
|
| | |
|
| | | '咨询单转为服务单('自动审核)
|
| | | If ServiceOrdState="2" then
|
| | | sql="update ServiceOrder set ServiceOrd_NS_ID="&session("adminID")&",ServiceOrd_NS_Time=getdate(),ServiceOrd_AP_Check=1,ServiceOrd_AP_Time=getdate(),ServiceOrd_AP_ID="&session("adminID")&" where ServiceOrdID="&ServiceOrdID
|
| | |
| | | </script><%
|
| | | Response.End
|
| | | End If
|
| | | If DispatchOrdClass="SA" And CInt(old_TraTxnPrice)>CInt(TraPaidPrice) And (DispatchOrdState="8") Then
|
| | | If DispatchOrdClass="SA" And CLng(old_TraTxnPrice)>CLng(TraPaidPrice) And (DispatchOrdState="8") Then
|
| | | %><script language=javascript>
|
| | | alert('返回前,请确认收款流水和成交价一致');
|
| | | window.location.href="/m_DispatchOrder.gds?DispatchOrdID=<%=DispatchOrdID%>&EndMileage=<%=EndMileage%>"
|
| | |
| | | End If
|
| | | rs.close()
|
| | | End If
|
| | | 'Call Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState)
|
| | | Call Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState)
|
| | |
|
| | | '更新提成数据
|
| | | Call EntourageDKP_Money_C2(DispatchOrdID)
|